#!perl -l print map{push@_,($n=$ARGV[$i%2])x($c=$_[$i++]||$n);$c}1..pop
#!perl -l print map{push@_,($n=$ARGV[$i%2])x($_[$i]||$n);$_[$i++]}1..pop
#!perl -l print map{push@_bin,($n=$ARGV[$i%2])x($_[$i]||$n);$_[$i++]}1..pop