(defun solve (n) (case (rem n 6) (0 2) (1 8) (2 5) (3 7) (4 1) (5 4) ) ) (format t "~A~%" (solve (read)))