m@main=do x<-getLine;putStrLn$x++last(" boo":[" eat"|'r'<-x]);m