local bls, brs = bit.lshift, bit.rshift local n, k = io.read("*n", "*n") local p = {} for i = 1, n do p[i] = io.read("*n") end local dst = {} local turn = {} for step = 1, 32 do dst[step], turn[step] = {}, {} end for i = 1, n do local d = i + p[i] if d <= n then dst[1][i] = d turn[1][i] = 0 else dst[1][i] = d - n turn[1][i] = 1 end end for step = 2, 32 do for i = 1, n do local d1, t1 = dst[step - 1][i], turn[step - 1][i] local d2, t2 = dst[step - 1][d1], turn[step - 1][d1] dst[step][i] = d2 turn[step][i] = t1 + t2 end end for spos = 1, n do local tk = k local p, t = spos, 0 for step = 1, 32 do if tk % 2 == 1 then t = t + turn[step][p] p = dst[step][p] end tk = brs(tk, 1) end local z = 1LL * t * n + p local str = tostring(z):gsub("LL", "") print(str) end