(defconstr (cyclic * * *))

(defconstr
  (memory-signal * * * *)
  (constant-signal *)
  (delay-signal * *)
  (map-signal * *)
  (prefix-signal * *)
  (append-signal * * *)
  (prefix-list-signal * * *)
  (binop-signal * * *))

(defprim (divide x y) (inexact->exact (floor (/ x y))))
(defprim 2 << ash)
(defprim (>> x y) (ash x (- y)))
(defprim 2 & logand)
(defprim 2 | logior)
(defprim-dynamic (load-word x) x)
(defprim-dynamic (lift x) x)
(defprim (debug x) (format #t "debug ~S~%" x) x)