main=f['0'..];f l=do c<-getChar;putStr$show$length$fst$span(/=c)l;f$c:filter(/=c)l
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page