(defpackage "binry-hop" (:use :cl) (:nicknames :hop))