import Data.List
each n = unfoldr $ \xs -> do (x:_) <- Just xs; Just (x, drop n xs)

main = do print $ each 4 [1..50]