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