anchor.diff:  				 (x.shift) ; pop off first element from array.
                    (cons a (rec x))))))
       (rec arguments)))
  +
  +,(def-js-type-predicate symbolp "symbol")
  +,(def-js-type-predicate consp "cons")
  +,(def-js-type-predicate numberp "Number")
  +,(def-js-type-predicate arrayp "Array")
  +,(def-js-type-predicate stringp "String")
  +,(def-js-type-predicate functionp "Function")
   
   (defun apply ()
     (when (= 0 arguments.length)
  
positive.code: ;;;; This are the low-level transpiler definitions of
  ;;;; basic functions to simulate basic data types.
  
  (defun js-base ()
    (js-transpile 
  '(
  ; IDENTITY - use native
  
  ;;; Symbols
  
negative.code: 											""))))
  	(eval (+ "fun (" args ")"))
  	(x.shift)))
  ))
  