sig
  class type scheme =
    object
      method pad : string -> int -> unit
      method strip : string -> int
    end
  val length : Cryptokit.Padding.scheme
  val _8000 : Cryptokit.Padding.scheme
end