functor (Error : Sig.Error-> sig  end