(defun p (str) (format T "~A" str)) (defun pn (str) (format T "~A~%" str))