(defun say-hello ()
  (tagbody
        (setq i 5)
   start
        (format t "[+] Hello there!~%")
        (decf i)
        (go end)
   end
        (and (zerop i) (return-from say-hello "this end."))
        (go start)
   ))