let ujemnyPodciag (lista:int list) =
    let rec szukaj lista lPodciag licznik =
        match lista with
        | [] -> lPodciag
        | head :: tail -> if head < 0
                          then
                            szukaj tail (dodajDoListy lPodciag head) (licznik + 1)
                          else
                            szukaj tail lPodciag licznik
    szukaj lista [] 0



ujemnyPodciag [1; 2; -2; -3; 3]