let pair = true, false

let b1, _ = pair

let _, b2 = pair

type Name = string

type Fullname = string * string

let fullNameToString (x : Fullname) =
    let first, second = x in
    first + " " + second

type Organization1 = { boss : string; lackeys : string list }

let rainbow =

{ boss = "Jeffrey";

lackeys = ["Zippy"; "George"; "Bungle"] }

type Organization2 = { chief : string ; underlings : string list }

type Organization3 = { chies : string ; indians : string list }

let thePlayers =

{ new Organization2

with chief = "Peter Quince"

and underlings = [ "Francis Flute"; "Robin Starveling";

"Tom Snout"; "Snug"; "Nick Bottom"] }

let wayneManor =

{ new Organization3
         with chief = "Batman"
         and indians = ["Robin"; "Alfred"] }

type recipe =
    { recipeName : string ;
      ingredients : ingreddient list;
      instructions : string }
and ingredient =
    { ingredientName : string ;
      quantity : int }

let greenBeansPineNuts =
    { recipeName = "Green Beans & Pine Nuts" ;

ingredients =
          [ { ingredientName = "Green beans"; quantity = 250 };
            { ingredientName = "Pine nuts"; quantity = 250 }] //后面还有很多,略

instructions = "Parboil the green beans for about minutes ........."}

let name = greenBeansPineNuts.recipeName

let toBuy =
    List.fold //原书为 fold_left 在 F# 2.0 中已取消
        (fun acc x ->
            acc +
            (Printf.sprintf "\t%s - %i\r\n" x.ingredientName x.quantity) )
        "" greenBeansPineNuts.ingredients

let instructions = greenBeansPineNuts.instructions

printf "%s\r\n%s\r\n\r\n\t%s" name toBue instructions

type couple = { him : string; her : string }

let couples =

[ { him = "Brad"; her = "Angelina" };
      { him = "Becks"; her = "Posh" };
      { him = "Chris"; her = "Gwyneth" };
      { him = "Michael" her = "Catherine" } ]

let rec findDivid l =
    match l with
    | { him = x ; her = "Posh" } :: tail -> x
    | _ :: tail -> findDavid tail
    | [] -> failwith "couldn't find David"

printf findDavid couples