(defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read))) (format t "~c~%" (if (< a b) #\K #\S)))) (main)