x="01";m@main=getLine>>=putStrLn.(>>=(drop 3[a:b:c:[d]|a<-x,b<-x,c<-x,d<-x]!!).read.(:[]))>>m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page