$"=', ';map{@a=0;/v/?@a=map{$_-1,$_+1}@a:/</?shift@a:/>/?pop@a:(@a=eval join+($%=/\//)?'*':'+ ',@a,$%)for/./g;print"[@a] "}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page