sig

  val gettext : string -> string

  val gettext_opt : string -> string option

  val tt : string -> string Lazy.t

  val tf : 'a Lazy.t -> 'a

  val t_uint : string -> (int -> string) Lazy.t

  val t_int : string -> (int -> string) Lazy.t

  val t_str : string -> (string -> string) Lazy.t

  val t_uint2 : string -> (int -> int -> string) Lazy.t

  val add_translation : locale -> string -> string -> unit

end