#!perl -l
$_="-";for$n(1..pop){$_.=$"x3**--$n.reverse}print