test_demo.js

// Generated CODE, PLEASE EDIT WITH CARE
'use strict';

var Caml_curry = require("../runtime/caml_curry");
var List       = require("../stdlib/list");

function fib(n) {
  if (n === 2 || n === 1) {
    return 1;
  }
  else {
    return fib(n - 1) + fib(n - 2) | 0;
  }
}

function cons(x, y) {
  return /* Cons */{
          0: x,
          1: y,
          length: 2,
          tag: 0
        };
}

function map(f, param) {
  if (param) {
    return /* Cons */{
            0: Caml_curry.app1(f, param[0]),
            1: map(f, param[1]),
            length: 2,
            tag: 0
          };
  }
  else {
    return /* Nil */0;
  }
}

function sum(n) {
  var v = 0;
  for(var i = 0; i<= n; ++i){
    v = v + i | 0;
  }
  return v;
}

function f(x, y, z) {
  return (x + y | 0) + z | 0;
}

function g(x, y) {
  var u = x + y | 0;
  return function (z) {
    return u + z | 0;
  };
}

function g1(x, y) {
  var u = x + y | 0;
  return function (xx, yy) {
    return (xx + yy | 0) + u | 0;
  };
}

var x = g(3, 5)(6);

var partial_arg = g1(3, 4);

function v(param) {
  return partial_arg(6, param);
}

var nil = /* Nil */0;

var len = List.length;

exports.fib  = fib;
exports.nil  = nil;
exports.cons = cons;
exports.map  = map;
exports.sum  = sum;
exports.len  = len;
exports.f    = f;
exports.g    = g;
exports.g1   = g1;
exports.x    = x;
exports.v    = v;
/* x Not a pure module */