#lang racket/base

(require ffi/unsafe)

(displayln "hello world")

(void (for/list ([i (in-list '(1 2 3 4 5))]) (printf "loop: ~a\n" i)))

(define table (dynamic-require ''static-ffi 'table))
(displayln "ffi table")
(displayln table)

(define func (cast (cadr (car table)) _int64 (_fun -> _void)))

(displayln "calling")
(func)
(displayln "back")