m@main=getLine>>=putStrLn.(' '&)>>m
x&(y:z)=[c|x/=y,c<-x%fromEnum y]++"  "++y&z
x&_=x%5
x%y="\27[4"++cycle"6_70291_4"!!y:"m"