anchor.diff:  ;;    (*error STRING)
   ;;
   ;; Byte literals include C-style escapes, and are prefixed with #
  -
  +(namespace mars-mips-sample)
   (*if (platform? "mars" "mips")
    (require "arch/mars_mips.lisp")
    (*error "Sample must be compiled with 'mars_mips' backend"))
  
positive.code: ;; Comments start with ; and go to the end of the line
  ;;
  ;; Primitive types:
  ;;   integer
  
negative.code: 
    (while (!= read-value 0)
     (block
      (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)))
  