let () = print_endline "m: init"

let () =
  for i = 1 to (Array.length Sys.argv - 1); do
    try
      Fl_dynload.load_packages [Sys.argv.(i)]
    with
    | Fl_package_base.No_such_package(pkg, _) ->
      Printf.printf "The package %S can't be found.\n%!" pkg
    | Dynlink.Error error ->
      Printf.printf "Error during dynlink: %s\n%!" (Dynlink.error_message error)
  done