(defun range(a b)(cond((eq a b)(list a))(t (cons a (range (+ a 1) b)))))
(dolist (n (range 2 63))
(dolist (b (range 2 n))
(setq s "")
(setq m n)
(loop (if (eq m 0) (return))
(setq q (mod m b))
(setq s (concatenate 'string (format nil "~c"(code-char(+ 48 (* (cond ((> q 9) 1) (t 0)) 39)q)))s))
(setq m (truncate m b)))
(princ s)
(if (eq b n)(princ (format nil "~%"))(princ " "))))