(import (chicken foreign))
                             
(foreign-declare "struct foo {int x;}; 
void bar(struct foo x) {printf(\"%d\\n\", x.x);}
struct foo baz(int x) {struct foo y;y.x=x;return y;}")
                             
(define bar (foreign-lambda void "bar" (struct "foo")))

(define safe-bar (foreign-safe-lambda void "bar" (struct "foo")))

(define baz (foreign-lambda (struct "foo") "baz" int))
                             
(let ((x (baz 123)))
  (print x)
  (bar x)
  (safe-bar x)
  (bar (foreign-value "(struct foo){99}" (struct foo)))
  (let-location ((f1 (struct foo) (baz 100)))
    (bar f1)))