Inline array? and len, add PicoLisp fib & fib-let benchmarks

koka_bench/picolisp/picolisp-fib-let.l

@@ -0,0 +1,15 @@
+#!/usr/bin/env bash
+#{
+# Thanks to http://rosettacode.org/wiki/Multiline_shebang#PicoLisp
+exec pil $0 $1
+# }#
+
+
+
+(de fib (N) (cond ((= 0 N)   1)
+                  ((= 1 N)   1)
+                  (1         (let (A (fib (- N 1))
+				                   B (fib (- N 2))
+								   ) (+ A B)))))
+
+(bye (println (fib (car (str (opt))))))