-<pre>
-# fun f z -> z;;
-- : 'a -> 'b -> 'b = <fun>
-# fun f z -> f 1 z;;
-- : (int -> 'a -> 'b) -> 'a -> 'b = <fun>
-# fun f z -> f 2 (f 1 z);;
-- : (int -> 'a -> 'a) -> 'a -> 'a = <fun>
-# fun f z -> f 3 (f 2 (f 1 z))
-- : (int -> 'a -> 'a) -> 'a -> 'a = <fun>
-</pre>
-
-Finally, we're getting consistent principle types, so we can stop.
-These types should remind you of the simply-typed lambda calculus
-types for Church numerals (`(o -> o) -> o -> o`) with one extra bit
-thrown in (in this case, and int).
+ # fun f z -> z;;
+ - : 'a -> 'b -> 'b = <fun>
+ # fun f z -> f 1 z;;
+ - : (int -> 'a -> 'b) -> 'a -> 'b = <fun>
+ # fun f z -> f 2 (f 1 z);;
+ - : (int -> 'a -> 'a) -> 'a -> 'a = <fun>
+ # fun f z -> f 3 (f 2 (f 1 z))
+ - : (int -> 'a -> 'a) -> 'a -> 'a = <fun>
+
+We can see what the consistent, general principle types are at the end, so we
+can stop. These types should remind you of the simply-typed lambda calculus
+types for Church numerals (`(o -> o) -> o -> o`) with one extra bit thrown in
+(in this case, an int).