n,k,*a=$<.read.split.map &:to_i
a<<a.reduce(:^)
p a[~-k%-~n]