Initial data commit

Task/Filter/Fe/filter-1.fe

@@ -0,0 +1,12 @@
+(= filter (fn (f lst)
+  (let res (cons nil nil))
+  (let tail res)
+  (while lst
+    (let item (car lst))
+    (if (f item) (do
+      (setcdr tail (cons item nil))
+      (= tail (cdr tail))))
+    (= lst (cdr lst)))
+  (cdr res)))
+
+(print (filter (fn (x) (< 5 x)) '(1 4 5 6 3 2 7 9 0 8)))

Task/Filter/Fe/filter-2.fe

@@ -0,0 +1 @@
+(6 7 9 8)