#!perl -p0 sub a{@$x||map{push@s,$x,$_,$x,-$_}@$x=index($_,$")-1,1}$x=index$_,".";for(a;$d=pop@s,$x=pop@s;$r-35||a){$x+=$d,$r=46while${*r=\vec$_,$x+$d,8}<33}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page