Module type Interface.LOOP

include QUASIGROUP
include MAGMA
type t
val append : t -> t -> t
val empty : t