main=readLn>>=f")";f x@ ~(c:y)n=putStrLn((x>>"M(")++show n++x)>>[f(c:x)$n+11,f y$n-10]!!div n 101
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page