main=mapM putStrLn[[[a]|x<-p,[a,u,v,w,h]<-words"a@@SS bR@bP cROZW dYObX e@ROa fNRSW gNVYa hXVZX iXWba",u<x,x<w,v<y,y<h]>>=(' ':)|y<-p]
p=['A'..'a']