anchor.diff:    (x1 i32)
     (y0 i32)
     (y1 i32)
  +  (advance i32)
     (codepoint i32)
     (x-shift f32)
     (scale f32)
  
positive.code: 					   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))))
      
  
  
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)
  