Make examples self-contained and runnable.

Author: cristianoc

jscomp/test/Import.js

@@ -2,28 +2,10 @@
 
 var Curry = require("../../lib/js/curry.js");
 
-var each = import("../../lib/js/belt_List.js").then(function (m) {
-      return m.forEach;
-    });
-
-function eachInt(list, f) {
-  var arg1 = function (each) {
-    return Promise.resolve(Curry._2(each, list, f));
-  };
-  return each.then(arg1);
-}
-
-var beltAsModule = import("../../lib/js/belt_List.js");
-
 async function eachIntAsync(list, f) {
-  var each$1 = await each;
-  return Curry._2(each$1, list, f);
-}
-
-function eachLazy(param) {
-  return import("../../lib/js/belt_List.js").then(function (m) {
-              return m.forEach;
-            });
+  return Curry._2(await import("../../lib/js/belt_List.js").then(function (m) {
+                  return m.forEach;
+                }), list, f);
 }
 
 function eachIntLazy(list, f) {
@@ -36,10 +18,35 @@ function eachIntLazy(list, f) {
   return obj.then(arg1);
 }
 
-exports.each = each;
-exports.eachInt = eachInt;
-exports.beltAsModule = beltAsModule;
+eachIntLazy({
+      hd: 1,
+      tl: {
+        hd: 2,
+        tl: {
+          hd: 3,
+          tl: /* [] */0
+        }
+      }
+    }, (function (n) {
+        console.log("lazy", n);
+      }));
+
+eachIntAsync({
+      hd: 1,
+      tl: {
+        hd: 2,
+        tl: {
+          hd: 3,
+          tl: /* [] */0
+        }
+      }
+    }, (function (n) {
+        console.log("async", n);
+      }));
+
+var beltAsModule = import("../../lib/js/belt_List.js");
+
 exports.eachIntAsync = eachIntAsync;
-exports.eachLazy = eachLazy;
 exports.eachIntLazy = eachIntLazy;
-/* No side effect */
+exports.beltAsModule = beltAsModule;
+/*  Not a pure module */

jscomp/test/Import.res

@@ -1,18 +1,12 @@
-let each = Js.import(Belt.List.forEach)
-
-let eachInt = (list: list<int>, f: int => unit) =>
-  Js.Promise.then_(each => list->each(f)->Js.Promise.resolve, each)
-
-module type BeltList = module type of Belt.List
-
-let beltAsModule = Js.import(module(Belt.List: BeltList))
-
 let eachIntAsync = async (list: list<int>, f: int => unit) => {
-  let each = await each
-  list->each(f)
+  list->(await Js.import(Belt.List.forEach))(f)
 }
 
-let eachLazy = () => Js.import(Belt.List.forEach)
-
 let eachIntLazy = (list: list<int>, f: int => unit) =>
-  eachLazy() |> Js.Promise.then_(each => list->each(f)->Js.Promise.resolve)
+  Js.import(Belt.List.forEach) |> Js.Promise.then_(each => list->each(f)->Js.Promise.resolve)
+
+let _ = list{1, 2, 3}->eachIntLazy(n => Js.log2("lazy", n))
+let _ = list{1, 2, 3}->eachIntAsync(n => Js.log2("async", n))
+
+module type BeltList = module type of Belt.List
+let beltAsModule = Js.import(module(Belt.List: BeltList))