anchor.diff:  	    out-expr)))
   
   (expand add-to-list+ add-test add-test-cnt to-add)
  -;(expand size2 to-add)
  -(defun test-expr ((ptr expr) (a (ptr expr)))
  -  (expr (unexpr a)))
  -;(test-expr 1)
  -(defvar a (expr "lolol"))
  -(print-expr (test-expr a));(expr (+ 1 (unexpr a))))
  -(exit 0)
  -
  -
   
   (write_line "asd")
   (printf "test: %i\n" 5)
  
positive.code:        (var ((out-expr (expr 
  			(var ((lstptr (addrof (unexpr lst)))
  			      (cntptr (addrof (unexpr cnt)))
  			      (itemaddr (unexpr item)))
  			
  					(add-to-list (cast lstptr (ptr (ptr void)))
  						     cntptr
  
negative.code:     (print_type (type-of exp))
      (expr (write_line "..."))))
  
  
  (expand show-type (addrof to-add))
  
  