;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*-

(defun foo (a)
  (bar a))

(defun bar (a)
  (1+ a))

(defun baz (a b)
  (cons (bar a) (bar b)))