(= m[if(atom _)`(,_)_]f[if cdr._(f:if(is"."_.0)(+(m:_ 1)`((,@(m:_ 2),_.3))(cut _ 4))`((,_.0,(f:m:_ 1)),@cddr._))_.0])(while:prn:f:tokens:readline)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page