(in-package #:arithmetic-operators-as-words)

(defun greater-than (number &rest more-numbers)
  (apply #'> number more-numbers))
(declaim (inline greater-than))

(defun less-than (number &rest more-numbers)
  (apply #'< number more-numbers))
(declaim (inline less-than))

(defun greater-than-or-equal (number &rest more-numbers)
  (apply #'>= number more-numbers))
(declaim (inline greater-than-or-equal))

(defun less-than-or-equal (number &rest more-numbers)
  (apply #'<= number more-numbers))
(declaim (inline less-than-or-equal))

(defun add (number &rest more-numbers)
  (apply #'+ number more-numbers))
(declaim (inline add))

(defun subtract (number &rest more-numbers)
  (apply #'- number more-numbers))
(declaim (inline subtract))

(defun divide (number &rest more-numbers)
  (apply #'/ number more-numbers))
(declaim (inline divide))

(defun multiply (number &rest more-numbers)
  (apply #'* number more-numbers))
(declaim (inline multiply))