edits

diff --git a/zipper-lists-continuations.mdwn b/zipper-lists-continuations.mdwn
index 4aef298..8858a89 100644 (file)
--- a/zipper-lists-continuations.mdwn
+++ b/zipper-lists-continuations.mdwn
@@ -561,13 +561,13 @@ _|__  _|__
 </pre>
 
 Notice that we've counted each internal node twice---it's a good
 </pre>
 
 Notice that we've counted each internal node twice---it's a good

-excerice to adjust the code to count each node once.
+exercise to adjust the code to count each node once.

 
 One more revealing example before getting down to business: replacing
 `state` everywhere in `treemonadizer` with `list` gives us
 
 <pre>
 
 One more revealing example before getting down to business: replacing
 `state` everywhere in `treemonadizer` with `list` gives us
 
 <pre>

-# treemonadizer (fun x -> [[x; square x]]) t1;;
+# treemonadizer (fun x -> [ [x; square x] ]) t1;;

 - : int list tree list =
 [Node
   (Node (Leaf [2; 4], Leaf [3; 9]),
 - : int list tree list =
 [Node
   (Node (Leaf [2; 4], Leaf [3; 9]),