#include "RunHaskell.h"
                                                                                             
int main(int argc, char *argv[])
{
  hs_init(&argc, &argv);
  runhaskell("let fibs = 1 : 1 : zipWith (+) fibs (tail fibs) in fibs !! 20");
  hs_exit();
  return 0;
}