let find_script_for_keywords ?(loadscripts=true) keys =
  if loadscripts then do_loadscripts () ;
  Hashtbl.fold
    (fun _ (xs,p) scripts ->
       let h = suitable 0 xs keys in
       if h>0 then List.merge most_suitable [h,p] scripts
       else scripts)
    scriptbase []