;예:  ('(4 + 3) '(16 + 3).......'(2 + 3))
(mapcar '(lambda (x) (+ 3 x)) '(4 16 4 6 14 12 30 2))
;결과>(7 19 7 9 17 15 33 5)

;예:  8 + 8 + 8 = 24
(setq a 0)(foreach n '(8 8 8) (setq a (+ a n)))
;결과>24
  
;예:  7 + 2 + 8 + 2 + 9 + 2 = 30
(setq a 0)(foreach n '(7 8 9) (setq a (+ a n 2)))
;결괴>30
  
;예:  4 + 16 + 4 + 6 + 14 + 12 + 30 + 2 = 88
(apply '+ '(4 16 4 6 14 12 30 2))
;결과>88