foreach in elisp

foreach.el

#!/usr/bin/env emacs --script
(require 'cl)

(defun foreach (alist func)
  (while alist
    (progn
      (funcall func (car alist))
      (setq alist (cdr alist)))
    ))


(setq foo '("hello" "world"))


(foreach foo
         (lambda (x) (message x)))

(foreach '(1 2 3)
         (lambda (x) (message "%d" (+ 10 x))))