(*ZADANIE 6********** *)

let rec krotnosc x ys ilosc=
    match ys with
    | [] -> ilosc
    | ysh::yst -> if ysh = x then krotnosc x yst ilosc+1
                  else krotnosc x yst ilosc

[<EntryPoint>]
let main _ =
    let x = [1; 1; 1; 3; 3; 2; 1];
    printfn "ilosc to %A" (krotnosc 1 x 0);
    0