(bind-func pm_initialize (lambda () (if (<> (Pm_Initialize) pmNoError) (println "Error initialising Portmidi") (println "Portmidi successfully initialised."))))