adding some scripts

.gitignore

@@ -3,3 +3,4 @@ target/
 *.history
 prelude_test.txt
 tmp_scripts/
+old_bins/

perf.sh

@@ -0,0 +1 @@
+sudo perf record --call-graph dwarf target/release/wlambda fib3.wl

scripts/benches/box_vs_rs.wl

@@ -0,0 +1,57 @@
+std:displayln "assign $p(a, b)";
+range 1 5 1 {|| std:displayln ~ std:measure_time :ms {||
+    !x = 0;
+    !p = 0;
+    !i = $p(10, 20);
+    while x < 10000000 {
+        .p = i;
+        .p = i;
+        .p = i;
+        .p = i;
+        .x = x + 1;
+    };
+    x
+} };
+
+std:displayln "new $p(a, b)";
+range 1 5 1 {|| std:displayln ~ std:measure_time :ms {||
+    !x = 0;
+    !p = 0;
+    while x < 10000000 {
+        .p = $p(10, 20);
+        .p = $p(10, 20);
+        .p = $p(10, 20);
+        .p = $p(10, 20);
+        .x = x + 1;
+    };
+    x
+} };
+
+std:displayln "assign $o(...)";
+range 1 5 1 {|| std:displayln ~ std:measure_time :ms {||
+    !x = 0;
+    !p = 0;
+    !i = $o($p(10, 20));
+    while x < 10000000 {
+        .p = i;
+        .p = i;
+        .p = i;
+        .p = i;
+        .x = x + 1;
+    };
+    x
+} };
+
+std:displayln "new $o(...)";
+range 1 5 1 {|| std:displayln ~ std:measure_time :ms {||
+    !x = 0;
+    !p = 0;
+    while x < 10000000 {
+        .p = $o(10);
+        .p = $o(10);
+        .p = $o(10);
+        .p = $o(10);
+        .x = x + 1;
+    };
+    x
+} };