nks :: (Transformable a, Splittable a) => Duration -> a -> [a]
chunks d xs = chunks' d xs
  where
    chunks' d (split d -> (x, xs)) = [x] ++ chunks d xs


chunks :: (Transformable a, Splittable a) => Duration -> a -> [a]
chunks d xs = chunks' d xs
  where
    chunks' d (split d -> (x, xs)) = [x] ++ chunks d xs
chunks d xs = chunks' d xs
  where
    chunks' d (split d -> (x, xs)) = [x] ++ chunks d xs