g=getChar
m@main=g>>=putChar>>g>>m