;; support 'List' abstraction ;; (List 1 2 3 4) etc.. (define (PreludeList . args) (if (null? args) `(Nil) (list 'Cons (car args) (apply PreludeList (cdr args)))))