--- a/code/mike00.lm	Fri Jul 25 22:13:17 2014 -0700
+++ b/code/mike00.lm	Fri Jul 25 22:17:47 2014 -0700
@@ -45,6 +45,17 @@
 		acc
 	}
 	
+	filter <- :lst pred {
+		new <- []
+		while: { not: (lst isInteger?) } do: {
+			if: (pred: (lst value)) {
+				new <- (lst value) | new
+			} else: {}
+			lst <- lst tail
+		}
+		reverse: new
+	}
+	
 	makeTree:size <- :lst :size {
 		ret <- 0
 		sub <- 0
@@ -174,6 +185,7 @@
 		print: (tree: tree set: 6 to: 42)
 		print: (tree: tree set: 8 to: 42)
 		print: (fold: lst 0 with: :acc el { acc + el })
+		print: (filter: lst :el { el > 4 })
 	}
 	
 }
\ No newline at end of file