#!perl -l
$_='-';for$a(1..pop){$_.=$_^$_.$_}print

#!perl -l
$_='-';for$a(1..pop){$_.=' 'x(length).$_}print