p=putChar;m@main=do c<-getChar;p c;p c>>m