(defun main() (let ((a (read)) (b (read))) (if (< b 0) (format t "~d~%" (rem a b)) (format t "~d~%" (mod a b))))) (main)