(bind-func test_g_ptr1 (lambda () (afill! g_ptr1 11 66 35 81) (tset! g_ptr2 1 35.0) (printf "%f :: %d\n" (tref g_ptr2 1) (aref g_ptr1 2)) (aref g_ptr1 3)))