// Task 2
    let x1 = [ ('a',1); ('b',2); ('c',3); ('d',4) ] // (<масть>,<достоинство>)
    let rec search A =
        x1 |> List.filter (fun (x,y) -> x='a')

    let xLen = x1.Length
    printf "%A\n" ("Задание 2")
    printfn "%d" (xLen)