#!perl -l
for$=(0..pop){s/ |-/$& $&/g^s//-/}print

#!perl -l
$@.=' 'x3**$#_++.$@||'-'for 0..pop;print$@