BWT by konn

import List
main@m=getLine>>=putStrLn.f>>m
f l=show(maybe 0 id$lookup l$zip k[0..])++" "++map last k where k=sort$take(length l)$iterate(\(x:xs)->xs++[x])l

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page