(bind-func abc (lambda () (let ((y:float* (alloc 4)) (x (XX (array 1.0 2.0 3.0 4.0)))) (println x) (pfill! y 4.0 3.0 2.0 1.0) (tset! x 0 (f4ToArray y)) (println x) void)))