let (|=>) (x:'a option) (default:'a) = match x with Some v -> v | None -> default