-<pre>
-# Some 3 * unit * unit;;
-- : int option = Some 3
-# Some 3 * (fun x -> unit x * unit);;
-- : int option = Some 3
-
-# Some 3 * divide 6 * divide 2;;
-- : int option = Some 1
-# Some 3 * (fun x -> divide 6 x * divide 2);;
-- : int option = Some 1
-
-# Some 3 * divide 2 * divide 6;;
-- : int option = None
-# Some 3 * (fun x -> divide 2 x * divide 6);;
-- : int option = None
-</pre>
+ # Some 3 * unit * unit;;
+ - : int option = Some 3
+ # Some 3 * (fun x -> unit x * unit);;
+ - : int option = Some 3
+
+ # Some 3 * divide 6 * divide 2;;
+ - : int option = Some 1
+ # Some 3 * (fun x -> divide 6 x * divide 2);;
+ - : int option = Some 1
+
+ # Some 3 * divide 2 * divide 6;;
+ - : int option = None
+ # Some 3 * (fun x -> divide 2 x * divide 6);;
+ - : int option = None