-- Tar en lista, t.ex en skär den i delar.
cut :: Int -> [a] -> [[a]]
cut n cake | length cake > n  = slice ++ cut n rest
           | otherwise        = cake
  where (slice,rest) = splitAt n cake