anchor.diff:  (defun printhi (void (a (ptr void)))
       (print "Hi, im davey! " (cast a (ptr char)) newline))
   ;(defer-test printhi (cast (+ " hello ddd-dd-davey? " 2) (ptr void)))
  -;(test)
  -;(exit 0)
  +(test)
  +(exit 0)
  
positive.code: 				(setf first (.- first 0b11111100)))
  			      ))))))
  
        ;(print "nchars: " nchars newline)
         (if (eq nchars 0)
  	   (progn
  	     (setf (deref out-pt) (cast first i32))
  	     (noop))
  	   (let ((out (cast first i32)))
  	     (setf out (cast (<< (cast out i64) (cast (* nchars 6) i64))
  			     i32))
  	     (print "out:" out newline)
  	     (range it 1 (.+ nchars 1)
         		    (let ((chr (cast (deref (ptr+ ustr it)) i64)))
  		      (setf out
  			    (.+ out 
  				(cast 
  				 (<< (cast (bit-and chr 0b00111111)  i64)
  				     (cast (.* (- nchars it 1) 6) i64))
  				 i32)
  				)))
  		    (print "out:" out newline)
  		    )
  	     
        	    (setf (deref out-pt) out)))1
        (+ string (+ nchars 1)))))
  
  (defstruct size
    (width i64)
  
negative.code: ;; 11111110 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 36 ;;this probably does not exist.
    (let ((ustr (cast string (ptr u8))))
      (let ((first (deref ustr)) 
  	  (nchars (the 0 i32)))
        (if! (< first 0b10000000)
  	  (progn
  	    (setf nchars 0)
  	    (noop))
  