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 []