(module (algebraic-structs monoid number product base) (op id)
  (import scheme)

  (define op *)
  (define id 1))