#!perl -l
sub c{$_=pop;my$n=length()/3;$n<1?$_:c("-"x$n)." "x$n.c("-"x$n)}print c("-"x(3**pop))