(defun compare-to-fill-column (&optional n)
  "Compare a number to `fill-column'."
  (interactive "NNumber: ")
  (let* ((number (or n 56)))
    (message 
     (cond
      ((> number fill-column) "%d is greater than fill-column (%d).")
      ((= number fill-column) "%d is equal to fill-column (%d).")
      (t                      "%d is less than fill-column (%d)."))
     number
     fill-column)))