(cl-loop for x in '(1 2 3 4) do (message "x=%d" x))