add compile-list function

(quote (1 2 3))
===
constant 1
argument
constant 2
argument
constant 3
argument
ref 0 9 ;; get  list function
call 0 0;; call list function