integer(KIND=8)::a,c read *,a,c print *,ior(a,c)-iand(a,c) end