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