;;; -*- Mode:LISP; Package:USER; Fonts:(MEDFNB); Base:10 -*-

(defmacro cubic(n)
  (print n)
  (print query-io)
  `(* ,n ,n ,n))

(defun foo(x)
  (cubic x))