(module bla (foo)

(import chicken scheme foreign)

(define-external
  (blabla (int baton) (c-string path)
               (int dirent)
               (int lock)
               (c-string base-path) (int pool))
  void
  (print "HELLO"))

(define (foo) ((foreign-safe-lambda* void () "blabla(1, \"2\", 3, 4, \"5\", 6);")))
)

(import bla)
(foo)