;round 4

(defun is-it-nul (x)
  (if (null x)
    (progn (print "yes")
    "it is null")
 (format *terminal-io* "~%no~%it is ~A" x)))


(defun fuse (x)