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
  endbegin 
    try let therec = Hashtbl.find ht optn in pl "\nTRANSFORM:"; print_help_page optn therec 
    with Not_found -> fails := succ !fails
  endif !fails >= 2 then pl "This function is neither a predicate nor a transform.\nSee --funs"; pl ""