;;
match fooooooooooooooooooooooo with
| fooooooooooooooooooooooo -> foooooooooooooooooooooooooo

let foooooooo =
  match fooooooooooooooooooooooo with
      | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo

let foooooooo =
  try fooooooooooooooooooooooo with
      | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
      | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo

let fooooo =
  if foooooooo then
    match fooooooooooooooooooooooo with
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
  else foooooooo
