#!perl -l
$_="-";$_.=" "x(length).$_ while($ARGV[0]--);print