> cut 3 "hejbolbol" 

  ["hej","bol","bol"]


-- 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