main=mapM putStrLn$f"012345" f[x]=[[x]] f s=[z:' ':t|z<-s,t<-f[a|a<-s,a/=z]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page