main=catch(readFile"a">>=putStr>>=w)w
w _=getContents>>=writeFile"a"