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

(define-c-library libc
                  '("stdlib.h" "stdio.h" "string.h")
                  libc-name
                  '((additional-versions ("0" "6"))))

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