(defpackage :ouat
  (:use :cl :vecto)
  (:shadow #:yes-or-no-p #:y-or-n-p))