skips xs = skips' 1 xs
  where
    skips' :: Int -> [a] -> [[a]]
    skips' n xs
      | n > length xs = []
      | otherwise     = everyNth n xs : skips' (n+1) xs
skips xs = skips' 1 xs
  where
    skips' :: Int -> [a] -> [[a]]
    skips' n xs
      | n > length xs = []
      | otherwise     = everyNth n xs : skips' (n+1) xs
skips xs = skips' 1 xs
  where
    skips' :: Int -> [a] -> [[a]]
    skips' n xs
      | n > length xs = []
      | otherwise     = everyNth n xs : skips' (n+1) xs