~ chicken-core (master) /tests/square-functor.scm

1;;;; square-functor.scm
2
3(functor (square-functor (M (*))) *
4  (import scheme M)
5  (define (square x) (* x x)))