functor (T1 : BatOrd.Ord->
  functor (T2 : BatOrd.Ord->
    functor (T3 : BatOrd.Ord->
      functor (T4 : BatOrd.Ord->
        functor (T5 : BatOrd.Ord->
          sig
            type t = T1.t * T2.t * T3.t * T4.t * T5.t
            val ord : t BatOrd.ord
          end