python script.py | perl -e'$_=eval <STDIN>;for (@$_) { while(($a,$b
)=splice(@$_,0,2)) {print $a x $b}print $/}'