(bind-func lilv_load_plugin
(lambda (uri samplerate)
(let ((uri_node (lilv_new_uri lilv_world uri))
(plugin (lilv_plugins_get_by_uri lilv_plugins uri_node))
(name (lilv_plugin_get_name plugin)))
(printf "loading lv2plug: %s\n" (lilv_node_as_string name))
(lilv_print_all_plugin_ports plugin)
(lilv_plugin_instantiate plugin samplerate null))))