#!perl
$\="-
";$\=~s/./$& $&/gfor 1..pop;print