#!perl
$_="-";s/./$& $&/g while$ARGV[0]--;print$_.$/