added proto-monad
[lambda.git] / week6.mdwn
index 5898788..ac94b79 100644 (file)
@@ -200,7 +200,7 @@ let div (x:int) (y:int) =
                _ -> Some (x / y);;
 
 (*
                _ -> Some (x / y);;
 
 (*
-val div : int -> int -> int option = \<fun\>
+val div : int -> int -> int option = fun
 # div 12 3;;
 - : int option = Some 4
 # div 12 0;;
 # div 12 3;;
 - : int option = Some 4
 # div 12 0;;