:: [a] -> Int -> ([a], [a]) package:safe

splitAtExact n xs =
| n >= 0 && n <= length xs = splitAt n xs
| otherwise                = error "some message"