#!perl -l
$_="-"x3**pop;1while s/(-+)(\1)(?=\1)/$1." "x length($2)/ge;print