#!perl -n
chomp;@L=split//,$_;;@H=();$h=0;$i=0;for(@L){$h--if$_ eq")";$H[$i]=$h;$h++if$_ eq"(";$i++}for$z(0..15){$n="";for$i(0..$#L){$n.=$H[$i]==$z?$L[$i]:" ";}$n=~s/\s*$//;$n.="\n";last if$n=~/^\s*$/;print$n}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).