Ocaml dzielenie list

let podzielListe li =
    let rec podzielListeR el lu ld l =
        if l = [] then
            if el < 0 then [el::lu,ld]
            else [lu,el::ld]
        else
            if el < 0 then
                podzielListeR (List.hd l) (el::lu) ld (List.tl l)
            else
                podzielListeR (List.hd l) lu (el::ld) (List.tl l)
            in podzielListeR (List.hd li) [] [] (List.tl li)