anchor.diff:  
     (while (!= read-value 0)
      (block
  -    (set read-value (mars.read-int))
  +    (set read-value (mars:read-int))
       (set list (cons-linked-ints read-value list))))
   
  -  (mars.print-int (sum-linked-ints list))
  -  (mars.print-string newline)))
  +  (mars:print-int (sum-linked-ints list))
  +  (mars:print-string newline)))
  
positive.code: ;; Comments start with ; and go to the end of the line
  ;;
  ;; Primitive types:
  ;;   integer
  
negative.code:  ;; automatically upcast, when a value of one type or the other is needed.
   ;; Thus, these functions generally do not need to be used.
   (block
    (set list (cast linked-ints-ptr (mars:sbrk (size-of linked-ints))))
    (set (field (deref list) value) head)
    (set (field (deref list) next) tail)
    (return list)))
  