#!perl -l
$_="-"x($f=3**pop);do{$f/=3}while+s;--+;"-"x$f.$"x$f."-"x$f;eg;print