#!perl -l
$r='-';$r.=$"x3**($_-1).$r
for
1..pop;print$r