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