main=f[-1].words=<<getLine;f(x:y)("=":z)=print x>>f y z;f(x:y)(_:z)=f(x+1:x:y)z\x0d
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page