(defun main (&rest argv) (declare (ignorable argv)) (format t "~c~%" (char "285714" (mod (1- (read)) 6)))) (main)