(bind-func ai_convert
(lambda (fin fout format:i8* aiprocess)
(printf "Convert 3D File to %s\n" format)
(let ((scene (aiImportFile fin aiprocess)))
(printf "Scene successfully imported\n" scene)
(aiExportScene scene format fout aiprocess)
(printf "\n Done exporting scene\n")
void)))