(bind-func ai_print_export_formats
(lambda ()
(let ((i 0)
(desc:aiExportFormatDesc* null)
(cnt (aiGetExportFormatCount)))
(printf "**************************\n")
(dotimes (i cnt)
(set! desc (aiGetExportFormatDescription i))
(printf "------\nid(%s):ext(%s)\n%s\n" (tref desc 0) (tref desc 2) (tref desc 1)))
(printf "**************************\n")
void)))