(let ((f (the (function int int int int int int int int int) (__pc-get-mips2c "test-func"))))
  (format #t "~D~%" (f 1 2 3 4 5 6 7 8))
  )