import Data.Bits l=[1,2,1,2,3]::[Int] main = print $ foldl xor 0 l