f 7=[1,4,5] f 3=[1] f 5=[0,2,4] main=getContents>>=(\x->mapM(\y->putStrLn$x!!y)$f$length x).lines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page