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"]