foreign-c/tests/hello.scm

(import (scheme base)
        (scheme write)
        (foreign c))

(define-c-procedure c-puts libc 'puts 'int '(pointer))
(c-puts "Hello from C!")