RosettaCodeData/Task/Call-a-foreign-language-function/Ol/call-a-foreign-language-function-1.ol

(import (otus ffi))

(define self (load-dynamic-library #f))
(define strdup (self type-string "strdup" type-string))

(print (strdup "Hello World!"))