#!perl -l
$a='-';$a.=' 'x3**$b++.$a for(1..pop);print$a