#!/usr/bin/env newlisp

(println (map eval '((+ 1) (+ 1 2 3) 11)))
;(println (list (+ 1) (+ 1 2 3) 11))

(println (map string? '(1 "Hello" 2 " World!")))

(println (map + '(1 2 3 4) '(4 5 6 7) '(8 9 10 11)))

; fn = lambda
(println (map (fn (x) (= 0 (% x 2))) '(1 2 3 4)))

(println (filter (fn (x) (= 0 (% x 2))) '(1 2 3 4)))

(println (index (fn (x) (= 0 (% x 2))) '(1 2 3 4)))

(println (apply + '(1 2 3)))

(exit)