#!perl -l for$,(0..pop){$_.=" "x y/ -//.$_||"-"}print
#!perl -l for$a(0..pop){$_.=" "x y/ -//.$_||"-"}print