m(_:x:y:_:z:_)|x==y=x|1<2=z
main=interact$map m.lines