main=getLine>>=(\s->putStrLn(a s))>>main
a('h':s)=s
a x=x