functor (T : Basic3) ->
  sig
    val traverse : ('a -> ('u, 'v, 'b) T.f) -> 'a T.t -> ('u, 'v, 'b T.t) T.f
    val traverse_ : ('a -> ('u, 'v, 'b) T.f) -> 'a T.t -> ('u, 'v, unit) T.f
    val sequence : ('a, 'b, 'c) T.f T.t -> ('a, 'b, 'c T.t) T.f
    val sequence_ : ('a, 'b, 'c) T.f T.t -> ('a, 'b, unit) T.f
  end