Pascal J. Bourguignon wrote:

(let ((a (list 1 2 3 4)))
(remove-if (function evenp)
(mapcar (lambda (x) (1+ (* 3 x))) a)))

Scheme:

(let ((a '(1 2 3 4)))
(filter odd?
(map (lambda (x) (+ 1 (* 3 x))) a)))

===>
(7 13)

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)