let find_script_for_keywords keys =
  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 []