m s|s!!1==s!!2=s!!2|True=s!!4 main=getContents>>=putChar.m.lines