(defun main () (let* ((a (read)) (b (read)) (remainder (mod a (abs b)))) (when remainder (format t "~d~%" remainder)))) (main)