;; Input....

(defun f (i l)   (loop for i in l do (print i)))
(print "Here is output of function f call....")
(f 'k '(1 2 3 4))

(defun g (i l c) (loop for i in l do c))
(print "Here is output of function g call....")
(g 'z '(5 6 7 8) '(print z))

;; Output....

"Here is output of function f call...."
1
2
3
4
"Here is output of function g call...."