Есть DLL, написанная на Си, в которой есть такая функция:

EXPORT int init(int a, int b) {
    yyin = fopen("In.txt", "r");
    printf("Done");
    return(a+b);
}

Как вызвать эту функцию из программы на Хаскеле? Желательно дать работающий код. Интересует решение для GHC и WinHugs.