(module A (say-A)
	(import scheme chicken)
	
	(define say-A (lambda ()
		"A"
	))
)