(defun print-alphabet (x)
   (setq x (open (string x) :direction :output :if-does-not-exist :create :if-exists :supersede))
   (setq y 1)
   (loop
    (cond ((equal y char-code-limit) (close x) (return 'fin)))
     (princ y x)
      (princ #\tAB x)
      (princ (code-char y) x ) (terpri x)
      (princ #\tAB x)
      (princ (string (code-char y)) x)
   (incf y) ) )