1 2 3 4 5 6
(module (algebraic-structures private string) (op unit) (import scheme) (define (op x y) (string-append x y)) (define unit ""))