#!perl -l
$c='-';map{$c=~s/./$& $&/g}1..pop;print$c