1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#include <stdio.h> #include "ffi002_stub.h" #include "RtsAPI.h" extern void __stginit_Foo ( void ); int main(int argc, char *argv[]) { int i; startupHaskell(argc, argv, __stginit_Foo); for (i = 0; i < 5; i++) { printf("%d\n", foo(2500)); } shutdownHaskell(); return 0; }