Welcome to the CHICKEN Scheme pasting service

(import coops)
(import coops-primitive-objects)

(define-generic (+ x y))
(define-method (+ (x <number>) (y <number>)) + x y)
(define-method (+ (x <string>) (y <string>))
  (string-append x y))

(print (+ "abc" "de"))