#!perl -l
for$n(0..pop){s??$_.$"x y///c|'-'?e}print

#!perl -l
for$n(0..pop){s??$_.' 'x y///c|'-'?e}print