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