anchor.diff:      (print_type (type-of exp))
       (expr (write_line "..."))))
   
  -(defcmacro size2 (exp)
  -  (expr
  -   (var ((s (size-of (type-of exp))))
  -        (unexpr s))))
   
   (expand show-type (addrof to-add))
   
  
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: 	    out-expr)))
  
  (expand add-to-list+ add-test add-test-cnt to-add)
  
  (write_line "asd")
  (printf "test: %i\n" 5)
  