#!perl s/./$& $&/gfor($\="- ")x pop;print
#!perl s/./$& $&/gfor($\||="- ")x pop;print
#!perl -l s//-/;eval's/./$& $&/g;'x pop;print
#!perl push@=,($")x@=,@=for(@=='-')..pop;print@=,$/
#!perl @=='-';push@=,($")x@=,@=for 1..pop;print@=,$/