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