import Text.Printf;p=[x:y:z:""|x<-"-r",y<-"-w",z<-"-x"];f n=printf"%04o is -%s\n"n([x++y++z|x<-p,y<-p,z<-p]!!n);main=mapM f[0..511]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page