anchor.diff:         (var ((out-expr (expr 
   			(var ((lstptr (addrof (unexpr lst)))
   			      (cntptr (addrof (unexpr cnt)))
  -			      (itemaddr (unexpr item)))
  +			      (itemaddr (addrof (unexpr item))))
   			
   					(add-to-list (cast lstptr (ptr (ptr void)))
   						     cntptr
  
positive.code:     (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))
  
  
negative.code: 	    out-expr)))
  
  (expand add-to-list+ add-test add-test-cnt to-add)
  
  (write_line "asd")
  (printf "test: %i\n" 5)
  