functor (Id : Sig.Id->
  functor (Maker : functor (Syn : Sig.Syntax-> sig  end-> sig  end