main=mapM putStrLn['0':a:b:c:" is -"++x++y++z|(a,x)<-l,(b,y)<-l,(c,z)<-l] l=zip['0'..][[a,b,c]|a<-"-r",b<-"-w",c<-"-x"]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page