anchor.diff:  					   0
   					   (member status codepoint))))))
   
  -
  -(defun test-callback (void (userdata (ptr void)) (status tt:iterate-data))
  -  (print status newline))
  -
   (defun get-level-conv(char (code char))
     (let ((code2 (>> (cast (cast code u8) i64) 5))) ;1 2 4 8 16 32 64 128 256
  -    ;(print code2 newline)
       (deref (ptr+ " .:ioVM@" code2))))
       
   
  
positive.code:   (baseline i32))
  
  (defun print-tt:iterate-data (void (it-data tt:iterate-data))
    (progn
      (print "tt x0:" (member it-data x0) " x1:" (member it-data x1) " y0:" (member it-data y0) " y1:" (member it-data y1))
      (print " pt:" (member it-data codepoint) " x-sh:" (member it-data x-shift) " s:" (member it-data scale))
  
negative.code: (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)
  