anchor.diff:  ;; 11111110 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 36 ;;this probably does not exist.
     (let ((ustr (cast string (ptr u8))))
       (let ((first (deref ustr)) 
  -	  (nchars 0))
  -      (if (< first 0b10000000)
  +	  (nchars (the 0 i32)))
  +      (if! (< first 0b10000000)
   	  (progn
   	    (setf nchars 0)
   	    (noop))
  
positive.code: format:
  
  
  'abcdef
  ghijklm
  opqrstu
  vxyz'.
  
  [ ... ]"))
         (let ((data (read-all-data fontpath (addrof s))))
  	(if (ptr-null? data)
  	    (print "Error!" newline)
  
negative.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 (<< out (* nchars 6)))
  	     ;(print "out:" out newline)
  	     (range _it 1 (.+ nchars 1)
  		    (let ((it (cast _it i32)))
  		      (let ((chr (cast (deref (ptr+ ustr it)) i32)))
  			(setf out
  			      (.+ out 
  				  (<< (bit-and chr 0b00111111)
  				      (.* (- nchars it 1) 6))
  				  ))))
  		    ;(print "out:" out newline)
  		    )
  	     
        	    (setf (deref out-pt) out)))
        (+ string (+ nchars 1)))))
  
  (defun test-codepoint
    (let ((str "µ") (codepoint :type i32))
        (read-utf8-codepoint str (addrof codepoint))
        (print ": Should be 0xc3xx something.. : ")
        (print-hex (cast codepoint i64))
        (print newline)))
  (test-codepoint)
  (exit 0)
  
  (defstruct size
    (width i64)
  