let rec wysokosc drzewo
    match drzewo with
    | Lisc -> 1
    | KorzenZ2Pot _ l r -> 1 + System.Math.Max(wysokosc l, wysokosc r)
    | KorzenZ1Pot _ d -> 1 + wysokosc d

let rec suma drzewo
    match drzewo with
    | Lisc -> 1
    | KorzenZ2Pot _ l r -> 1 + wysokosc l + wysokosc r
    | KorzenZ1Pot _ d -> 1 + wysokosc l