#!perl
s//-\n/;for($n=pop;$n--;){s/./$& $&/g}print