(import foreign)

#> #include <math.h> <#

(define atan* (foreign-lambda double "atan" double))

(printf "Pi: ~a\n" (* 4 (atan* 1)))