let request_help_page optn = let fails = ref 0 in pf "Help page on '%s':\n" optn;
begin
try let therec = Hashtbl.find hp optn in pl "\nPREDICATE:"; print_help_page optn therec
with Not_found -> fails := succ !fails
end; begin
try let therec = Hashtbl.find ht optn in pl "\nTRANSFORM:"; print_help_page optn therec
with Not_found -> fails := succ !fails
end; if !fails >= 2 then pl "This function is neither a predicate nor a transform.\nSee --funs"; pl ""