functor
  (X : sig val option_name : string val descr : string val default : bool end->
  BOOL