@ -39,7 +39,7 @@ zipWith = f l1 l2 \ l1
| [] \ []
| [y, ...ys] \ [f x y, ...zipWith f xs ys]);
# contains : a \ List a | Bool
# contains : a \ List a \ Bool
contains = x list \ list
| [] \ False
| [y, ...ys] \ (x == y