Szukaj w drzewie

let rec szukajCzarnych (drzewo:rbdrzewo) : rbdrzewo list =
    match drzewo with
    | LiscB(n) -> LiscB(n)::[]
    | LiscR(n) -> []
    | Korzen(n,left,right) -> List.append (szukajCzarnych left) (szukajCzarnych right)