s ','=", " s x=[x] r=readLn f g=do n<-r;mapM id$g<$[1..n] main=f(f$r)>>=putStr.(>>=s).show
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page