integer(KIND=16)::A,C read*,A,C print*,xor(A,C) end