            (min a b))))
 
 (defun futhark-max (a b)
-  "Like `max', but more accepting."
+  "Like `max', but also accepts nil values in A and B."
   (or (and (eq nil a) b)
       (and (eq nil b) a)
       (and (not (eq nil a))

(add-to-list 'auto-mode-alist '("\\.fut\\'" . futhark-mode))

(defvar futhark-mode-hook nil
  "Hook for futhark-mode.  Is run whenever the mode is entered.")

(defvar futhark-mode-map
  (make-keymap)
  "Keymap for futhark-mode.")


;;; Highlighting

       ))))

(defun futhark-min (a b)
  "Like `min', but also accepts nil values in A and B."
  (or (and (eq nil a) b)
      (and (eq nil b) a)
      (and (not (eq nil a))
