m s|s!!1==s!!2=s!!2|True=s!!4
main=interact$map m.lines