Solution to EC7

sol7.ml

let rec unZip list =
    match list with
        [] -> ([], [])
        | (x, y)::rest ->
            let (xs, ys) = unZip rest in
                (x::xs, y::ys);;