(bind-func print_particle (lambda (p:float*) (printf "<%.2f %.2f %.2f %.2f>\n" (convert (pref p 0) double) (convert (pref p 1) double) (convert (pref p 2) double) (convert (pref p 3) double))))