m@main=do c<-getChar;putStrLn$'d':c:": "++[c];m