pickFromRing (n:ns) xs = xs !! (n `mod` length xs) : pickFromRing ns xs
pickFromRing (n:ns) xs = xs !! (n `mod` length xs) : pickFromRing ns xs
pickFromRing (n:ns) xs = xs !! (n `mod` length xs) : pickFromRing ns xs