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