gistfile1.ml

let window = Dom_html.window;;

let foo i =
  let result = try Some (List.find (fun s -> s = i) [0; 1; 5]) with Not_found -> None in
    match result with
		Some(n) -> window##alert(Js.string (Printf.sprintf "foo Some(%d)" n))
	  | None -> window##alert(Js.string "foo None");;

for i = 0 to 3 do
  foo i
done;;

for i = 0 to 3 do
  let result = try Some (List.find (fun s -> s = i) [0; 1; 5]) with Not_found -> None in
    match result with
		Some(n) -> window##alert(Js.string (Printf.sprintf "Some(%d)" n))
	  | None -> window##alert(Js.string "None")
done;;