filter of a sort added

diff --git a/demos.kl b/demos.kl
index 54535cbb2ac8e12ea0f09b152b67a5d99bd81033..58358975036d2b0659f4cd2c84bdb828d424f6fc 100644 (file)
--- a/demos.kl
+++ b/demos.kl
@@ -63,3 +63,5 @@
 
 (def append (B (C (abstract-rec not (B (C B car) (C cons)) cdr)) reverse))
 
+(def filter (C (C (B (abstract-rec not) (B W (B (B C) (C (B C (B (B B) (C (B B S) (C cons)))) car)))) cdr) nil))
+