Bastet__Interface.LOOP
include QUASIGROUP
include MAGMA
type t
val append : t -> t -> t
val empty : t