# safe_div3 (safe_div3 (Some 12) (Some 2)) (Some 3);;
- : int option = Some 2
# safe_div3 (safe_div3 (Some 12) (Some 0)) (Some 3);;
# safe_div3 (safe_div3 (Some 12) (Some 2)) (Some 3);;
- : int option = Some 2
# safe_div3 (safe_div3 (Some 12) (Some 0)) (Some 3);;