for(c<-readLine;s=" "*26)println(+("\n "+" "*26+s+"  "+s+" \r")(c-32))