1 2 3 4 5
(module (algebraic-structs monoid list base) (op id) (import scheme) (define op append) (define id '()))