creatingArray n = do
    if null n
        then []
    else do
        (read [head n] :: Int) : ( creatingArray (tail n))

rotateN n lst = do
     if n == 0
        then return lst
     else do
                let first = head lst
                lst : rotateN (n-1) ((last lst) : (init lst))

main=do
    line <- getLine
    --let array = []
    --let array = creatingArray line
    lineTwo <- getLine
    let k = read lineTwo :: Int
    print(last(rotateN k (creatingArray line)))