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