(import (scheme base)
        (scheme write)
        (scheme process-context)
        (scheme eval)
        (retropikzel r7rs-pffi version main))

(define libc
  (if (string=? pffi-os-name "windows")
    (pffi-shared-object-auto-load (list "stdio.h") (list) "ucrtbase" (list ""))
    (pffi-shared-object-auto-load (list "stdio.h") (list) "c" (list "" ".6"))))

(pffi-define puts libc 'puts 'int (list 'pointer))

(display "=================")
(newline)

(puts (pffi-string->pointer "This is from C"))

(newline)
(display "=================")
(newline)