#!perl -l
$c='-';map{$c.=' 'x(3**$_/3).$c}1..pop;print$c