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]