(defun countdown (x )
   ( loop
         ( print x )
         (setq x ( - x 1 ) )
         (if (zerop x) (return ?lift off" ) ) )
 )