(module readline-test ()

(import chicken scheme foreign)

(define-external (callback_test ((const c-string) foo) (int bar)) c-string
  (string-append "foo" "bar"))

)