let dist l =
    let rec aux e d = function
        h1::h2::t -> aux (h1::e) (h2::d) t
        | l -> List.rev (List.append l e), List.rev d
        in aux [] [] l
;;