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