libcryptokit-ocaml-dev 1.11-1build1 / usr / lib / ocaml / cryptokit / cryptokit.annot

"src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
type(
  bytes -> unit
)
ident(
  def wipe_bytes "src/cryptokit.ml" 17 959 959 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 16 901 916 "src/cryptokit.ml" 16 901 917
type(
  bytes
)
ident(
  def s "src/cryptokit.ml" 16 901 920 "src/cryptokit.ml" 16 901 958
)
"src/cryptokit.ml" 16 901 920 "src/cryptokit.ml" 16 901 930
type(
  bytes -> int -> int -> char -> unit
)
ident(
  ext_ref Bytes.fill
)
"src/cryptokit.ml" 16 901 931 "src/cryptokit.ml" 16 901 932
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 16 901 916 "src/cryptokit.ml" 16 901 917
)
"src/cryptokit.ml" 16 901 933 "src/cryptokit.ml" 16 901 934
type(
  int
)
"src/cryptokit.ml" 16 901 936 "src/cryptokit.ml" 16 901 948
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 16 901 949 "src/cryptokit.ml" 16 901 950
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 16 901 916 "src/cryptokit.ml" 16 901 917
)
"src/cryptokit.ml" 16 901 935 "src/cryptokit.ml" 16 901 951
type(
  int
)
"src/cryptokit.ml" 16 901 952 "src/cryptokit.ml" 16 901 958
type(
  char
)
"src/cryptokit.ml" 16 901 920 "src/cryptokit.ml" 16 901 958
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
type(
  string -> unit
)
ident(
  def wipe_string "src/cryptokit.ml" 19 1018 1018 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 17 959 975 "src/cryptokit.ml" 17 959 976
type(
  string
)
ident(
  def s "src/cryptokit.ml" 17 959 979 "src/cryptokit.ml" 17 959 1016
)
"src/cryptokit.ml" 17 959 979 "src/cryptokit.ml" 17 959 989
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 17 959 991 "src/cryptokit.ml" 17 959 1013
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 17 959 1014 "src/cryptokit.ml" 17 959 1015
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 17 959 975 "src/cryptokit.ml" 17 959 976
)
"src/cryptokit.ml" 17 959 990 "src/cryptokit.ml" 17 959 1016
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 17 959 979 "src/cryptokit.ml" 17 959 1016
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 37 1384 1388 "src/cryptokit.ml" 37 1384 1389
type(
  unit
)
"src/cryptokit.ml" 37 1384 1392 "src/cryptokit.ml" 37 1384 1419
type(
  string -> exn -> unit
)
ident(
  ext_ref Callback.register_exception
)
"src/cryptokit.ml" 37 1384 1420 "src/cryptokit.ml" 37 1384 1437
type(
  string
)
"src/cryptokit.ml" 37 1384 1445 "src/cryptokit.ml" 37 1384 1459
type(
  error
)
"src/cryptokit.ml" 37 1384 1438 "src/cryptokit.ml" 37 1384 1460
type(
  exn
)
"src/cryptokit.ml" 37 1384 1392 "src/cryptokit.ml" 37 1384 1460
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 107 4733 4737 "src/cryptokit.ml" 107 4733 4753
type(
  < finish : 'a; get_string : 'b; put_string : 'c -> 'd; wipe : 'e; .. > ->
  'c -> 'b
)
ident(
  def transform_string "src/cryptokit.ml" 112 4832 4832 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 107 4733 4754 "src/cryptokit.ml" 107 4733 4756
type(
  < finish : 'a; get_string : 'b; put_string : 'c -> 'd; wipe : 'e; .. >
  as 'f
)
ident(
  def tr "src/cryptokit.ml" 107 4733 4757 "src/cryptokit.ml" 110 4793 4830
)
"src/cryptokit.ml" 107 4733 4757 "src/cryptokit.ml" 107 4733 4758
type(
  'c
)
ident(
  def s "src/cryptokit.ml" 108 4761 4763 "src/cryptokit.ml" 110 4793 4830
)
"src/cryptokit.ml" 108 4761 4763 "src/cryptokit.ml" 108 4761 4765
type(
  'f
)
ident(
  int_ref tr "src/cryptokit.ml" 107 4733 4754 "src/cryptokit.ml" 107 4733 4756
)
"src/cryptokit.ml" 108 4761 4763 "src/cryptokit.ml" 108 4761 4776
call(
  stack
)
type(
  'c -> 'd
)
"src/cryptokit.ml" 108 4761 4777 "src/cryptokit.ml" 108 4761 4778
type(
  'c
)
ident(
  int_ref s "src/cryptokit.ml" 107 4733 4757 "src/cryptokit.ml" 107 4733 4758
)
"src/cryptokit.ml" 108 4761 4763 "src/cryptokit.ml" 108 4761 4778
type(
  'd
)
"src/cryptokit.ml" 109 4780 4782 "src/cryptokit.ml" 109 4780 4784
type(
  'f
)
ident(
  int_ref tr "src/cryptokit.ml" 107 4733 4754 "src/cryptokit.ml" 107 4733 4756
)
"src/cryptokit.ml" 109 4780 4782 "src/cryptokit.ml" 109 4780 4791
call(
  stack
)
type(
  'a
)
"src/cryptokit.ml" 110 4793 4799 "src/cryptokit.ml" 110 4793 4800
type(
  'b
)
ident(
  def r "src/cryptokit.ml" 110 4793 4820 "src/cryptokit.ml" 110 4793 4830
)
"src/cryptokit.ml" 110 4793 4803 "src/cryptokit.ml" 110 4793 4805
type(
  'f
)
ident(
  int_ref tr "src/cryptokit.ml" 107 4733 4754 "src/cryptokit.ml" 107 4733 4756
)
"src/cryptokit.ml" 110 4793 4803 "src/cryptokit.ml" 110 4793 4816
call(
  stack
)
type(
  'b
)
"src/cryptokit.ml" 110 4793 4820 "src/cryptokit.ml" 110 4793 4822
type(
  'f
)
ident(
  int_ref tr "src/cryptokit.ml" 107 4733 4754 "src/cryptokit.ml" 107 4733 4756
)
"src/cryptokit.ml" 110 4793 4820 "src/cryptokit.ml" 110 4793 4827
call(
  stack
)
type(
  'e
)
"src/cryptokit.ml" 110 4793 4829 "src/cryptokit.ml" 110 4793 4830
type(
  'b
)
ident(
  int_ref r "src/cryptokit.ml" 110 4793 4799 "src/cryptokit.ml" 110 4793 4800
)
"src/cryptokit.ml" 110 4793 4820 "src/cryptokit.ml" 110 4793 4830
type(
  'b
)
"src/cryptokit.ml" 110 4793 4795 "src/cryptokit.ml" 110 4793 4830
type(
  'b
)
"src/cryptokit.ml" 109 4780 4782 "src/cryptokit.ml" 110 4793 4830
type(
  'b
)
"src/cryptokit.ml" 108 4761 4763 "src/cryptokit.ml" 110 4793 4830
type(
  'b
)
"src/cryptokit.ml" 112 4832 4836 "src/cryptokit.ml" 112 4832 4853
type(
  < finish : 'a; get_substring : bytes * int * int;
    put_substring : bytes -> int -> int -> 'b; wipe : 'c; .. > ->
  ?len:int -> in_channel -> out_channel -> 'c
)
ident(
  def transform_channel "src/cryptokit.ml" 141 5664 5664 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
type(
  < finish : 'a; get_substring : bytes * int * int;
    put_substring : bytes -> int -> int -> 'b; wipe : 'c; .. >
  as 'd
)
ident(
  def tr "src/cryptokit.ml" 112 4832 4857 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 112 4832 4858 "src/cryptokit.ml" 112 4832 4861
type(
  int option
)
ident(
  def len "src/cryptokit.ml" 112 4832 4862 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 112 4832 4862 "src/cryptokit.ml" 112 4832 4864
type(
  in_channel
)
ident(
  def ic "src/cryptokit.ml" 112 4832 4865 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 112 4832 4865 "src/cryptokit.ml" 112 4832 4867
type(
  out_channel
)
ident(
  def oc "src/cryptokit.ml" 113 4870 4872 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 113 4870 4876 "src/cryptokit.ml" 113 4870 4880
type(
  bytes
)
ident(
  def ibuf "src/cryptokit.ml" 114 4903 4905 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 113 4870 4883 "src/cryptokit.ml" 113 4870 4895
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 113 4870 4896 "src/cryptokit.ml" 113 4870 4899
type(
  int
)
"src/cryptokit.ml" 113 4870 4883 "src/cryptokit.ml" 113 4870 4899
type(
  bytes
)
"src/cryptokit.ml" 114 4903 4913 "src/cryptokit.ml" 114 4903 4926
type(
  unit -> unit
)
ident(
  def transf_to_eof "src/cryptokit.ml" 114 4903 4905 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 114 4903 4927 "src/cryptokit.ml" 114 4903 4929
type(
  unit
)
"src/cryptokit.ml" 115 4932 4940 "src/cryptokit.ml" 115 4932 4941
type(
  int
)
ident(
  def r "src/cryptokit.ml" 116 4967 4971 "src/cryptokit.ml" 121 5129 5136
)
"src/cryptokit.ml" 115 4932 4944 "src/cryptokit.ml" 115 4932 4949
type(
  in_channel -> bytes -> int -> int -> int
)
ident(
  ext_ref Pervasives.input
)
"src/cryptokit.ml" 115 4932 4950 "src/cryptokit.ml" 115 4932 4952
type(
  in_channel
)
ident(
  int_ref ic "src/cryptokit.ml" 112 4832 4862 "src/cryptokit.ml" 112 4832 4864
)
"src/cryptokit.ml" 115 4932 4953 "src/cryptokit.ml" 115 4932 4957
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 113 4870 4876 "src/cryptokit.ml" 113 4870 4880
)
"src/cryptokit.ml" 115 4932 4958 "src/cryptokit.ml" 115 4932 4959
type(
  int
)
"src/cryptokit.ml" 115 4932 4960 "src/cryptokit.ml" 115 4932 4963
type(
  int
)
"src/cryptokit.ml" 115 4932 4944 "src/cryptokit.ml" 115 4932 4963
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 116 4967 4974 "src/cryptokit.ml" 116 4967 4975
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 115 4932 4940 "src/cryptokit.ml" 115 4932 4941
)
"src/cryptokit.ml" 116 4967 4976 "src/cryptokit.ml" 116 4967 4977
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 116 4967 4978 "src/cryptokit.ml" 116 4967 4979
type(
  int
)
"src/cryptokit.ml" 116 4967 4974 "src/cryptokit.ml" 116 4967 4979
type(
  bool
)
"src/cryptokit.ml" 117 4991 4997 "src/cryptokit.ml" 117 4991 4999
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 117 4991 4997 "src/cryptokit.ml" 117 4991 5013
call(
  stack
)
type(
  bytes -> int -> int -> 'b
)
"src/cryptokit.ml" 117 4991 5014 "src/cryptokit.ml" 117 4991 5018
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 113 4870 4876 "src/cryptokit.ml" 113 4870 4880
)
"src/cryptokit.ml" 117 4991 5019 "src/cryptokit.ml" 117 4991 5020
type(
  int
)
"src/cryptokit.ml" 117 4991 5021 "src/cryptokit.ml" 117 4991 5022
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 115 4932 4940 "src/cryptokit.ml" 115 4932 4941
)
"src/cryptokit.ml" 117 4991 4997 "src/cryptokit.ml" 117 4991 5022
type(
  'b
)
"src/cryptokit.ml" 118 5024 5035 "src/cryptokit.ml" 118 5024 5039
type(
  bytes
)
ident(
  def obuf "src/cryptokit.ml" 119 5075 5081 "src/cryptokit.ml" 120 5107 5128
)
"src/cryptokit.ml" 118 5024 5041 "src/cryptokit.ml" 118 5024 5045
type(
  int
)
ident(
  def opos "src/cryptokit.ml" 119 5075 5081 "src/cryptokit.ml" 120 5107 5128
)
"src/cryptokit.ml" 118 5024 5047 "src/cryptokit.ml" 118 5024 5051
type(
  int
)
ident(
  def olen "src/cryptokit.ml" 119 5075 5081 "src/cryptokit.ml" 120 5107 5128
)
"src/cryptokit.ml" 118 5024 5034 "src/cryptokit.ml" 118 5024 5052
type(
  bytes * int * int
)
"src/cryptokit.ml" 118 5024 5055 "src/cryptokit.ml" 118 5024 5057
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 118 5024 5055 "src/cryptokit.ml" 118 5024 5071
call(
  stack
)
type(
  bytes * int * int
)
"src/cryptokit.ml" 119 5075 5081 "src/cryptokit.ml" 119 5075 5087
type(
  out_channel -> bytes -> int -> int -> unit
)
ident(
  ext_ref Pervasives.output
)
"src/cryptokit.ml" 119 5075 5088 "src/cryptokit.ml" 119 5075 5090
type(
  out_channel
)
ident(
  int_ref oc "src/cryptokit.ml" 112 4832 4865 "src/cryptokit.ml" 112 4832 4867
)
"src/cryptokit.ml" 119 5075 5091 "src/cryptokit.ml" 119 5075 5095
type(
  bytes
)
ident(
  int_ref obuf "src/cryptokit.ml" 118 5024 5035 "src/cryptokit.ml" 118 5024 5039
)
"src/cryptokit.ml" 119 5075 5096 "src/cryptokit.ml" 119 5075 5100
type(
  int
)
ident(
  int_ref opos "src/cryptokit.ml" 118 5024 5041 "src/cryptokit.ml" 118 5024 5045
)
"src/cryptokit.ml" 119 5075 5101 "src/cryptokit.ml" 119 5075 5105
type(
  int
)
ident(
  int_ref olen "src/cryptokit.ml" 118 5024 5047 "src/cryptokit.ml" 118 5024 5051
)
"src/cryptokit.ml" 119 5075 5081 "src/cryptokit.ml" 119 5075 5105
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 120 5107 5113 "src/cryptokit.ml" 120 5107 5126
type(
  unit -> unit
)
ident(
  int_ref transf_to_eof "src/cryptokit.ml" 114 4903 4913 "src/cryptokit.ml" 114 4903 4926
)
"src/cryptokit.ml" 120 5107 5126 "src/cryptokit.ml" 120 5107 5128
type(
  unit
)
"src/cryptokit.ml" 120 5107 5113 "src/cryptokit.ml" 120 5107 5128
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 119 5075 5081 "src/cryptokit.ml" 120 5107 5128
type(
  unit
)
"src/cryptokit.ml" 118 5024 5030 "src/cryptokit.ml" 120 5107 5128
type(
  unit
)
"src/cryptokit.ml" 116 4967 4985 "src/cryptokit.ml" 121 5129 5136
type(
  unit
)
"src/cryptokit.ml" 116 4967 4971 "src/cryptokit.ml" 121 5129 5136
type(
  unit
)
"src/cryptokit.ml" 115 4932 4936 "src/cryptokit.ml" 121 5129 5136
type(
  unit
)
"src/cryptokit.ml" 122 5137 5143 "src/cryptokit.ml" 122 5137 5157
type(
  int -> unit
)
ident(
  def transf_bounded "src/cryptokit.ml" 114 4903 4905 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 122 5137 5158 "src/cryptokit.ml" 122 5137 5165
type(
  int
)
ident(
  def numleft "src/cryptokit.ml" 123 5168 5172 "src/cryptokit.ml" 130 5439 5446
)
"src/cryptokit.ml" 123 5168 5175 "src/cryptokit.ml" 123 5168 5182
type(
  int
)
ident(
  int_ref numleft "src/cryptokit.ml" 122 5137 5158 "src/cryptokit.ml" 122 5137 5165
)
"src/cryptokit.ml" 123 5168 5183 "src/cryptokit.ml" 123 5168 5184
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 123 5168 5185 "src/cryptokit.ml" 123 5168 5186
type(
  int
)
"src/cryptokit.ml" 123 5168 5175 "src/cryptokit.ml" 123 5168 5186
type(
  bool
)
"src/cryptokit.ml" 124 5198 5208 "src/cryptokit.ml" 124 5198 5209
type(
  int
)
ident(
  def r "src/cryptokit.ml" 125 5249 5255 "src/cryptokit.ml" 129 5404 5438
)
"src/cryptokit.ml" 124 5198 5212 "src/cryptokit.ml" 124 5198 5217
type(
  in_channel -> bytes -> int -> int -> int
)
ident(
  ext_ref Pervasives.input
)
"src/cryptokit.ml" 124 5198 5218 "src/cryptokit.ml" 124 5198 5220
type(
  in_channel
)
ident(
  int_ref ic "src/cryptokit.ml" 112 4832 4862 "src/cryptokit.ml" 112 4832 4864
)
"src/cryptokit.ml" 124 5198 5221 "src/cryptokit.ml" 124 5198 5225
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 113 4870 4876 "src/cryptokit.ml" 113 4870 4880
)
"src/cryptokit.ml" 124 5198 5226 "src/cryptokit.ml" 124 5198 5227
type(
  int
)
"src/cryptokit.ml" 124 5198 5229 "src/cryptokit.ml" 124 5198 5232
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/cryptokit.ml" 124 5198 5233 "src/cryptokit.ml" 124 5198 5236
type(
  int
)
"src/cryptokit.ml" 124 5198 5237 "src/cryptokit.ml" 124 5198 5244
type(
  int
)
ident(
  int_ref numleft "src/cryptokit.ml" 122 5137 5158 "src/cryptokit.ml" 122 5137 5165
)
"src/cryptokit.ml" 124 5198 5228 "src/cryptokit.ml" 124 5198 5245
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 124 5198 5212 "src/cryptokit.ml" 124 5198 5245
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 125 5249 5258 "src/cryptokit.ml" 125 5249 5259
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 124 5198 5208 "src/cryptokit.ml" 124 5198 5209
)
"src/cryptokit.ml" 125 5249 5260 "src/cryptokit.ml" 125 5249 5261
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 125 5249 5262 "src/cryptokit.ml" 125 5249 5263
type(
  int
)
"src/cryptokit.ml" 125 5249 5258 "src/cryptokit.ml" 125 5249 5263
type(
  bool
)
"src/cryptokit.ml" 125 5249 5269 "src/cryptokit.ml" 125 5249 5274
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 125 5249 5275 "src/cryptokit.ml" 125 5249 5286
type(
  exn
)
"src/cryptokit.ml" 125 5249 5269 "src/cryptokit.ml" 125 5249 5286
type(
  unit
)
"src/cryptokit.ml" 125 5249 5255 "src/cryptokit.ml" 125 5249 5286
type(
  unit
)
"src/cryptokit.ml" 126 5288 5294 "src/cryptokit.ml" 126 5288 5296
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 126 5288 5294 "src/cryptokit.ml" 126 5288 5310
call(
  stack
)
type(
  bytes -> int -> int -> 'b
)
"src/cryptokit.ml" 126 5288 5311 "src/cryptokit.ml" 126 5288 5315
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 113 4870 4876 "src/cryptokit.ml" 113 4870 4880
)
"src/cryptokit.ml" 126 5288 5316 "src/cryptokit.ml" 126 5288 5317
type(
  int
)
"src/cryptokit.ml" 126 5288 5318 "src/cryptokit.ml" 126 5288 5319
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 124 5198 5208 "src/cryptokit.ml" 124 5198 5209
)
"src/cryptokit.ml" 126 5288 5294 "src/cryptokit.ml" 126 5288 5319
type(
  'b
)
"src/cryptokit.ml" 127 5321 5332 "src/cryptokit.ml" 127 5321 5336
type(
  bytes
)
ident(
  def obuf "src/cryptokit.ml" 128 5372 5378 "src/cryptokit.ml" 129 5404 5438
)
"src/cryptokit.ml" 127 5321 5338 "src/cryptokit.ml" 127 5321 5342
type(
  int
)
ident(
  def opos "src/cryptokit.ml" 128 5372 5378 "src/cryptokit.ml" 129 5404 5438
)
"src/cryptokit.ml" 127 5321 5344 "src/cryptokit.ml" 127 5321 5348
type(
  int
)
ident(
  def olen "src/cryptokit.ml" 128 5372 5378 "src/cryptokit.ml" 129 5404 5438
)
"src/cryptokit.ml" 127 5321 5331 "src/cryptokit.ml" 127 5321 5349
type(
  bytes * int * int
)
"src/cryptokit.ml" 127 5321 5352 "src/cryptokit.ml" 127 5321 5354
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 127 5321 5352 "src/cryptokit.ml" 127 5321 5368
call(
  stack
)
type(
  bytes * int * int
)
"src/cryptokit.ml" 128 5372 5378 "src/cryptokit.ml" 128 5372 5384
type(
  out_channel -> bytes -> int -> int -> unit
)
ident(
  ext_ref Pervasives.output
)
"src/cryptokit.ml" 128 5372 5385 "src/cryptokit.ml" 128 5372 5387
type(
  out_channel
)
ident(
  int_ref oc "src/cryptokit.ml" 112 4832 4865 "src/cryptokit.ml" 112 4832 4867
)
"src/cryptokit.ml" 128 5372 5388 "src/cryptokit.ml" 128 5372 5392
type(
  bytes
)
ident(
  int_ref obuf "src/cryptokit.ml" 127 5321 5332 "src/cryptokit.ml" 127 5321 5336
)
"src/cryptokit.ml" 128 5372 5393 "src/cryptokit.ml" 128 5372 5397
type(
  int
)
ident(
  int_ref opos "src/cryptokit.ml" 127 5321 5338 "src/cryptokit.ml" 127 5321 5342
)
"src/cryptokit.ml" 128 5372 5398 "src/cryptokit.ml" 128 5372 5402
type(
  int
)
ident(
  int_ref olen "src/cryptokit.ml" 127 5321 5344 "src/cryptokit.ml" 127 5321 5348
)
"src/cryptokit.ml" 128 5372 5378 "src/cryptokit.ml" 128 5372 5402
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 129 5404 5410 "src/cryptokit.ml" 129 5404 5424
type(
  int -> unit
)
ident(
  int_ref transf_bounded "src/cryptokit.ml" 122 5137 5143 "src/cryptokit.ml" 122 5137 5157
)
"src/cryptokit.ml" 129 5404 5426 "src/cryptokit.ml" 129 5404 5433
type(
  int
)
ident(
  int_ref numleft "src/cryptokit.ml" 122 5137 5158 "src/cryptokit.ml" 122 5137 5165
)
"src/cryptokit.ml" 129 5404 5434 "src/cryptokit.ml" 129 5404 5435
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 129 5404 5436 "src/cryptokit.ml" 129 5404 5437
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 124 5198 5208 "src/cryptokit.ml" 124 5198 5209
)
"src/cryptokit.ml" 129 5404 5425 "src/cryptokit.ml" 129 5404 5438
type(
  int
)
"src/cryptokit.ml" 129 5404 5410 "src/cryptokit.ml" 129 5404 5438
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 128 5372 5378 "src/cryptokit.ml" 129 5404 5438
type(
  unit
)
"src/cryptokit.ml" 127 5321 5327 "src/cryptokit.ml" 129 5404 5438
type(
  unit
)
"src/cryptokit.ml" 126 5288 5294 "src/cryptokit.ml" 129 5404 5438
type(
  unit
)
"src/cryptokit.ml" 125 5249 5255 "src/cryptokit.ml" 129 5404 5438
type(
  unit
)
"src/cryptokit.ml" 123 5168 5192 "src/cryptokit.ml" 130 5439 5446
type(
  unit
)
"src/cryptokit.ml" 123 5168 5172 "src/cryptokit.ml" 130 5439 5446
type(
  unit
)
"src/cryptokit.ml" 131 5450 5464 "src/cryptokit.ml" 131 5450 5467
type(
  int option
)
ident(
  int_ref len "src/cryptokit.ml" 112 4832 4858 "src/cryptokit.ml" 112 4832 4861
)
"src/cryptokit.ml" 132 5473 5479 "src/cryptokit.ml" 132 5473 5483
type(
  int option
)
"src/cryptokit.ml" 132 5473 5487 "src/cryptokit.ml" 132 5473 5500
type(
  unit -> unit
)
ident(
  int_ref transf_to_eof "src/cryptokit.ml" 114 4903 4913 "src/cryptokit.ml" 114 4903 4926
)
"src/cryptokit.ml" 132 5473 5501 "src/cryptokit.ml" 132 5473 5503
type(
  unit
)
"src/cryptokit.ml" 132 5473 5487 "src/cryptokit.ml" 132 5473 5503
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 133 5504 5515 "src/cryptokit.ml" 133 5504 5516
type(
  int
)
ident(
  def l "src/cryptokit.ml" 133 5504 5520 "src/cryptokit.ml" 133 5504 5536
)
"src/cryptokit.ml" 133 5504 5510 "src/cryptokit.ml" 133 5504 5516
type(
  int option
)
"src/cryptokit.ml" 133 5504 5520 "src/cryptokit.ml" 133 5504 5534
type(
  int -> unit
)
ident(
  int_ref transf_bounded "src/cryptokit.ml" 122 5137 5143 "src/cryptokit.ml" 122 5137 5157
)
"src/cryptokit.ml" 133 5504 5535 "src/cryptokit.ml" 133 5504 5536
type(
  int
)
ident(
  int_ref l "src/cryptokit.ml" 133 5504 5515 "src/cryptokit.ml" 133 5504 5516
)
"src/cryptokit.ml" 133 5504 5520 "src/cryptokit.ml" 133 5504 5536
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 131 5450 5452 "src/cryptokit.ml" 134 5537 5542
type(
  unit
)
"src/cryptokit.ml" 135 5544 5546 "src/cryptokit.ml" 135 5544 5556
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 135 5544 5557 "src/cryptokit.ml" 135 5544 5561
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 113 4870 4876 "src/cryptokit.ml" 113 4870 4880
)
"src/cryptokit.ml" 135 5544 5546 "src/cryptokit.ml" 135 5544 5561
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 136 5563 5565 "src/cryptokit.ml" 136 5563 5567
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 136 5563 5565 "src/cryptokit.ml" 136 5563 5574
call(
  stack
)
type(
  'a
)
"src/cryptokit.ml" 137 5576 5583 "src/cryptokit.ml" 137 5576 5587
type(
  bytes
)
ident(
  def obuf "src/cryptokit.ml" 138 5623 5625 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 137 5576 5589 "src/cryptokit.ml" 137 5576 5593
type(
  int
)
ident(
  def opos "src/cryptokit.ml" 138 5623 5625 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 137 5576 5595 "src/cryptokit.ml" 137 5576 5599
type(
  int
)
ident(
  def olen "src/cryptokit.ml" 138 5623 5625 "src/cryptokit.ml" 139 5651 5660
)
"src/cryptokit.ml" 137 5576 5582 "src/cryptokit.ml" 137 5576 5600
type(
  bytes * int * int
)
"src/cryptokit.ml" 137 5576 5603 "src/cryptokit.ml" 137 5576 5605
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 137 5576 5603 "src/cryptokit.ml" 137 5576 5619
call(
  stack
)
type(
  bytes * int * int
)
"src/cryptokit.ml" 138 5623 5625 "src/cryptokit.ml" 138 5623 5631
type(
  out_channel -> bytes -> int -> int -> unit
)
ident(
  ext_ref Pervasives.output
)
"src/cryptokit.ml" 138 5623 5632 "src/cryptokit.ml" 138 5623 5634
type(
  out_channel
)
ident(
  int_ref oc "src/cryptokit.ml" 112 4832 4865 "src/cryptokit.ml" 112 4832 4867
)
"src/cryptokit.ml" 138 5623 5635 "src/cryptokit.ml" 138 5623 5639
type(
  bytes
)
ident(
  int_ref obuf "src/cryptokit.ml" 137 5576 5583 "src/cryptokit.ml" 137 5576 5587
)
"src/cryptokit.ml" 138 5623 5640 "src/cryptokit.ml" 138 5623 5644
type(
  int
)
ident(
  int_ref opos "src/cryptokit.ml" 137 5576 5589 "src/cryptokit.ml" 137 5576 5593
)
"src/cryptokit.ml" 138 5623 5645 "src/cryptokit.ml" 138 5623 5649
type(
  int
)
ident(
  int_ref olen "src/cryptokit.ml" 137 5576 5595 "src/cryptokit.ml" 137 5576 5599
)
"src/cryptokit.ml" 138 5623 5625 "src/cryptokit.ml" 138 5623 5649
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 139 5651 5653 "src/cryptokit.ml" 139 5651 5655
type(
  'd
)
ident(
  int_ref tr "src/cryptokit.ml" 112 4832 4854 "src/cryptokit.ml" 112 4832 4856
)
"src/cryptokit.ml" 139 5651 5653 "src/cryptokit.ml" 139 5651 5660
call(
  tail
)
type(
  'c
)
"src/cryptokit.ml" 138 5623 5625 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 137 5576 5578 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 136 5563 5565 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 135 5544 5546 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 131 5450 5452 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 114 4903 4905 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 113 4870 4872 "src/cryptokit.ml" 139 5651 5660
type(
  'c
)
"src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
type(
  transform
)
"src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
type(
  transform
)
"src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 143 5731 5761 "src/cryptokit.ml" 143 5731 5764
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 143 5731 5761 "src/cryptokit.ml" 143 5731 5781
call(
  tail
)
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 144 5782 5813 "src/cryptokit.ml" 144 5782 5816
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 144 5782 5813 "src/cryptokit.ml" 144 5782 5834
call(
  tail
)
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 146 5836 5861 "src/cryptokit.ml" 146 5836 5864
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 146 5836 5865 "src/cryptokit.ml" 147 5875 5925
)
"src/cryptokit.ml" 146 5836 5865 "src/cryptokit.ml" 146 5836 5868
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 146 5836 5869 "src/cryptokit.ml" 147 5875 5925
)
"src/cryptokit.ml" 146 5836 5869 "src/cryptokit.ml" 146 5836 5872
type(
  int
)
ident(
  def len "src/cryptokit.ml" 147 5875 5881 "src/cryptokit.ml" 147 5875 5925
)
"src/cryptokit.ml" 147 5875 5881 "src/cryptokit.ml" 147 5875 5884
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 147 5875 5881 "src/cryptokit.ml" 147 5875 5898
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 147 5875 5899 "src/cryptokit.ml" 147 5875 5902
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 146 5836 5861 "src/cryptokit.ml" 146 5836 5864
)
"src/cryptokit.ml" 147 5875 5903 "src/cryptokit.ml" 147 5875 5906
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 146 5836 5865 "src/cryptokit.ml" 146 5836 5868
)
"src/cryptokit.ml" 147 5875 5907 "src/cryptokit.ml" 147 5875 5910
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 146 5836 5869 "src/cryptokit.ml" 146 5836 5872
)
"src/cryptokit.ml" 147 5875 5881 "src/cryptokit.ml" 147 5875 5910
type(
  unit
)
"src/cryptokit.ml" 147 5875 5912 "src/cryptokit.ml" 147 5875 5916
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
)
"src/cryptokit.ml" 147 5875 5912 "src/cryptokit.ml" 147 5875 5925
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 147 5875 5881 "src/cryptokit.ml" 147 5875 5925
type(
  unit
)
"src/cryptokit.ml" 148 5926 5948 "src/cryptokit.ml" 148 5926 5949
type(
  string
)
ident(
  def s "src/cryptokit.ml" 149 5952 5958 "src/cryptokit.ml" 149 5952 5989
)
"src/cryptokit.ml" 149 5952 5958 "src/cryptokit.ml" 149 5952 5961
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 149 5952 5958 "src/cryptokit.ml" 149 5952 5972
call(
  stack
)
type(
  string -> unit
)
"src/cryptokit.ml" 149 5952 5973 "src/cryptokit.ml" 149 5952 5974
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 148 5926 5948 "src/cryptokit.ml" 148 5926 5949
)
"src/cryptokit.ml" 149 5952 5958 "src/cryptokit.ml" 149 5952 5974
type(
  unit
)
"src/cryptokit.ml" 149 5952 5976 "src/cryptokit.ml" 149 5952 5980
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
)
"src/cryptokit.ml" 149 5952 5976 "src/cryptokit.ml" 149 5952 5989
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 149 5952 5958 "src/cryptokit.ml" 149 5952 5989
type(
  unit
)
"src/cryptokit.ml" 150 5990 6010 "src/cryptokit.ml" 150 5990 6011
type(
  char
)
ident(
  def c "src/cryptokit.ml" 151 6014 6020 "src/cryptokit.ml" 151 6014 6049
)
"src/cryptokit.ml" 151 6014 6020 "src/cryptokit.ml" 151 6014 6023
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 151 6014 6020 "src/cryptokit.ml" 151 6014 6032
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 151 6014 6033 "src/cryptokit.ml" 151 6014 6034
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 150 5990 6010 "src/cryptokit.ml" 150 5990 6011
)
"src/cryptokit.ml" 151 6014 6020 "src/cryptokit.ml" 151 6014 6034
type(
  unit
)
"src/cryptokit.ml" 151 6014 6036 "src/cryptokit.ml" 151 6014 6040
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
)
"src/cryptokit.ml" 151 6014 6036 "src/cryptokit.ml" 151 6014 6049
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 151 6014 6020 "src/cryptokit.ml" 151 6014 6049
type(
  unit
)
"src/cryptokit.ml" 152 6050 6070 "src/cryptokit.ml" 152 6050 6071
type(
  int
)
ident(
  def b "src/cryptokit.ml" 153 6074 6080 "src/cryptokit.ml" 153 6074 6109
)
"src/cryptokit.ml" 153 6074 6080 "src/cryptokit.ml" 153 6074 6083
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 153 6074 6080 "src/cryptokit.ml" 153 6074 6092
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 153 6074 6093 "src/cryptokit.ml" 153 6074 6094
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 152 6050 6070 "src/cryptokit.ml" 152 6050 6071
)
"src/cryptokit.ml" 153 6074 6080 "src/cryptokit.ml" 153 6074 6094
type(
  unit
)
"src/cryptokit.ml" 153 6074 6096 "src/cryptokit.ml" 153 6074 6100
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
)
"src/cryptokit.ml" 153 6074 6096 "src/cryptokit.ml" 153 6074 6109
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 153 6074 6080 "src/cryptokit.ml" 153 6074 6109
type(
  unit
)
"src/cryptokit.ml" 156 6141 6152 "src/cryptokit.ml" 156 6141 6155
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 157 6190 6196 "src/cryptokit.ml" 157 6190 6225
)
"src/cryptokit.ml" 156 6141 6157 "src/cryptokit.ml" 156 6141 6160
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 157 6190 6196 "src/cryptokit.ml" 157 6190 6225
)
"src/cryptokit.ml" 156 6141 6162 "src/cryptokit.ml" 156 6141 6165
type(
  int
)
ident(
  def len "src/cryptokit.ml" 157 6190 6196 "src/cryptokit.ml" 157 6190 6225
)
"src/cryptokit.ml" 156 6141 6151 "src/cryptokit.ml" 156 6141 6166
type(
  bytes * int * int
)
"src/cryptokit.ml" 156 6141 6169 "src/cryptokit.ml" 156 6141 6172
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 156 6141 6169 "src/cryptokit.ml" 156 6141 6186
call(
  stack
)
type(
  bytes * int * int
)
"src/cryptokit.ml" 157 6190 6196 "src/cryptokit.ml" 157 6190 6199
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 157 6190 6196 "src/cryptokit.ml" 157 6190 6213
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 157 6190 6214 "src/cryptokit.ml" 157 6190 6217
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 156 6141 6152 "src/cryptokit.ml" 156 6141 6155
)
"src/cryptokit.ml" 157 6190 6218 "src/cryptokit.ml" 157 6190 6221
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 156 6141 6157 "src/cryptokit.ml" 156 6141 6160
)
"src/cryptokit.ml" 157 6190 6222 "src/cryptokit.ml" 157 6190 6225
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 156 6141 6162 "src/cryptokit.ml" 156 6141 6165
)
"src/cryptokit.ml" 157 6190 6196 "src/cryptokit.ml" 157 6190 6225
type(
  unit
)
"src/cryptokit.ml" 156 6141 6147 "src/cryptokit.ml" 157 6190 6225
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 159 6227 6257 "src/cryptokit.ml" 159 6227 6260
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 159 6227 6257 "src/cryptokit.ml" 159 6227 6277
call(
  tail
)
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 160 6278 6302 "src/cryptokit.ml" 160 6278 6305
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 160 6278 6302 "src/cryptokit.ml" 160 6278 6316
call(
  tail
)
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 161 6317 6344 "src/cryptokit.ml" 161 6317 6347
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 161 6317 6344 "src/cryptokit.ml" 161 6317 6361
call(
  tail
)
type(
  bytes * int * int
)
type(
  bytes * int * int
)
"src/cryptokit.ml" 162 6362 6384 "src/cryptokit.ml" 162 6362 6387
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 162 6362 6384 "src/cryptokit.ml" 162 6362 6396
call(
  tail
)
type(
  char
)
type(
  char
)
"src/cryptokit.ml" 163 6397 6419 "src/cryptokit.ml" 163 6397 6422
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 163 6397 6419 "src/cryptokit.ml" 163 6397 6431
call(
  tail
)
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 165 6433 6452 "src/cryptokit.ml" 165 6433 6455
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 165 6433 6452 "src/cryptokit.ml" 165 6433 6461
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 165 6433 6463 "src/cryptokit.ml" 165 6433 6467
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
)
"src/cryptokit.ml" 165 6433 6463 "src/cryptokit.ml" 165 6433 6476
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 165 6433 6478 "src/cryptokit.ml" 165 6433 6481
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 165 6433 6478 "src/cryptokit.ml" 165 6433 6487
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 165 6433 6463 "src/cryptokit.ml" 165 6433 6487
type(
  unit
)
"src/cryptokit.ml" 165 6433 6452 "src/cryptokit.ml" 165 6433 6487
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 166 6488 6508 "src/cryptokit.ml" 166 6488 6511
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 166 6488 6508 "src/cryptokit.ml" 166 6488 6518
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 166 6488 6520 "src/cryptokit.ml" 166 6488 6524
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 142 5716 5724 "src/cryptokit.ml" 142 5716 5730
)
"src/cryptokit.ml" 166 6488 6520 "src/cryptokit.ml" 166 6488 6533
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 166 6488 6535 "src/cryptokit.ml" 166 6488 6538
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 166 6488 6535 "src/cryptokit.ml" 166 6488 6545
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 166 6488 6520 "src/cryptokit.ml" 166 6488 6545
type(
  unit
)
"src/cryptokit.ml" 166 6488 6508 "src/cryptokit.ml" 166 6488 6545
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 168 6547 6565 "src/cryptokit.ml" 168 6547 6568
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 141 5664 5679 "src/cryptokit.ml" 141 5664 5682
)
"src/cryptokit.ml" 168 6547 6565 "src/cryptokit.ml" 168 6547 6573
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 168 6547 6575 "src/cryptokit.ml" 168 6547 6578
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 141 5664 5697 "src/cryptokit.ml" 141 5664 5700
)
"src/cryptokit.ml" 168 6547 6575 "src/cryptokit.ml" 168 6547 6583
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 168 6547 6565 "src/cryptokit.ml" 168 6547 6583
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 171 6591 6595 "src/cryptokit.ml" 171 6591 6602
type(
  transform -> transform -> compose
)
ident(
  def compose "src/cryptokit.ml" 173 6634 6634 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 171 6591 6603 "src/cryptokit.ml" 171 6591 6606
type(
  transform
)
ident(
  def tr1 "src/cryptokit.ml" 171 6591 6607 "src/cryptokit.ml" 171 6591 6632
)
"src/cryptokit.ml" 171 6591 6607 "src/cryptokit.ml" 171 6591 6610
type(
  transform
)
ident(
  def tr2 "src/cryptokit.ml" 171 6591 6613 "src/cryptokit.ml" 171 6591 6632
)
"src/cryptokit.ml" 171 6591 6613 "src/cryptokit.ml" 171 6591 6624
type(
  transform -> transform -> compose
)
"src/cryptokit.ml" 171 6591 6625 "src/cryptokit.ml" 171 6591 6628
type(
  transform
)
ident(
  int_ref tr1 "src/cryptokit.ml" 171 6591 6603 "src/cryptokit.ml" 171 6591 6606
)
"src/cryptokit.ml" 171 6591 6629 "src/cryptokit.ml" 171 6591 6632
type(
  transform
)
ident(
  int_ref tr2 "src/cryptokit.ml" 171 6591 6607 "src/cryptokit.ml" 171 6591 6610
)
"src/cryptokit.ml" 171 6591 6613 "src/cryptokit.ml" 171 6591 6632
call(
  tail
)
type(
  compose
)
"src/cryptokit.ml" 184 6901 6905 "src/cryptokit.ml" 184 6901 6916
type(
  < add_string : 'a -> 'b; result : 'c; wipe : 'd; .. > -> 'a -> 'c
)
ident(
  def hash_string "src/cryptokit.ml" 190 6990 6990 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 184 6901 6917 "src/cryptokit.ml" 184 6901 6921
type(
  < add_string : 'a -> 'b; result : 'c; wipe : 'd; .. > as 'e
)
ident(
  def hash "src/cryptokit.ml" 184 6901 6922 "src/cryptokit.ml" 188 6985 6988
)
"src/cryptokit.ml" 184 6901 6922 "src/cryptokit.ml" 184 6901 6923
type(
  'a
)
ident(
  def s "src/cryptokit.ml" 185 6926 6928 "src/cryptokit.ml" 188 6985 6988
)
"src/cryptokit.ml" 185 6926 6928 "src/cryptokit.ml" 185 6926 6932
type(
  'e
)
ident(
  int_ref hash "src/cryptokit.ml" 184 6901 6917 "src/cryptokit.ml" 184 6901 6921
)
"src/cryptokit.ml" 185 6926 6928 "src/cryptokit.ml" 185 6926 6943
call(
  stack
)
type(
  'a -> 'b
)
"src/cryptokit.ml" 185 6926 6944 "src/cryptokit.ml" 185 6926 6945
type(
  'a
)
ident(
  int_ref s "src/cryptokit.ml" 184 6901 6922 "src/cryptokit.ml" 184 6901 6923
)
"src/cryptokit.ml" 185 6926 6928 "src/cryptokit.ml" 185 6926 6945
type(
  'b
)
"src/cryptokit.ml" 186 6947 6953 "src/cryptokit.ml" 186 6947 6954
type(
  'c
)
ident(
  def r "src/cryptokit.ml" 187 6972 6974 "src/cryptokit.ml" 188 6985 6988
)
"src/cryptokit.ml" 186 6947 6957 "src/cryptokit.ml" 186 6947 6961
type(
  'e
)
ident(
  int_ref hash "src/cryptokit.ml" 184 6901 6917 "src/cryptokit.ml" 184 6901 6921
)
"src/cryptokit.ml" 186 6947 6957 "src/cryptokit.ml" 186 6947 6968
call(
  stack
)
type(
  'c
)
"src/cryptokit.ml" 187 6972 6974 "src/cryptokit.ml" 187 6972 6978
type(
  'e
)
ident(
  int_ref hash "src/cryptokit.ml" 184 6901 6917 "src/cryptokit.ml" 184 6901 6921
)
"src/cryptokit.ml" 187 6972 6974 "src/cryptokit.ml" 187 6972 6983
call(
  stack
)
type(
  'd
)
"src/cryptokit.ml" 188 6985 6987 "src/cryptokit.ml" 188 6985 6988
type(
  'c
)
ident(
  int_ref r "src/cryptokit.ml" 186 6947 6953 "src/cryptokit.ml" 186 6947 6954
)
"src/cryptokit.ml" 187 6972 6974 "src/cryptokit.ml" 188 6985 6988
type(
  'c
)
"src/cryptokit.ml" 186 6947 6949 "src/cryptokit.ml" 188 6985 6988
type(
  'c
)
"src/cryptokit.ml" 185 6926 6928 "src/cryptokit.ml" 188 6985 6988
type(
  'c
)
"src/cryptokit.ml" 190 6990 6994 "src/cryptokit.ml" 190 6990 7006
type(
  < add_substring : bytes -> int -> int -> 'a; result : 'b; wipe : 'c; .. > ->
  ?len:int -> in_channel -> 'b
)
ident(
  def hash_channel "src/cryptokit.ml" 216 7611 7611 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 190 6990 7007 "src/cryptokit.ml" 190 6990 7011
type(
  < add_substring : bytes -> int -> int -> 'a; result : 'b; wipe : 'c; .. >
  as 'd
)
ident(
  def hash "src/cryptokit.ml" 190 6990 7012 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 190 6990 7013 "src/cryptokit.ml" 190 6990 7016
type(
  int option
)
ident(
  def len "src/cryptokit.ml" 190 6990 7017 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 190 6990 7017 "src/cryptokit.ml" 190 6990 7019
type(
  in_channel
)
ident(
  def ic "src/cryptokit.ml" 191 7022 7024 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 191 7022 7028 "src/cryptokit.ml" 191 7022 7032
type(
  bytes
)
ident(
  def ibuf "src/cryptokit.ml" 192 7055 7057 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 191 7022 7035 "src/cryptokit.ml" 191 7022 7047
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 191 7022 7048 "src/cryptokit.ml" 191 7022 7051
type(
  int
)
"src/cryptokit.ml" 191 7022 7035 "src/cryptokit.ml" 191 7022 7051
type(
  bytes
)
"src/cryptokit.ml" 192 7055 7065 "src/cryptokit.ml" 192 7055 7076
type(
  unit -> unit
)
ident(
  def hash_to_eof "src/cryptokit.ml" 192 7055 7057 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 192 7055 7077 "src/cryptokit.ml" 192 7055 7079
type(
  unit
)
"src/cryptokit.ml" 193 7082 7090 "src/cryptokit.ml" 193 7082 7091
type(
  int
)
ident(
  def r "src/cryptokit.ml" 194 7117 7121 "src/cryptokit.ml" 197 7196 7203
)
"src/cryptokit.ml" 193 7082 7094 "src/cryptokit.ml" 193 7082 7099
type(
  in_channel -> bytes -> int -> int -> int
)
ident(
  ext_ref Pervasives.input
)
"src/cryptokit.ml" 193 7082 7100 "src/cryptokit.ml" 193 7082 7102
type(
  in_channel
)
ident(
  int_ref ic "src/cryptokit.ml" 190 6990 7017 "src/cryptokit.ml" 190 6990 7019
)
"src/cryptokit.ml" 193 7082 7103 "src/cryptokit.ml" 193 7082 7107
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 191 7022 7028 "src/cryptokit.ml" 191 7022 7032
)
"src/cryptokit.ml" 193 7082 7108 "src/cryptokit.ml" 193 7082 7109
type(
  int
)
"src/cryptokit.ml" 193 7082 7110 "src/cryptokit.ml" 193 7082 7113
type(
  int
)
"src/cryptokit.ml" 193 7082 7094 "src/cryptokit.ml" 193 7082 7113
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 194 7117 7124 "src/cryptokit.ml" 194 7117 7125
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 193 7082 7090 "src/cryptokit.ml" 193 7082 7091
)
"src/cryptokit.ml" 194 7117 7126 "src/cryptokit.ml" 194 7117 7127
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 194 7117 7128 "src/cryptokit.ml" 194 7117 7129
type(
  int
)
"src/cryptokit.ml" 194 7117 7124 "src/cryptokit.ml" 194 7117 7129
type(
  bool
)
"src/cryptokit.ml" 195 7141 7147 "src/cryptokit.ml" 195 7141 7151
type(
  'd
)
ident(
  int_ref hash "src/cryptokit.ml" 190 6990 7007 "src/cryptokit.ml" 190 6990 7011
)
"src/cryptokit.ml" 195 7141 7147 "src/cryptokit.ml" 195 7141 7165
call(
  stack
)
type(
  bytes -> int -> int -> 'a
)
"src/cryptokit.ml" 195 7141 7166 "src/cryptokit.ml" 195 7141 7170
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 191 7022 7028 "src/cryptokit.ml" 191 7022 7032
)
"src/cryptokit.ml" 195 7141 7171 "src/cryptokit.ml" 195 7141 7172
type(
  int
)
"src/cryptokit.ml" 195 7141 7173 "src/cryptokit.ml" 195 7141 7174
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 193 7082 7090 "src/cryptokit.ml" 193 7082 7091
)
"src/cryptokit.ml" 195 7141 7147 "src/cryptokit.ml" 195 7141 7174
type(
  'a
)
"src/cryptokit.ml" 196 7176 7182 "src/cryptokit.ml" 196 7176 7193
type(
  unit -> unit
)
ident(
  int_ref hash_to_eof "src/cryptokit.ml" 192 7055 7065 "src/cryptokit.ml" 192 7055 7076
)
"src/cryptokit.ml" 196 7176 7193 "src/cryptokit.ml" 196 7176 7195
type(
  unit
)
"src/cryptokit.ml" 196 7176 7182 "src/cryptokit.ml" 196 7176 7195
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 194 7117 7135 "src/cryptokit.ml" 197 7196 7203
type(
  unit
)
"src/cryptokit.ml" 194 7117 7121 "src/cryptokit.ml" 197 7196 7203
type(
  unit
)
"src/cryptokit.ml" 193 7082 7086 "src/cryptokit.ml" 197 7196 7203
type(
  unit
)
"src/cryptokit.ml" 198 7204 7210 "src/cryptokit.ml" 198 7204 7222
type(
  int -> unit
)
ident(
  def hash_bounded "src/cryptokit.ml" 192 7055 7057 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 198 7204 7223 "src/cryptokit.ml" 198 7204 7230
type(
  int
)
ident(
  def numleft "src/cryptokit.ml" 199 7233 7237 "src/cryptokit.ml" 204 7421 7428
)
"src/cryptokit.ml" 199 7233 7240 "src/cryptokit.ml" 199 7233 7247
type(
  int
)
ident(
  int_ref numleft "src/cryptokit.ml" 198 7204 7223 "src/cryptokit.ml" 198 7204 7230
)
"src/cryptokit.ml" 199 7233 7248 "src/cryptokit.ml" 199 7233 7249
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 199 7233 7250 "src/cryptokit.ml" 199 7233 7251
type(
  int
)
"src/cryptokit.ml" 199 7233 7240 "src/cryptokit.ml" 199 7233 7251
type(
  bool
)
"src/cryptokit.ml" 200 7263 7273 "src/cryptokit.ml" 200 7263 7274
type(
  int
)
ident(
  def r "src/cryptokit.ml" 201 7314 7320 "src/cryptokit.ml" 203 7388 7420
)
"src/cryptokit.ml" 200 7263 7277 "src/cryptokit.ml" 200 7263 7282
type(
  in_channel -> bytes -> int -> int -> int
)
ident(
  ext_ref Pervasives.input
)
"src/cryptokit.ml" 200 7263 7283 "src/cryptokit.ml" 200 7263 7285
type(
  in_channel
)
ident(
  int_ref ic "src/cryptokit.ml" 190 6990 7017 "src/cryptokit.ml" 190 6990 7019
)
"src/cryptokit.ml" 200 7263 7286 "src/cryptokit.ml" 200 7263 7290
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 191 7022 7028 "src/cryptokit.ml" 191 7022 7032
)
"src/cryptokit.ml" 200 7263 7291 "src/cryptokit.ml" 200 7263 7292
type(
  int
)
"src/cryptokit.ml" 200 7263 7294 "src/cryptokit.ml" 200 7263 7297
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/cryptokit.ml" 200 7263 7298 "src/cryptokit.ml" 200 7263 7301
type(
  int
)
"src/cryptokit.ml" 200 7263 7302 "src/cryptokit.ml" 200 7263 7309
type(
  int
)
ident(
  int_ref numleft "src/cryptokit.ml" 198 7204 7223 "src/cryptokit.ml" 198 7204 7230
)
"src/cryptokit.ml" 200 7263 7293 "src/cryptokit.ml" 200 7263 7310
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 200 7263 7277 "src/cryptokit.ml" 200 7263 7310
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 201 7314 7323 "src/cryptokit.ml" 201 7314 7324
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 200 7263 7273 "src/cryptokit.ml" 200 7263 7274
)
"src/cryptokit.ml" 201 7314 7325 "src/cryptokit.ml" 201 7314 7326
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 201 7314 7327 "src/cryptokit.ml" 201 7314 7328
type(
  int
)
"src/cryptokit.ml" 201 7314 7323 "src/cryptokit.ml" 201 7314 7328
type(
  bool
)
"src/cryptokit.ml" 201 7314 7334 "src/cryptokit.ml" 201 7314 7339
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 201 7314 7340 "src/cryptokit.ml" 201 7314 7351
type(
  exn
)
"src/cryptokit.ml" 201 7314 7334 "src/cryptokit.ml" 201 7314 7351
type(
  unit
)
"src/cryptokit.ml" 201 7314 7320 "src/cryptokit.ml" 201 7314 7351
type(
  unit
)
"src/cryptokit.ml" 202 7353 7359 "src/cryptokit.ml" 202 7353 7363
type(
  'd
)
ident(
  int_ref hash "src/cryptokit.ml" 190 6990 7007 "src/cryptokit.ml" 190 6990 7011
)
"src/cryptokit.ml" 202 7353 7359 "src/cryptokit.ml" 202 7353 7377
call(
  stack
)
type(
  bytes -> int -> int -> 'a
)
"src/cryptokit.ml" 202 7353 7378 "src/cryptokit.ml" 202 7353 7382
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 191 7022 7028 "src/cryptokit.ml" 191 7022 7032
)
"src/cryptokit.ml" 202 7353 7383 "src/cryptokit.ml" 202 7353 7384
type(
  int
)
"src/cryptokit.ml" 202 7353 7385 "src/cryptokit.ml" 202 7353 7386
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 200 7263 7273 "src/cryptokit.ml" 200 7263 7274
)
"src/cryptokit.ml" 202 7353 7359 "src/cryptokit.ml" 202 7353 7386
type(
  'a
)
"src/cryptokit.ml" 203 7388 7394 "src/cryptokit.ml" 203 7388 7406
type(
  int -> unit
)
ident(
  int_ref hash_bounded "src/cryptokit.ml" 198 7204 7210 "src/cryptokit.ml" 198 7204 7222
)
"src/cryptokit.ml" 203 7388 7408 "src/cryptokit.ml" 203 7388 7415
type(
  int
)
ident(
  int_ref numleft "src/cryptokit.ml" 198 7204 7223 "src/cryptokit.ml" 198 7204 7230
)
"src/cryptokit.ml" 203 7388 7416 "src/cryptokit.ml" 203 7388 7417
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 203 7388 7418 "src/cryptokit.ml" 203 7388 7419
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 200 7263 7273 "src/cryptokit.ml" 200 7263 7274
)
"src/cryptokit.ml" 203 7388 7407 "src/cryptokit.ml" 203 7388 7420
type(
  int
)
"src/cryptokit.ml" 203 7388 7394 "src/cryptokit.ml" 203 7388 7420
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 202 7353 7359 "src/cryptokit.ml" 203 7388 7420
type(
  unit
)
"src/cryptokit.ml" 201 7314 7320 "src/cryptokit.ml" 203 7388 7420
type(
  unit
)
"src/cryptokit.ml" 199 7233 7257 "src/cryptokit.ml" 204 7421 7428
type(
  unit
)
"src/cryptokit.ml" 199 7233 7237 "src/cryptokit.ml" 204 7421 7428
type(
  unit
)
"src/cryptokit.ml" 205 7432 7446 "src/cryptokit.ml" 205 7432 7449
type(
  int option
)
ident(
  int_ref len "src/cryptokit.ml" 190 6990 7013 "src/cryptokit.ml" 190 6990 7016
)
"src/cryptokit.ml" 206 7455 7461 "src/cryptokit.ml" 206 7455 7465
type(
  int option
)
"src/cryptokit.ml" 206 7455 7469 "src/cryptokit.ml" 206 7455 7480
type(
  unit -> unit
)
ident(
  int_ref hash_to_eof "src/cryptokit.ml" 192 7055 7065 "src/cryptokit.ml" 192 7055 7076
)
"src/cryptokit.ml" 206 7455 7481 "src/cryptokit.ml" 206 7455 7483
type(
  unit
)
"src/cryptokit.ml" 206 7455 7469 "src/cryptokit.ml" 206 7455 7483
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 207 7484 7495 "src/cryptokit.ml" 207 7484 7496
type(
  int
)
ident(
  def l "src/cryptokit.ml" 207 7484 7500 "src/cryptokit.ml" 207 7484 7514
)
"src/cryptokit.ml" 207 7484 7490 "src/cryptokit.ml" 207 7484 7496
type(
  int option
)
"src/cryptokit.ml" 207 7484 7500 "src/cryptokit.ml" 207 7484 7512
type(
  int -> unit
)
ident(
  int_ref hash_bounded "src/cryptokit.ml" 198 7204 7210 "src/cryptokit.ml" 198 7204 7222
)
"src/cryptokit.ml" 207 7484 7513 "src/cryptokit.ml" 207 7484 7514
type(
  int
)
ident(
  int_ref l "src/cryptokit.ml" 207 7484 7495 "src/cryptokit.ml" 207 7484 7496
)
"src/cryptokit.ml" 207 7484 7500 "src/cryptokit.ml" 207 7484 7514
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 205 7432 7434 "src/cryptokit.ml" 208 7515 7520
type(
  unit
)
"src/cryptokit.ml" 209 7522 7524 "src/cryptokit.ml" 209 7522 7534
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 209 7522 7535 "src/cryptokit.ml" 209 7522 7539
type(
  bytes
)
ident(
  int_ref ibuf "src/cryptokit.ml" 191 7022 7028 "src/cryptokit.ml" 191 7022 7032
)
"src/cryptokit.ml" 209 7522 7524 "src/cryptokit.ml" 209 7522 7539
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 210 7541 7547 "src/cryptokit.ml" 210 7541 7550
type(
  'b
)
ident(
  def res "src/cryptokit.ml" 211 7568 7570 "src/cryptokit.ml" 212 7581 7586
)
"src/cryptokit.ml" 210 7541 7553 "src/cryptokit.ml" 210 7541 7557
type(
  'd
)
ident(
  int_ref hash "src/cryptokit.ml" 190 6990 7007 "src/cryptokit.ml" 190 6990 7011
)
"src/cryptokit.ml" 210 7541 7553 "src/cryptokit.ml" 210 7541 7564
call(
  stack
)
type(
  'b
)
"src/cryptokit.ml" 211 7568 7570 "src/cryptokit.ml" 211 7568 7574
type(
  'd
)
ident(
  int_ref hash "src/cryptokit.ml" 190 6990 7007 "src/cryptokit.ml" 190 6990 7011
)
"src/cryptokit.ml" 211 7568 7570 "src/cryptokit.ml" 211 7568 7579
call(
  stack
)
type(
  'c
)
"src/cryptokit.ml" 212 7581 7583 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
ident(
  int_ref res "src/cryptokit.ml" 210 7541 7547 "src/cryptokit.ml" 210 7541 7550
)
"src/cryptokit.ml" 211 7568 7570 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
"src/cryptokit.ml" 210 7541 7543 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
"src/cryptokit.ml" 209 7522 7524 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
"src/cryptokit.ml" 205 7432 7434 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
"src/cryptokit.ml" 192 7055 7057 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
"src/cryptokit.ml" 191 7022 7024 "src/cryptokit.ml" 212 7581 7586
type(
  'b
)
"src/cryptokit.ml" 226 7764 7779 "src/cryptokit.ml" 226 7764 7785
type(
  bytes
)
ident(
  def buffer "src/cryptokit.ml" 226 7764 7786 "src/cryptokit.ml" 229 7870 7913
)
"src/cryptokit.ml" 226 7764 7786 "src/cryptokit.ml" 226 7764 7790
type(
  int
)
ident(
  def used "src/cryptokit.ml" 227 7793 7799 "src/cryptokit.ml" 229 7870 7913
)
"src/cryptokit.ml" 227 7793 7803 "src/cryptokit.ml" 227 7793 7804
type(
  int
)
ident(
  def n "src/cryptokit.ml" 228 7837 7843 "src/cryptokit.ml" 229 7870 7913
)
"src/cryptokit.ml" 227 7793 7807 "src/cryptokit.ml" 227 7793 7819
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 227 7793 7820 "src/cryptokit.ml" 227 7793 7826
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 226 7764 7779 "src/cryptokit.ml" 226 7764 7785
)
"src/cryptokit.ml" 227 7793 7807 "src/cryptokit.ml" 227 7793 7826
type(
  int
)
"src/cryptokit.ml" 227 7793 7827 "src/cryptokit.ml" 227 7793 7828
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 227 7793 7829 "src/cryptokit.ml" 227 7793 7833
type(
  int
)
ident(
  int_ref used "src/cryptokit.ml" 226 7764 7786 "src/cryptokit.ml" 226 7764 7790
)
"src/cryptokit.ml" 227 7793 7807 "src/cryptokit.ml" 227 7793 7833
type(
  int
)
"src/cryptokit.ml" 228 7837 7851 "src/cryptokit.ml" 228 7837 7852
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 227 7793 7803 "src/cryptokit.ml" 227 7793 7804
)
"src/cryptokit.ml" 228 7837 7853 "src/cryptokit.ml" 228 7837 7854
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 228 7837 7855 "src/cryptokit.ml" 228 7837 7856
type(
  int
)
"src/cryptokit.ml" 228 7837 7851 "src/cryptokit.ml" 228 7837 7856
type(
  bool
)
"src/cryptokit.ml" 228 7837 7857 "src/cryptokit.ml" 228 7837 7859
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 228 7837 7860 "src/cryptokit.ml" 228 7837 7861
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 227 7793 7803 "src/cryptokit.ml" 227 7793 7804
)
"src/cryptokit.ml" 228 7837 7862 "src/cryptokit.ml" 228 7837 7863
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 228 7837 7864 "src/cryptokit.ml" 228 7837 7867
type(
  int
)
"src/cryptokit.ml" 228 7837 7860 "src/cryptokit.ml" 228 7837 7867
type(
  bool
)
"src/cryptokit.ml" 228 7837 7850 "src/cryptokit.ml" 228 7837 7868
type(
  bool
)
"src/cryptokit.ml" 228 7837 7843 "src/cryptokit.ml" 228 7837 7868
type(
  unit
)
"src/cryptokit.ml" 229 7870 7876 "src/cryptokit.ml" 229 7870 7886
type(
  bytes -> int -> int -> char -> unit
)
ident(
  ext_ref Bytes.fill
)
"src/cryptokit.ml" 229 7870 7887 "src/cryptokit.ml" 229 7870 7893
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 226 7764 7779 "src/cryptokit.ml" 226 7764 7785
)
"src/cryptokit.ml" 229 7870 7894 "src/cryptokit.ml" 229 7870 7898
type(
  int
)
ident(
  int_ref used "src/cryptokit.ml" 226 7764 7786 "src/cryptokit.ml" 226 7764 7790
)
"src/cryptokit.ml" 229 7870 7899 "src/cryptokit.ml" 229 7870 7900
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 227 7793 7803 "src/cryptokit.ml" 227 7793 7804
)
"src/cryptokit.ml" 229 7870 7902 "src/cryptokit.ml" 229 7870 7910
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 229 7870 7911 "src/cryptokit.ml" 229 7870 7912
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 227 7793 7803 "src/cryptokit.ml" 227 7793 7804
)
"src/cryptokit.ml" 229 7870 7901 "src/cryptokit.ml" 229 7870 7913
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 229 7870 7876 "src/cryptokit.ml" 229 7870 7913
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 228 7837 7843 "src/cryptokit.ml" 229 7870 7913
type(
  unit
)
"src/cryptokit.ml" 227 7793 7799 "src/cryptokit.ml" 229 7870 7913
type(
  unit
)
"src/cryptokit.ml" 230 7914 7931 "src/cryptokit.ml" 230 7914 7937
type(
  bytes
)
ident(
  def buffer "src/cryptokit.ml" 231 7940 7946 "src/cryptokit.ml" 238 8322 8341
)
"src/cryptokit.ml" 231 7940 7950 "src/cryptokit.ml" 231 7940 7959
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 232 7985 7991 "src/cryptokit.ml" 238 8322 8341
)
"src/cryptokit.ml" 231 7940 7962 "src/cryptokit.ml" 231 7940 7974
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 231 7940 7975 "src/cryptokit.ml" 231 7940 7981
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 230 7914 7931 "src/cryptokit.ml" 230 7914 7937
)
"src/cryptokit.ml" 231 7940 7962 "src/cryptokit.ml" 231 7940 7981
type(
  int
)
"src/cryptokit.ml" 232 7985 7995 "src/cryptokit.ml" 232 7985 7996
type(
  int
)
ident(
  def n "src/cryptokit.ml" 233 8047 8053 "src/cryptokit.ml" 238 8322 8341
)
"src/cryptokit.ml" 232 7985 7999 "src/cryptokit.ml" 232 7985 8008
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 232 7985 8010 "src/cryptokit.ml" 232 7985 8019
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 232 7985 8020 "src/cryptokit.ml" 232 7985 8026
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 230 7914 7931 "src/cryptokit.ml" 230 7914 7937
)
"src/cryptokit.ml" 232 7985 8028 "src/cryptokit.ml" 232 7985 8037
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 231 7940 7950 "src/cryptokit.ml" 231 7940 7959
)
"src/cryptokit.ml" 232 7985 8038 "src/cryptokit.ml" 232 7985 8039
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 232 7985 8040 "src/cryptokit.ml" 232 7985 8041
type(
  int
)
"src/cryptokit.ml" 232 7985 8027 "src/cryptokit.ml" 232 7985 8042
type(
  int
)
"src/cryptokit.ml" 232 7985 8009 "src/cryptokit.ml" 232 7985 8043
type(
  char
)
"src/cryptokit.ml" 232 7985 7999 "src/cryptokit.ml" 232 7985 8043
type(
  int
)
"src/cryptokit.ml" 233 8047 8056 "src/cryptokit.ml" 233 8047 8057
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 232 7985 7995 "src/cryptokit.ml" 232 7985 7996
)
"src/cryptokit.ml" 233 8047 8058 "src/cryptokit.ml" 233 8047 8059
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 233 8047 8060 "src/cryptokit.ml" 233 8047 8061
type(
  int
)
"src/cryptokit.ml" 233 8047 8056 "src/cryptokit.ml" 233 8047 8061
type(
  bool
)
"src/cryptokit.ml" 233 8047 8062 "src/cryptokit.ml" 233 8047 8064
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 233 8047 8065 "src/cryptokit.ml" 233 8047 8066
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 232 7985 7995 "src/cryptokit.ml" 232 7985 7996
)
"src/cryptokit.ml" 233 8047 8067 "src/cryptokit.ml" 233 8047 8068
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 233 8047 8069 "src/cryptokit.ml" 233 8047 8078
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 231 7940 7950 "src/cryptokit.ml" 231 7940 7959
)
"src/cryptokit.ml" 233 8047 8065 "src/cryptokit.ml" 233 8047 8078
type(
  bool
)
"src/cryptokit.ml" 233 8047 8056 "src/cryptokit.ml" 233 8047 8078
type(
  bool
)
"src/cryptokit.ml" 233 8047 8084 "src/cryptokit.ml" 233 8047 8089
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 233 8047 8097 "src/cryptokit.ml" 233 8047 8108
type(
  error
)
"src/cryptokit.ml" 233 8047 8090 "src/cryptokit.ml" 233 8047 8109
type(
  exn
)
"src/cryptokit.ml" 233 8047 8084 "src/cryptokit.ml" 233 8047 8109
type(
  unit
)
"src/cryptokit.ml" 233 8047 8053 "src/cryptokit.ml" 233 8047 8109
type(
  unit
)
"src/cryptokit.ml" 235 8184 8198 "src/cryptokit.ml" 235 8184 8207
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 231 7940 7950 "src/cryptokit.ml" 231 7940 7959
)
"src/cryptokit.ml" 235 8184 8208 "src/cryptokit.ml" 235 8184 8209
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 235 8184 8210 "src/cryptokit.ml" 235 8184 8211
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 232 7985 7995 "src/cryptokit.ml" 232 7985 7996
)
"src/cryptokit.ml" 235 8184 8198 "src/cryptokit.ml" 235 8184 8211
type(
  int
)
"src/cryptokit.ml" 235 8184 8215 "src/cryptokit.ml" 235 8184 8224
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 231 7940 7950 "src/cryptokit.ml" 231 7940 7959
)
"src/cryptokit.ml" 235 8184 8225 "src/cryptokit.ml" 235 8184 8226
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 235 8184 8227 "src/cryptokit.ml" 235 8184 8228
type(
  int
)
"src/cryptokit.ml" 235 8184 8215 "src/cryptokit.ml" 235 8184 8228
type(
  int
)
"src/cryptokit.ml" 236 8232 8243 "src/cryptokit.ml" 236 8232 8252
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 236 8232 8254 "src/cryptokit.ml" 236 8232 8263
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 236 8232 8264 "src/cryptokit.ml" 236 8232 8270
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 230 7914 7931 "src/cryptokit.ml" 230 7914 7937
)
"src/cryptokit.ml" 236 8232 8271 "src/cryptokit.ml" 236 8232 8272
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 235 8184 8190 "src/cryptokit.ml" 237 8310 8320
)
"src/cryptokit.ml" 236 8232 8253 "src/cryptokit.ml" 236 8232 8273
type(
  char
)
"src/cryptokit.ml" 236 8232 8243 "src/cryptokit.ml" 236 8232 8273
type(
  int
)
"src/cryptokit.ml" 236 8232 8274 "src/cryptokit.ml" 236 8232 8276
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 236 8232 8277 "src/cryptokit.ml" 236 8232 8278
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 232 7985 7995 "src/cryptokit.ml" 232 7985 7996
)
"src/cryptokit.ml" 236 8232 8243 "src/cryptokit.ml" 236 8232 8278
type(
  bool
)
"src/cryptokit.ml" 236 8232 8284 "src/cryptokit.ml" 236 8232 8289
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 236 8232 8297 "src/cryptokit.ml" 236 8232 8308
type(
  error
)
"src/cryptokit.ml" 236 8232 8290 "src/cryptokit.ml" 236 8232 8309
type(
  exn
)
"src/cryptokit.ml" 236 8232 8284 "src/cryptokit.ml" 236 8232 8309
type(
  unit
)
"src/cryptokit.ml" 236 8232 8240 "src/cryptokit.ml" 236 8232 8309
type(
  unit
)
"src/cryptokit.ml" 235 8184 8190 "src/cryptokit.ml" 237 8310 8320
type(
  unit
)
"src/cryptokit.ml" 238 8322 8328 "src/cryptokit.ml" 238 8322 8337
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 231 7940 7950 "src/cryptokit.ml" 231 7940 7959
)
"src/cryptokit.ml" 238 8322 8338 "src/cryptokit.ml" 238 8322 8339
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 238 8322 8340 "src/cryptokit.ml" 238 8322 8341
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 232 7985 7995 "src/cryptokit.ml" 232 7985 7996
)
"src/cryptokit.ml" 238 8322 8328 "src/cryptokit.ml" 238 8322 8341
type(
  int
)
"src/cryptokit.ml" 235 8184 8190 "src/cryptokit.ml" 238 8322 8341
type(
  int
)
"src/cryptokit.ml" 233 8047 8053 "src/cryptokit.ml" 238 8322 8341
type(
  int
)
"src/cryptokit.ml" 232 7985 7991 "src/cryptokit.ml" 238 8322 8341
type(
  int
)
"src/cryptokit.ml" 231 7940 7946 "src/cryptokit.ml" 238 8322 8341
type(
  int
)
"src/cryptokit.ml" 241 8349 8353 "src/cryptokit.ml" 241 8349 8359
type(
  length
)
ident(
  def length "src/cryptokit.ml" 243 8374 8374 "src/cryptokit.ml" 262 8892 8895
)
"src/cryptokit.ml" 241 8349 8366 "src/cryptokit.ml" 241 8349 8372
call(
  stack
)
"src/cryptokit.ml" 241 8349 8362 "src/cryptokit.ml" 241 8349 8372
type(
  length
)
"src/cryptokit.ml" 245 8397 8412 "src/cryptokit.ml" 245 8397 8418
type(
  bytes
)
ident(
  def buffer "src/cryptokit.ml" 245 8397 8419 "src/cryptokit.ml" 249 8549 8559
)
"src/cryptokit.ml" 245 8397 8419 "src/cryptokit.ml" 245 8397 8423
type(
  int
)
ident(
  def used "src/cryptokit.ml" 246 8426 8432 "src/cryptokit.ml" 249 8549 8559
)
"src/cryptokit.ml" 246 8426 8432 "src/cryptokit.ml" 246 8426 8441
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 246 8426 8442 "src/cryptokit.ml" 246 8426 8448
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 245 8397 8412 "src/cryptokit.ml" 245 8397 8418
)
"src/cryptokit.ml" 246 8426 8449 "src/cryptokit.ml" 246 8426 8453
type(
  int
)
ident(
  int_ref used "src/cryptokit.ml" 245 8397 8419 "src/cryptokit.ml" 245 8397 8423
)
"src/cryptokit.ml" 246 8426 8454 "src/cryptokit.ml" 246 8426 8460
type(
  char
)
"src/cryptokit.ml" 246 8426 8432 "src/cryptokit.ml" 246 8426 8460
type(
  unit
)
"src/cryptokit.ml" 247 8462 8476 "src/cryptokit.ml" 247 8462 8480
type(
  int
)
ident(
  int_ref used "src/cryptokit.ml" 245 8397 8419 "src/cryptokit.ml" 245 8397 8423
)
"src/cryptokit.ml" 247 8462 8481 "src/cryptokit.ml" 247 8462 8482
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 247 8462 8483 "src/cryptokit.ml" 247 8462 8484
type(
  int
)
"src/cryptokit.ml" 247 8462 8476 "src/cryptokit.ml" 247 8462 8484
type(
  int
)
"src/cryptokit.ml" 247 8462 8488 "src/cryptokit.ml" 247 8462 8500
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 247 8462 8501 "src/cryptokit.ml" 247 8462 8507
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 245 8397 8412 "src/cryptokit.ml" 245 8397 8418
)
"src/cryptokit.ml" 247 8462 8488 "src/cryptokit.ml" 247 8462 8507
type(
  int
)
"src/cryptokit.ml" 247 8462 8508 "src/cryptokit.ml" 247 8462 8509
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 247 8462 8510 "src/cryptokit.ml" 247 8462 8511
type(
  int
)
"src/cryptokit.ml" 247 8462 8488 "src/cryptokit.ml" 247 8462 8511
type(
  int
)
"src/cryptokit.ml" 248 8515 8523 "src/cryptokit.ml" 248 8515 8532
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 248 8515 8533 "src/cryptokit.ml" 248 8515 8539
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 245 8397 8412 "src/cryptokit.ml" 245 8397 8418
)
"src/cryptokit.ml" 248 8515 8540 "src/cryptokit.ml" 248 8515 8541
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 247 8462 8468 "src/cryptokit.ml" 249 8549 8559
)
"src/cryptokit.ml" 248 8515 8542 "src/cryptokit.ml" 248 8515 8548
type(
  char
)
"src/cryptokit.ml" 248 8515 8523 "src/cryptokit.ml" 248 8515 8548
type(
  unit
)
"src/cryptokit.ml" 247 8462 8468 "src/cryptokit.ml" 249 8549 8559
type(
  unit
)
"src/cryptokit.ml" 246 8426 8432 "src/cryptokit.ml" 249 8549 8559
type(
  unit
)
"src/cryptokit.ml" 250 8560 8577 "src/cryptokit.ml" 250 8560 8583
type(
  bytes
)
ident(
  def buffer "src/cryptokit.ml" 251 8586 8592 "src/cryptokit.ml" 257 8821 8861
)
"src/cryptokit.ml" 251 8586 8600 "src/cryptokit.ml" 251 8586 8605
type(
  int -> int
)
ident(
  def strip "src/cryptokit.ml" 251 8586 8592 "src/cryptokit.ml" 257 8821 8861
)
"src/cryptokit.ml" 251 8586 8606 "src/cryptokit.ml" 251 8586 8609
type(
  int
)
ident(
  def pos "src/cryptokit.ml" 252 8612 8620 "src/cryptokit.ml" 256 8773 8820
)
"src/cryptokit.ml" 252 8612 8623 "src/cryptokit.ml" 252 8612 8626
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 251 8586 8606 "src/cryptokit.ml" 251 8586 8609
)
"src/cryptokit.ml" 252 8612 8627 "src/cryptokit.ml" 252 8612 8628
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 252 8612 8629 "src/cryptokit.ml" 252 8612 8630
type(
  int
)
"src/cryptokit.ml" 252 8612 8623 "src/cryptokit.ml" 252 8612 8630
type(
  bool
)
"src/cryptokit.ml" 252 8612 8636 "src/cryptokit.ml" 252 8612 8641
type(
  exn -> int
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 252 8612 8649 "src/cryptokit.ml" 252 8612 8660
type(
  error
)
"src/cryptokit.ml" 252 8612 8642 "src/cryptokit.ml" 252 8612 8661
type(
  exn
)
"src/cryptokit.ml" 252 8612 8636 "src/cryptokit.ml" 252 8612 8661
type(
  int
)
"src/cryptokit.ml" 253 8667 8683 "src/cryptokit.ml" 253 8667 8692
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 253 8667 8693 "src/cryptokit.ml" 253 8667 8699
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 250 8560 8577 "src/cryptokit.ml" 250 8560 8583
)
"src/cryptokit.ml" 253 8667 8700 "src/cryptokit.ml" 253 8667 8703
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 251 8586 8606 "src/cryptokit.ml" 251 8586 8609
)
"src/cryptokit.ml" 253 8667 8683 "src/cryptokit.ml" 253 8667 8703
type(
  char
)
"src/cryptokit.ml" 254 8709 8721 "src/cryptokit.ml" 254 8709 8727
type(
  char
)
"src/cryptokit.ml" 254 8709 8731 "src/cryptokit.ml" 254 8709 8734
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 251 8586 8606 "src/cryptokit.ml" 251 8586 8609
)
"src/cryptokit.ml" 255 8735 8747 "src/cryptokit.ml" 255 8735 8753
type(
  char
)
"src/cryptokit.ml" 255 8735 8757 "src/cryptokit.ml" 255 8735 8762
type(
  int -> int
)
ident(
  int_ref strip "src/cryptokit.ml" 251 8586 8600 "src/cryptokit.ml" 251 8586 8605
)
"src/cryptokit.ml" 255 8735 8764 "src/cryptokit.ml" 255 8735 8767
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 251 8586 8606 "src/cryptokit.ml" 251 8586 8609
)
"src/cryptokit.ml" 255 8735 8768 "src/cryptokit.ml" 255 8735 8769
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 255 8735 8770 "src/cryptokit.ml" 255 8735 8771
type(
  int
)
"src/cryptokit.ml" 255 8735 8763 "src/cryptokit.ml" 255 8735 8772
type(
  int
)
"src/cryptokit.ml" 255 8735 8757 "src/cryptokit.ml" 255 8735 8772
call(
  tail
)
type(
  int
)
"src/cryptokit.ml" 256 8773 8788 "src/cryptokit.ml" 256 8773 8789
type(
  char
)
"src/cryptokit.ml" 256 8773 8795 "src/cryptokit.ml" 256 8773 8800
type(
  exn -> int
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 256 8773 8808 "src/cryptokit.ml" 256 8773 8819
type(
  error
)
"src/cryptokit.ml" 256 8773 8801 "src/cryptokit.ml" 256 8773 8820
type(
  exn
)
"src/cryptokit.ml" 256 8773 8795 "src/cryptokit.ml" 256 8773 8820
type(
  int
)
"src/cryptokit.ml" 253 8667 8677 "src/cryptokit.ml" 256 8773 8820
type(
  int
)
"src/cryptokit.ml" 252 8612 8620 "src/cryptokit.ml" 256 8773 8820
type(
  int
)
"src/cryptokit.ml" 257 8821 8830 "src/cryptokit.ml" 257 8821 8835
type(
  int -> int
)
ident(
  int_ref strip "src/cryptokit.ml" 251 8586 8600 "src/cryptokit.ml" 251 8586 8605
)
"src/cryptokit.ml" 257 8821 8837 "src/cryptokit.ml" 257 8821 8849
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 257 8821 8850 "src/cryptokit.ml" 257 8821 8856
type(
  bytes
)
ident(
  int_ref buffer "src/cryptokit.ml" 250 8560 8577 "src/cryptokit.ml" 250 8560 8583
)
"src/cryptokit.ml" 257 8821 8837 "src/cryptokit.ml" 257 8821 8856
type(
  int
)
"src/cryptokit.ml" 257 8821 8857 "src/cryptokit.ml" 257 8821 8858
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 257 8821 8859 "src/cryptokit.ml" 257 8821 8860
type(
  int
)
"src/cryptokit.ml" 257 8821 8836 "src/cryptokit.ml" 257 8821 8861
type(
  int
)
"src/cryptokit.ml" 257 8821 8830 "src/cryptokit.ml" 257 8821 8861
call(
  tail
)
type(
  int
)
"src/cryptokit.ml" 251 8586 8592 "src/cryptokit.ml" 257 8821 8861
type(
  int
)
"src/cryptokit.ml" 260 8869 8873 "src/cryptokit.ml" 260 8869 8878
type(
  _8000
)
ident(
  def _8000 "src/cryptokit.ml" 260 8869 8890 "src/cryptokit.ml" 262 8892 8895
)
"src/cryptokit.ml" 260 8869 8885 "src/cryptokit.ml" 260 8869 8890
call(
  stack
)
"src/cryptokit.ml" 260 8869 8881 "src/cryptokit.ml" 260 8869 8890
type(
  _8000
)
"src/cryptokit.ml" 266 8941 8963 "src/cryptokit.ml" 266 8941 8982
type(
  int
)
"src/cryptokit.ml" 267 8985 8993 "src/cryptokit.ml" 267 8985 8999
type(
  < available_output : int; get_byte : int; get_char : char;
    get_string : string; get_substring : bytes * int * int; wipe : unit; .. >
)
"src/cryptokit.ml" 268 9000 9023 "src/cryptokit.ml" 268 9000 9035
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 268 9000 9036 "src/cryptokit.ml" 268 9000 9055
type(
  int
)
ident(
  int_ref initial_buffer_size "src/cryptokit.ml" 266 8941 8963 "src/cryptokit.ml" 266 8941 8982
)
"src/cryptokit.ml" 268 9000 9023 "src/cryptokit.ml" 268 9000 9055
type(
  bytes
)
"src/cryptokit.ml" 269 9056 9079 "src/cryptokit.ml" 269 9056 9080
type(
  int
)
"src/cryptokit.ml" 270 9081 9104 "src/cryptokit.ml" 270 9081 9105
type(
  int
)
"src/cryptokit.ml" 272 9107 9142 "src/cryptokit.ml" 272 9107 9143
type(
  int
)
ident(
  def n "src/cryptokit.ml" 273 9146 9152 "src/cryptokit.ml" 296 9971 9980
)
"src/cryptokit.ml" 273 9146 9156 "src/cryptokit.ml" 273 9146 9159
type(
  int
)
ident(
  def len "src/cryptokit.ml" 274 9183 9189 "src/cryptokit.ml" 296 9971 9980
)
"src/cryptokit.ml" 273 9146 9162 "src/cryptokit.ml" 273 9146 9174
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 273 9146 9175 "src/cryptokit.ml" 273 9146 9179
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 273 9146 9162 "src/cryptokit.ml" 273 9146 9179
type(
  int
)
"src/cryptokit.ml" 274 9183 9192 "src/cryptokit.ml" 274 9183 9196
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 274 9183 9197 "src/cryptokit.ml" 274 9183 9198
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 274 9183 9199 "src/cryptokit.ml" 274 9183 9200
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 272 9107 9142 "src/cryptokit.ml" 272 9107 9143
)
"src/cryptokit.ml" 274 9183 9192 "src/cryptokit.ml" 274 9183 9200
type(
  int
)
"src/cryptokit.ml" 274 9183 9201 "src/cryptokit.ml" 274 9183 9202
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 274 9183 9203 "src/cryptokit.ml" 274 9183 9206
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 273 9146 9156 "src/cryptokit.ml" 273 9146 9159
)
"src/cryptokit.ml" 274 9183 9192 "src/cryptokit.ml" 274 9183 9206
type(
  bool
)
"src/cryptokit.ml" 275 9218 9229 "src/cryptokit.ml" 275 9218 9233
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 275 9218 9234 "src/cryptokit.ml" 275 9218 9235
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 275 9218 9236 "src/cryptokit.ml" 275 9218 9240
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 275 9218 9229 "src/cryptokit.ml" 275 9218 9240
type(
  int
)
"src/cryptokit.ml" 275 9218 9241 "src/cryptokit.ml" 275 9218 9242
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 275 9218 9243 "src/cryptokit.ml" 275 9218 9244
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 272 9107 9142 "src/cryptokit.ml" 272 9107 9143
)
"src/cryptokit.ml" 275 9218 9229 "src/cryptokit.ml" 275 9218 9244
type(
  int
)
"src/cryptokit.ml" 275 9218 9245 "src/cryptokit.ml" 275 9218 9246
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 275 9218 9247 "src/cryptokit.ml" 275 9218 9250
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 273 9146 9156 "src/cryptokit.ml" 273 9146 9159
)
"src/cryptokit.ml" 275 9218 9229 "src/cryptokit.ml" 275 9218 9250
type(
  bool
)
"src/cryptokit.ml" 276 9262 9272 "src/cryptokit.ml" 276 9262 9282
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 276 9262 9283 "src/cryptokit.ml" 276 9262 9287
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 276 9262 9288 "src/cryptokit.ml" 276 9262 9292
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 276 9262 9293 "src/cryptokit.ml" 276 9262 9297
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 276 9262 9298 "src/cryptokit.ml" 276 9262 9299
type(
  int
)
"src/cryptokit.ml" 276 9262 9301 "src/cryptokit.ml" 276 9262 9305
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 276 9262 9306 "src/cryptokit.ml" 276 9262 9307
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 276 9262 9308 "src/cryptokit.ml" 276 9262 9312
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 276 9262 9300 "src/cryptokit.ml" 276 9262 9313
type(
  int
)
"src/cryptokit.ml" 276 9262 9272 "src/cryptokit.ml" 276 9262 9313
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 277 9315 9333 "src/cryptokit.ml" 277 9315 9337
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 277 9315 9338 "src/cryptokit.ml" 277 9315 9339
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 277 9315 9340 "src/cryptokit.ml" 277 9315 9344
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 277 9315 9333 "src/cryptokit.ml" 277 9315 9344
type(
  int
)
"src/cryptokit.ml" 277 9315 9325 "src/cryptokit.ml" 277 9315 9344
type(
  unit
)
"src/cryptokit.ml" 278 9346 9364 "src/cryptokit.ml" 278 9346 9365
type(
  int
)
"src/cryptokit.ml" 278 9346 9356 "src/cryptokit.ml" 278 9346 9365
type(
  unit
)
"src/cryptokit.ml" 277 9315 9325 "src/cryptokit.ml" 278 9346 9365
type(
  unit
)
"src/cryptokit.ml" 275 9218 9256 "src/cryptokit.ml" 279 9366 9377
type(
  unit
)
"src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
type(
  int ref
)
ident(
  def newlen "src/cryptokit.ml" 281 9429 9439 "src/cryptokit.ml" 294 9939 9958
)
"src/cryptokit.ml" 280 9389 9412 "src/cryptokit.ml" 280 9389 9415
type(
  int -> int ref
)
ident(
  ext_ref Pervasives.ref
)
"src/cryptokit.ml" 280 9389 9417 "src/cryptokit.ml" 280 9389 9418
type(
  int
)
"src/cryptokit.ml" 280 9389 9419 "src/cryptokit.ml" 280 9389 9420
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 280 9389 9421 "src/cryptokit.ml" 280 9389 9424
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 273 9146 9156 "src/cryptokit.ml" 273 9146 9159
)
"src/cryptokit.ml" 280 9389 9416 "src/cryptokit.ml" 280 9389 9425
type(
  int
)
"src/cryptokit.ml" 280 9389 9412 "src/cryptokit.ml" 280 9389 9425
type(
  int ref
)
"src/cryptokit.ml" 281 9429 9445 "src/cryptokit.ml" 281 9429 9449
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 281 9429 9450 "src/cryptokit.ml" 281 9429 9451
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 281 9429 9452 "src/cryptokit.ml" 281 9429 9456
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 281 9429 9445 "src/cryptokit.ml" 281 9429 9456
type(
  int
)
"src/cryptokit.ml" 281 9429 9457 "src/cryptokit.ml" 281 9429 9458
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 281 9429 9459 "src/cryptokit.ml" 281 9429 9460
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 272 9107 9142 "src/cryptokit.ml" 272 9107 9143
)
"src/cryptokit.ml" 281 9429 9445 "src/cryptokit.ml" 281 9429 9460
type(
  int
)
"src/cryptokit.ml" 281 9429 9461 "src/cryptokit.ml" 281 9429 9462
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 281 9429 9464 "src/cryptokit.ml" 281 9429 9465
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/cryptokit.ml" 281 9429 9465 "src/cryptokit.ml" 281 9429 9471
type(
  int ref
)
ident(
  int_ref newlen "src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
)
"src/cryptokit.ml" 281 9429 9463 "src/cryptokit.ml" 281 9429 9472
type(
  int
)
"src/cryptokit.ml" 281 9429 9445 "src/cryptokit.ml" 281 9429 9472
type(
  bool
)
"src/cryptokit.ml" 282 9476 9488 "src/cryptokit.ml" 282 9476 9494
type(
  int ref
)
ident(
  int_ref newlen "src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
)
"src/cryptokit.ml" 282 9476 9495 "src/cryptokit.ml" 282 9476 9497
type(
  int ref -> int -> unit
)
ident(
  ext_ref Pervasives.( := )
)
"src/cryptokit.ml" 282 9476 9499 "src/cryptokit.ml" 282 9476 9500
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/cryptokit.ml" 282 9476 9500 "src/cryptokit.ml" 282 9476 9506
type(
  int ref
)
ident(
  int_ref newlen "src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
)
"src/cryptokit.ml" 282 9476 9498 "src/cryptokit.ml" 282 9476 9507
type(
  int
)
"src/cryptokit.ml" 282 9476 9508 "src/cryptokit.ml" 282 9476 9509
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 282 9476 9510 "src/cryptokit.ml" 282 9476 9511
type(
  int
)
"src/cryptokit.ml" 282 9476 9498 "src/cryptokit.ml" 282 9476 9511
type(
  int
)
"src/cryptokit.ml" 282 9476 9488 "src/cryptokit.ml" 282 9476 9511
type(
  unit
)
"src/cryptokit.ml" 281 9429 9439 "src/cryptokit.ml" 283 9512 9526
type(
  unit
)
"src/cryptokit.ml" 284 9528 9542 "src/cryptokit.ml" 284 9528 9543
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/cryptokit.ml" 284 9528 9543 "src/cryptokit.ml" 284 9528 9549
type(
  int ref
)
ident(
  int_ref newlen "src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
)
"src/cryptokit.ml" 284 9528 9541 "src/cryptokit.ml" 284 9528 9550
type(
  int
)
"src/cryptokit.ml" 284 9528 9551 "src/cryptokit.ml" 284 9528 9552
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 284 9528 9553 "src/cryptokit.ml" 284 9528 9574
type(
  int
)
ident(
  ext_ref Sys.max_string_length
)
"src/cryptokit.ml" 284 9528 9541 "src/cryptokit.ml" 284 9528 9574
type(
  bool
)
"src/cryptokit.ml" 285 9586 9602 "src/cryptokit.ml" 285 9586 9606
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 285 9586 9607 "src/cryptokit.ml" 285 9586 9608
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 285 9586 9609 "src/cryptokit.ml" 285 9586 9613
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 285 9586 9602 "src/cryptokit.ml" 285 9586 9613
type(
  int
)
"src/cryptokit.ml" 285 9586 9614 "src/cryptokit.ml" 285 9586 9615
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 285 9586 9616 "src/cryptokit.ml" 285 9586 9617
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 272 9107 9142 "src/cryptokit.ml" 272 9107 9143
)
"src/cryptokit.ml" 285 9586 9601 "src/cryptokit.ml" 285 9586 9618
type(
  int
)
"src/cryptokit.ml" 285 9586 9619 "src/cryptokit.ml" 285 9586 9621
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 285 9586 9622 "src/cryptokit.ml" 285 9586 9643
type(
  int
)
ident(
  ext_ref Sys.max_string_length
)
"src/cryptokit.ml" 285 9586 9601 "src/cryptokit.ml" 285 9586 9643
type(
  bool
)
"src/cryptokit.ml" 286 9649 9663 "src/cryptokit.ml" 286 9649 9669
type(
  int ref
)
ident(
  int_ref newlen "src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
)
"src/cryptokit.ml" 286 9649 9670 "src/cryptokit.ml" 286 9649 9672
type(
  int ref -> int -> unit
)
ident(
  ext_ref Pervasives.( := )
)
"src/cryptokit.ml" 286 9649 9673 "src/cryptokit.ml" 286 9649 9694
type(
  int
)
ident(
  ext_ref Sys.max_string_length
)
"src/cryptokit.ml" 286 9649 9663 "src/cryptokit.ml" 286 9649 9694
type(
  unit
)
"src/cryptokit.ml" 288 9712 9726 "src/cryptokit.ml" 288 9712 9731
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 288 9712 9739 "src/cryptokit.ml" 288 9712 9761
type(
  error
)
"src/cryptokit.ml" 288 9712 9732 "src/cryptokit.ml" 288 9712 9762
type(
  exn
)
"src/cryptokit.ml" 288 9712 9726 "src/cryptokit.ml" 288 9712 9762
type(
  unit
)
"src/cryptokit.ml" 284 9528 9580 "src/cryptokit.ml" 289 9763 9776
type(
  unit
)
"src/cryptokit.ml" 284 9528 9538 "src/cryptokit.ml" 289 9763 9776
type(
  unit
)
"src/cryptokit.ml" 290 9778 9792 "src/cryptokit.ml" 290 9778 9798
type(
  bytes
)
ident(
  def newbuf "src/cryptokit.ml" 291 9827 9837 "src/cryptokit.ml" 294 9939 9958
)
"src/cryptokit.ml" 290 9778 9801 "src/cryptokit.ml" 290 9778 9813
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 290 9778 9815 "src/cryptokit.ml" 290 9778 9816
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/cryptokit.ml" 290 9778 9816 "src/cryptokit.ml" 290 9778 9822
type(
  int ref
)
ident(
  int_ref newlen "src/cryptokit.ml" 280 9389 9403 "src/cryptokit.ml" 280 9389 9409
)
"src/cryptokit.ml" 290 9778 9814 "src/cryptokit.ml" 290 9778 9823
type(
  int
)
"src/cryptokit.ml" 290 9778 9801 "src/cryptokit.ml" 290 9778 9823
type(
  bytes
)
"src/cryptokit.ml" 291 9827 9837 "src/cryptokit.ml" 291 9827 9847
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 291 9827 9848 "src/cryptokit.ml" 291 9827 9852
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 291 9827 9853 "src/cryptokit.ml" 291 9827 9857
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 291 9827 9858 "src/cryptokit.ml" 291 9827 9864
type(
  bytes
)
ident(
  int_ref newbuf "src/cryptokit.ml" 290 9778 9792 "src/cryptokit.ml" 290 9778 9798
)
"src/cryptokit.ml" 291 9827 9865 "src/cryptokit.ml" 291 9827 9866
type(
  int
)
"src/cryptokit.ml" 291 9827 9868 "src/cryptokit.ml" 291 9827 9872
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 291 9827 9873 "src/cryptokit.ml" 291 9827 9874
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 291 9827 9875 "src/cryptokit.ml" 291 9827 9879
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 291 9827 9867 "src/cryptokit.ml" 291 9827 9880
type(
  int
)
"src/cryptokit.ml" 291 9827 9837 "src/cryptokit.ml" 291 9827 9880
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 292 9882 9900 "src/cryptokit.ml" 292 9882 9906
type(
  bytes
)
ident(
  int_ref newbuf "src/cryptokit.ml" 290 9778 9792 "src/cryptokit.ml" 290 9778 9798
)
"src/cryptokit.ml" 292 9882 9892 "src/cryptokit.ml" 292 9882 9906
type(
  unit
)
"src/cryptokit.ml" 293 9908 9926 "src/cryptokit.ml" 293 9908 9930
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 293 9908 9931 "src/cryptokit.ml" 293 9908 9932
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 293 9908 9933 "src/cryptokit.ml" 293 9908 9937
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 293 9908 9926 "src/cryptokit.ml" 293 9908 9937
type(
  int
)
"src/cryptokit.ml" 293 9908 9918 "src/cryptokit.ml" 293 9908 9937
type(
  unit
)
"src/cryptokit.ml" 294 9939 9957 "src/cryptokit.ml" 294 9939 9958
type(
  int
)
"src/cryptokit.ml" 294 9939 9949 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 293 9908 9918 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 292 9882 9892 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 291 9827 9837 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 290 9778 9788 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 284 9528 9538 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 281 9429 9439 "src/cryptokit.ml" 294 9939 9958
type(
  unit
)
"src/cryptokit.ml" 279 9366 9383 "src/cryptokit.ml" 295 9959 9970
type(
  unit
)
"src/cryptokit.ml" 274 9183 9212 "src/cryptokit.ml" 296 9971 9980
type(
  unit
)
"src/cryptokit.ml" 274 9183 9189 "src/cryptokit.ml" 296 9971 9980
type(
  unit
)
"src/cryptokit.ml" 273 9146 9152 "src/cryptokit.ml" 296 9971 9980
type(
  unit
)
"src/cryptokit.ml" 298 9982 10012 "src/cryptokit.ml" 298 9982 10016
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 298 9982 10017 "src/cryptokit.ml" 298 9982 10018
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 298 9982 10019 "src/cryptokit.ml" 298 9982 10023
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 298 9982 10012 "src/cryptokit.ml" 298 9982 10023
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 301 10052 10062 "src/cryptokit.ml" 301 10052 10065
type(
  bytes * int * int
)
ident(
  def res "src/cryptokit.ml" 301 10052 10097 "src/cryptokit.ml" 301 10052 10122
)
"src/cryptokit.ml" 301 10052 10069 "src/cryptokit.ml" 301 10052 10073
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 301 10052 10075 "src/cryptokit.ml" 301 10052 10079
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 301 10052 10081 "src/cryptokit.ml" 301 10052 10085
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 301 10052 10086 "src/cryptokit.ml" 301 10052 10087
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 301 10052 10088 "src/cryptokit.ml" 301 10052 10092
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 301 10052 10081 "src/cryptokit.ml" 301 10052 10092
type(
  int
)
"src/cryptokit.ml" 301 10052 10068 "src/cryptokit.ml" 301 10052 10093
type(
  bytes * int * int
)
"src/cryptokit.ml" 301 10052 10105 "src/cryptokit.ml" 301 10052 10106
type(
  int
)
"src/cryptokit.ml" 301 10052 10097 "src/cryptokit.ml" 301 10052 10106
type(
  unit
)
"src/cryptokit.ml" 301 10052 10116 "src/cryptokit.ml" 301 10052 10117
type(
  int
)
"src/cryptokit.ml" 301 10052 10108 "src/cryptokit.ml" 301 10052 10117
type(
  unit
)
"src/cryptokit.ml" 301 10052 10119 "src/cryptokit.ml" 301 10052 10122
type(
  bytes * int * int
)
ident(
  int_ref res "src/cryptokit.ml" 301 10052 10062 "src/cryptokit.ml" 301 10052 10065
)
"src/cryptokit.ml" 301 10052 10108 "src/cryptokit.ml" 301 10052 10122
type(
  bytes * int * int
)
"src/cryptokit.ml" 301 10052 10097 "src/cryptokit.ml" 301 10052 10122
type(
  bytes * int * int
)
"src/cryptokit.ml" 301 10052 10058 "src/cryptokit.ml" 301 10052 10122
type(
  bytes * int * int
)
type(
  bytes * int * int
)
"src/cryptokit.ml" 304 10148 10158 "src/cryptokit.ml" 304 10148 10161
type(
  string
)
ident(
  def res "src/cryptokit.ml" 304 10148 10208 "src/cryptokit.ml" 304 10148 10233
)
"src/cryptokit.ml" 304 10148 10164 "src/cryptokit.ml" 304 10148 10180
type(
  bytes -> int -> int -> string
)
ident(
  ext_ref Bytes.sub_string
)
"src/cryptokit.ml" 304 10148 10181 "src/cryptokit.ml" 304 10148 10185
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 304 10148 10186 "src/cryptokit.ml" 304 10148 10190
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 304 10148 10192 "src/cryptokit.ml" 304 10148 10196
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 304 10148 10197 "src/cryptokit.ml" 304 10148 10198
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 304 10148 10199 "src/cryptokit.ml" 304 10148 10203
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 304 10148 10191 "src/cryptokit.ml" 304 10148 10204
type(
  int
)
"src/cryptokit.ml" 304 10148 10164 "src/cryptokit.ml" 304 10148 10204
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 304 10148 10216 "src/cryptokit.ml" 304 10148 10217
type(
  int
)
"src/cryptokit.ml" 304 10148 10208 "src/cryptokit.ml" 304 10148 10217
type(
  unit
)
"src/cryptokit.ml" 304 10148 10227 "src/cryptokit.ml" 304 10148 10228
type(
  int
)
"src/cryptokit.ml" 304 10148 10219 "src/cryptokit.ml" 304 10148 10228
type(
  unit
)
"src/cryptokit.ml" 304 10148 10230 "src/cryptokit.ml" 304 10148 10233
type(
  string
)
ident(
  int_ref res "src/cryptokit.ml" 304 10148 10158 "src/cryptokit.ml" 304 10148 10161
)
"src/cryptokit.ml" 304 10148 10219 "src/cryptokit.ml" 304 10148 10233
type(
  string
)
"src/cryptokit.ml" 304 10148 10208 "src/cryptokit.ml" 304 10148 10233
type(
  string
)
"src/cryptokit.ml" 304 10148 10154 "src/cryptokit.ml" 304 10148 10233
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 307 10257 10266 "src/cryptokit.ml" 307 10257 10270
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 307 10257 10271 "src/cryptokit.ml" 307 10257 10273
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 307 10257 10274 "src/cryptokit.ml" 307 10257 10278
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 307 10257 10266 "src/cryptokit.ml" 307 10257 10278
type(
  bool
)
"src/cryptokit.ml" 307 10257 10284 "src/cryptokit.ml" 307 10257 10289
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 307 10257 10290 "src/cryptokit.ml" 307 10257 10301
type(
  exn
)
"src/cryptokit.ml" 307 10257 10284 "src/cryptokit.ml" 307 10257 10301
type(
  unit
)
"src/cryptokit.ml" 307 10257 10263 "src/cryptokit.ml" 307 10257 10301
type(
  unit
)
"src/cryptokit.ml" 308 10303 10313 "src/cryptokit.ml" 308 10303 10314
type(
  char
)
ident(
  def r "src/cryptokit.ml" 309 10340 10346 "src/cryptokit.ml" 310 10364 10371
)
"src/cryptokit.ml" 308 10303 10317 "src/cryptokit.ml" 308 10303 10326
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 308 10303 10327 "src/cryptokit.ml" 308 10303 10331
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 308 10303 10332 "src/cryptokit.ml" 308 10303 10336
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 308 10303 10317 "src/cryptokit.ml" 308 10303 10336
type(
  char
)
"src/cryptokit.ml" 309 10340 10354 "src/cryptokit.ml" 309 10340 10358
type(
  int
)
ident(
  ext_ref obeg
)
"src/cryptokit.ml" 309 10340 10359 "src/cryptokit.ml" 309 10340 10360
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 309 10340 10361 "src/cryptokit.ml" 309 10340 10362
type(
  int
)
"src/cryptokit.ml" 309 10340 10354 "src/cryptokit.ml" 309 10340 10362
type(
  int
)
"src/cryptokit.ml" 309 10340 10346 "src/cryptokit.ml" 309 10340 10362
type(
  unit
)
"src/cryptokit.ml" 310 10364 10370 "src/cryptokit.ml" 310 10364 10371
type(
  char
)
ident(
  int_ref r "src/cryptokit.ml" 308 10303 10313 "src/cryptokit.ml" 308 10303 10314
)
"src/cryptokit.ml" 309 10340 10346 "src/cryptokit.ml" 310 10364 10371
type(
  char
)
"src/cryptokit.ml" 308 10303 10309 "src/cryptokit.ml" 310 10364 10371
type(
  char
)
"src/cryptokit.ml" 307 10257 10263 "src/cryptokit.ml" 310 10364 10371
type(
  char
)
type(
  char
)
"src/cryptokit.ml" 313 10395 10401 "src/cryptokit.ml" 313 10395 10410
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 313 10395 10411 "src/cryptokit.ml" 313 10395 10415
type(
  < available_output : int; get_byte : int; get_char : char;
    get_string : string; get_substring : bytes * int * int; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 267 8985 8993 "src/cryptokit.ml" 267 8985 8999
)
"src/cryptokit.ml" 313 10395 10411 "src/cryptokit.ml" 313 10395 10424
call(
  tail
)
type(
  char
)
"src/cryptokit.ml" 313 10395 10401 "src/cryptokit.ml" 313 10395 10424
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 316 10454 10460 "src/cryptokit.ml" 316 10454 10470
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 316 10454 10471 "src/cryptokit.ml" 316 10454 10475
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 316 10454 10460 "src/cryptokit.ml" 316 10454 10475
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 330 10676 10694 "src/cryptokit.ml" 330 10676 10697
type(
  string
)
"src/cryptokit.ml" 333 10724 10734 "src/cryptokit.ml" 333 10724 10736
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 334 10760 10766 "src/cryptokit.ml" 336 10835 10873
)
"src/cryptokit.ml" 333 10724 10739 "src/cryptokit.ml" 333 10724 10752
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 333 10724 10753 "src/cryptokit.ml" 333 10724 10756
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 330 10676 10694 "src/cryptokit.ml" 330 10676 10697
)
"src/cryptokit.ml" 333 10724 10739 "src/cryptokit.ml" 333 10724 10756
type(
  int
)
"src/cryptokit.ml" 334 10760 10769 "src/cryptokit.ml" 334 10760 10771
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 333 10724 10734 "src/cryptokit.ml" 333 10724 10736
)
"src/cryptokit.ml" 334 10760 10772 "src/cryptokit.ml" 334 10760 10773
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 334 10760 10774 "src/cryptokit.ml" 334 10760 10776
type(
  int
)
"src/cryptokit.ml" 334 10760 10769 "src/cryptokit.ml" 334 10760 10776
type(
  bool
)
"src/cryptokit.ml" 334 10760 10777 "src/cryptokit.ml" 334 10760 10779
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 334 10760 10780 "src/cryptokit.ml" 334 10760 10782
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 333 10724 10734 "src/cryptokit.ml" 333 10724 10736
)
"src/cryptokit.ml" 334 10760 10783 "src/cryptokit.ml" 334 10760 10784
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 334 10760 10785 "src/cryptokit.ml" 334 10760 10787
type(
  int
)
"src/cryptokit.ml" 334 10760 10780 "src/cryptokit.ml" 334 10760 10787
type(
  bool
)
"src/cryptokit.ml" 334 10760 10788 "src/cryptokit.ml" 334 10760 10790
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 334 10760 10791 "src/cryptokit.ml" 334 10760 10793
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 333 10724 10734 "src/cryptokit.ml" 333 10724 10736
)
"src/cryptokit.ml" 334 10760 10794 "src/cryptokit.ml" 334 10760 10795
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 334 10760 10796 "src/cryptokit.ml" 334 10760 10798
type(
  int
)
"src/cryptokit.ml" 334 10760 10791 "src/cryptokit.ml" 334 10760 10798
type(
  bool
)
"src/cryptokit.ml" 334 10760 10780 "src/cryptokit.ml" 334 10760 10798
type(
  bool
)
"src/cryptokit.ml" 334 10760 10769 "src/cryptokit.ml" 334 10760 10798
type(
  bool
)
"src/cryptokit.ml" 335 10799 10810 "src/cryptokit.ml" 335 10799 10830
type(
  string -> bytes
)
ident(
  int_ref aes_cook_encrypt_key "src/cryptokit.ml" 45 1686 1686 "src/cryptokit.ml" 45 1686 1763
)
"src/cryptokit.ml" 335 10799 10831 "src/cryptokit.ml" 335 10799 10834
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 330 10676 10694 "src/cryptokit.ml" 330 10676 10697
)
"src/cryptokit.ml" 335 10799 10810 "src/cryptokit.ml" 335 10799 10834
type(
  bytes
)
"src/cryptokit.ml" 336 10835 10846 "src/cryptokit.ml" 336 10835 10851
type(
  exn -> bytes
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 336 10835 10858 "src/cryptokit.ml" 336 10835 10872
type(
  error
)
"src/cryptokit.ml" 336 10835 10851 "src/cryptokit.ml" 336 10835 10873
type(
  exn
)
"src/cryptokit.ml" 336 10835 10846 "src/cryptokit.ml" 336 10835 10873
type(
  bytes
)
"src/cryptokit.ml" 334 10760 10766 "src/cryptokit.ml" 336 10835 10873
type(
  bytes
)
"src/cryptokit.ml" 333 10724 10730 "src/cryptokit.ml" 336 10835 10873
type(
  bytes
)
"src/cryptokit.ml" 337 10874 10897 "src/cryptokit.ml" 337 10874 10899
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 338 10900 10921 "src/cryptokit.ml" 338 10900 10924
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 338 10900 10925 "src/cryptokit.ml" 342 11099 11145
)
"src/cryptokit.ml" 338 10900 10925 "src/cryptokit.ml" 338 10900 10932
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 338 10900 10933 "src/cryptokit.ml" 342 11099 11145
)
"src/cryptokit.ml" 338 10900 10933 "src/cryptokit.ml" 338 10900 10936
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 338 10900 10937 "src/cryptokit.ml" 342 11099 11145
)
"src/cryptokit.ml" 338 10900 10937 "src/cryptokit.ml" 338 10900 10944
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 339 10947 10953 "src/cryptokit.ml" 342 11099 11145
)
"src/cryptokit.ml" 339 10947 10956 "src/cryptokit.ml" 339 10947 10963
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 338 10900 10925 "src/cryptokit.ml" 338 10900 10932
)
"src/cryptokit.ml" 339 10947 10964 "src/cryptokit.ml" 339 10947 10965
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 339 10947 10966 "src/cryptokit.ml" 339 10947 10967
type(
  int
)
"src/cryptokit.ml" 339 10947 10956 "src/cryptokit.ml" 339 10947 10967
type(
  bool
)
"src/cryptokit.ml" 339 10947 10968 "src/cryptokit.ml" 339 10947 10970
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 339 10947 10971 "src/cryptokit.ml" 339 10947 10978
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 338 10900 10925 "src/cryptokit.ml" 338 10900 10932
)
"src/cryptokit.ml" 339 10947 10979 "src/cryptokit.ml" 339 10947 10980
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 339 10947 10981 "src/cryptokit.ml" 339 10947 10993
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 339 10947 10994 "src/cryptokit.ml" 339 10947 10997
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 338 10900 10921 "src/cryptokit.ml" 338 10900 10924
)
"src/cryptokit.ml" 339 10947 10981 "src/cryptokit.ml" 339 10947 10997
type(
  int
)
"src/cryptokit.ml" 339 10947 10998 "src/cryptokit.ml" 339 10947 10999
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 339 10947 11000 "src/cryptokit.ml" 339 10947 11002
type(
  int
)
"src/cryptokit.ml" 339 10947 10981 "src/cryptokit.ml" 339 10947 11002
type(
  int
)
"src/cryptokit.ml" 339 10947 10971 "src/cryptokit.ml" 339 10947 11002
type(
  bool
)
"src/cryptokit.ml" 340 11003 11009 "src/cryptokit.ml" 340 11003 11011
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 340 11003 11012 "src/cryptokit.ml" 340 11003 11019
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 338 10900 10937 "src/cryptokit.ml" 338 10900 10944
)
"src/cryptokit.ml" 340 11003 11020 "src/cryptokit.ml" 340 11003 11021
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 340 11003 11022 "src/cryptokit.ml" 340 11003 11023
type(
  int
)
"src/cryptokit.ml" 340 11003 11012 "src/cryptokit.ml" 340 11003 11023
type(
  bool
)
"src/cryptokit.ml" 340 11003 11024 "src/cryptokit.ml" 340 11003 11026
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 340 11003 11027 "src/cryptokit.ml" 340 11003 11034
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 338 10900 10937 "src/cryptokit.ml" 338 10900 10944
)
"src/cryptokit.ml" 340 11003 11035 "src/cryptokit.ml" 340 11003 11036
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 340 11003 11037 "src/cryptokit.ml" 340 11003 11049
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 340 11003 11050 "src/cryptokit.ml" 340 11003 11053
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 338 10900 10933 "src/cryptokit.ml" 338 10900 10936
)
"src/cryptokit.ml" 340 11003 11037 "src/cryptokit.ml" 340 11003 11053
type(
  int
)
"src/cryptokit.ml" 340 11003 11054 "src/cryptokit.ml" 340 11003 11055
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 340 11003 11056 "src/cryptokit.ml" 340 11003 11058
type(
  int
)
"src/cryptokit.ml" 340 11003 11037 "src/cryptokit.ml" 340 11003 11058
type(
  int
)
"src/cryptokit.ml" 340 11003 11027 "src/cryptokit.ml" 340 11003 11058
type(
  bool
)
"src/cryptokit.ml" 340 11003 11012 "src/cryptokit.ml" 340 11003 11058
type(
  bool
)
"src/cryptokit.ml" 339 10947 10971 "src/cryptokit.ml" 340 11003 11058
type(
  bool
)
"src/cryptokit.ml" 339 10947 10956 "src/cryptokit.ml" 340 11003 11058
type(
  bool
)
"src/cryptokit.ml" 341 11059 11070 "src/cryptokit.ml" 341 11059 11081
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 341 11059 11082 "src/cryptokit.ml" 341 11059 11097
type(
  string
)
"src/cryptokit.ml" 341 11059 11070 "src/cryptokit.ml" 341 11059 11097
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 339 10947 10953 "src/cryptokit.ml" 341 11059 11097
type(
  unit
)
"src/cryptokit.ml" 342 11099 11105 "src/cryptokit.ml" 342 11099 11116
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref aes_encrypt "src/cryptokit.ml" 47 1842 1842 "src/cryptokit.ml" 47 1842 1931
)
"src/cryptokit.ml" 342 11099 11117 "src/cryptokit.ml" 342 11099 11121
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 342 11099 11122 "src/cryptokit.ml" 342 11099 11125
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 338 10900 10921 "src/cryptokit.ml" 338 10900 10924
)
"src/cryptokit.ml" 342 11099 11126 "src/cryptokit.ml" 342 11099 11133
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 338 10900 10925 "src/cryptokit.ml" 338 10900 10932
)
"src/cryptokit.ml" 342 11099 11134 "src/cryptokit.ml" 342 11099 11137
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 338 10900 10933 "src/cryptokit.ml" 338 10900 10936
)
"src/cryptokit.ml" 342 11099 11138 "src/cryptokit.ml" 342 11099 11145
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 338 10900 10937 "src/cryptokit.ml" 338 10900 10944
)
"src/cryptokit.ml" 342 11099 11105 "src/cryptokit.ml" 342 11099 11145
type(
  unit
)
"src/cryptokit.ml" 339 10947 10953 "src/cryptokit.ml" 342 11099 11145
type(
  unit
)
"src/cryptokit.ml" 344 11164 11170 "src/cryptokit.ml" 344 11164 11180
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 344 11164 11181 "src/cryptokit.ml" 344 11164 11185
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 344 11164 11170 "src/cryptokit.ml" 344 11164 11185
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 345 11187 11193 "src/cryptokit.ml" 345 11187 11202
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 345 11187 11203 "src/cryptokit.ml" 345 11187 11207
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 345 11187 11209 "src/cryptokit.ml" 345 11187 11221
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 345 11187 11222 "src/cryptokit.ml" 345 11187 11226
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 345 11187 11209 "src/cryptokit.ml" 345 11187 11226
type(
  int
)
"src/cryptokit.ml" 345 11187 11227 "src/cryptokit.ml" 345 11187 11228
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 345 11187 11229 "src/cryptokit.ml" 345 11187 11230
type(
  int
)
"src/cryptokit.ml" 345 11187 11208 "src/cryptokit.ml" 345 11187 11231
type(
  int
)
"src/cryptokit.ml" 345 11187 11232 "src/cryptokit.ml" 345 11187 11238
type(
  char
)
"src/cryptokit.ml" 345 11187 11193 "src/cryptokit.ml" 345 11187 11238
type(
  unit
)
"src/cryptokit.ml" 344 11164 11170 "src/cryptokit.ml" 345 11187 11238
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 348 11246 11264 "src/cryptokit.ml" 348 11246 11267
type(
  string
)
"src/cryptokit.ml" 351 11294 11304 "src/cryptokit.ml" 351 11294 11306
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 352 11330 11336 "src/cryptokit.ml" 354 11405 11443
)
"src/cryptokit.ml" 351 11294 11309 "src/cryptokit.ml" 351 11294 11322
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 351 11294 11323 "src/cryptokit.ml" 351 11294 11326
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 348 11246 11264 "src/cryptokit.ml" 348 11246 11267
)
"src/cryptokit.ml" 351 11294 11309 "src/cryptokit.ml" 351 11294 11326
type(
  int
)
"src/cryptokit.ml" 352 11330 11339 "src/cryptokit.ml" 352 11330 11341
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 351 11294 11304 "src/cryptokit.ml" 351 11294 11306
)
"src/cryptokit.ml" 352 11330 11342 "src/cryptokit.ml" 352 11330 11343
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 352 11330 11344 "src/cryptokit.ml" 352 11330 11346
type(
  int
)
"src/cryptokit.ml" 352 11330 11339 "src/cryptokit.ml" 352 11330 11346
type(
  bool
)
"src/cryptokit.ml" 352 11330 11347 "src/cryptokit.ml" 352 11330 11349
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 352 11330 11350 "src/cryptokit.ml" 352 11330 11352
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 351 11294 11304 "src/cryptokit.ml" 351 11294 11306
)
"src/cryptokit.ml" 352 11330 11353 "src/cryptokit.ml" 352 11330 11354
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 352 11330 11355 "src/cryptokit.ml" 352 11330 11357
type(
  int
)
"src/cryptokit.ml" 352 11330 11350 "src/cryptokit.ml" 352 11330 11357
type(
  bool
)
"src/cryptokit.ml" 352 11330 11358 "src/cryptokit.ml" 352 11330 11360
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 352 11330 11361 "src/cryptokit.ml" 352 11330 11363
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 351 11294 11304 "src/cryptokit.ml" 351 11294 11306
)
"src/cryptokit.ml" 352 11330 11364 "src/cryptokit.ml" 352 11330 11365
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 352 11330 11366 "src/cryptokit.ml" 352 11330 11368
type(
  int
)
"src/cryptokit.ml" 352 11330 11361 "src/cryptokit.ml" 352 11330 11368
type(
  bool
)
"src/cryptokit.ml" 352 11330 11350 "src/cryptokit.ml" 352 11330 11368
type(
  bool
)
"src/cryptokit.ml" 352 11330 11339 "src/cryptokit.ml" 352 11330 11368
type(
  bool
)
"src/cryptokit.ml" 353 11369 11380 "src/cryptokit.ml" 353 11369 11400
type(
  string -> bytes
)
ident(
  int_ref aes_cook_decrypt_key "src/cryptokit.ml" 46 1764 1764 "src/cryptokit.ml" 46 1764 1841
)
"src/cryptokit.ml" 353 11369 11401 "src/cryptokit.ml" 353 11369 11404
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 348 11246 11264 "src/cryptokit.ml" 348 11246 11267
)
"src/cryptokit.ml" 353 11369 11380 "src/cryptokit.ml" 353 11369 11404
type(
  bytes
)
"src/cryptokit.ml" 354 11405 11416 "src/cryptokit.ml" 354 11405 11421
type(
  exn -> bytes
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 354 11405 11428 "src/cryptokit.ml" 354 11405 11442
type(
  error
)
"src/cryptokit.ml" 354 11405 11421 "src/cryptokit.ml" 354 11405 11443
type(
  exn
)
"src/cryptokit.ml" 354 11405 11416 "src/cryptokit.ml" 354 11405 11443
type(
  bytes
)
"src/cryptokit.ml" 352 11330 11336 "src/cryptokit.ml" 354 11405 11443
type(
  bytes
)
"src/cryptokit.ml" 351 11294 11300 "src/cryptokit.ml" 354 11405 11443
type(
  bytes
)
"src/cryptokit.ml" 355 11444 11467 "src/cryptokit.ml" 355 11444 11469
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 356 11470 11491 "src/cryptokit.ml" 356 11470 11494
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 356 11470 11495 "src/cryptokit.ml" 360 11669 11715
)
"src/cryptokit.ml" 356 11470 11495 "src/cryptokit.ml" 356 11470 11502
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 356 11470 11503 "src/cryptokit.ml" 360 11669 11715
)
"src/cryptokit.ml" 356 11470 11503 "src/cryptokit.ml" 356 11470 11506
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 356 11470 11507 "src/cryptokit.ml" 360 11669 11715
)
"src/cryptokit.ml" 356 11470 11507 "src/cryptokit.ml" 356 11470 11514
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 357 11517 11523 "src/cryptokit.ml" 360 11669 11715
)
"src/cryptokit.ml" 357 11517 11526 "src/cryptokit.ml" 357 11517 11533
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 356 11470 11495 "src/cryptokit.ml" 356 11470 11502
)
"src/cryptokit.ml" 357 11517 11534 "src/cryptokit.ml" 357 11517 11535
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 357 11517 11536 "src/cryptokit.ml" 357 11517 11537
type(
  int
)
"src/cryptokit.ml" 357 11517 11526 "src/cryptokit.ml" 357 11517 11537
type(
  bool
)
"src/cryptokit.ml" 357 11517 11538 "src/cryptokit.ml" 357 11517 11540
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 357 11517 11541 "src/cryptokit.ml" 357 11517 11548
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 356 11470 11495 "src/cryptokit.ml" 356 11470 11502
)
"src/cryptokit.ml" 357 11517 11549 "src/cryptokit.ml" 357 11517 11550
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 357 11517 11551 "src/cryptokit.ml" 357 11517 11563
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 357 11517 11564 "src/cryptokit.ml" 357 11517 11567
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 356 11470 11491 "src/cryptokit.ml" 356 11470 11494
)
"src/cryptokit.ml" 357 11517 11551 "src/cryptokit.ml" 357 11517 11567
type(
  int
)
"src/cryptokit.ml" 357 11517 11568 "src/cryptokit.ml" 357 11517 11569
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 357 11517 11570 "src/cryptokit.ml" 357 11517 11572
type(
  int
)
"src/cryptokit.ml" 357 11517 11551 "src/cryptokit.ml" 357 11517 11572
type(
  int
)
"src/cryptokit.ml" 357 11517 11541 "src/cryptokit.ml" 357 11517 11572
type(
  bool
)
"src/cryptokit.ml" 358 11573 11579 "src/cryptokit.ml" 358 11573 11581
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 358 11573 11582 "src/cryptokit.ml" 358 11573 11589
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 356 11470 11507 "src/cryptokit.ml" 356 11470 11514
)
"src/cryptokit.ml" 358 11573 11590 "src/cryptokit.ml" 358 11573 11591
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 358 11573 11592 "src/cryptokit.ml" 358 11573 11593
type(
  int
)
"src/cryptokit.ml" 358 11573 11582 "src/cryptokit.ml" 358 11573 11593
type(
  bool
)
"src/cryptokit.ml" 358 11573 11594 "src/cryptokit.ml" 358 11573 11596
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 358 11573 11597 "src/cryptokit.ml" 358 11573 11604
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 356 11470 11507 "src/cryptokit.ml" 356 11470 11514
)
"src/cryptokit.ml" 358 11573 11605 "src/cryptokit.ml" 358 11573 11606
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 358 11573 11607 "src/cryptokit.ml" 358 11573 11619
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 358 11573 11620 "src/cryptokit.ml" 358 11573 11623
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 356 11470 11503 "src/cryptokit.ml" 356 11470 11506
)
"src/cryptokit.ml" 358 11573 11607 "src/cryptokit.ml" 358 11573 11623
type(
  int
)
"src/cryptokit.ml" 358 11573 11624 "src/cryptokit.ml" 358 11573 11625
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 358 11573 11626 "src/cryptokit.ml" 358 11573 11628
type(
  int
)
"src/cryptokit.ml" 358 11573 11607 "src/cryptokit.ml" 358 11573 11628
type(
  int
)
"src/cryptokit.ml" 358 11573 11597 "src/cryptokit.ml" 358 11573 11628
type(
  bool
)
"src/cryptokit.ml" 358 11573 11582 "src/cryptokit.ml" 358 11573 11628
type(
  bool
)
"src/cryptokit.ml" 357 11517 11541 "src/cryptokit.ml" 358 11573 11628
type(
  bool
)
"src/cryptokit.ml" 357 11517 11526 "src/cryptokit.ml" 358 11573 11628
type(
  bool
)
"src/cryptokit.ml" 359 11629 11640 "src/cryptokit.ml" 359 11629 11651
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 359 11629 11652 "src/cryptokit.ml" 359 11629 11667
type(
  string
)
"src/cryptokit.ml" 359 11629 11640 "src/cryptokit.ml" 359 11629 11667
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 357 11517 11523 "src/cryptokit.ml" 359 11629 11667
type(
  unit
)
"src/cryptokit.ml" 360 11669 11675 "src/cryptokit.ml" 360 11669 11686
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref aes_decrypt "src/cryptokit.ml" 48 1932 1932 "src/cryptokit.ml" 48 1932 2021
)
"src/cryptokit.ml" 360 11669 11687 "src/cryptokit.ml" 360 11669 11691
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 360 11669 11692 "src/cryptokit.ml" 360 11669 11695
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 356 11470 11491 "src/cryptokit.ml" 356 11470 11494
)
"src/cryptokit.ml" 360 11669 11696 "src/cryptokit.ml" 360 11669 11703
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 356 11470 11495 "src/cryptokit.ml" 356 11470 11502
)
"src/cryptokit.ml" 360 11669 11704 "src/cryptokit.ml" 360 11669 11707
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 356 11470 11503 "src/cryptokit.ml" 356 11470 11506
)
"src/cryptokit.ml" 360 11669 11708 "src/cryptokit.ml" 360 11669 11715
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 356 11470 11507 "src/cryptokit.ml" 356 11470 11514
)
"src/cryptokit.ml" 360 11669 11675 "src/cryptokit.ml" 360 11669 11715
type(
  unit
)
"src/cryptokit.ml" 357 11517 11523 "src/cryptokit.ml" 360 11669 11715
type(
  unit
)
"src/cryptokit.ml" 362 11734 11740 "src/cryptokit.ml" 362 11734 11750
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 362 11734 11751 "src/cryptokit.ml" 362 11734 11755
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 362 11734 11740 "src/cryptokit.ml" 362 11734 11755
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 363 11757 11763 "src/cryptokit.ml" 363 11757 11772
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 363 11757 11773 "src/cryptokit.ml" 363 11757 11777
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 363 11757 11779 "src/cryptokit.ml" 363 11757 11791
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 363 11757 11792 "src/cryptokit.ml" 363 11757 11796
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 363 11757 11779 "src/cryptokit.ml" 363 11757 11796
type(
  int
)
"src/cryptokit.ml" 363 11757 11797 "src/cryptokit.ml" 363 11757 11798
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 363 11757 11799 "src/cryptokit.ml" 363 11757 11800
type(
  int
)
"src/cryptokit.ml" 363 11757 11778 "src/cryptokit.ml" 363 11757 11801
type(
  int
)
"src/cryptokit.ml" 363 11757 11802 "src/cryptokit.ml" 363 11757 11808
type(
  char
)
"src/cryptokit.ml" 363 11757 11763 "src/cryptokit.ml" 363 11757 11808
type(
  unit
)
"src/cryptokit.ml" 362 11734 11740 "src/cryptokit.ml" 363 11757 11808
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 366 11816 11839 "src/cryptokit.ml" 366 11816 11842
type(
  string
)
"src/cryptokit.ml" 369 11869 11879 "src/cryptokit.ml" 369 11869 11881
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 370 11905 11911 "src/cryptokit.ml" 372 11967 12005
)
"src/cryptokit.ml" 369 11869 11884 "src/cryptokit.ml" 369 11869 11897
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 369 11869 11898 "src/cryptokit.ml" 369 11869 11901
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 366 11816 11839 "src/cryptokit.ml" 366 11816 11842
)
"src/cryptokit.ml" 369 11869 11884 "src/cryptokit.ml" 369 11869 11901
type(
  int
)
"src/cryptokit.ml" 370 11905 11914 "src/cryptokit.ml" 370 11905 11916
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 369 11869 11879 "src/cryptokit.ml" 369 11869 11881
)
"src/cryptokit.ml" 370 11905 11917 "src/cryptokit.ml" 370 11905 11919
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 370 11905 11920 "src/cryptokit.ml" 370 11905 11921
type(
  int
)
"src/cryptokit.ml" 370 11905 11914 "src/cryptokit.ml" 370 11905 11921
type(
  bool
)
"src/cryptokit.ml" 370 11905 11922 "src/cryptokit.ml" 370 11905 11924
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 370 11905 11925 "src/cryptokit.ml" 370 11905 11927
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 369 11869 11879 "src/cryptokit.ml" 369 11869 11881
)
"src/cryptokit.ml" 370 11905 11928 "src/cryptokit.ml" 370 11905 11930
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 370 11905 11931 "src/cryptokit.ml" 370 11905 11933
type(
  int
)
"src/cryptokit.ml" 370 11905 11925 "src/cryptokit.ml" 370 11905 11933
type(
  bool
)
"src/cryptokit.ml" 370 11905 11914 "src/cryptokit.ml" 370 11905 11933
type(
  bool
)
"src/cryptokit.ml" 371 11934 11945 "src/cryptokit.ml" 371 11934 11962
type(
  string -> bytes
)
ident(
  int_ref blowfish_cook_key "src/cryptokit.ml" 49 2022 2022 "src/cryptokit.ml" 49 2022 2093
)
"src/cryptokit.ml" 371 11934 11963 "src/cryptokit.ml" 371 11934 11966
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 366 11816 11839 "src/cryptokit.ml" 366 11816 11842
)
"src/cryptokit.ml" 371 11934 11945 "src/cryptokit.ml" 371 11934 11966
type(
  bytes
)
"src/cryptokit.ml" 372 11967 11978 "src/cryptokit.ml" 372 11967 11983
type(
  exn -> bytes
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 372 11967 11990 "src/cryptokit.ml" 372 11967 12004
type(
  error
)
"src/cryptokit.ml" 372 11967 11983 "src/cryptokit.ml" 372 11967 12005
type(
  exn
)
"src/cryptokit.ml" 372 11967 11978 "src/cryptokit.ml" 372 11967 12005
type(
  bytes
)
"src/cryptokit.ml" 370 11905 11911 "src/cryptokit.ml" 372 11967 12005
type(
  bytes
)
"src/cryptokit.ml" 369 11869 11875 "src/cryptokit.ml" 372 11967 12005
type(
  bytes
)
"src/cryptokit.ml" 373 12006 12029 "src/cryptokit.ml" 373 12006 12030
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 374 12031 12052 "src/cryptokit.ml" 374 12031 12055
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 374 12031 12056 "src/cryptokit.ml" 378 12233 12284
)
"src/cryptokit.ml" 374 12031 12056 "src/cryptokit.ml" 374 12031 12063
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 374 12031 12064 "src/cryptokit.ml" 378 12233 12284
)
"src/cryptokit.ml" 374 12031 12064 "src/cryptokit.ml" 374 12031 12067
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 374 12031 12068 "src/cryptokit.ml" 378 12233 12284
)
"src/cryptokit.ml" 374 12031 12068 "src/cryptokit.ml" 374 12031 12075
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 375 12078 12084 "src/cryptokit.ml" 378 12233 12284
)
"src/cryptokit.ml" 375 12078 12087 "src/cryptokit.ml" 375 12078 12094
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 374 12031 12056 "src/cryptokit.ml" 374 12031 12063
)
"src/cryptokit.ml" 375 12078 12095 "src/cryptokit.ml" 375 12078 12096
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 375 12078 12097 "src/cryptokit.ml" 375 12078 12098
type(
  int
)
"src/cryptokit.ml" 375 12078 12087 "src/cryptokit.ml" 375 12078 12098
type(
  bool
)
"src/cryptokit.ml" 375 12078 12099 "src/cryptokit.ml" 375 12078 12101
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 375 12078 12102 "src/cryptokit.ml" 375 12078 12109
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 374 12031 12056 "src/cryptokit.ml" 374 12031 12063
)
"src/cryptokit.ml" 375 12078 12110 "src/cryptokit.ml" 375 12078 12111
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 375 12078 12112 "src/cryptokit.ml" 375 12078 12124
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 375 12078 12125 "src/cryptokit.ml" 375 12078 12128
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 374 12031 12052 "src/cryptokit.ml" 374 12031 12055
)
"src/cryptokit.ml" 375 12078 12112 "src/cryptokit.ml" 375 12078 12128
type(
  int
)
"src/cryptokit.ml" 375 12078 12129 "src/cryptokit.ml" 375 12078 12130
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 375 12078 12131 "src/cryptokit.ml" 375 12078 12132
type(
  int
)
"src/cryptokit.ml" 375 12078 12112 "src/cryptokit.ml" 375 12078 12132
type(
  int
)
"src/cryptokit.ml" 375 12078 12102 "src/cryptokit.ml" 375 12078 12132
type(
  bool
)
"src/cryptokit.ml" 376 12133 12139 "src/cryptokit.ml" 376 12133 12141
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 376 12133 12142 "src/cryptokit.ml" 376 12133 12149
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 374 12031 12068 "src/cryptokit.ml" 374 12031 12075
)
"src/cryptokit.ml" 376 12133 12150 "src/cryptokit.ml" 376 12133 12151
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 376 12133 12152 "src/cryptokit.ml" 376 12133 12153
type(
  int
)
"src/cryptokit.ml" 376 12133 12142 "src/cryptokit.ml" 376 12133 12153
type(
  bool
)
"src/cryptokit.ml" 376 12133 12154 "src/cryptokit.ml" 376 12133 12156
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 376 12133 12157 "src/cryptokit.ml" 376 12133 12164
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 374 12031 12068 "src/cryptokit.ml" 374 12031 12075
)
"src/cryptokit.ml" 376 12133 12165 "src/cryptokit.ml" 376 12133 12166
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 376 12133 12167 "src/cryptokit.ml" 376 12133 12179
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 376 12133 12180 "src/cryptokit.ml" 376 12133 12183
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 374 12031 12064 "src/cryptokit.ml" 374 12031 12067
)
"src/cryptokit.ml" 376 12133 12167 "src/cryptokit.ml" 376 12133 12183
type(
  int
)
"src/cryptokit.ml" 376 12133 12184 "src/cryptokit.ml" 376 12133 12185
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 376 12133 12186 "src/cryptokit.ml" 376 12133 12187
type(
  int
)
"src/cryptokit.ml" 376 12133 12167 "src/cryptokit.ml" 376 12133 12187
type(
  int
)
"src/cryptokit.ml" 376 12133 12157 "src/cryptokit.ml" 376 12133 12187
type(
  bool
)
"src/cryptokit.ml" 376 12133 12142 "src/cryptokit.ml" 376 12133 12187
type(
  bool
)
"src/cryptokit.ml" 375 12078 12102 "src/cryptokit.ml" 376 12133 12187
type(
  bool
)
"src/cryptokit.ml" 375 12078 12087 "src/cryptokit.ml" 376 12133 12187
type(
  bool
)
"src/cryptokit.ml" 377 12188 12199 "src/cryptokit.ml" 377 12188 12210
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 377 12188 12211 "src/cryptokit.ml" 377 12188 12231
type(
  string
)
"src/cryptokit.ml" 377 12188 12199 "src/cryptokit.ml" 377 12188 12231
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 375 12078 12084 "src/cryptokit.ml" 377 12188 12231
type(
  unit
)
"src/cryptokit.ml" 378 12233 12239 "src/cryptokit.ml" 378 12233 12255
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref blowfish_encrypt "src/cryptokit.ml" 50 2094 2094 "src/cryptokit.ml" 50 2094 2193
)
"src/cryptokit.ml" 378 12233 12256 "src/cryptokit.ml" 378 12233 12260
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 378 12233 12261 "src/cryptokit.ml" 378 12233 12264
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 374 12031 12052 "src/cryptokit.ml" 374 12031 12055
)
"src/cryptokit.ml" 378 12233 12265 "src/cryptokit.ml" 378 12233 12272
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 374 12031 12056 "src/cryptokit.ml" 374 12031 12063
)
"src/cryptokit.ml" 378 12233 12273 "src/cryptokit.ml" 378 12233 12276
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 374 12031 12064 "src/cryptokit.ml" 374 12031 12067
)
"src/cryptokit.ml" 378 12233 12277 "src/cryptokit.ml" 378 12233 12284
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 374 12031 12068 "src/cryptokit.ml" 374 12031 12075
)
"src/cryptokit.ml" 378 12233 12239 "src/cryptokit.ml" 378 12233 12284
type(
  unit
)
"src/cryptokit.ml" 375 12078 12084 "src/cryptokit.ml" 378 12233 12284
type(
  unit
)
"src/cryptokit.ml" 380 12303 12309 "src/cryptokit.ml" 380 12303 12319
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 380 12303 12320 "src/cryptokit.ml" 380 12303 12324
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 380 12303 12309 "src/cryptokit.ml" 380 12303 12324
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 383 12332 12355 "src/cryptokit.ml" 383 12332 12358
type(
  string
)
"src/cryptokit.ml" 386 12385 12395 "src/cryptokit.ml" 386 12385 12397
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 387 12421 12427 "src/cryptokit.ml" 389 12483 12521
)
"src/cryptokit.ml" 386 12385 12400 "src/cryptokit.ml" 386 12385 12413
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 386 12385 12414 "src/cryptokit.ml" 386 12385 12417
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 383 12332 12355 "src/cryptokit.ml" 383 12332 12358
)
"src/cryptokit.ml" 386 12385 12400 "src/cryptokit.ml" 386 12385 12417
type(
  int
)
"src/cryptokit.ml" 387 12421 12430 "src/cryptokit.ml" 387 12421 12432
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 386 12385 12395 "src/cryptokit.ml" 386 12385 12397
)
"src/cryptokit.ml" 387 12421 12433 "src/cryptokit.ml" 387 12421 12435
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 387 12421 12436 "src/cryptokit.ml" 387 12421 12437
type(
  int
)
"src/cryptokit.ml" 387 12421 12430 "src/cryptokit.ml" 387 12421 12437
type(
  bool
)
"src/cryptokit.ml" 387 12421 12438 "src/cryptokit.ml" 387 12421 12440
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 387 12421 12441 "src/cryptokit.ml" 387 12421 12443
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 386 12385 12395 "src/cryptokit.ml" 386 12385 12397
)
"src/cryptokit.ml" 387 12421 12444 "src/cryptokit.ml" 387 12421 12446
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 387 12421 12447 "src/cryptokit.ml" 387 12421 12449
type(
  int
)
"src/cryptokit.ml" 387 12421 12441 "src/cryptokit.ml" 387 12421 12449
type(
  bool
)
"src/cryptokit.ml" 387 12421 12430 "src/cryptokit.ml" 387 12421 12449
type(
  bool
)
"src/cryptokit.ml" 388 12450 12461 "src/cryptokit.ml" 388 12450 12478
type(
  string -> bytes
)
ident(
  int_ref blowfish_cook_key "src/cryptokit.ml" 49 2022 2022 "src/cryptokit.ml" 49 2022 2093
)
"src/cryptokit.ml" 388 12450 12479 "src/cryptokit.ml" 388 12450 12482
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 383 12332 12355 "src/cryptokit.ml" 383 12332 12358
)
"src/cryptokit.ml" 388 12450 12461 "src/cryptokit.ml" 388 12450 12482
type(
  bytes
)
"src/cryptokit.ml" 389 12483 12494 "src/cryptokit.ml" 389 12483 12499
type(
  exn -> bytes
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 389 12483 12506 "src/cryptokit.ml" 389 12483 12520
type(
  error
)
"src/cryptokit.ml" 389 12483 12499 "src/cryptokit.ml" 389 12483 12521
type(
  exn
)
"src/cryptokit.ml" 389 12483 12494 "src/cryptokit.ml" 389 12483 12521
type(
  bytes
)
"src/cryptokit.ml" 387 12421 12427 "src/cryptokit.ml" 389 12483 12521
type(
  bytes
)
"src/cryptokit.ml" 386 12385 12391 "src/cryptokit.ml" 389 12483 12521
type(
  bytes
)
"src/cryptokit.ml" 390 12522 12545 "src/cryptokit.ml" 390 12522 12546
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 391 12547 12568 "src/cryptokit.ml" 391 12547 12571
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 391 12547 12572 "src/cryptokit.ml" 395 12749 12800
)
"src/cryptokit.ml" 391 12547 12572 "src/cryptokit.ml" 391 12547 12579
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 391 12547 12580 "src/cryptokit.ml" 395 12749 12800
)
"src/cryptokit.ml" 391 12547 12580 "src/cryptokit.ml" 391 12547 12583
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 391 12547 12584 "src/cryptokit.ml" 395 12749 12800
)
"src/cryptokit.ml" 391 12547 12584 "src/cryptokit.ml" 391 12547 12591
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 392 12594 12600 "src/cryptokit.ml" 395 12749 12800
)
"src/cryptokit.ml" 392 12594 12603 "src/cryptokit.ml" 392 12594 12610
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 391 12547 12572 "src/cryptokit.ml" 391 12547 12579
)
"src/cryptokit.ml" 392 12594 12611 "src/cryptokit.ml" 392 12594 12612
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 392 12594 12613 "src/cryptokit.ml" 392 12594 12614
type(
  int
)
"src/cryptokit.ml" 392 12594 12603 "src/cryptokit.ml" 392 12594 12614
type(
  bool
)
"src/cryptokit.ml" 392 12594 12615 "src/cryptokit.ml" 392 12594 12617
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 392 12594 12618 "src/cryptokit.ml" 392 12594 12625
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 391 12547 12572 "src/cryptokit.ml" 391 12547 12579
)
"src/cryptokit.ml" 392 12594 12626 "src/cryptokit.ml" 392 12594 12627
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 392 12594 12628 "src/cryptokit.ml" 392 12594 12640
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 392 12594 12641 "src/cryptokit.ml" 392 12594 12644
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 391 12547 12568 "src/cryptokit.ml" 391 12547 12571
)
"src/cryptokit.ml" 392 12594 12628 "src/cryptokit.ml" 392 12594 12644
type(
  int
)
"src/cryptokit.ml" 392 12594 12645 "src/cryptokit.ml" 392 12594 12646
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 392 12594 12647 "src/cryptokit.ml" 392 12594 12648
type(
  int
)
"src/cryptokit.ml" 392 12594 12628 "src/cryptokit.ml" 392 12594 12648
type(
  int
)
"src/cryptokit.ml" 392 12594 12618 "src/cryptokit.ml" 392 12594 12648
type(
  bool
)
"src/cryptokit.ml" 393 12649 12655 "src/cryptokit.ml" 393 12649 12657
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 393 12649 12658 "src/cryptokit.ml" 393 12649 12665
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 391 12547 12584 "src/cryptokit.ml" 391 12547 12591
)
"src/cryptokit.ml" 393 12649 12666 "src/cryptokit.ml" 393 12649 12667
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 393 12649 12668 "src/cryptokit.ml" 393 12649 12669
type(
  int
)
"src/cryptokit.ml" 393 12649 12658 "src/cryptokit.ml" 393 12649 12669
type(
  bool
)
"src/cryptokit.ml" 393 12649 12670 "src/cryptokit.ml" 393 12649 12672
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 393 12649 12673 "src/cryptokit.ml" 393 12649 12680
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 391 12547 12584 "src/cryptokit.ml" 391 12547 12591
)
"src/cryptokit.ml" 393 12649 12681 "src/cryptokit.ml" 393 12649 12682
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 393 12649 12683 "src/cryptokit.ml" 393 12649 12695
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 393 12649 12696 "src/cryptokit.ml" 393 12649 12699
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 391 12547 12580 "src/cryptokit.ml" 391 12547 12583
)
"src/cryptokit.ml" 393 12649 12683 "src/cryptokit.ml" 393 12649 12699
type(
  int
)
"src/cryptokit.ml" 393 12649 12700 "src/cryptokit.ml" 393 12649 12701
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 393 12649 12702 "src/cryptokit.ml" 393 12649 12703
type(
  int
)
"src/cryptokit.ml" 393 12649 12683 "src/cryptokit.ml" 393 12649 12703
type(
  int
)
"src/cryptokit.ml" 393 12649 12673 "src/cryptokit.ml" 393 12649 12703
type(
  bool
)
"src/cryptokit.ml" 393 12649 12658 "src/cryptokit.ml" 393 12649 12703
type(
  bool
)
"src/cryptokit.ml" 392 12594 12618 "src/cryptokit.ml" 393 12649 12703
type(
  bool
)
"src/cryptokit.ml" 392 12594 12603 "src/cryptokit.ml" 393 12649 12703
type(
  bool
)
"src/cryptokit.ml" 394 12704 12715 "src/cryptokit.ml" 394 12704 12726
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 394 12704 12727 "src/cryptokit.ml" 394 12704 12747
type(
  string
)
"src/cryptokit.ml" 394 12704 12715 "src/cryptokit.ml" 394 12704 12747
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 392 12594 12600 "src/cryptokit.ml" 394 12704 12747
type(
  unit
)
"src/cryptokit.ml" 395 12749 12755 "src/cryptokit.ml" 395 12749 12771
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref blowfish_decrypt "src/cryptokit.ml" 51 2194 2194 "src/cryptokit.ml" 51 2194 2293
)
"src/cryptokit.ml" 395 12749 12772 "src/cryptokit.ml" 395 12749 12776
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 395 12749 12777 "src/cryptokit.ml" 395 12749 12780
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 391 12547 12568 "src/cryptokit.ml" 391 12547 12571
)
"src/cryptokit.ml" 395 12749 12781 "src/cryptokit.ml" 395 12749 12788
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 391 12547 12572 "src/cryptokit.ml" 391 12547 12579
)
"src/cryptokit.ml" 395 12749 12789 "src/cryptokit.ml" 395 12749 12792
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 391 12547 12580 "src/cryptokit.ml" 391 12547 12583
)
"src/cryptokit.ml" 395 12749 12793 "src/cryptokit.ml" 395 12749 12800
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 391 12547 12584 "src/cryptokit.ml" 391 12547 12591
)
"src/cryptokit.ml" 395 12749 12755 "src/cryptokit.ml" 395 12749 12800
type(
  unit
)
"src/cryptokit.ml" 392 12594 12600 "src/cryptokit.ml" 395 12749 12800
type(
  unit
)
"src/cryptokit.ml" 397 12819 12825 "src/cryptokit.ml" 397 12819 12835
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 397 12819 12836 "src/cryptokit.ml" 397 12819 12840
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 397 12819 12825 "src/cryptokit.ml" 397 12819 12840
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 400 12848 12858 "src/cryptokit.ml" 400 12848 12867
type(
  dir
)
"src/cryptokit.ml" 400 12848 12868 "src/cryptokit.ml" 400 12848 12871
type(
  string
)
"src/cryptokit.ml" 403 12898 12907 "src/cryptokit.ml" 403 12898 12920
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 403 12898 12921 "src/cryptokit.ml" 403 12898 12924
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 400 12848 12868 "src/cryptokit.ml" 400 12848 12871
)
"src/cryptokit.ml" 403 12898 12907 "src/cryptokit.ml" 403 12898 12924
type(
  int
)
"src/cryptokit.ml" 403 12898 12925 "src/cryptokit.ml" 403 12898 12926
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 403 12898 12927 "src/cryptokit.ml" 403 12898 12928
type(
  int
)
"src/cryptokit.ml" 403 12898 12907 "src/cryptokit.ml" 403 12898 12928
type(
  bool
)
"src/cryptokit.ml" 404 12929 12940 "src/cryptokit.ml" 404 12929 12952
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 404 12929 12953 "src/cryptokit.ml" 404 12929 12956
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 400 12848 12868 "src/cryptokit.ml" 400 12848 12871
)
"src/cryptokit.ml" 404 12929 12957 "src/cryptokit.ml" 404 12929 12958
type(
  int
)
"src/cryptokit.ml" 404 12929 12959 "src/cryptokit.ml" 404 12929 12968
type(
  dir
)
ident(
  int_ref direction "src/cryptokit.ml" 400 12848 12858 "src/cryptokit.ml" 400 12848 12867
)
"src/cryptokit.ml" 404 12929 12940 "src/cryptokit.ml" 404 12929 12968
type(
  bytes
)
"src/cryptokit.ml" 405 12969 12980 "src/cryptokit.ml" 405 12969 12985
type(
  exn -> bytes
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 405 12969 12992 "src/cryptokit.ml" 405 12969 13006
type(
  error
)
"src/cryptokit.ml" 405 12969 12985 "src/cryptokit.ml" 405 12969 13007
type(
  exn
)
"src/cryptokit.ml" 405 12969 12980 "src/cryptokit.ml" 405 12969 13007
type(
  bytes
)
"src/cryptokit.ml" 403 12898 12904 "src/cryptokit.ml" 405 12969 13007
type(
  bytes
)
"src/cryptokit.ml" 406 13008 13031 "src/cryptokit.ml" 406 13008 13032
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 407 13033 13054 "src/cryptokit.ml" 407 13033 13057
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 407 13033 13058 "src/cryptokit.ml" 411 13230 13278
)
"src/cryptokit.ml" 407 13033 13058 "src/cryptokit.ml" 407 13033 13065
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 407 13033 13066 "src/cryptokit.ml" 411 13230 13278
)
"src/cryptokit.ml" 407 13033 13066 "src/cryptokit.ml" 407 13033 13069
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 407 13033 13070 "src/cryptokit.ml" 411 13230 13278
)
"src/cryptokit.ml" 407 13033 13070 "src/cryptokit.ml" 407 13033 13077
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 408 13080 13086 "src/cryptokit.ml" 411 13230 13278
)
"src/cryptokit.ml" 408 13080 13089 "src/cryptokit.ml" 408 13080 13096
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 407 13033 13058 "src/cryptokit.ml" 407 13033 13065
)
"src/cryptokit.ml" 408 13080 13097 "src/cryptokit.ml" 408 13080 13098
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 408 13080 13099 "src/cryptokit.ml" 408 13080 13100
type(
  int
)
"src/cryptokit.ml" 408 13080 13089 "src/cryptokit.ml" 408 13080 13100
type(
  bool
)
"src/cryptokit.ml" 408 13080 13101 "src/cryptokit.ml" 408 13080 13103
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 408 13080 13104 "src/cryptokit.ml" 408 13080 13111
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 407 13033 13058 "src/cryptokit.ml" 407 13033 13065
)
"src/cryptokit.ml" 408 13080 13112 "src/cryptokit.ml" 408 13080 13113
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 408 13080 13114 "src/cryptokit.ml" 408 13080 13126
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 408 13080 13127 "src/cryptokit.ml" 408 13080 13130
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 407 13033 13054 "src/cryptokit.ml" 407 13033 13057
)
"src/cryptokit.ml" 408 13080 13114 "src/cryptokit.ml" 408 13080 13130
type(
  int
)
"src/cryptokit.ml" 408 13080 13131 "src/cryptokit.ml" 408 13080 13132
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 408 13080 13133 "src/cryptokit.ml" 408 13080 13134
type(
  int
)
"src/cryptokit.ml" 408 13080 13114 "src/cryptokit.ml" 408 13080 13134
type(
  int
)
"src/cryptokit.ml" 408 13080 13104 "src/cryptokit.ml" 408 13080 13134
type(
  bool
)
"src/cryptokit.ml" 409 13135 13141 "src/cryptokit.ml" 409 13135 13143
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 409 13135 13144 "src/cryptokit.ml" 409 13135 13151
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 407 13033 13070 "src/cryptokit.ml" 407 13033 13077
)
"src/cryptokit.ml" 409 13135 13152 "src/cryptokit.ml" 409 13135 13153
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 409 13135 13154 "src/cryptokit.ml" 409 13135 13155
type(
  int
)
"src/cryptokit.ml" 409 13135 13144 "src/cryptokit.ml" 409 13135 13155
type(
  bool
)
"src/cryptokit.ml" 409 13135 13156 "src/cryptokit.ml" 409 13135 13158
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 409 13135 13159 "src/cryptokit.ml" 409 13135 13166
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 407 13033 13070 "src/cryptokit.ml" 407 13033 13077
)
"src/cryptokit.ml" 409 13135 13167 "src/cryptokit.ml" 409 13135 13168
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 409 13135 13169 "src/cryptokit.ml" 409 13135 13181
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 409 13135 13182 "src/cryptokit.ml" 409 13135 13185
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 407 13033 13066 "src/cryptokit.ml" 407 13033 13069
)
"src/cryptokit.ml" 409 13135 13169 "src/cryptokit.ml" 409 13135 13185
type(
  int
)
"src/cryptokit.ml" 409 13135 13186 "src/cryptokit.ml" 409 13135 13187
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 409 13135 13188 "src/cryptokit.ml" 409 13135 13189
type(
  int
)
"src/cryptokit.ml" 409 13135 13169 "src/cryptokit.ml" 409 13135 13189
type(
  int
)
"src/cryptokit.ml" 409 13135 13159 "src/cryptokit.ml" 409 13135 13189
type(
  bool
)
"src/cryptokit.ml" 409 13135 13144 "src/cryptokit.ml" 409 13135 13189
type(
  bool
)
"src/cryptokit.ml" 408 13080 13104 "src/cryptokit.ml" 409 13135 13189
type(
  bool
)
"src/cryptokit.ml" 408 13080 13089 "src/cryptokit.ml" 409 13135 13189
type(
  bool
)
"src/cryptokit.ml" 410 13190 13201 "src/cryptokit.ml" 410 13190 13212
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 410 13190 13213 "src/cryptokit.ml" 410 13190 13228
type(
  string
)
"src/cryptokit.ml" 410 13190 13201 "src/cryptokit.ml" 410 13190 13228
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 408 13080 13086 "src/cryptokit.ml" 410 13190 13228
type(
  unit
)
"src/cryptokit.ml" 411 13230 13236 "src/cryptokit.ml" 411 13230 13249
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 411 13230 13250 "src/cryptokit.ml" 411 13230 13254
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 411 13230 13255 "src/cryptokit.ml" 411 13230 13258
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 407 13033 13054 "src/cryptokit.ml" 407 13033 13057
)
"src/cryptokit.ml" 411 13230 13259 "src/cryptokit.ml" 411 13230 13266
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 407 13033 13058 "src/cryptokit.ml" 407 13033 13065
)
"src/cryptokit.ml" 411 13230 13267 "src/cryptokit.ml" 411 13230 13270
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 407 13033 13066 "src/cryptokit.ml" 407 13033 13069
)
"src/cryptokit.ml" 411 13230 13271 "src/cryptokit.ml" 411 13230 13278
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 407 13033 13070 "src/cryptokit.ml" 407 13033 13077
)
"src/cryptokit.ml" 411 13230 13236 "src/cryptokit.ml" 411 13230 13278
type(
  unit
)
"src/cryptokit.ml" 408 13080 13086 "src/cryptokit.ml" 411 13230 13278
type(
  unit
)
"src/cryptokit.ml" 413 13297 13303 "src/cryptokit.ml" 413 13297 13313
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 413 13297 13314 "src/cryptokit.ml" 413 13297 13318
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 413 13297 13303 "src/cryptokit.ml" 413 13297 13318
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 416 13326 13350 "src/cryptokit.ml" 416 13326 13357
type(
  dir
)
"src/cryptokit.ml" 417 13358 13382 "src/cryptokit.ml" 417 13358 13389
type(
  dir
)
"src/cryptokit.ml" 419 13391 13416 "src/cryptokit.ml" 419 13391 13419
type(
  string
)
"src/cryptokit.ml" 420 13422 13428 "src/cryptokit.ml" 420 13422 13429
type(
  unit
)
"src/cryptokit.ml" 421 13432 13440 "src/cryptokit.ml" 421 13432 13442
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 422 13466 13470 "src/cryptokit.ml" 422 13466 13527
)
"src/cryptokit.ml" 421 13432 13445 "src/cryptokit.ml" 421 13432 13458
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 421 13432 13459 "src/cryptokit.ml" 421 13432 13462
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 419 13391 13416 "src/cryptokit.ml" 419 13391 13419
)
"src/cryptokit.ml" 421 13432 13445 "src/cryptokit.ml" 421 13432 13462
type(
  int
)
"src/cryptokit.ml" 422 13466 13473 "src/cryptokit.ml" 422 13466 13475
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 421 13432 13440 "src/cryptokit.ml" 421 13432 13442
)
"src/cryptokit.ml" 422 13466 13476 "src/cryptokit.ml" 422 13466 13478
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 422 13466 13479 "src/cryptokit.ml" 422 13466 13481
type(
  int
)
"src/cryptokit.ml" 422 13466 13473 "src/cryptokit.ml" 422 13466 13481
type(
  bool
)
"src/cryptokit.ml" 422 13466 13482 "src/cryptokit.ml" 422 13466 13484
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 422 13466 13485 "src/cryptokit.ml" 422 13466 13487
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 421 13432 13440 "src/cryptokit.ml" 421 13432 13442
)
"src/cryptokit.ml" 422 13466 13488 "src/cryptokit.ml" 422 13466 13490
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 422 13466 13491 "src/cryptokit.ml" 422 13466 13493
type(
  int
)
"src/cryptokit.ml" 422 13466 13485 "src/cryptokit.ml" 422 13466 13493
type(
  bool
)
"src/cryptokit.ml" 422 13466 13473 "src/cryptokit.ml" 422 13466 13493
type(
  bool
)
"src/cryptokit.ml" 422 13466 13499 "src/cryptokit.ml" 422 13466 13504
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 422 13466 13512 "src/cryptokit.ml" 422 13466 13526
type(
  error
)
"src/cryptokit.ml" 422 13466 13505 "src/cryptokit.ml" 422 13466 13527
type(
  exn
)
"src/cryptokit.ml" 422 13466 13499 "src/cryptokit.ml" 422 13466 13527
type(
  unit
)
"src/cryptokit.ml" 422 13466 13470 "src/cryptokit.ml" 422 13466 13527
type(
  unit
)
"src/cryptokit.ml" 421 13432 13436 "src/cryptokit.ml" 422 13466 13527
type(
  unit
)
"src/cryptokit.ml" 423 13531 13537 "src/cryptokit.ml" 423 13531 13542
type(
  bytes
)
"src/cryptokit.ml" 424 13545 13549 "src/cryptokit.ml" 424 13545 13561
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 424 13545 13562 "src/cryptokit.ml" 424 13545 13565
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 419 13391 13416 "src/cryptokit.ml" 419 13391 13419
)
"src/cryptokit.ml" 424 13545 13566 "src/cryptokit.ml" 424 13545 13567
type(
  int
)
"src/cryptokit.ml" 424 13545 13568 "src/cryptokit.ml" 424 13545 13575
type(
  dir
)
"src/cryptokit.ml" 424 13545 13549 "src/cryptokit.ml" 424 13545 13575
type(
  bytes
)
"src/cryptokit.ml" 425 13579 13585 "src/cryptokit.ml" 425 13579 13590
type(
  bytes
)
"src/cryptokit.ml" 426 13593 13597 "src/cryptokit.ml" 426 13593 13609
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 426 13593 13610 "src/cryptokit.ml" 426 13593 13613
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 419 13391 13416 "src/cryptokit.ml" 419 13391 13419
)
"src/cryptokit.ml" 426 13593 13614 "src/cryptokit.ml" 426 13593 13615
type(
  int
)
"src/cryptokit.ml" 426 13593 13616 "src/cryptokit.ml" 426 13593 13623
type(
  dir
)
"src/cryptokit.ml" 426 13593 13597 "src/cryptokit.ml" 426 13593 13623
type(
  bytes
)
"src/cryptokit.ml" 427 13627 13633 "src/cryptokit.ml" 427 13627 13638
type(
  bytes
)
"src/cryptokit.ml" 428 13641 13648 "src/cryptokit.ml" 428 13641 13661
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 428 13641 13662 "src/cryptokit.ml" 428 13641 13665
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 419 13391 13416 "src/cryptokit.ml" 419 13391 13419
)
"src/cryptokit.ml" 428 13641 13648 "src/cryptokit.ml" 428 13641 13665
type(
  int
)
"src/cryptokit.ml" 428 13641 13666 "src/cryptokit.ml" 428 13641 13667
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 428 13641 13668 "src/cryptokit.ml" 428 13641 13670
type(
  int
)
"src/cryptokit.ml" 428 13641 13648 "src/cryptokit.ml" 428 13641 13670
type(
  bool
)
"src/cryptokit.ml" 429 13671 13680 "src/cryptokit.ml" 429 13671 13692
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 429 13671 13693 "src/cryptokit.ml" 429 13671 13696
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 419 13391 13416 "src/cryptokit.ml" 419 13391 13419
)
"src/cryptokit.ml" 429 13671 13697 "src/cryptokit.ml" 429 13671 13699
type(
  int
)
"src/cryptokit.ml" 429 13671 13700 "src/cryptokit.ml" 429 13671 13707
type(
  dir
)
"src/cryptokit.ml" 429 13671 13680 "src/cryptokit.ml" 429 13671 13707
type(
  bytes
)
"src/cryptokit.ml" 430 13708 13717 "src/cryptokit.ml" 430 13708 13722
type(
  bytes
)
ident(
  int_ref ckey1 "src/cryptokit.ml" 423 13531 13537 "src/cryptokit.ml" 423 13531 13542
)
"src/cryptokit.ml" 428 13641 13645 "src/cryptokit.ml" 430 13708 13722
type(
  bytes
)
"src/cryptokit.ml" 432 13735 13758 "src/cryptokit.ml" 432 13735 13759
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 433 13760 13781 "src/cryptokit.ml" 433 13760 13784
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 433 13760 13785 "src/cryptokit.ml" 439 14066 14115
)
"src/cryptokit.ml" 433 13760 13785 "src/cryptokit.ml" 433 13760 13792
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 439 14066 14115
)
"src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 439 14066 14115
)
"src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 434 13807 13813 "src/cryptokit.ml" 439 14066 14115
)
"src/cryptokit.ml" 434 13807 13816 "src/cryptokit.ml" 434 13807 13823
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 433 13760 13785 "src/cryptokit.ml" 433 13760 13792
)
"src/cryptokit.ml" 434 13807 13824 "src/cryptokit.ml" 434 13807 13825
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 434 13807 13826 "src/cryptokit.ml" 434 13807 13827
type(
  int
)
"src/cryptokit.ml" 434 13807 13816 "src/cryptokit.ml" 434 13807 13827
type(
  bool
)
"src/cryptokit.ml" 434 13807 13828 "src/cryptokit.ml" 434 13807 13830
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 434 13807 13831 "src/cryptokit.ml" 434 13807 13838
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 433 13760 13785 "src/cryptokit.ml" 433 13760 13792
)
"src/cryptokit.ml" 434 13807 13839 "src/cryptokit.ml" 434 13807 13840
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 434 13807 13841 "src/cryptokit.ml" 434 13807 13853
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 434 13807 13854 "src/cryptokit.ml" 434 13807 13857
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 433 13760 13781 "src/cryptokit.ml" 433 13760 13784
)
"src/cryptokit.ml" 434 13807 13841 "src/cryptokit.ml" 434 13807 13857
type(
  int
)
"src/cryptokit.ml" 434 13807 13858 "src/cryptokit.ml" 434 13807 13859
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 434 13807 13860 "src/cryptokit.ml" 434 13807 13861
type(
  int
)
"src/cryptokit.ml" 434 13807 13841 "src/cryptokit.ml" 434 13807 13861
type(
  int
)
"src/cryptokit.ml" 434 13807 13831 "src/cryptokit.ml" 434 13807 13861
type(
  bool
)
"src/cryptokit.ml" 435 13862 13868 "src/cryptokit.ml" 435 13862 13870
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 435 13862 13871 "src/cryptokit.ml" 435 13862 13878
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 435 13862 13879 "src/cryptokit.ml" 435 13862 13880
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 435 13862 13881 "src/cryptokit.ml" 435 13862 13882
type(
  int
)
"src/cryptokit.ml" 435 13862 13871 "src/cryptokit.ml" 435 13862 13882
type(
  bool
)
"src/cryptokit.ml" 435 13862 13883 "src/cryptokit.ml" 435 13862 13885
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 435 13862 13886 "src/cryptokit.ml" 435 13862 13893
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 435 13862 13894 "src/cryptokit.ml" 435 13862 13895
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 435 13862 13896 "src/cryptokit.ml" 435 13862 13908
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 435 13862 13909 "src/cryptokit.ml" 435 13862 13912
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
)
"src/cryptokit.ml" 435 13862 13896 "src/cryptokit.ml" 435 13862 13912
type(
  int
)
"src/cryptokit.ml" 435 13862 13913 "src/cryptokit.ml" 435 13862 13914
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 435 13862 13915 "src/cryptokit.ml" 435 13862 13916
type(
  int
)
"src/cryptokit.ml" 435 13862 13896 "src/cryptokit.ml" 435 13862 13916
type(
  int
)
"src/cryptokit.ml" 435 13862 13886 "src/cryptokit.ml" 435 13862 13916
type(
  bool
)
"src/cryptokit.ml" 435 13862 13871 "src/cryptokit.ml" 435 13862 13916
type(
  bool
)
"src/cryptokit.ml" 434 13807 13831 "src/cryptokit.ml" 435 13862 13916
type(
  bool
)
"src/cryptokit.ml" 434 13807 13816 "src/cryptokit.ml" 435 13862 13916
type(
  bool
)
"src/cryptokit.ml" 436 13917 13928 "src/cryptokit.ml" 436 13917 13939
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 436 13917 13940 "src/cryptokit.ml" 436 13917 13962
type(
  string
)
"src/cryptokit.ml" 436 13917 13928 "src/cryptokit.ml" 436 13917 13962
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 434 13807 13813 "src/cryptokit.ml" 436 13917 13962
type(
  unit
)
"src/cryptokit.ml" 437 13964 13970 "src/cryptokit.ml" 437 13964 13983
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 437 13964 13984 "src/cryptokit.ml" 437 13964 13989
type(
  bytes
)
ident(
  int_ref ckey1 "src/cryptokit.ml" 423 13531 13537 "src/cryptokit.ml" 423 13531 13542
)
"src/cryptokit.ml" 437 13964 13990 "src/cryptokit.ml" 437 13964 13993
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 433 13760 13781 "src/cryptokit.ml" 433 13760 13784
)
"src/cryptokit.ml" 437 13964 13994 "src/cryptokit.ml" 437 13964 14001
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 433 13760 13785 "src/cryptokit.ml" 433 13760 13792
)
"src/cryptokit.ml" 437 13964 14002 "src/cryptokit.ml" 437 13964 14005
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
)
"src/cryptokit.ml" 437 13964 14006 "src/cryptokit.ml" 437 13964 14013
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 437 13964 13970 "src/cryptokit.ml" 437 13964 14013
type(
  unit
)
"src/cryptokit.ml" 438 14015 14021 "src/cryptokit.ml" 438 14015 14034
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 438 14015 14035 "src/cryptokit.ml" 438 14015 14040
type(
  bytes
)
ident(
  int_ref ckey2 "src/cryptokit.ml" 425 13579 13585 "src/cryptokit.ml" 425 13579 13590
)
"src/cryptokit.ml" 438 14015 14041 "src/cryptokit.ml" 438 14015 14044
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
)
"src/cryptokit.ml" 438 14015 14045 "src/cryptokit.ml" 438 14015 14052
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 438 14015 14053 "src/cryptokit.ml" 438 14015 14056
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
)
"src/cryptokit.ml" 438 14015 14057 "src/cryptokit.ml" 438 14015 14064
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 438 14015 14021 "src/cryptokit.ml" 438 14015 14064
type(
  unit
)
"src/cryptokit.ml" 439 14066 14072 "src/cryptokit.ml" 439 14066 14085
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 439 14066 14086 "src/cryptokit.ml" 439 14066 14091
type(
  bytes
)
ident(
  int_ref ckey3 "src/cryptokit.ml" 427 13627 13633 "src/cryptokit.ml" 427 13627 13638
)
"src/cryptokit.ml" 439 14066 14092 "src/cryptokit.ml" 439 14066 14095
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
)
"src/cryptokit.ml" 439 14066 14096 "src/cryptokit.ml" 439 14066 14103
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 439 14066 14104 "src/cryptokit.ml" 439 14066 14107
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 433 13760 13793 "src/cryptokit.ml" 433 13760 13796
)
"src/cryptokit.ml" 439 14066 14108 "src/cryptokit.ml" 439 14066 14115
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 433 13760 13797 "src/cryptokit.ml" 433 13760 13804
)
"src/cryptokit.ml" 439 14066 14072 "src/cryptokit.ml" 439 14066 14115
type(
  unit
)
"src/cryptokit.ml" 438 14015 14021 "src/cryptokit.ml" 439 14066 14115
type(
  unit
)
"src/cryptokit.ml" 437 13964 13970 "src/cryptokit.ml" 439 14066 14115
type(
  unit
)
"src/cryptokit.ml" 434 13807 13813 "src/cryptokit.ml" 439 14066 14115
type(
  unit
)
"src/cryptokit.ml" 441 14134 14140 "src/cryptokit.ml" 441 14134 14150
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 441 14134 14151 "src/cryptokit.ml" 441 14134 14156
type(
  bytes
)
ident(
  int_ref ckey1 "src/cryptokit.ml" 423 13531 13537 "src/cryptokit.ml" 423 13531 13542
)
"src/cryptokit.ml" 441 14134 14140 "src/cryptokit.ml" 441 14134 14156
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 442 14158 14164 "src/cryptokit.ml" 442 14158 14174
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 442 14158 14175 "src/cryptokit.ml" 442 14158 14180
type(
  bytes
)
ident(
  int_ref ckey2 "src/cryptokit.ml" 425 13579 13585 "src/cryptokit.ml" 425 13579 13590
)
"src/cryptokit.ml" 442 14158 14164 "src/cryptokit.ml" 442 14158 14180
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 443 14182 14188 "src/cryptokit.ml" 443 14182 14198
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 443 14182 14199 "src/cryptokit.ml" 443 14182 14204
type(
  bytes
)
ident(
  int_ref ckey3 "src/cryptokit.ml" 427 13627 13633 "src/cryptokit.ml" 427 13627 13638
)
"src/cryptokit.ml" 443 14182 14188 "src/cryptokit.ml" 443 14182 14204
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 442 14158 14164 "src/cryptokit.ml" 443 14182 14204
type(
  unit
)
"src/cryptokit.ml" 441 14134 14140 "src/cryptokit.ml" 443 14182 14204
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 446 14212 14237 "src/cryptokit.ml" 446 14212 14240
type(
  string
)
"src/cryptokit.ml" 447 14243 14249 "src/cryptokit.ml" 447 14243 14250
type(
  unit
)
"src/cryptokit.ml" 448 14253 14261 "src/cryptokit.ml" 448 14253 14263
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 449 14287 14291 "src/cryptokit.ml" 449 14287 14348
)
"src/cryptokit.ml" 448 14253 14266 "src/cryptokit.ml" 448 14253 14279
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 448 14253 14280 "src/cryptokit.ml" 448 14253 14283
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 446 14212 14237 "src/cryptokit.ml" 446 14212 14240
)
"src/cryptokit.ml" 448 14253 14266 "src/cryptokit.ml" 448 14253 14283
type(
  int
)
"src/cryptokit.ml" 449 14287 14294 "src/cryptokit.ml" 449 14287 14296
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 448 14253 14261 "src/cryptokit.ml" 448 14253 14263
)
"src/cryptokit.ml" 449 14287 14297 "src/cryptokit.ml" 449 14287 14299
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 449 14287 14300 "src/cryptokit.ml" 449 14287 14302
type(
  int
)
"src/cryptokit.ml" 449 14287 14294 "src/cryptokit.ml" 449 14287 14302
type(
  bool
)
"src/cryptokit.ml" 449 14287 14303 "src/cryptokit.ml" 449 14287 14305
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 449 14287 14306 "src/cryptokit.ml" 449 14287 14308
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 448 14253 14261 "src/cryptokit.ml" 448 14253 14263
)
"src/cryptokit.ml" 449 14287 14309 "src/cryptokit.ml" 449 14287 14311
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 449 14287 14312 "src/cryptokit.ml" 449 14287 14314
type(
  int
)
"src/cryptokit.ml" 449 14287 14306 "src/cryptokit.ml" 449 14287 14314
type(
  bool
)
"src/cryptokit.ml" 449 14287 14294 "src/cryptokit.ml" 449 14287 14314
type(
  bool
)
"src/cryptokit.ml" 449 14287 14320 "src/cryptokit.ml" 449 14287 14325
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 449 14287 14333 "src/cryptokit.ml" 449 14287 14347
type(
  error
)
"src/cryptokit.ml" 449 14287 14326 "src/cryptokit.ml" 449 14287 14348
type(
  exn
)
"src/cryptokit.ml" 449 14287 14320 "src/cryptokit.ml" 449 14287 14348
type(
  unit
)
"src/cryptokit.ml" 449 14287 14291 "src/cryptokit.ml" 449 14287 14348
type(
  unit
)
"src/cryptokit.ml" 448 14253 14257 "src/cryptokit.ml" 449 14287 14348
type(
  unit
)
"src/cryptokit.ml" 450 14352 14358 "src/cryptokit.ml" 450 14352 14363
type(
  bytes
)
"src/cryptokit.ml" 451 14366 14370 "src/cryptokit.ml" 451 14366 14382
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 451 14366 14383 "src/cryptokit.ml" 451 14366 14386
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 446 14212 14237 "src/cryptokit.ml" 446 14212 14240
)
"src/cryptokit.ml" 451 14366 14387 "src/cryptokit.ml" 451 14366 14388
type(
  int
)
"src/cryptokit.ml" 451 14366 14389 "src/cryptokit.ml" 451 14366 14396
type(
  dir
)
"src/cryptokit.ml" 451 14366 14370 "src/cryptokit.ml" 451 14366 14396
type(
  bytes
)
"src/cryptokit.ml" 452 14400 14406 "src/cryptokit.ml" 452 14400 14411
type(
  bytes
)
"src/cryptokit.ml" 453 14414 14418 "src/cryptokit.ml" 453 14414 14430
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 453 14414 14431 "src/cryptokit.ml" 453 14414 14434
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 446 14212 14237 "src/cryptokit.ml" 446 14212 14240
)
"src/cryptokit.ml" 453 14414 14435 "src/cryptokit.ml" 453 14414 14436
type(
  int
)
"src/cryptokit.ml" 453 14414 14437 "src/cryptokit.ml" 453 14414 14444
type(
  dir
)
"src/cryptokit.ml" 453 14414 14418 "src/cryptokit.ml" 453 14414 14444
type(
  bytes
)
"src/cryptokit.ml" 454 14448 14454 "src/cryptokit.ml" 454 14448 14459
type(
  bytes
)
"src/cryptokit.ml" 455 14462 14469 "src/cryptokit.ml" 455 14462 14482
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 455 14462 14483 "src/cryptokit.ml" 455 14462 14486
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 446 14212 14237 "src/cryptokit.ml" 446 14212 14240
)
"src/cryptokit.ml" 455 14462 14469 "src/cryptokit.ml" 455 14462 14486
type(
  int
)
"src/cryptokit.ml" 455 14462 14487 "src/cryptokit.ml" 455 14462 14488
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 455 14462 14489 "src/cryptokit.ml" 455 14462 14491
type(
  int
)
"src/cryptokit.ml" 455 14462 14469 "src/cryptokit.ml" 455 14462 14491
type(
  bool
)
"src/cryptokit.ml" 456 14492 14501 "src/cryptokit.ml" 456 14492 14513
type(
  string -> int -> dir -> bytes
)
ident(
  int_ref des_cook_key "src/cryptokit.ml" 52 2294 2294 "src/cryptokit.ml" 52 2294 2369
)
"src/cryptokit.ml" 456 14492 14514 "src/cryptokit.ml" 456 14492 14517
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 446 14212 14237 "src/cryptokit.ml" 446 14212 14240
)
"src/cryptokit.ml" 456 14492 14518 "src/cryptokit.ml" 456 14492 14520
type(
  int
)
"src/cryptokit.ml" 456 14492 14521 "src/cryptokit.ml" 456 14492 14528
type(
  dir
)
"src/cryptokit.ml" 456 14492 14501 "src/cryptokit.ml" 456 14492 14528
type(
  bytes
)
"src/cryptokit.ml" 457 14529 14538 "src/cryptokit.ml" 457 14529 14543
type(
  bytes
)
ident(
  int_ref ckey3 "src/cryptokit.ml" 450 14352 14358 "src/cryptokit.ml" 450 14352 14363
)
"src/cryptokit.ml" 455 14462 14466 "src/cryptokit.ml" 457 14529 14543
type(
  bytes
)
"src/cryptokit.ml" 459 14556 14579 "src/cryptokit.ml" 459 14556 14580
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 460 14581 14602 "src/cryptokit.ml" 460 14581 14605
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 460 14581 14606 "src/cryptokit.ml" 466 14887 14936
)
"src/cryptokit.ml" 460 14581 14606 "src/cryptokit.ml" 460 14581 14613
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 466 14887 14936
)
"src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 466 14887 14936
)
"src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 461 14628 14634 "src/cryptokit.ml" 466 14887 14936
)
"src/cryptokit.ml" 461 14628 14637 "src/cryptokit.ml" 461 14628 14644
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 460 14581 14606 "src/cryptokit.ml" 460 14581 14613
)
"src/cryptokit.ml" 461 14628 14645 "src/cryptokit.ml" 461 14628 14646
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 461 14628 14647 "src/cryptokit.ml" 461 14628 14648
type(
  int
)
"src/cryptokit.ml" 461 14628 14637 "src/cryptokit.ml" 461 14628 14648
type(
  bool
)
"src/cryptokit.ml" 461 14628 14649 "src/cryptokit.ml" 461 14628 14651
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 461 14628 14652 "src/cryptokit.ml" 461 14628 14659
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 460 14581 14606 "src/cryptokit.ml" 460 14581 14613
)
"src/cryptokit.ml" 461 14628 14660 "src/cryptokit.ml" 461 14628 14661
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 461 14628 14662 "src/cryptokit.ml" 461 14628 14674
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 461 14628 14675 "src/cryptokit.ml" 461 14628 14678
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 460 14581 14602 "src/cryptokit.ml" 460 14581 14605
)
"src/cryptokit.ml" 461 14628 14662 "src/cryptokit.ml" 461 14628 14678
type(
  int
)
"src/cryptokit.ml" 461 14628 14679 "src/cryptokit.ml" 461 14628 14680
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 461 14628 14681 "src/cryptokit.ml" 461 14628 14682
type(
  int
)
"src/cryptokit.ml" 461 14628 14662 "src/cryptokit.ml" 461 14628 14682
type(
  int
)
"src/cryptokit.ml" 461 14628 14652 "src/cryptokit.ml" 461 14628 14682
type(
  bool
)
"src/cryptokit.ml" 462 14683 14689 "src/cryptokit.ml" 462 14683 14691
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 462 14683 14692 "src/cryptokit.ml" 462 14683 14699
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 462 14683 14700 "src/cryptokit.ml" 462 14683 14701
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 462 14683 14702 "src/cryptokit.ml" 462 14683 14703
type(
  int
)
"src/cryptokit.ml" 462 14683 14692 "src/cryptokit.ml" 462 14683 14703
type(
  bool
)
"src/cryptokit.ml" 462 14683 14704 "src/cryptokit.ml" 462 14683 14706
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 462 14683 14707 "src/cryptokit.ml" 462 14683 14714
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 462 14683 14715 "src/cryptokit.ml" 462 14683 14716
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 462 14683 14717 "src/cryptokit.ml" 462 14683 14729
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 462 14683 14730 "src/cryptokit.ml" 462 14683 14733
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
)
"src/cryptokit.ml" 462 14683 14717 "src/cryptokit.ml" 462 14683 14733
type(
  int
)
"src/cryptokit.ml" 462 14683 14734 "src/cryptokit.ml" 462 14683 14735
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 462 14683 14736 "src/cryptokit.ml" 462 14683 14737
type(
  int
)
"src/cryptokit.ml" 462 14683 14717 "src/cryptokit.ml" 462 14683 14737
type(
  int
)
"src/cryptokit.ml" 462 14683 14707 "src/cryptokit.ml" 462 14683 14737
type(
  bool
)
"src/cryptokit.ml" 462 14683 14692 "src/cryptokit.ml" 462 14683 14737
type(
  bool
)
"src/cryptokit.ml" 461 14628 14652 "src/cryptokit.ml" 462 14683 14737
type(
  bool
)
"src/cryptokit.ml" 461 14628 14637 "src/cryptokit.ml" 462 14683 14737
type(
  bool
)
"src/cryptokit.ml" 463 14738 14749 "src/cryptokit.ml" 463 14738 14760
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 463 14738 14761 "src/cryptokit.ml" 463 14738 14783
type(
  string
)
"src/cryptokit.ml" 463 14738 14749 "src/cryptokit.ml" 463 14738 14783
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 461 14628 14634 "src/cryptokit.ml" 463 14738 14783
type(
  unit
)
"src/cryptokit.ml" 464 14785 14791 "src/cryptokit.ml" 464 14785 14804
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 464 14785 14805 "src/cryptokit.ml" 464 14785 14810
type(
  bytes
)
ident(
  int_ref ckey1 "src/cryptokit.ml" 454 14448 14454 "src/cryptokit.ml" 454 14448 14459
)
"src/cryptokit.ml" 464 14785 14811 "src/cryptokit.ml" 464 14785 14814
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 460 14581 14602 "src/cryptokit.ml" 460 14581 14605
)
"src/cryptokit.ml" 464 14785 14815 "src/cryptokit.ml" 464 14785 14822
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 460 14581 14606 "src/cryptokit.ml" 460 14581 14613
)
"src/cryptokit.ml" 464 14785 14823 "src/cryptokit.ml" 464 14785 14826
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
)
"src/cryptokit.ml" 464 14785 14827 "src/cryptokit.ml" 464 14785 14834
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 464 14785 14791 "src/cryptokit.ml" 464 14785 14834
type(
  unit
)
"src/cryptokit.ml" 465 14836 14842 "src/cryptokit.ml" 465 14836 14855
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 465 14836 14856 "src/cryptokit.ml" 465 14836 14861
type(
  bytes
)
ident(
  int_ref ckey2 "src/cryptokit.ml" 452 14400 14406 "src/cryptokit.ml" 452 14400 14411
)
"src/cryptokit.ml" 465 14836 14862 "src/cryptokit.ml" 465 14836 14865
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
)
"src/cryptokit.ml" 465 14836 14866 "src/cryptokit.ml" 465 14836 14873
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 465 14836 14874 "src/cryptokit.ml" 465 14836 14877
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
)
"src/cryptokit.ml" 465 14836 14878 "src/cryptokit.ml" 465 14836 14885
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 465 14836 14842 "src/cryptokit.ml" 465 14836 14885
type(
  unit
)
"src/cryptokit.ml" 466 14887 14893 "src/cryptokit.ml" 466 14887 14906
type(
  bytes -> bytes -> int -> bytes -> int -> unit
)
ident(
  int_ref des_transform "src/cryptokit.ml" 53 2370 2370 "src/cryptokit.ml" 53 2370 2463
)
"src/cryptokit.ml" 466 14887 14907 "src/cryptokit.ml" 466 14887 14912
type(
  bytes
)
ident(
  int_ref ckey3 "src/cryptokit.ml" 450 14352 14358 "src/cryptokit.ml" 450 14352 14363
)
"src/cryptokit.ml" 466 14887 14913 "src/cryptokit.ml" 466 14887 14916
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
)
"src/cryptokit.ml" 466 14887 14917 "src/cryptokit.ml" 466 14887 14924
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 466 14887 14925 "src/cryptokit.ml" 466 14887 14928
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 460 14581 14614 "src/cryptokit.ml" 460 14581 14617
)
"src/cryptokit.ml" 466 14887 14929 "src/cryptokit.ml" 466 14887 14936
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 460 14581 14618 "src/cryptokit.ml" 460 14581 14625
)
"src/cryptokit.ml" 466 14887 14893 "src/cryptokit.ml" 466 14887 14936
type(
  unit
)
"src/cryptokit.ml" 465 14836 14842 "src/cryptokit.ml" 466 14887 14936
type(
  unit
)
"src/cryptokit.ml" 464 14785 14791 "src/cryptokit.ml" 466 14887 14936
type(
  unit
)
"src/cryptokit.ml" 461 14628 14634 "src/cryptokit.ml" 466 14887 14936
type(
  unit
)
"src/cryptokit.ml" 468 14955 14961 "src/cryptokit.ml" 468 14955 14971
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 468 14955 14972 "src/cryptokit.ml" 468 14955 14977
type(
  bytes
)
ident(
  int_ref ckey1 "src/cryptokit.ml" 454 14448 14454 "src/cryptokit.ml" 454 14448 14459
)
"src/cryptokit.ml" 468 14955 14961 "src/cryptokit.ml" 468 14955 14977
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 469 14979 14985 "src/cryptokit.ml" 469 14979 14995
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 469 14979 14996 "src/cryptokit.ml" 469 14979 15001
type(
  bytes
)
ident(
  int_ref ckey2 "src/cryptokit.ml" 452 14400 14406 "src/cryptokit.ml" 452 14400 14411
)
"src/cryptokit.ml" 469 14979 14985 "src/cryptokit.ml" 469 14979 15001
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 470 15003 15009 "src/cryptokit.ml" 470 15003 15019
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 470 15003 15020 "src/cryptokit.ml" 470 15003 15025
type(
  bytes
)
ident(
  int_ref ckey3 "src/cryptokit.ml" 450 14352 14358 "src/cryptokit.ml" 450 14352 14363
)
"src/cryptokit.ml" 470 15003 15009 "src/cryptokit.ml" 470 15003 15025
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 469 14979 14985 "src/cryptokit.ml" 470 15003 15025
type(
  unit
)
"src/cryptokit.ml" 468 14955 14961 "src/cryptokit.ml" 470 15003 15025
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
type(
  int -> string option -> bytes
)
ident(
  def make_initial_iv "src/cryptokit.ml" 482 15253 15253 "src/cryptokit.ml" 787 24569 24572
)
"src/cryptokit.ml" 475 15055 15075 "src/cryptokit.ml" 475 15055 15084
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 475 15055 15087 "src/cryptokit.ml" 480 15228 15251
)
"src/cryptokit.ml" 476 15096 15100 "src/cryptokit.ml" 476 15096 15104
type(
  string option
)
"src/cryptokit.ml" 477 15108 15114 "src/cryptokit.ml" 477 15108 15124
type(
  int -> char -> bytes
)
ident(
  ext_ref Bytes.make
)
"src/cryptokit.ml" 477 15108 15125 "src/cryptokit.ml" 477 15108 15134
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 475 15055 15075 "src/cryptokit.ml" 475 15055 15084
)
"src/cryptokit.ml" 477 15108 15135 "src/cryptokit.ml" 477 15108 15141
type(
  char
)
"src/cryptokit.ml" 477 15108 15114 "src/cryptokit.ml" 477 15108 15141
call(
  tail
)
type(
  bytes
)
"src/cryptokit.ml" 478 15142 15151 "src/cryptokit.ml" 478 15142 15152
type(
  string
)
ident(
  def s "src/cryptokit.ml" 479 15156 15162 "src/cryptokit.ml" 480 15228 15251
)
"src/cryptokit.ml" 478 15142 15146 "src/cryptokit.ml" 478 15142 15152
type(
  string option
)
"src/cryptokit.ml" 479 15156 15165 "src/cryptokit.ml" 479 15156 15178
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 479 15156 15179 "src/cryptokit.ml" 479 15156 15180
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 478 15142 15151 "src/cryptokit.ml" 478 15142 15152
)
"src/cryptokit.ml" 479 15156 15165 "src/cryptokit.ml" 479 15156 15180
type(
  int
)
"src/cryptokit.ml" 479 15156 15181 "src/cryptokit.ml" 479 15156 15183
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 479 15156 15184 "src/cryptokit.ml" 479 15156 15193
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 475 15055 15075 "src/cryptokit.ml" 475 15055 15084
)
"src/cryptokit.ml" 479 15156 15165 "src/cryptokit.ml" 479 15156 15193
type(
  bool
)
"src/cryptokit.ml" 479 15156 15199 "src/cryptokit.ml" 479 15156 15204
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 479 15156 15212 "src/cryptokit.ml" 479 15156 15225
type(
  error
)
"src/cryptokit.ml" 479 15156 15205 "src/cryptokit.ml" 479 15156 15226
type(
  exn
)
"src/cryptokit.ml" 479 15156 15199 "src/cryptokit.ml" 479 15156 15226
type(
  unit
)
"src/cryptokit.ml" 479 15156 15162 "src/cryptokit.ml" 479 15156 15226
type(
  unit
)
"src/cryptokit.ml" 480 15228 15234 "src/cryptokit.ml" 480 15228 15249
type(
  string -> bytes
)
ident(
  ext_ref Bytes.of_string
)
"src/cryptokit.ml" 480 15228 15250 "src/cryptokit.ml" 480 15228 15251
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 478 15142 15151 "src/cryptokit.ml" 478 15142 15152
)
"src/cryptokit.ml" 480 15228 15234 "src/cryptokit.ml" 480 15228 15251
call(
  tail
)
type(
  bytes
)
"src/cryptokit.ml" 479 15156 15162 "src/cryptokit.ml" 480 15228 15251
type(
  bytes
)
"src/cryptokit.ml" 475 15055 15087 "src/cryptokit.ml" 480 15228 15251
type(
  string option -> bytes
)
"src/cryptokit.ml" 482 15253 15275 "src/cryptokit.ml" 482 15253 15282
type(
  string option
)
"src/cryptokit.ml" 482 15253 15284 "src/cryptokit.ml" 482 15253 15290
type(
  block_cipher
)
"src/cryptokit.ml" 483 15309 15315 "src/cryptokit.ml" 483 15309 15324
type(
  int
)
"src/cryptokit.ml" 483 15309 15327 "src/cryptokit.ml" 483 15309 15333
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 482 15253 15284 "src/cryptokit.ml" 482 15253 15290
)
"src/cryptokit.ml" 483 15309 15327 "src/cryptokit.ml" 483 15309 15343
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 484 15347 15355 "src/cryptokit.ml" 484 15347 15361
type(
  < blocksize : int; transform : bytes -> int -> bytes -> int -> unit;
    wipe : unit; .. >
)
"src/cryptokit.ml" 485 15362 15375 "src/cryptokit.ml" 485 15362 15390
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 485 15362 15391 "src/cryptokit.ml" 485 15362 15400
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 483 15309 15315 "src/cryptokit.ml" 483 15309 15324
)
"src/cryptokit.ml" 485 15362 15401 "src/cryptokit.ml" 485 15362 15408
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 482 15253 15275 "src/cryptokit.ml" 482 15253 15282
)
"src/cryptokit.ml" 485 15362 15375 "src/cryptokit.ml" 485 15362 15408
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 486 15409 15432 "src/cryptokit.ml" 486 15409 15441
type(
  int
)
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 483 15309 15315 "src/cryptokit.ml" 483 15309 15324
)
"src/cryptokit.ml" 487 15442 15463 "src/cryptokit.ml" 487 15442 15466
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 487 15442 15467 "src/cryptokit.ml" 490 15574 15617
)
"src/cryptokit.ml" 487 15442 15467 "src/cryptokit.ml" 487 15442 15474
type(
  int
)
ident(
  def src_off "src/cryptokit.ml" 487 15442 15475 "src/cryptokit.ml" 490 15574 15617
)
"src/cryptokit.ml" 487 15442 15475 "src/cryptokit.ml" 487 15442 15478
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 487 15442 15479 "src/cryptokit.ml" 490 15574 15617
)
"src/cryptokit.ml" 487 15442 15479 "src/cryptokit.ml" 487 15442 15486
type(
  int
)
ident(
  def dst_off "src/cryptokit.ml" 488 15489 15495 "src/cryptokit.ml" 490 15574 15617
)
"src/cryptokit.ml" 488 15489 15495 "src/cryptokit.ml" 488 15489 15504
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 488 15489 15505 "src/cryptokit.ml" 488 15489 15508
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 487 15442 15463 "src/cryptokit.ml" 487 15442 15466
)
"src/cryptokit.ml" 488 15489 15509 "src/cryptokit.ml" 488 15489 15516
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 487 15442 15467 "src/cryptokit.ml" 487 15442 15474
)
"src/cryptokit.ml" 488 15489 15517 "src/cryptokit.ml" 488 15489 15519
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 488 15489 15520 "src/cryptokit.ml" 488 15489 15521
type(
  int
)
"src/cryptokit.ml" 488 15489 15522 "src/cryptokit.ml" 488 15489 15531
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 483 15309 15315 "src/cryptokit.ml" 483 15309 15324
)
"src/cryptokit.ml" 488 15489 15495 "src/cryptokit.ml" 488 15489 15531
type(
  unit
)
"src/cryptokit.ml" 489 15533 15539 "src/cryptokit.ml" 489 15533 15545
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 482 15253 15284 "src/cryptokit.ml" 482 15253 15290
)
"src/cryptokit.ml" 489 15533 15539 "src/cryptokit.ml" 489 15533 15555
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 489 15533 15556 "src/cryptokit.ml" 489 15533 15558
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 489 15533 15559 "src/cryptokit.ml" 489 15533 15560
type(
  int
)
"src/cryptokit.ml" 489 15533 15561 "src/cryptokit.ml" 489 15533 15564
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 487 15442 15475 "src/cryptokit.ml" 487 15442 15478
)
"src/cryptokit.ml" 489 15533 15565 "src/cryptokit.ml" 489 15533 15572
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 487 15442 15479 "src/cryptokit.ml" 487 15442 15486
)
"src/cryptokit.ml" 489 15533 15539 "src/cryptokit.ml" 489 15533 15572
type(
  unit
)
"src/cryptokit.ml" 490 15574 15580 "src/cryptokit.ml" 490 15574 15590
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 490 15574 15591 "src/cryptokit.ml" 490 15574 15594
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 487 15442 15475 "src/cryptokit.ml" 487 15442 15478
)
"src/cryptokit.ml" 490 15574 15595 "src/cryptokit.ml" 490 15574 15602
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 487 15442 15479 "src/cryptokit.ml" 487 15442 15486
)
"src/cryptokit.ml" 490 15574 15603 "src/cryptokit.ml" 490 15574 15605
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 490 15574 15606 "src/cryptokit.ml" 490 15574 15607
type(
  int
)
"src/cryptokit.ml" 490 15574 15608 "src/cryptokit.ml" 490 15574 15617
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 483 15309 15315 "src/cryptokit.ml" 483 15309 15324
)
"src/cryptokit.ml" 490 15574 15580 "src/cryptokit.ml" 490 15574 15617
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 489 15533 15539 "src/cryptokit.ml" 490 15574 15617
type(
  unit
)
"src/cryptokit.ml" 488 15489 15495 "src/cryptokit.ml" 490 15574 15617
type(
  unit
)
"src/cryptokit.ml" 492 15636 15642 "src/cryptokit.ml" 492 15636 15648
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 482 15253 15284 "src/cryptokit.ml" 482 15253 15290
)
"src/cryptokit.ml" 492 15636 15642 "src/cryptokit.ml" 492 15636 15653
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 493 15655 15661 "src/cryptokit.ml" 493 15655 15671
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 493 15655 15672 "src/cryptokit.ml" 493 15655 15674
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 493 15655 15661 "src/cryptokit.ml" 493 15655 15674
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 492 15636 15642 "src/cryptokit.ml" 493 15655 15674
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 496 15682 15704 "src/cryptokit.ml" 496 15682 15711
type(
  string option
)
"src/cryptokit.ml" 496 15682 15713 "src/cryptokit.ml" 496 15682 15719
type(
  block_cipher
)
"src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
type(
  int
)
"src/cryptokit.ml" 497 15738 15756 "src/cryptokit.ml" 497 15738 15762
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 496 15682 15713 "src/cryptokit.ml" 496 15682 15719
)
"src/cryptokit.ml" 497 15738 15756 "src/cryptokit.ml" 497 15738 15772
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 498 15776 15784 "src/cryptokit.ml" 498 15776 15790
type(
  < blocksize : int; transform : bytes -> int -> bytes -> int -> unit;
    wipe : unit; .. >
)
"src/cryptokit.ml" 499 15791 15804 "src/cryptokit.ml" 499 15791 15819
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 499 15791 15820 "src/cryptokit.ml" 499 15791 15829
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
)
"src/cryptokit.ml" 499 15791 15830 "src/cryptokit.ml" 499 15791 15837
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 496 15682 15704 "src/cryptokit.ml" 496 15682 15711
)
"src/cryptokit.ml" 499 15791 15804 "src/cryptokit.ml" 499 15791 15837
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 500 15838 15856 "src/cryptokit.ml" 500 15838 15868
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 500 15838 15869 "src/cryptokit.ml" 500 15838 15878
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
)
"src/cryptokit.ml" 500 15838 15856 "src/cryptokit.ml" 500 15838 15878
type(
  bytes
)
"src/cryptokit.ml" 501 15879 15902 "src/cryptokit.ml" 501 15879 15911
type(
  int
)
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
)
"src/cryptokit.ml" 502 15912 15933 "src/cryptokit.ml" 502 15912 15936
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 502 15912 15937 "src/cryptokit.ml" 506 16101 16142
)
"src/cryptokit.ml" 502 15912 15937 "src/cryptokit.ml" 502 15912 15944
type(
  int
)
ident(
  def src_off "src/cryptokit.ml" 502 15912 15945 "src/cryptokit.ml" 506 16101 16142
)
"src/cryptokit.ml" 502 15912 15945 "src/cryptokit.ml" 502 15912 15948
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 502 15912 15949 "src/cryptokit.ml" 506 16101 16142
)
"src/cryptokit.ml" 502 15912 15949 "src/cryptokit.ml" 502 15912 15956
type(
  int
)
ident(
  def dst_off "src/cryptokit.ml" 503 15959 15965 "src/cryptokit.ml" 506 16101 16142
)
"src/cryptokit.ml" 503 15959 15965 "src/cryptokit.ml" 503 15959 15975
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 503 15959 15976 "src/cryptokit.ml" 503 15959 15979
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 502 15912 15933 "src/cryptokit.ml" 502 15912 15936
)
"src/cryptokit.ml" 503 15959 15980 "src/cryptokit.ml" 503 15959 15987
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 502 15912 15937 "src/cryptokit.ml" 502 15912 15944
)
"src/cryptokit.ml" 503 15959 15988 "src/cryptokit.ml" 503 15959 15995
type(
  bytes
)
ident(
  ext_ref next_iv
)
"src/cryptokit.ml" 503 15959 15996 "src/cryptokit.ml" 503 15959 15997
type(
  int
)
"src/cryptokit.ml" 503 15959 15998 "src/cryptokit.ml" 503 15959 16007
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
)
"src/cryptokit.ml" 503 15959 15965 "src/cryptokit.ml" 503 15959 16007
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 504 16009 16015 "src/cryptokit.ml" 504 16009 16021
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 496 15682 15713 "src/cryptokit.ml" 496 15682 15719
)
"src/cryptokit.ml" 504 16009 16015 "src/cryptokit.ml" 504 16009 16031
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 504 16009 16032 "src/cryptokit.ml" 504 16009 16035
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 502 15912 15933 "src/cryptokit.ml" 502 15912 15936
)
"src/cryptokit.ml" 504 16009 16036 "src/cryptokit.ml" 504 16009 16043
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 502 15912 15937 "src/cryptokit.ml" 502 15912 15944
)
"src/cryptokit.ml" 504 16009 16044 "src/cryptokit.ml" 504 16009 16047
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 502 15912 15945 "src/cryptokit.ml" 502 15912 15948
)
"src/cryptokit.ml" 504 16009 16048 "src/cryptokit.ml" 504 16009 16055
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 502 15912 15949 "src/cryptokit.ml" 502 15912 15956
)
"src/cryptokit.ml" 504 16009 16015 "src/cryptokit.ml" 504 16009 16055
type(
  unit
)
"src/cryptokit.ml" 505 16057 16063 "src/cryptokit.ml" 505 16057 16072
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 505 16057 16073 "src/cryptokit.ml" 505 16057 16075
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 505 16057 16076 "src/cryptokit.ml" 505 16057 16077
type(
  int
)
"src/cryptokit.ml" 505 16057 16078 "src/cryptokit.ml" 505 16057 16081
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 502 15912 15945 "src/cryptokit.ml" 502 15912 15948
)
"src/cryptokit.ml" 505 16057 16082 "src/cryptokit.ml" 505 16057 16089
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 502 15912 15949 "src/cryptokit.ml" 502 15912 15956
)
"src/cryptokit.ml" 505 16057 16090 "src/cryptokit.ml" 505 16057 16099
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
)
"src/cryptokit.ml" 505 16057 16063 "src/cryptokit.ml" 505 16057 16099
type(
  unit
)
"src/cryptokit.ml" 506 16101 16107 "src/cryptokit.ml" 506 16101 16117
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 506 16101 16118 "src/cryptokit.ml" 506 16101 16125
type(
  bytes
)
ident(
  ext_ref next_iv
)
"src/cryptokit.ml" 506 16101 16126 "src/cryptokit.ml" 506 16101 16127
type(
  int
)
"src/cryptokit.ml" 506 16101 16128 "src/cryptokit.ml" 506 16101 16130
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 506 16101 16131 "src/cryptokit.ml" 506 16101 16132
type(
  int
)
"src/cryptokit.ml" 506 16101 16133 "src/cryptokit.ml" 506 16101 16142
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 497 15738 15744 "src/cryptokit.ml" 497 15738 15753
)
"src/cryptokit.ml" 506 16101 16107 "src/cryptokit.ml" 506 16101 16142
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 505 16057 16063 "src/cryptokit.ml" 506 16101 16142
type(
  unit
)
"src/cryptokit.ml" 504 16009 16015 "src/cryptokit.ml" 506 16101 16142
type(
  unit
)
"src/cryptokit.ml" 503 15959 15965 "src/cryptokit.ml" 506 16101 16142
type(
  unit
)
"src/cryptokit.ml" 508 16161 16167 "src/cryptokit.ml" 508 16161 16173
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 496 15682 15713 "src/cryptokit.ml" 496 15682 15719
)
"src/cryptokit.ml" 508 16161 16167 "src/cryptokit.ml" 508 16161 16178
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 509 16180 16186 "src/cryptokit.ml" 509 16180 16196
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 509 16180 16197 "src/cryptokit.ml" 509 16180 16199
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 509 16180 16186 "src/cryptokit.ml" 509 16180 16199
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 510 16201 16207 "src/cryptokit.ml" 510 16201 16217
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 510 16201 16218 "src/cryptokit.ml" 510 16201 16225
type(
  bytes
)
ident(
  ext_ref next_iv
)
"src/cryptokit.ml" 510 16201 16207 "src/cryptokit.ml" 510 16201 16225
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 509 16180 16186 "src/cryptokit.ml" 510 16201 16225
type(
  unit
)
"src/cryptokit.ml" 508 16161 16167 "src/cryptokit.ml" 510 16201 16225
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 513 16233 16255 "src/cryptokit.ml" 513 16233 16262
type(
  string option
)
"src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
type(
  int
)
"src/cryptokit.ml" 513 16233 16274 "src/cryptokit.ml" 513 16233 16280
type(
  block_cipher
)
"src/cryptokit.ml" 514 16299 16305 "src/cryptokit.ml" 514 16299 16314
type(
  int
)
"src/cryptokit.ml" 514 16299 16317 "src/cryptokit.ml" 514 16299 16323
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 513 16233 16274 "src/cryptokit.ml" 513 16233 16280
)
"src/cryptokit.ml" 514 16299 16317 "src/cryptokit.ml" 514 16299 16333
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 515 16337 16343 "src/cryptokit.ml" 515 16337 16344
type(
  unit
)
"src/cryptokit.ml" 515 16337 16355 "src/cryptokit.ml" 515 16337 16364
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 515 16337 16365 "src/cryptokit.ml" 515 16337 16366
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 515 16337 16367 "src/cryptokit.ml" 515 16337 16368
type(
  int
)
"src/cryptokit.ml" 515 16337 16355 "src/cryptokit.ml" 515 16337 16368
type(
  bool
)
"src/cryptokit.ml" 515 16337 16369 "src/cryptokit.ml" 515 16337 16371
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 515 16337 16372 "src/cryptokit.ml" 515 16337 16381
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 515 16337 16382 "src/cryptokit.ml" 515 16337 16384
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 515 16337 16385 "src/cryptokit.ml" 515 16337 16394
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 514 16299 16305 "src/cryptokit.ml" 514 16299 16314
)
"src/cryptokit.ml" 515 16337 16372 "src/cryptokit.ml" 515 16337 16394
type(
  bool
)
"src/cryptokit.ml" 515 16337 16354 "src/cryptokit.ml" 515 16337 16395
type(
  bool
)
"src/cryptokit.ml" 515 16337 16347 "src/cryptokit.ml" 515 16337 16395
type(
  unit
)
"src/cryptokit.ml" 516 16399 16407 "src/cryptokit.ml" 516 16399 16413
type(
  < blocksize : int; transform : bytes -> int -> bytes -> int -> unit;
    wipe : unit; .. >
)
"src/cryptokit.ml" 517 16414 16427 "src/cryptokit.ml" 517 16414 16442
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 517 16414 16443 "src/cryptokit.ml" 517 16414 16452
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 514 16299 16305 "src/cryptokit.ml" 514 16299 16314
)
"src/cryptokit.ml" 517 16414 16453 "src/cryptokit.ml" 517 16414 16460
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 513 16233 16255 "src/cryptokit.ml" 513 16233 16262
)
"src/cryptokit.ml" 517 16414 16427 "src/cryptokit.ml" 517 16414 16460
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 518 16461 16475 "src/cryptokit.ml" 518 16461 16487
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 518 16461 16488 "src/cryptokit.ml" 518 16461 16497
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 514 16299 16305 "src/cryptokit.ml" 514 16299 16314
)
"src/cryptokit.ml" 518 16461 16475 "src/cryptokit.ml" 518 16461 16497
type(
  bytes
)
"src/cryptokit.ml" 519 16498 16521 "src/cryptokit.ml" 519 16498 16530
type(
  int
)
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 520 16531 16552 "src/cryptokit.ml" 520 16531 16555
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 520 16531 16556 "src/cryptokit.ml" 525 16770 16835
)
"src/cryptokit.ml" 520 16531 16556 "src/cryptokit.ml" 520 16531 16563
type(
  int
)
ident(
  def src_off "src/cryptokit.ml" 520 16531 16564 "src/cryptokit.ml" 525 16770 16835
)
"src/cryptokit.ml" 520 16531 16564 "src/cryptokit.ml" 520 16531 16567
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 520 16531 16568 "src/cryptokit.ml" 525 16770 16835
)
"src/cryptokit.ml" 520 16531 16568 "src/cryptokit.ml" 520 16531 16575
type(
  int
)
ident(
  def dst_off "src/cryptokit.ml" 521 16578 16584 "src/cryptokit.ml" 525 16770 16835
)
"src/cryptokit.ml" 521 16578 16584 "src/cryptokit.ml" 521 16578 16590
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 513 16233 16274 "src/cryptokit.ml" 513 16233 16280
)
"src/cryptokit.ml" 521 16578 16584 "src/cryptokit.ml" 521 16578 16600
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 521 16578 16601 "src/cryptokit.ml" 521 16578 16603
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 521 16578 16604 "src/cryptokit.ml" 521 16578 16605
type(
  int
)
"src/cryptokit.ml" 521 16578 16606 "src/cryptokit.ml" 521 16578 16609
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 521 16578 16610 "src/cryptokit.ml" 521 16578 16611
type(
  int
)
"src/cryptokit.ml" 521 16578 16584 "src/cryptokit.ml" 521 16578 16611
type(
  unit
)
"src/cryptokit.ml" 522 16613 16619 "src/cryptokit.ml" 522 16613 16629
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 522 16613 16630 "src/cryptokit.ml" 522 16613 16633
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 520 16531 16552 "src/cryptokit.ml" 520 16531 16555
)
"src/cryptokit.ml" 522 16613 16634 "src/cryptokit.ml" 522 16613 16641
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 520 16531 16556 "src/cryptokit.ml" 520 16531 16563
)
"src/cryptokit.ml" 522 16613 16642 "src/cryptokit.ml" 522 16613 16645
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 520 16531 16564 "src/cryptokit.ml" 520 16531 16567
)
"src/cryptokit.ml" 522 16613 16646 "src/cryptokit.ml" 522 16613 16653
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 520 16531 16568 "src/cryptokit.ml" 520 16531 16575
)
"src/cryptokit.ml" 522 16613 16654 "src/cryptokit.ml" 522 16613 16663
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 522 16613 16619 "src/cryptokit.ml" 522 16613 16663
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 523 16665 16671 "src/cryptokit.ml" 523 16665 16680
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 523 16665 16681 "src/cryptokit.ml" 523 16665 16684
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 523 16665 16685 "src/cryptokit.ml" 523 16665 16686
type(
  int
)
"src/cryptokit.ml" 523 16665 16687 "src/cryptokit.ml" 523 16665 16690
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 520 16531 16564 "src/cryptokit.ml" 520 16531 16567
)
"src/cryptokit.ml" 523 16665 16691 "src/cryptokit.ml" 523 16665 16698
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 520 16531 16568 "src/cryptokit.ml" 520 16531 16575
)
"src/cryptokit.ml" 523 16665 16699 "src/cryptokit.ml" 523 16665 16708
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 523 16665 16671 "src/cryptokit.ml" 523 16665 16708
type(
  unit
)
"src/cryptokit.ml" 524 16710 16716 "src/cryptokit.ml" 524 16710 16726
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 524 16710 16727 "src/cryptokit.ml" 524 16710 16729
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 524 16710 16730 "src/cryptokit.ml" 524 16710 16739
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 524 16710 16740 "src/cryptokit.ml" 524 16710 16742
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 524 16710 16743 "src/cryptokit.ml" 524 16710 16744
type(
  int
)
"src/cryptokit.ml" 524 16710 16746 "src/cryptokit.ml" 524 16710 16755
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 514 16299 16305 "src/cryptokit.ml" 514 16299 16314
)
"src/cryptokit.ml" 524 16710 16756 "src/cryptokit.ml" 524 16710 16757
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 524 16710 16758 "src/cryptokit.ml" 524 16710 16767
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 524 16710 16745 "src/cryptokit.ml" 524 16710 16768
type(
  int
)
"src/cryptokit.ml" 524 16710 16716 "src/cryptokit.ml" 524 16710 16768
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 525 16770 16776 "src/cryptokit.ml" 525 16770 16786
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 525 16770 16787 "src/cryptokit.ml" 525 16770 16790
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 520 16531 16564 "src/cryptokit.ml" 520 16531 16567
)
"src/cryptokit.ml" 525 16770 16791 "src/cryptokit.ml" 525 16770 16798
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 520 16531 16568 "src/cryptokit.ml" 520 16531 16575
)
"src/cryptokit.ml" 525 16770 16799 "src/cryptokit.ml" 525 16770 16801
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 525 16770 16803 "src/cryptokit.ml" 525 16770 16812
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 514 16299 16305 "src/cryptokit.ml" 514 16299 16314
)
"src/cryptokit.ml" 525 16770 16813 "src/cryptokit.ml" 525 16770 16814
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 525 16770 16815 "src/cryptokit.ml" 525 16770 16824
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 525 16770 16802 "src/cryptokit.ml" 525 16770 16825
type(
  int
)
"src/cryptokit.ml" 525 16770 16826 "src/cryptokit.ml" 525 16770 16835
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 513 16233 16263 "src/cryptokit.ml" 513 16233 16272
)
"src/cryptokit.ml" 525 16770 16776 "src/cryptokit.ml" 525 16770 16835
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 524 16710 16716 "src/cryptokit.ml" 525 16770 16835
type(
  unit
)
"src/cryptokit.ml" 523 16665 16671 "src/cryptokit.ml" 525 16770 16835
type(
  unit
)
"src/cryptokit.ml" 522 16613 16619 "src/cryptokit.ml" 525 16770 16835
type(
  unit
)
"src/cryptokit.ml" 521 16578 16584 "src/cryptokit.ml" 525 16770 16835
type(
  unit
)
"src/cryptokit.ml" 527 16854 16860 "src/cryptokit.ml" 527 16854 16866
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 513 16233 16274 "src/cryptokit.ml" 513 16233 16280
)
"src/cryptokit.ml" 527 16854 16860 "src/cryptokit.ml" 527 16854 16871
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 528 16873 16879 "src/cryptokit.ml" 528 16873 16889
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 528 16873 16890 "src/cryptokit.ml" 528 16873 16892
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 528 16873 16879 "src/cryptokit.ml" 528 16873 16892
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 529 16894 16900 "src/cryptokit.ml" 529 16894 16910
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 529 16894 16911 "src/cryptokit.ml" 529 16894 16914
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 529 16894 16900 "src/cryptokit.ml" 529 16894 16914
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 528 16873 16879 "src/cryptokit.ml" 529 16894 16914
type(
  unit
)
"src/cryptokit.ml" 527 16854 16860 "src/cryptokit.ml" 529 16894 16914
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 532 16922 16944 "src/cryptokit.ml" 532 16922 16951
type(
  string option
)
"src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
type(
  int
)
"src/cryptokit.ml" 532 16922 16963 "src/cryptokit.ml" 532 16922 16969
type(
  block_cipher
)
"src/cryptokit.ml" 533 16988 16994 "src/cryptokit.ml" 533 16988 17003
type(
  int
)
"src/cryptokit.ml" 533 16988 17006 "src/cryptokit.ml" 533 16988 17012
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 532 16922 16963 "src/cryptokit.ml" 532 16922 16969
)
"src/cryptokit.ml" 533 16988 17006 "src/cryptokit.ml" 533 16988 17022
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 534 17026 17032 "src/cryptokit.ml" 534 17026 17033
type(
  unit
)
"src/cryptokit.ml" 534 17026 17044 "src/cryptokit.ml" 534 17026 17053
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 534 17026 17054 "src/cryptokit.ml" 534 17026 17055
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 534 17026 17056 "src/cryptokit.ml" 534 17026 17057
type(
  int
)
"src/cryptokit.ml" 534 17026 17044 "src/cryptokit.ml" 534 17026 17057
type(
  bool
)
"src/cryptokit.ml" 534 17026 17058 "src/cryptokit.ml" 534 17026 17060
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 534 17026 17061 "src/cryptokit.ml" 534 17026 17070
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 534 17026 17071 "src/cryptokit.ml" 534 17026 17073
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 534 17026 17074 "src/cryptokit.ml" 534 17026 17083
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 533 16988 16994 "src/cryptokit.ml" 533 16988 17003
)
"src/cryptokit.ml" 534 17026 17061 "src/cryptokit.ml" 534 17026 17083
type(
  bool
)
"src/cryptokit.ml" 534 17026 17043 "src/cryptokit.ml" 534 17026 17084
type(
  bool
)
"src/cryptokit.ml" 534 17026 17036 "src/cryptokit.ml" 534 17026 17084
type(
  unit
)
"src/cryptokit.ml" 535 17088 17096 "src/cryptokit.ml" 535 17088 17102
type(
  < blocksize : int; transform : bytes -> int -> bytes -> int -> unit;
    wipe : unit; .. >
)
"src/cryptokit.ml" 536 17103 17116 "src/cryptokit.ml" 536 17103 17131
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 536 17103 17132 "src/cryptokit.ml" 536 17103 17141
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 533 16988 16994 "src/cryptokit.ml" 533 16988 17003
)
"src/cryptokit.ml" 536 17103 17142 "src/cryptokit.ml" 536 17103 17149
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 532 16922 16944 "src/cryptokit.ml" 532 16922 16951
)
"src/cryptokit.ml" 536 17103 17116 "src/cryptokit.ml" 536 17103 17149
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 537 17150 17164 "src/cryptokit.ml" 537 17150 17176
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 537 17150 17177 "src/cryptokit.ml" 537 17150 17186
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 533 16988 16994 "src/cryptokit.ml" 533 16988 17003
)
"src/cryptokit.ml" 537 17150 17164 "src/cryptokit.ml" 537 17150 17186
type(
  bytes
)
"src/cryptokit.ml" 538 17187 17210 "src/cryptokit.ml" 538 17187 17219
type(
  int
)
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 539 17220 17241 "src/cryptokit.ml" 539 17220 17244
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 539 17220 17245 "src/cryptokit.ml" 544 17481 17524
)
"src/cryptokit.ml" 539 17220 17245 "src/cryptokit.ml" 539 17220 17252
type(
  int
)
ident(
  def src_off "src/cryptokit.ml" 539 17220 17253 "src/cryptokit.ml" 544 17481 17524
)
"src/cryptokit.ml" 539 17220 17253 "src/cryptokit.ml" 539 17220 17256
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 539 17220 17257 "src/cryptokit.ml" 544 17481 17524
)
"src/cryptokit.ml" 539 17220 17257 "src/cryptokit.ml" 539 17220 17264
type(
  int
)
ident(
  def dst_off "src/cryptokit.ml" 540 17267 17273 "src/cryptokit.ml" 544 17481 17524
)
"src/cryptokit.ml" 540 17267 17273 "src/cryptokit.ml" 540 17267 17279
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 532 16922 16963 "src/cryptokit.ml" 532 16922 16969
)
"src/cryptokit.ml" 540 17267 17273 "src/cryptokit.ml" 540 17267 17289
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 540 17267 17290 "src/cryptokit.ml" 540 17267 17292
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 540 17267 17293 "src/cryptokit.ml" 540 17267 17294
type(
  int
)
"src/cryptokit.ml" 540 17267 17295 "src/cryptokit.ml" 540 17267 17298
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 540 17267 17299 "src/cryptokit.ml" 540 17267 17300
type(
  int
)
"src/cryptokit.ml" 540 17267 17273 "src/cryptokit.ml" 540 17267 17300
type(
  unit
)
"src/cryptokit.ml" 541 17302 17308 "src/cryptokit.ml" 541 17302 17318
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 541 17302 17319 "src/cryptokit.ml" 541 17302 17321
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 541 17302 17322 "src/cryptokit.ml" 541 17302 17331
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 541 17302 17332 "src/cryptokit.ml" 541 17302 17334
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 541 17302 17335 "src/cryptokit.ml" 541 17302 17336
type(
  int
)
"src/cryptokit.ml" 541 17302 17338 "src/cryptokit.ml" 541 17302 17347
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 533 16988 16994 "src/cryptokit.ml" 533 16988 17003
)
"src/cryptokit.ml" 541 17302 17348 "src/cryptokit.ml" 541 17302 17349
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 541 17302 17350 "src/cryptokit.ml" 541 17302 17359
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 541 17302 17337 "src/cryptokit.ml" 541 17302 17360
type(
  int
)
"src/cryptokit.ml" 541 17302 17308 "src/cryptokit.ml" 541 17302 17360
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 542 17362 17368 "src/cryptokit.ml" 542 17362 17378
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 542 17362 17379 "src/cryptokit.ml" 542 17362 17382
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 539 17220 17241 "src/cryptokit.ml" 539 17220 17244
)
"src/cryptokit.ml" 542 17362 17383 "src/cryptokit.ml" 542 17362 17390
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 539 17220 17245 "src/cryptokit.ml" 539 17220 17252
)
"src/cryptokit.ml" 542 17362 17391 "src/cryptokit.ml" 542 17362 17393
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 542 17362 17395 "src/cryptokit.ml" 542 17362 17404
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 533 16988 16994 "src/cryptokit.ml" 533 16988 17003
)
"src/cryptokit.ml" 542 17362 17405 "src/cryptokit.ml" 542 17362 17406
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 542 17362 17407 "src/cryptokit.ml" 542 17362 17416
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 542 17362 17394 "src/cryptokit.ml" 542 17362 17417
type(
  int
)
"src/cryptokit.ml" 542 17362 17418 "src/cryptokit.ml" 542 17362 17427
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 542 17362 17368 "src/cryptokit.ml" 542 17362 17427
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 543 17429 17435 "src/cryptokit.ml" 543 17429 17445
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 543 17429 17446 "src/cryptokit.ml" 543 17429 17449
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 539 17220 17241 "src/cryptokit.ml" 539 17220 17244
)
"src/cryptokit.ml" 543 17429 17450 "src/cryptokit.ml" 543 17429 17457
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 539 17220 17245 "src/cryptokit.ml" 539 17220 17252
)
"src/cryptokit.ml" 543 17429 17458 "src/cryptokit.ml" 543 17429 17461
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 539 17220 17253 "src/cryptokit.ml" 539 17220 17256
)
"src/cryptokit.ml" 543 17429 17462 "src/cryptokit.ml" 543 17429 17469
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 539 17220 17257 "src/cryptokit.ml" 539 17220 17264
)
"src/cryptokit.ml" 543 17429 17470 "src/cryptokit.ml" 543 17429 17479
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 543 17429 17435 "src/cryptokit.ml" 543 17429 17479
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 544 17481 17487 "src/cryptokit.ml" 544 17481 17496
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 544 17481 17497 "src/cryptokit.ml" 544 17481 17500
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 544 17481 17501 "src/cryptokit.ml" 544 17481 17502
type(
  int
)
"src/cryptokit.ml" 544 17481 17503 "src/cryptokit.ml" 544 17481 17506
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 539 17220 17253 "src/cryptokit.ml" 539 17220 17256
)
"src/cryptokit.ml" 544 17481 17507 "src/cryptokit.ml" 544 17481 17514
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 539 17220 17257 "src/cryptokit.ml" 539 17220 17264
)
"src/cryptokit.ml" 544 17481 17515 "src/cryptokit.ml" 544 17481 17524
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 532 16922 16952 "src/cryptokit.ml" 532 16922 16961
)
"src/cryptokit.ml" 544 17481 17487 "src/cryptokit.ml" 544 17481 17524
type(
  unit
)
"src/cryptokit.ml" 543 17429 17435 "src/cryptokit.ml" 544 17481 17524
type(
  unit
)
"src/cryptokit.ml" 542 17362 17368 "src/cryptokit.ml" 544 17481 17524
type(
  unit
)
"src/cryptokit.ml" 541 17302 17308 "src/cryptokit.ml" 544 17481 17524
type(
  unit
)
"src/cryptokit.ml" 540 17267 17273 "src/cryptokit.ml" 544 17481 17524
type(
  unit
)
"src/cryptokit.ml" 546 17543 17549 "src/cryptokit.ml" 546 17543 17555
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 532 16922 16963 "src/cryptokit.ml" 532 16922 16969
)
"src/cryptokit.ml" 546 17543 17549 "src/cryptokit.ml" 546 17543 17560
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 547 17562 17568 "src/cryptokit.ml" 547 17562 17578
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 547 17562 17579 "src/cryptokit.ml" 547 17562 17581
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 547 17562 17568 "src/cryptokit.ml" 547 17562 17581
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 548 17583 17589 "src/cryptokit.ml" 548 17583 17599
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 548 17583 17600 "src/cryptokit.ml" 548 17583 17603
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 548 17583 17589 "src/cryptokit.ml" 548 17583 17603
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 547 17562 17568 "src/cryptokit.ml" 548 17583 17603
type(
  unit
)
"src/cryptokit.ml" 546 17543 17549 "src/cryptokit.ml" 548 17583 17603
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 551 17611 17625 "src/cryptokit.ml" 551 17611 17632
type(
  string option
)
"src/cryptokit.ml" 551 17611 17633 "src/cryptokit.ml" 551 17611 17642
type(
  int
)
"src/cryptokit.ml" 551 17611 17644 "src/cryptokit.ml" 551 17611 17650
type(
  block_cipher
)
"src/cryptokit.ml" 552 17669 17675 "src/cryptokit.ml" 552 17669 17684
type(
  int
)
"src/cryptokit.ml" 552 17669 17687 "src/cryptokit.ml" 552 17669 17693
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 551 17611 17644 "src/cryptokit.ml" 551 17611 17650
)
"src/cryptokit.ml" 552 17669 17687 "src/cryptokit.ml" 552 17669 17703
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 553 17707 17713 "src/cryptokit.ml" 553 17707 17714
type(
  unit
)
"src/cryptokit.ml" 553 17707 17725 "src/cryptokit.ml" 553 17707 17734
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 551 17611 17633 "src/cryptokit.ml" 551 17611 17642
)
"src/cryptokit.ml" 553 17707 17735 "src/cryptokit.ml" 553 17707 17736
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 553 17707 17737 "src/cryptokit.ml" 553 17707 17738
type(
  int
)
"src/cryptokit.ml" 553 17707 17725 "src/cryptokit.ml" 553 17707 17738
type(
  bool
)
"src/cryptokit.ml" 553 17707 17739 "src/cryptokit.ml" 553 17707 17741
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 553 17707 17742 "src/cryptokit.ml" 553 17707 17751
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 551 17611 17633 "src/cryptokit.ml" 551 17611 17642
)
"src/cryptokit.ml" 553 17707 17752 "src/cryptokit.ml" 553 17707 17754
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 553 17707 17755 "src/cryptokit.ml" 553 17707 17764
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 552 17669 17675 "src/cryptokit.ml" 552 17669 17684
)
"src/cryptokit.ml" 553 17707 17742 "src/cryptokit.ml" 553 17707 17764
type(
  bool
)
"src/cryptokit.ml" 553 17707 17724 "src/cryptokit.ml" 553 17707 17765
type(
  bool
)
"src/cryptokit.ml" 553 17707 17717 "src/cryptokit.ml" 553 17707 17765
type(
  unit
)
"src/cryptokit.ml" 554 17769 17777 "src/cryptokit.ml" 554 17769 17783
type(
  < blocksize : int; transform : bytes -> int -> bytes -> int -> unit;
    wipe : unit; .. >
)
"src/cryptokit.ml" 555 17784 17797 "src/cryptokit.ml" 555 17784 17812
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 555 17784 17813 "src/cryptokit.ml" 555 17784 17822
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 552 17669 17675 "src/cryptokit.ml" 552 17669 17684
)
"src/cryptokit.ml" 555 17784 17823 "src/cryptokit.ml" 555 17784 17830
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 551 17611 17625 "src/cryptokit.ml" 551 17611 17632
)
"src/cryptokit.ml" 555 17784 17797 "src/cryptokit.ml" 555 17784 17830
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 556 17831 17854 "src/cryptokit.ml" 556 17831 17863
type(
  int
)
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 551 17611 17633 "src/cryptokit.ml" 551 17611 17642
)
"src/cryptokit.ml" 557 17864 17885 "src/cryptokit.ml" 557 17864 17888
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 557 17864 17889 "src/cryptokit.ml" 560 17997 18039
)
"src/cryptokit.ml" 557 17864 17889 "src/cryptokit.ml" 557 17864 17896
type(
  int
)
ident(
  def src_off "src/cryptokit.ml" 557 17864 17897 "src/cryptokit.ml" 560 17997 18039
)
"src/cryptokit.ml" 557 17864 17897 "src/cryptokit.ml" 557 17864 17900
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 557 17864 17901 "src/cryptokit.ml" 560 17997 18039
)
"src/cryptokit.ml" 557 17864 17901 "src/cryptokit.ml" 557 17864 17908
type(
  int
)
ident(
  def dst_off "src/cryptokit.ml" 558 17911 17917 "src/cryptokit.ml" 560 17997 18039
)
"src/cryptokit.ml" 558 17911 17917 "src/cryptokit.ml" 558 17911 17923
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 551 17611 17644 "src/cryptokit.ml" 551 17611 17650
)
"src/cryptokit.ml" 558 17911 17917 "src/cryptokit.ml" 558 17911 17933
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 558 17911 17934 "src/cryptokit.ml" 558 17911 17936
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 558 17911 17937 "src/cryptokit.ml" 558 17911 17938
type(
  int
)
"src/cryptokit.ml" 558 17911 17939 "src/cryptokit.ml" 558 17911 17941
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 558 17911 17942 "src/cryptokit.ml" 558 17911 17943
type(
  int
)
"src/cryptokit.ml" 558 17911 17917 "src/cryptokit.ml" 558 17911 17943
type(
  unit
)
"src/cryptokit.ml" 559 17945 17951 "src/cryptokit.ml" 559 17945 17961
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 559 17945 17962 "src/cryptokit.ml" 559 17945 17965
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 557 17864 17885 "src/cryptokit.ml" 557 17864 17888
)
"src/cryptokit.ml" 559 17945 17966 "src/cryptokit.ml" 559 17945 17973
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 557 17864 17889 "src/cryptokit.ml" 557 17864 17896
)
"src/cryptokit.ml" 559 17945 17974 "src/cryptokit.ml" 559 17945 17977
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 557 17864 17897 "src/cryptokit.ml" 557 17864 17900
)
"src/cryptokit.ml" 559 17945 17978 "src/cryptokit.ml" 559 17945 17985
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 557 17864 17901 "src/cryptokit.ml" 557 17864 17908
)
"src/cryptokit.ml" 559 17945 17986 "src/cryptokit.ml" 559 17945 17995
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 551 17611 17633 "src/cryptokit.ml" 551 17611 17642
)
"src/cryptokit.ml" 559 17945 17951 "src/cryptokit.ml" 559 17945 17995
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 560 17997 18003 "src/cryptokit.ml" 560 17997 18012
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 560 17997 18013 "src/cryptokit.ml" 560 17997 18015
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 560 17997 18016 "src/cryptokit.ml" 560 17997 18017
type(
  int
)
"src/cryptokit.ml" 560 17997 18018 "src/cryptokit.ml" 560 17997 18021
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 557 17864 17897 "src/cryptokit.ml" 557 17864 17900
)
"src/cryptokit.ml" 560 17997 18022 "src/cryptokit.ml" 560 17997 18029
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 557 17864 17901 "src/cryptokit.ml" 557 17864 17908
)
"src/cryptokit.ml" 560 17997 18030 "src/cryptokit.ml" 560 17997 18039
type(
  int
)
ident(
  int_ref chunksize "src/cryptokit.ml" 551 17611 17633 "src/cryptokit.ml" 551 17611 17642
)
"src/cryptokit.ml" 560 17997 18003 "src/cryptokit.ml" 560 17997 18039
type(
  unit
)
"src/cryptokit.ml" 559 17945 17951 "src/cryptokit.ml" 560 17997 18039
type(
  unit
)
"src/cryptokit.ml" 558 17911 17917 "src/cryptokit.ml" 560 17997 18039
type(
  unit
)
"src/cryptokit.ml" 562 18058 18064 "src/cryptokit.ml" 562 18058 18070
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 551 17611 17644 "src/cryptokit.ml" 551 17611 17650
)
"src/cryptokit.ml" 562 18058 18064 "src/cryptokit.ml" 562 18058 18075
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 563 18077 18083 "src/cryptokit.ml" 563 18077 18093
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 563 18077 18094 "src/cryptokit.ml" 563 18077 18096
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 563 18077 18083 "src/cryptokit.ml" 563 18077 18096
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 562 18058 18064 "src/cryptokit.ml" 563 18077 18096
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 566 18104 18112 "src/cryptokit.ml" 566 18104 18129
type(
  bytes -> int -> int -> unit
)
ident(
  def increment_counter "src/cryptokit.ml" 566 18104 18104 "src/cryptokit.ml" 787 24569 24572
)
"src/cryptokit.ml" 566 18104 18130 "src/cryptokit.ml" 566 18104 18131
type(
  bytes
)
ident(
  def c "src/cryptokit.ml" 566 18104 18132 "src/cryptokit.ml" 571 18313 18318
)
"src/cryptokit.ml" 566 18104 18132 "src/cryptokit.ml" 566 18104 18135
type(
  int
)
ident(
  def lim "src/cryptokit.ml" 566 18104 18136 "src/cryptokit.ml" 571 18313 18318
)
"src/cryptokit.ml" 566 18104 18136 "src/cryptokit.ml" 566 18104 18139
type(
  int
)
ident(
  def pos "src/cryptokit.ml" 567 18142 18144 "src/cryptokit.ml" 571 18313 18318
)
"src/cryptokit.ml" 567 18142 18147 "src/cryptokit.ml" 567 18142 18150
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 566 18104 18136 "src/cryptokit.ml" 566 18104 18139
)
"src/cryptokit.ml" 567 18142 18151 "src/cryptokit.ml" 567 18142 18153
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 567 18142 18154 "src/cryptokit.ml" 567 18142 18157
type(
  int
)
ident(
  int_ref lim "src/cryptokit.ml" 566 18104 18132 "src/cryptokit.ml" 566 18104 18135
)
"src/cryptokit.ml" 567 18142 18147 "src/cryptokit.ml" 567 18142 18157
type(
  bool
)
"src/cryptokit.ml" 568 18169 18177 "src/cryptokit.ml" 568 18169 18178
type(
  int
)
ident(
  def i "src/cryptokit.ml" 569 18216 18220 "src/cryptokit.ml" 570 18257 18312
)
"src/cryptokit.ml" 568 18169 18181 "src/cryptokit.ml" 568 18169 18182
type(
  int
)
"src/cryptokit.ml" 568 18169 18183 "src/cryptokit.ml" 568 18169 18184
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 568 18169 18185 "src/cryptokit.ml" 568 18169 18194
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 568 18169 18196 "src/cryptokit.ml" 568 18169 18205
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 568 18169 18206 "src/cryptokit.ml" 568 18169 18207
type(
  bytes
)
ident(
  int_ref c "src/cryptokit.ml" 566 18104 18130 "src/cryptokit.ml" 566 18104 18131
)
"src/cryptokit.ml" 568 18169 18208 "src/cryptokit.ml" 568 18169 18211
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 566 18104 18136 "src/cryptokit.ml" 566 18104 18139
)
"src/cryptokit.ml" 568 18169 18195 "src/cryptokit.ml" 568 18169 18212
type(
  char
)
"src/cryptokit.ml" 568 18169 18185 "src/cryptokit.ml" 568 18169 18212
type(
  int
)
"src/cryptokit.ml" 568 18169 18181 "src/cryptokit.ml" 568 18169 18212
type(
  int
)
"src/cryptokit.ml" 569 18216 18220 "src/cryptokit.ml" 569 18216 18229
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 569 18216 18230 "src/cryptokit.ml" 569 18216 18231
type(
  bytes
)
ident(
  int_ref c "src/cryptokit.ml" 566 18104 18130 "src/cryptokit.ml" 566 18104 18131
)
"src/cryptokit.ml" 569 18216 18232 "src/cryptokit.ml" 569 18216 18235
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 566 18104 18136 "src/cryptokit.ml" 566 18104 18139
)
"src/cryptokit.ml" 569 18216 18237 "src/cryptokit.ml" 569 18216 18252
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 569 18216 18253 "src/cryptokit.ml" 569 18216 18254
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 568 18169 18177 "src/cryptokit.ml" 568 18169 18178
)
"src/cryptokit.ml" 569 18216 18236 "src/cryptokit.ml" 569 18216 18255
type(
  char
)
"src/cryptokit.ml" 569 18216 18220 "src/cryptokit.ml" 569 18216 18255
type(
  unit
)
"src/cryptokit.ml" 570 18257 18264 "src/cryptokit.ml" 570 18257 18265
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 568 18169 18177 "src/cryptokit.ml" 568 18169 18178
)
"src/cryptokit.ml" 570 18257 18266 "src/cryptokit.ml" 570 18257 18267
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 570 18257 18268 "src/cryptokit.ml" 570 18257 18273
type(
  int
)
"src/cryptokit.ml" 570 18257 18264 "src/cryptokit.ml" 570 18257 18273
type(
  bool
)
"src/cryptokit.ml" 570 18257 18279 "src/cryptokit.ml" 570 18257 18296
type(
  bytes -> int -> int -> unit
)
ident(
  int_ref increment_counter "src/cryptokit.ml" 566 18104 18112 "src/cryptokit.ml" 566 18104 18129
)
"src/cryptokit.ml" 570 18257 18297 "src/cryptokit.ml" 570 18257 18298
type(
  bytes
)
ident(
  int_ref c "src/cryptokit.ml" 566 18104 18130 "src/cryptokit.ml" 566 18104 18131
)
"src/cryptokit.ml" 570 18257 18299 "src/cryptokit.ml" 570 18257 18302
type(
  int
)
ident(
  int_ref lim "src/cryptokit.ml" 566 18104 18132 "src/cryptokit.ml" 566 18104 18135
)
"src/cryptokit.ml" 570 18257 18304 "src/cryptokit.ml" 570 18257 18307
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 566 18104 18136 "src/cryptokit.ml" 566 18104 18139
)
"src/cryptokit.ml" 570 18257 18308 "src/cryptokit.ml" 570 18257 18309
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 570 18257 18310 "src/cryptokit.ml" 570 18257 18311
type(
  int
)
"src/cryptokit.ml" 570 18257 18303 "src/cryptokit.ml" 570 18257 18312
type(
  int
)
"src/cryptokit.ml" 570 18257 18279 "src/cryptokit.ml" 570 18257 18312
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 570 18257 18261 "src/cryptokit.ml" 570 18257 18312
type(
  unit
)
"src/cryptokit.ml" 569 18216 18220 "src/cryptokit.ml" 570 18257 18312
type(
  unit
)
"src/cryptokit.ml" 567 18142 18163 "src/cryptokit.ml" 571 18313 18318
type(
  unit
)
"src/cryptokit.ml" 567 18142 18144 "src/cryptokit.ml" 571 18313 18318
type(
  unit
)
"src/cryptokit.ml" 573 18320 18334 "src/cryptokit.ml" 573 18320 18341
type(
  string option
)
"src/cryptokit.ml" 573 18320 18343 "src/cryptokit.ml" 573 18320 18346
type(
  int option
)
"src/cryptokit.ml" 573 18320 18348 "src/cryptokit.ml" 573 18320 18354
type(
  block_cipher
)
"src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
type(
  int
)
"src/cryptokit.ml" 574 18373 18391 "src/cryptokit.ml" 574 18373 18397
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 573 18320 18348 "src/cryptokit.ml" 573 18320 18354
)
"src/cryptokit.ml" 574 18373 18391 "src/cryptokit.ml" 574 18373 18407
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 575 18411 18417 "src/cryptokit.ml" 575 18411 18422
type(
  int
)
"src/cryptokit.ml" 576 18425 18435 "src/cryptokit.ml" 576 18425 18438
type(
  int option
)
ident(
  int_ref inc "src/cryptokit.ml" 573 18320 18343 "src/cryptokit.ml" 573 18320 18346
)
"src/cryptokit.ml" 577 18444 18450 "src/cryptokit.ml" 577 18444 18454
type(
  int option
)
"src/cryptokit.ml" 577 18444 18458 "src/cryptokit.ml" 577 18444 18467
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 578 18468 18479 "src/cryptokit.ml" 578 18468 18480
type(
  int
)
ident(
  def n "src/cryptokit.ml" 578 18468 18484 "src/cryptokit.ml" 578 18468 18519
)
"src/cryptokit.ml" 578 18468 18474 "src/cryptokit.ml" 578 18468 18480
type(
  int option
)
"src/cryptokit.ml" 578 18468 18492 "src/cryptokit.ml" 578 18468 18493
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 578 18468 18479 "src/cryptokit.ml" 578 18468 18480
)
"src/cryptokit.ml" 578 18468 18494 "src/cryptokit.ml" 578 18468 18495
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 578 18468 18496 "src/cryptokit.ml" 578 18468 18497
type(
  int
)
"src/cryptokit.ml" 578 18468 18492 "src/cryptokit.ml" 578 18468 18497
type(
  bool
)
"src/cryptokit.ml" 578 18468 18498 "src/cryptokit.ml" 578 18468 18500
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 578 18468 18501 "src/cryptokit.ml" 578 18468 18502
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 578 18468 18479 "src/cryptokit.ml" 578 18468 18480
)
"src/cryptokit.ml" 578 18468 18503 "src/cryptokit.ml" 578 18468 18505
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 578 18468 18506 "src/cryptokit.ml" 578 18468 18515
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 578 18468 18501 "src/cryptokit.ml" 578 18468 18515
type(
  bool
)
"src/cryptokit.ml" 578 18468 18491 "src/cryptokit.ml" 578 18468 18516
type(
  bool
)
"src/cryptokit.ml" 578 18468 18484 "src/cryptokit.ml" 578 18468 18516
type(
  unit
)
"src/cryptokit.ml" 578 18468 18518 "src/cryptokit.ml" 578 18468 18519
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 578 18468 18479 "src/cryptokit.ml" 578 18468 18480
)
"src/cryptokit.ml" 578 18468 18484 "src/cryptokit.ml" 578 18468 18519
type(
  int
)
"src/cryptokit.ml" 576 18425 18429 "src/cryptokit.ml" 578 18468 18519
type(
  int
)
"src/cryptokit.ml" 579 18523 18531 "src/cryptokit.ml" 579 18523 18537
type(
  < blocksize : int; transform : bytes -> int -> bytes -> int -> unit;
    wipe : unit; .. >
)
"src/cryptokit.ml" 580 18538 18551 "src/cryptokit.ml" 580 18538 18566
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 580 18538 18567 "src/cryptokit.ml" 580 18538 18576
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 580 18538 18577 "src/cryptokit.ml" 580 18538 18584
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 573 18320 18334 "src/cryptokit.ml" 573 18320 18341
)
"src/cryptokit.ml" 580 18538 18551 "src/cryptokit.ml" 580 18538 18584
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 581 18585 18599 "src/cryptokit.ml" 581 18585 18611
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 581 18585 18612 "src/cryptokit.ml" 581 18585 18621
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 581 18585 18599 "src/cryptokit.ml" 581 18585 18621
type(
  bytes
)
"src/cryptokit.ml" 582 18622 18645 "src/cryptokit.ml" 582 18622 18654
type(
  int
)
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 583 18655 18676 "src/cryptokit.ml" 583 18655 18679
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 583 18655 18680 "src/cryptokit.ml" 587 18834 18896
)
"src/cryptokit.ml" 583 18655 18680 "src/cryptokit.ml" 583 18655 18687
type(
  int
)
ident(
  def src_off "src/cryptokit.ml" 583 18655 18688 "src/cryptokit.ml" 587 18834 18896
)
"src/cryptokit.ml" 583 18655 18688 "src/cryptokit.ml" 583 18655 18691
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 583 18655 18692 "src/cryptokit.ml" 587 18834 18896
)
"src/cryptokit.ml" 583 18655 18692 "src/cryptokit.ml" 583 18655 18699
type(
  int
)
ident(
  def dst_off "src/cryptokit.ml" 584 18702 18708 "src/cryptokit.ml" 587 18834 18896
)
"src/cryptokit.ml" 584 18702 18708 "src/cryptokit.ml" 584 18702 18714
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 573 18320 18348 "src/cryptokit.ml" 573 18320 18354
)
"src/cryptokit.ml" 584 18702 18708 "src/cryptokit.ml" 584 18702 18724
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 584 18702 18725 "src/cryptokit.ml" 584 18702 18727
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 584 18702 18728 "src/cryptokit.ml" 584 18702 18729
type(
  int
)
"src/cryptokit.ml" 584 18702 18730 "src/cryptokit.ml" 584 18702 18733
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 584 18702 18734 "src/cryptokit.ml" 584 18702 18735
type(
  int
)
"src/cryptokit.ml" 584 18702 18708 "src/cryptokit.ml" 584 18702 18735
type(
  unit
)
"src/cryptokit.ml" 585 18737 18743 "src/cryptokit.ml" 585 18737 18753
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 585 18737 18754 "src/cryptokit.ml" 585 18737 18757
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 583 18655 18676 "src/cryptokit.ml" 583 18655 18679
)
"src/cryptokit.ml" 585 18737 18758 "src/cryptokit.ml" 585 18737 18765
type(
  int
)
ident(
  int_ref src_off "src/cryptokit.ml" 583 18655 18680 "src/cryptokit.ml" 583 18655 18687
)
"src/cryptokit.ml" 585 18737 18766 "src/cryptokit.ml" 585 18737 18769
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 583 18655 18688 "src/cryptokit.ml" 583 18655 18691
)
"src/cryptokit.ml" 585 18737 18770 "src/cryptokit.ml" 585 18737 18777
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 583 18655 18692 "src/cryptokit.ml" 583 18655 18699
)
"src/cryptokit.ml" 585 18737 18778 "src/cryptokit.ml" 585 18737 18787
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 585 18737 18743 "src/cryptokit.ml" 585 18737 18787
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 586 18789 18795 "src/cryptokit.ml" 586 18789 18804
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 586 18789 18805 "src/cryptokit.ml" 586 18789 18808
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 586 18789 18809 "src/cryptokit.ml" 586 18789 18810
type(
  int
)
"src/cryptokit.ml" 586 18789 18811 "src/cryptokit.ml" 586 18789 18814
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 583 18655 18688 "src/cryptokit.ml" 583 18655 18691
)
"src/cryptokit.ml" 586 18789 18815 "src/cryptokit.ml" 586 18789 18822
type(
  int
)
ident(
  int_ref dst_off "src/cryptokit.ml" 583 18655 18692 "src/cryptokit.ml" 583 18655 18699
)
"src/cryptokit.ml" 586 18789 18823 "src/cryptokit.ml" 586 18789 18832
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 586 18789 18795 "src/cryptokit.ml" 586 18789 18832
type(
  unit
)
"src/cryptokit.ml" 587 18834 18840 "src/cryptokit.ml" 587 18834 18857
type(
  bytes -> int -> int -> unit
)
ident(
  int_ref increment_counter "src/cryptokit.ml" 566 18104 18112 "src/cryptokit.ml" 566 18104 18129
)
"src/cryptokit.ml" 587 18834 18858 "src/cryptokit.ml" 587 18834 18860
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 587 18834 18862 "src/cryptokit.ml" 587 18834 18871
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 587 18834 18872 "src/cryptokit.ml" 587 18834 18873
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 587 18834 18874 "src/cryptokit.ml" 587 18834 18879
type(
  int
)
ident(
  int_ref nincr "src/cryptokit.ml" 575 18411 18417 "src/cryptokit.ml" 575 18411 18422
)
"src/cryptokit.ml" 587 18834 18861 "src/cryptokit.ml" 587 18834 18880
type(
  int
)
"src/cryptokit.ml" 587 18834 18882 "src/cryptokit.ml" 587 18834 18891
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 574 18373 18379 "src/cryptokit.ml" 574 18373 18388
)
"src/cryptokit.ml" 587 18834 18892 "src/cryptokit.ml" 587 18834 18893
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 587 18834 18894 "src/cryptokit.ml" 587 18834 18895
type(
  int
)
"src/cryptokit.ml" 587 18834 18881 "src/cryptokit.ml" 587 18834 18896
type(
  int
)
"src/cryptokit.ml" 587 18834 18840 "src/cryptokit.ml" 587 18834 18896
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 586 18789 18795 "src/cryptokit.ml" 587 18834 18896
type(
  unit
)
"src/cryptokit.ml" 585 18737 18743 "src/cryptokit.ml" 587 18834 18896
type(
  unit
)
"src/cryptokit.ml" 584 18702 18708 "src/cryptokit.ml" 587 18834 18896
type(
  unit
)
"src/cryptokit.ml" 589 18915 18921 "src/cryptokit.ml" 589 18915 18927
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 573 18320 18348 "src/cryptokit.ml" 573 18320 18354
)
"src/cryptokit.ml" 589 18915 18921 "src/cryptokit.ml" 589 18915 18932
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 590 18934 18940 "src/cryptokit.ml" 590 18934 18950
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 590 18934 18951 "src/cryptokit.ml" 590 18934 18953
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 590 18934 18940 "src/cryptokit.ml" 590 18934 18953
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 591 18955 18961 "src/cryptokit.ml" 591 18955 18971
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 591 18955 18972 "src/cryptokit.ml" 591 18955 18975
type(
  bytes
)
ident(
  ext_ref out
)
"src/cryptokit.ml" 591 18955 18961 "src/cryptokit.ml" 591 18955 18975
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 590 18934 18940 "src/cryptokit.ml" 591 18955 18975
type(
  unit
)
"src/cryptokit.ml" 589 18915 18921 "src/cryptokit.ml" 591 18955 18975
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 596 19032 19046 "src/cryptokit.ml" 596 19032 19052
type(
  block_cipher
)
"src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
type(
  int
)
"src/cryptokit.ml" 597 19071 19089 "src/cryptokit.ml" 597 19071 19095
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 596 19032 19046 "src/cryptokit.ml" 596 19032 19052
)
"src/cryptokit.ml" 597 19071 19089 "src/cryptokit.ml" 597 19071 19105
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 599 19124 19139 "src/cryptokit.ml" 599 19124 19151
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 599 19124 19152 "src/cryptokit.ml" 599 19124 19161
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 599 19124 19139 "src/cryptokit.ml" 599 19124 19161
type(
  bytes
)
"src/cryptokit.ml" 600 19162 19185 "src/cryptokit.ml" 600 19162 19186
type(
  int
)
"src/cryptokit.ml" 602 19188 19217 "src/cryptokit.ml" 602 19188 19220
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.max
)
"src/cryptokit.ml" 602 19188 19221 "src/cryptokit.ml" 602 19188 19224
type(
  int
)
"src/cryptokit.ml" 602 19188 19226 "src/cryptokit.ml" 602 19188 19227
type(
  int
)
"src/cryptokit.ml" 602 19188 19228 "src/cryptokit.ml" 602 19188 19229
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 602 19188 19230 "src/cryptokit.ml" 602 19188 19239
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 602 19188 19225 "src/cryptokit.ml" 602 19188 19240
type(
  int
)
"src/cryptokit.ml" 602 19188 19216 "src/cryptokit.ml" 602 19188 19241
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 604 19260 19290 "src/cryptokit.ml" 604 19260 19299
type(
  int
)
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 605 19300 19331 "src/cryptokit.ml" 605 19300 19340
type(
  int
)
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 607 19342 19367 "src/cryptokit.ml" 607 19342 19370
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 607 19342 19371 "src/cryptokit.ml" 623 19959 19968
)
"src/cryptokit.ml" 607 19342 19371 "src/cryptokit.ml" 607 19342 19374
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 623 19959 19968
)
"src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 607 19342 19378
type(
  int
)
ident(
  def len "src/cryptokit.ml" 608 19381 19387 "src/cryptokit.ml" 623 19959 19968
)
"src/cryptokit.ml" 608 19381 19390 "src/cryptokit.ml" 608 19381 19393
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 607 19342 19378
)
"src/cryptokit.ml" 608 19381 19394 "src/cryptokit.ml" 608 19381 19396
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 608 19381 19397 "src/cryptokit.ml" 608 19381 19398
type(
  int
)
"src/cryptokit.ml" 608 19381 19390 "src/cryptokit.ml" 608 19381 19398
type(
  bool
)
"src/cryptokit.ml" 608 19381 19404 "src/cryptokit.ml" 608 19381 19406
type(
  unit
)
"src/cryptokit.ml" 609 19412 19421 "src/cryptokit.ml" 609 19412 19425
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 609 19412 19426 "src/cryptokit.ml" 609 19412 19427
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 609 19412 19428 "src/cryptokit.ml" 609 19412 19431
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 607 19342 19378
)
"src/cryptokit.ml" 609 19412 19421 "src/cryptokit.ml" 609 19412 19431
type(
  int
)
"src/cryptokit.ml" 609 19412 19432 "src/cryptokit.ml" 609 19412 19434
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 609 19412 19435 "src/cryptokit.ml" 609 19412 19444
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 609 19412 19421 "src/cryptokit.ml" 609 19412 19444
type(
  bool
)
"src/cryptokit.ml" 611 19509 19517 "src/cryptokit.ml" 611 19509 19527
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 611 19509 19528 "src/cryptokit.ml" 611 19509 19531
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 607 19342 19367 "src/cryptokit.ml" 607 19342 19370
)
"src/cryptokit.ml" 611 19509 19532 "src/cryptokit.ml" 611 19509 19535
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 607 19342 19371 "src/cryptokit.ml" 607 19342 19374
)
"src/cryptokit.ml" 611 19509 19536 "src/cryptokit.ml" 611 19509 19540
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 611 19509 19541 "src/cryptokit.ml" 611 19509 19545
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 611 19509 19546 "src/cryptokit.ml" 611 19509 19549
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 607 19342 19378
)
"src/cryptokit.ml" 611 19509 19517 "src/cryptokit.ml" 611 19509 19549
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 612 19551 19567 "src/cryptokit.ml" 612 19551 19571
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 612 19551 19572 "src/cryptokit.ml" 612 19551 19573
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 612 19551 19574 "src/cryptokit.ml" 612 19551 19577
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 607 19342 19378
)
"src/cryptokit.ml" 612 19551 19567 "src/cryptokit.ml" 612 19551 19577
type(
  int
)
"src/cryptokit.ml" 612 19551 19559 "src/cryptokit.ml" 612 19551 19577
type(
  unit
)
"src/cryptokit.ml" 609 19412 19450 "src/cryptokit.ml" 613 19578 19587
type(
  unit
)
"src/cryptokit.ml" 615 19651 19663 "src/cryptokit.ml" 615 19651 19664
type(
  int
)
ident(
  def n "src/cryptokit.ml" 616 19687 19695 "src/cryptokit.ml" 622 19908 19958
)
"src/cryptokit.ml" 615 19651 19667 "src/cryptokit.ml" 615 19651 19676
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 615 19651 19677 "src/cryptokit.ml" 615 19651 19678
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 615 19651 19679 "src/cryptokit.ml" 615 19651 19683
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 615 19651 19667 "src/cryptokit.ml" 615 19651 19683
type(
  int
)
"src/cryptokit.ml" 616 19687 19695 "src/cryptokit.ml" 616 19687 19705
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 616 19687 19706 "src/cryptokit.ml" 616 19687 19709
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 607 19342 19367 "src/cryptokit.ml" 607 19342 19370
)
"src/cryptokit.ml" 616 19687 19710 "src/cryptokit.ml" 616 19687 19713
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 607 19342 19371 "src/cryptokit.ml" 607 19342 19374
)
"src/cryptokit.ml" 616 19687 19714 "src/cryptokit.ml" 616 19687 19718
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 616 19687 19719 "src/cryptokit.ml" 616 19687 19723
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 616 19687 19724 "src/cryptokit.ml" 616 19687 19725
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 615 19651 19663 "src/cryptokit.ml" 615 19651 19664
)
"src/cryptokit.ml" 616 19687 19695 "src/cryptokit.ml" 616 19687 19725
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 617 19727 19735 "src/cryptokit.ml" 617 19727 19739
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 617 19727 19735 "src/cryptokit.ml" 617 19727 19755
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 617 19727 19756 "src/cryptokit.ml" 617 19727 19765
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 617 19727 19735 "src/cryptokit.ml" 617 19727 19765
type(
  unit
)
"src/cryptokit.ml" 618 19767 19775 "src/cryptokit.ml" 618 19767 19781
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 596 19032 19046 "src/cryptokit.ml" 596 19032 19052
)
"src/cryptokit.ml" 618 19767 19775 "src/cryptokit.ml" 618 19767 19791
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 618 19767 19792 "src/cryptokit.ml" 618 19767 19796
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 618 19767 19797 "src/cryptokit.ml" 618 19767 19798
type(
  int
)
"src/cryptokit.ml" 618 19767 19799 "src/cryptokit.ml" 618 19767 19803
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 618 19767 19804 "src/cryptokit.ml" 618 19767 19808
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 618 19767 19775 "src/cryptokit.ml" 618 19767 19808
type(
  unit
)
"src/cryptokit.ml" 619 19810 19826 "src/cryptokit.ml" 619 19810 19830
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 619 19810 19831 "src/cryptokit.ml" 619 19810 19832
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 619 19810 19833 "src/cryptokit.ml" 619 19810 19842
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 619 19810 19826 "src/cryptokit.ml" 619 19810 19842
type(
  int
)
"src/cryptokit.ml" 619 19810 19818 "src/cryptokit.ml" 619 19810 19842
type(
  unit
)
"src/cryptokit.ml" 620 19844 19860 "src/cryptokit.ml" 620 19844 19861
type(
  int
)
"src/cryptokit.ml" 620 19844 19852 "src/cryptokit.ml" 620 19844 19861
type(
  unit
)
"src/cryptokit.ml" 622 19908 19916 "src/cryptokit.ml" 622 19908 19920
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 622 19908 19916 "src/cryptokit.ml" 622 19908 19934
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 622 19908 19935 "src/cryptokit.ml" 622 19908 19938
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 607 19342 19367 "src/cryptokit.ml" 607 19342 19370
)
"src/cryptokit.ml" 622 19908 19940 "src/cryptokit.ml" 622 19908 19943
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 607 19342 19371 "src/cryptokit.ml" 607 19342 19374
)
"src/cryptokit.ml" 622 19908 19944 "src/cryptokit.ml" 622 19908 19945
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 622 19908 19946 "src/cryptokit.ml" 622 19908 19947
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 615 19651 19663 "src/cryptokit.ml" 615 19651 19664
)
"src/cryptokit.ml" 622 19908 19939 "src/cryptokit.ml" 622 19908 19948
type(
  int
)
"src/cryptokit.ml" 622 19908 19950 "src/cryptokit.ml" 622 19908 19953
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 607 19342 19375 "src/cryptokit.ml" 607 19342 19378
)
"src/cryptokit.ml" 622 19908 19954 "src/cryptokit.ml" 622 19908 19955
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 622 19908 19956 "src/cryptokit.ml" 622 19908 19957
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 615 19651 19663 "src/cryptokit.ml" 615 19651 19664
)
"src/cryptokit.ml" 622 19908 19949 "src/cryptokit.ml" 622 19908 19958
type(
  int
)
"src/cryptokit.ml" 622 19908 19916 "src/cryptokit.ml" 622 19908 19958
type(
  unit
)
"src/cryptokit.ml" 620 19844 19852 "src/cryptokit.ml" 622 19908 19958
type(
  unit
)
"src/cryptokit.ml" 619 19810 19818 "src/cryptokit.ml" 622 19908 19958
type(
  unit
)
"src/cryptokit.ml" 618 19767 19775 "src/cryptokit.ml" 622 19908 19958
type(
  unit
)
"src/cryptokit.ml" 617 19727 19735 "src/cryptokit.ml" 622 19908 19958
type(
  unit
)
"src/cryptokit.ml" 616 19687 19695 "src/cryptokit.ml" 622 19908 19958
type(
  unit
)
"src/cryptokit.ml" 613 19578 19593 "src/cryptokit.ml" 623 19959 19968
type(
  unit
)
"src/cryptokit.ml" 609 19412 19418 "src/cryptokit.ml" 623 19959 19968
type(
  unit
)
"src/cryptokit.ml" 608 19381 19387 "src/cryptokit.ml" 623 19959 19968
type(
  unit
)
"src/cryptokit.ml" 625 19970 19992 "src/cryptokit.ml" 625 19970 19993
type(
  string
)
ident(
  def s "src/cryptokit.ml" 626 19996 20002 "src/cryptokit.ml" 626 19996 20067
)
"src/cryptokit.ml" 626 19996 20002 "src/cryptokit.ml" 626 19996 20006
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 626 19996 20002 "src/cryptokit.ml" 626 19996 20020
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 626 19996 20022 "src/cryptokit.ml" 626 19996 20044
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 626 19996 20045 "src/cryptokit.ml" 626 19996 20046
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 625 19970 19992 "src/cryptokit.ml" 625 19970 19993
)
"src/cryptokit.ml" 626 19996 20021 "src/cryptokit.ml" 626 19996 20047
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 626 19996 20048 "src/cryptokit.ml" 626 19996 20049
type(
  int
)
"src/cryptokit.ml" 626 19996 20051 "src/cryptokit.ml" 626 19996 20064
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 626 19996 20065 "src/cryptokit.ml" 626 19996 20066
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 625 19970 19992 "src/cryptokit.ml" 625 19970 19993
)
"src/cryptokit.ml" 626 19996 20050 "src/cryptokit.ml" 626 19996 20067
type(
  int
)
"src/cryptokit.ml" 626 19996 20002 "src/cryptokit.ml" 626 19996 20067
type(
  unit
)
"src/cryptokit.ml" 628 20069 20089 "src/cryptokit.ml" 628 20069 20090
type(
  char
)
ident(
  def c "src/cryptokit.ml" 629 20093 20099 "src/cryptokit.ml" 638 20370 20379
)
"src/cryptokit.ml" 629 20093 20102 "src/cryptokit.ml" 629 20093 20106
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 629 20093 20107 "src/cryptokit.ml" 629 20093 20108
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 629 20093 20109 "src/cryptokit.ml" 629 20093 20118
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 629 20093 20102 "src/cryptokit.ml" 629 20093 20118
type(
  bool
)
"src/cryptokit.ml" 630 20130 20138 "src/cryptokit.ml" 630 20130 20147
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 630 20130 20148 "src/cryptokit.ml" 630 20130 20152
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 630 20130 20153 "src/cryptokit.ml" 630 20130 20157
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 630 20130 20158 "src/cryptokit.ml" 630 20130 20159
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 628 20069 20089 "src/cryptokit.ml" 628 20069 20090
)
"src/cryptokit.ml" 630 20130 20138 "src/cryptokit.ml" 630 20130 20159
type(
  unit
)
"src/cryptokit.ml" 631 20161 20177 "src/cryptokit.ml" 631 20161 20181
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 631 20161 20182 "src/cryptokit.ml" 631 20161 20183
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 631 20161 20184 "src/cryptokit.ml" 631 20161 20185
type(
  int
)
"src/cryptokit.ml" 631 20161 20177 "src/cryptokit.ml" 631 20161 20185
type(
  int
)
"src/cryptokit.ml" 631 20161 20169 "src/cryptokit.ml" 631 20161 20185
type(
  unit
)
"src/cryptokit.ml" 629 20093 20124 "src/cryptokit.ml" 632 20186 20195
type(
  unit
)
"src/cryptokit.ml" 633 20207 20215 "src/cryptokit.ml" 633 20207 20219
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 633 20207 20215 "src/cryptokit.ml" 633 20207 20235
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 633 20207 20236 "src/cryptokit.ml" 633 20207 20245
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 633 20207 20215 "src/cryptokit.ml" 633 20207 20245
type(
  unit
)
"src/cryptokit.ml" 634 20247 20255 "src/cryptokit.ml" 634 20247 20261
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 596 19032 19046 "src/cryptokit.ml" 596 19032 19052
)
"src/cryptokit.ml" 634 20247 20255 "src/cryptokit.ml" 634 20247 20271
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 634 20247 20272 "src/cryptokit.ml" 634 20247 20276
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 634 20247 20277 "src/cryptokit.ml" 634 20247 20278
type(
  int
)
"src/cryptokit.ml" 634 20247 20279 "src/cryptokit.ml" 634 20247 20283
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 634 20247 20284 "src/cryptokit.ml" 634 20247 20288
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 634 20247 20255 "src/cryptokit.ml" 634 20247 20288
type(
  unit
)
"src/cryptokit.ml" 635 20290 20306 "src/cryptokit.ml" 635 20290 20310
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 635 20290 20311 "src/cryptokit.ml" 635 20290 20312
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 635 20290 20313 "src/cryptokit.ml" 635 20290 20322
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 635 20290 20306 "src/cryptokit.ml" 635 20290 20322
type(
  int
)
"src/cryptokit.ml" 635 20290 20298 "src/cryptokit.ml" 635 20290 20322
type(
  unit
)
"src/cryptokit.ml" 636 20324 20332 "src/cryptokit.ml" 636 20324 20341
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 636 20324 20342 "src/cryptokit.ml" 636 20324 20346
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 636 20324 20347 "src/cryptokit.ml" 636 20324 20348
type(
  int
)
"src/cryptokit.ml" 636 20324 20349 "src/cryptokit.ml" 636 20324 20350
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 628 20069 20089 "src/cryptokit.ml" 628 20069 20090
)
"src/cryptokit.ml" 636 20324 20332 "src/cryptokit.ml" 636 20324 20350
type(
  unit
)
"src/cryptokit.ml" 637 20352 20368 "src/cryptokit.ml" 637 20352 20369
type(
  int
)
"src/cryptokit.ml" 637 20352 20360 "src/cryptokit.ml" 637 20352 20369
type(
  unit
)
"src/cryptokit.ml" 636 20324 20332 "src/cryptokit.ml" 637 20352 20369
type(
  unit
)
"src/cryptokit.ml" 635 20290 20298 "src/cryptokit.ml" 637 20352 20369
type(
  unit
)
"src/cryptokit.ml" 634 20247 20255 "src/cryptokit.ml" 637 20352 20369
type(
  unit
)
"src/cryptokit.ml" 632 20186 20201 "src/cryptokit.ml" 638 20370 20379
type(
  unit
)
"src/cryptokit.ml" 629 20093 20099 "src/cryptokit.ml" 638 20370 20379
type(
  unit
)
"src/cryptokit.ml" 640 20381 20401 "src/cryptokit.ml" 640 20381 20402
type(
  int
)
ident(
  def b "src/cryptokit.ml" 641 20405 20411 "src/cryptokit.ml" 641 20405 20444
)
"src/cryptokit.ml" 641 20405 20411 "src/cryptokit.ml" 641 20405 20415
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 641 20405 20411 "src/cryptokit.ml" 641 20405 20424
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 641 20405 20426 "src/cryptokit.ml" 641 20405 20441
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 641 20405 20442 "src/cryptokit.ml" 641 20405 20443
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 640 20381 20401 "src/cryptokit.ml" 640 20381 20402
)
"src/cryptokit.ml" 641 20405 20425 "src/cryptokit.ml" 641 20405 20444
type(
  char
)
"src/cryptokit.ml" 641 20405 20411 "src/cryptokit.ml" 641 20405 20444
type(
  unit
)
"src/cryptokit.ml" 644 20464 20470 "src/cryptokit.ml" 644 20464 20476
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 596 19032 19046 "src/cryptokit.ml" 596 19032 19052
)
"src/cryptokit.ml" 644 20464 20470 "src/cryptokit.ml" 644 20464 20481
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 645 20483 20489 "src/cryptokit.ml" 645 20483 20502
type(
  'a
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 602 19188 19200 "src/cryptokit.ml" 602 19188 19241
)
"src/cryptokit.ml" 645 20483 20489 "src/cryptokit.ml" 645 20483 20507
call(
  stack
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 646 20509 20515 "src/cryptokit.ml" 646 20509 20525
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 646 20509 20526 "src/cryptokit.ml" 646 20509 20530
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 646 20509 20515 "src/cryptokit.ml" 646 20509 20530
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 645 20483 20489 "src/cryptokit.ml" 646 20509 20530
type(
  unit
)
"src/cryptokit.ml" 644 20464 20470 "src/cryptokit.ml" 646 20509 20530
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 649 20551 20560 "src/cryptokit.ml" 649 20551 20564
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 649 20551 20565 "src/cryptokit.ml" 649 20551 20566
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 649 20551 20567 "src/cryptokit.ml" 649 20551 20568
type(
  int
)
"src/cryptokit.ml" 649 20551 20560 "src/cryptokit.ml" 649 20551 20568
type(
  bool
)
"src/cryptokit.ml" 649 20551 20574 "src/cryptokit.ml" 649 20551 20576
type(
  unit
)
"src/cryptokit.ml" 650 20577 20591 "src/cryptokit.ml" 650 20577 20595
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 650 20577 20596 "src/cryptokit.ml" 650 20577 20597
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 650 20577 20598 "src/cryptokit.ml" 650 20577 20607
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 650 20577 20591 "src/cryptokit.ml" 650 20577 20607
type(
  bool
)
"src/cryptokit.ml" 651 20619 20627 "src/cryptokit.ml" 651 20619 20631
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 651 20619 20627 "src/cryptokit.ml" 651 20619 20647
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 651 20619 20648 "src/cryptokit.ml" 651 20619 20657
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 651 20619 20627 "src/cryptokit.ml" 651 20619 20657
type(
  unit
)
"src/cryptokit.ml" 652 20659 20667 "src/cryptokit.ml" 652 20659 20673
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 596 19032 19046 "src/cryptokit.ml" 596 19032 19052
)
"src/cryptokit.ml" 652 20659 20667 "src/cryptokit.ml" 652 20659 20683
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 652 20659 20684 "src/cryptokit.ml" 652 20659 20688
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 652 20659 20689 "src/cryptokit.ml" 652 20659 20690
type(
  int
)
"src/cryptokit.ml" 652 20659 20691 "src/cryptokit.ml" 652 20659 20695
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 652 20659 20696 "src/cryptokit.ml" 652 20659 20700
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 652 20659 20667 "src/cryptokit.ml" 652 20659 20700
type(
  unit
)
"src/cryptokit.ml" 653 20702 20718 "src/cryptokit.ml" 653 20702 20719
type(
  int
)
"src/cryptokit.ml" 653 20702 20710 "src/cryptokit.ml" 653 20702 20719
type(
  unit
)
"src/cryptokit.ml" 654 20721 20737 "src/cryptokit.ml" 654 20721 20741
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 654 20721 20742 "src/cryptokit.ml" 654 20721 20743
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 654 20721 20744 "src/cryptokit.ml" 654 20721 20753
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 597 19071 19077 "src/cryptokit.ml" 597 19071 19086
)
"src/cryptokit.ml" 654 20721 20737 "src/cryptokit.ml" 654 20721 20753
type(
  int
)
"src/cryptokit.ml" 654 20721 20729 "src/cryptokit.ml" 654 20721 20753
type(
  unit
)
"src/cryptokit.ml" 653 20702 20710 "src/cryptokit.ml" 654 20721 20753
type(
  unit
)
"src/cryptokit.ml" 652 20659 20667 "src/cryptokit.ml" 654 20721 20753
type(
  unit
)
"src/cryptokit.ml" 650 20577 20613 "src/cryptokit.ml" 655 20754 20763
type(
  unit
)
"src/cryptokit.ml" 656 20764 20775 "src/cryptokit.ml" 656 20764 20780
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 656 20764 20788 "src/cryptokit.ml" 656 20764 20805
type(
  error
)
"src/cryptokit.ml" 656 20764 20781 "src/cryptokit.ml" 656 20764 20806
type(
  exn
)
"src/cryptokit.ml" 656 20764 20775 "src/cryptokit.ml" 656 20764 20806
type(
  unit
)
"src/cryptokit.ml" 650 20577 20588 "src/cryptokit.ml" 656 20764 20806
type(
  unit
)
"src/cryptokit.ml" 649 20551 20557 "src/cryptokit.ml" 656 20764 20806
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 659 20828 20834 "src/cryptokit.ml" 659 20828 20838
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 598 19109 19117 "src/cryptokit.ml" 598 19109 19123
)
"src/cryptokit.ml" 659 20828 20834 "src/cryptokit.ml" 659 20828 20844
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 664 20885 20914 "src/cryptokit.ml" 664 20885 20921
type(
  Padding.scheme
)
"src/cryptokit.ml" 665 20940 20969 "src/cryptokit.ml" 665 20940 20975
type(
  block_cipher
)
"src/cryptokit.ml" 666 20994 21000 "src/cryptokit.ml" 666 20994 21009
type(
  int
)
"src/cryptokit.ml" 666 20994 21012 "src/cryptokit.ml" 666 20994 21018
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 665 20940 20969 "src/cryptokit.ml" 665 20940 20975
)
"src/cryptokit.ml" 666 20994 21012 "src/cryptokit.ml" 666 20994 21028
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 667 21032 21040 "src/cryptokit.ml" 667 21032 21046
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 668 21047 21066 "src/cryptokit.ml" 668 21047 21072
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 665 20940 20969 "src/cryptokit.ml" 665 20940 20975
)
"src/cryptokit.ml" 669 21073 21103 "src/cryptokit.ml" 669 21073 21104
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 672 21126 21135 "src/cryptokit.ml" 672 21126 21139
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 672 21126 21140 "src/cryptokit.ml" 672 21126 21142
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 672 21126 21143 "src/cryptokit.ml" 672 21126 21152
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 666 20994 21000 "src/cryptokit.ml" 666 20994 21009
)
"src/cryptokit.ml" 672 21126 21135 "src/cryptokit.ml" 672 21126 21152
type(
  bool
)
"src/cryptokit.ml" 673 21164 21172 "src/cryptokit.ml" 673 21164 21176
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'b
)
ident(
  int_ref self "src/cryptokit.ml" 667 21032 21040 "src/cryptokit.ml" 667 21032 21046
)
"src/cryptokit.ml" 673 21164 21172 "src/cryptokit.ml" 673 21164 21192
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 673 21164 21193 "src/cryptokit.ml" 673 21164 21202
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 666 20994 21000 "src/cryptokit.ml" 666 20994 21009
)
"src/cryptokit.ml" 673 21164 21172 "src/cryptokit.ml" 673 21164 21202
type(
  unit
)
"src/cryptokit.ml" 674 21204 21212 "src/cryptokit.ml" 674 21204 21218
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 665 20940 20969 "src/cryptokit.ml" 665 20940 20975
)
"src/cryptokit.ml" 674 21204 21212 "src/cryptokit.ml" 674 21204 21228
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 674 21204 21229 "src/cryptokit.ml" 674 21204 21233
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 674 21204 21234 "src/cryptokit.ml" 674 21204 21235
type(
  int
)
"src/cryptokit.ml" 674 21204 21236 "src/cryptokit.ml" 674 21204 21240
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 674 21204 21241 "src/cryptokit.ml" 674 21204 21245
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 674 21204 21212 "src/cryptokit.ml" 674 21204 21245
type(
  unit
)
"src/cryptokit.ml" 675 21247 21263 "src/cryptokit.ml" 675 21247 21267
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 675 21247 21268 "src/cryptokit.ml" 675 21247 21269
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 675 21247 21270 "src/cryptokit.ml" 675 21247 21279
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 666 20994 21000 "src/cryptokit.ml" 666 20994 21009
)
"src/cryptokit.ml" 675 21247 21263 "src/cryptokit.ml" 675 21247 21279
type(
  int
)
"src/cryptokit.ml" 675 21247 21255 "src/cryptokit.ml" 675 21247 21279
type(
  unit
)
"src/cryptokit.ml" 676 21281 21297 "src/cryptokit.ml" 676 21281 21298
type(
  int
)
"src/cryptokit.ml" 676 21281 21289 "src/cryptokit.ml" 676 21281 21298
type(
  unit
)
"src/cryptokit.ml" 675 21247 21255 "src/cryptokit.ml" 676 21281 21298
type(
  unit
)
"src/cryptokit.ml" 674 21204 21212 "src/cryptokit.ml" 676 21281 21298
type(
  unit
)
"src/cryptokit.ml" 672 21126 21158 "src/cryptokit.ml" 677 21299 21308
type(
  unit
)
"src/cryptokit.ml" 672 21126 21132 "src/cryptokit.ml" 677 21299 21308
type(
  unit
)
"src/cryptokit.ml" 678 21310 21316 "src/cryptokit.ml" 678 21310 21323
type(
  Padding.scheme
)
ident(
  int_ref padding "src/cryptokit.ml" 664 20885 20914 "src/cryptokit.ml" 664 20885 20921
)
"src/cryptokit.ml" 678 21310 21316 "src/cryptokit.ml" 678 21310 21327
call(
  stack
)
type(
  bytes -> int -> unit
)
"src/cryptokit.ml" 678 21310 21328 "src/cryptokit.ml" 678 21310 21332
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 678 21310 21333 "src/cryptokit.ml" 678 21310 21337
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 678 21310 21316 "src/cryptokit.ml" 678 21310 21337
type(
  unit
)
"src/cryptokit.ml" 679 21339 21345 "src/cryptokit.ml" 679 21339 21349
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 667 21032 21040 "src/cryptokit.ml" 667 21032 21046
)
"src/cryptokit.ml" 679 21339 21345 "src/cryptokit.ml" 679 21339 21365
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 679 21339 21366 "src/cryptokit.ml" 679 21339 21375
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 666 20994 21000 "src/cryptokit.ml" 666 20994 21009
)
"src/cryptokit.ml" 679 21339 21345 "src/cryptokit.ml" 679 21339 21375
type(
  unit
)
"src/cryptokit.ml" 680 21377 21383 "src/cryptokit.ml" 680 21377 21389
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 665 20940 20969 "src/cryptokit.ml" 665 20940 20975
)
"src/cryptokit.ml" 680 21377 21383 "src/cryptokit.ml" 680 21377 21399
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 680 21377 21400 "src/cryptokit.ml" 680 21377 21404
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 680 21377 21405 "src/cryptokit.ml" 680 21377 21406
type(
  int
)
"src/cryptokit.ml" 680 21377 21407 "src/cryptokit.ml" 680 21377 21411
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 680 21377 21412 "src/cryptokit.ml" 680 21377 21416
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 680 21377 21383 "src/cryptokit.ml" 680 21377 21416
type(
  unit
)
"src/cryptokit.ml" 681 21418 21432 "src/cryptokit.ml" 681 21418 21436
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 681 21418 21437 "src/cryptokit.ml" 681 21418 21438
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 681 21418 21439 "src/cryptokit.ml" 681 21418 21448
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 666 20994 21000 "src/cryptokit.ml" 666 20994 21009
)
"src/cryptokit.ml" 681 21418 21432 "src/cryptokit.ml" 681 21418 21448
type(
  int
)
"src/cryptokit.ml" 681 21418 21424 "src/cryptokit.ml" 681 21418 21448
type(
  unit
)
"src/cryptokit.ml" 680 21377 21383 "src/cryptokit.ml" 681 21418 21448
type(
  unit
)
"src/cryptokit.ml" 679 21339 21345 "src/cryptokit.ml" 681 21418 21448
type(
  unit
)
"src/cryptokit.ml" 678 21310 21316 "src/cryptokit.ml" 681 21418 21448
type(
  unit
)
"src/cryptokit.ml" 672 21126 21132 "src/cryptokit.ml" 681 21418 21448
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 684 21456 21485 "src/cryptokit.ml" 684 21456 21492
type(
  Padding.scheme
)
"src/cryptokit.ml" 685 21511 21540 "src/cryptokit.ml" 685 21511 21546
type(
  block_cipher
)
"src/cryptokit.ml" 686 21565 21571 "src/cryptokit.ml" 686 21565 21580
type(
  int
)
"src/cryptokit.ml" 686 21565 21583 "src/cryptokit.ml" 686 21565 21589
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 685 21511 21540 "src/cryptokit.ml" 685 21511 21546
)
"src/cryptokit.ml" 686 21565 21583 "src/cryptokit.ml" 686 21565 21599
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 687 21603 21611 "src/cryptokit.ml" 687 21603 21617
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 688 21618 21637 "src/cryptokit.ml" 688 21618 21643
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 685 21511 21540 "src/cryptokit.ml" 685 21511 21546
)
"src/cryptokit.ml" 689 21644 21675 "src/cryptokit.ml" 689 21644 21676
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 692 21698 21707 "src/cryptokit.ml" 692 21698 21711
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 692 21698 21712 "src/cryptokit.ml" 692 21698 21714
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 692 21698 21715 "src/cryptokit.ml" 692 21698 21724
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 686 21565 21571 "src/cryptokit.ml" 686 21565 21580
)
"src/cryptokit.ml" 692 21698 21707 "src/cryptokit.ml" 692 21698 21724
type(
  bool
)
"src/cryptokit.ml" 692 21698 21730 "src/cryptokit.ml" 692 21698 21735
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 692 21698 21743 "src/cryptokit.ml" 692 21698 21760
type(
  error
)
"src/cryptokit.ml" 692 21698 21736 "src/cryptokit.ml" 692 21698 21761
type(
  exn
)
"src/cryptokit.ml" 692 21698 21730 "src/cryptokit.ml" 692 21698 21761
type(
  unit
)
"src/cryptokit.ml" 692 21698 21704 "src/cryptokit.ml" 692 21698 21761
type(
  unit
)
"src/cryptokit.ml" 693 21763 21769 "src/cryptokit.ml" 693 21763 21775
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 685 21511 21540 "src/cryptokit.ml" 685 21511 21546
)
"src/cryptokit.ml" 693 21763 21769 "src/cryptokit.ml" 693 21763 21785
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 693 21763 21786 "src/cryptokit.ml" 693 21763 21790
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 693 21763 21791 "src/cryptokit.ml" 693 21763 21792
type(
  int
)
"src/cryptokit.ml" 693 21763 21793 "src/cryptokit.ml" 693 21763 21797
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 693 21763 21798 "src/cryptokit.ml" 693 21763 21799
type(
  int
)
"src/cryptokit.ml" 693 21763 21769 "src/cryptokit.ml" 693 21763 21799
type(
  unit
)
"src/cryptokit.ml" 694 21801 21811 "src/cryptokit.ml" 694 21801 21816
type(
  int
)
ident(
  def valid "src/cryptokit.ml" 695 21841 21847 "src/cryptokit.ml" 697 21916 21942
)
"src/cryptokit.ml" 694 21801 21819 "src/cryptokit.ml" 694 21801 21826
type(
  Padding.scheme
)
ident(
  int_ref padding "src/cryptokit.ml" 684 21456 21485 "src/cryptokit.ml" 684 21456 21492
)
"src/cryptokit.ml" 694 21801 21819 "src/cryptokit.ml" 694 21801 21832
call(
  stack
)
type(
  bytes -> int
)
"src/cryptokit.ml" 694 21801 21833 "src/cryptokit.ml" 694 21801 21837
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 694 21801 21819 "src/cryptokit.ml" 694 21801 21837
type(
  int
)
"src/cryptokit.ml" 695 21841 21847 "src/cryptokit.ml" 695 21841 21851
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'c
)
ident(
  int_ref self "src/cryptokit.ml" 687 21603 21611 "src/cryptokit.ml" 687 21603 21617
)
"src/cryptokit.ml" 695 21841 21847 "src/cryptokit.ml" 695 21841 21867
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 695 21841 21868 "src/cryptokit.ml" 695 21841 21873
type(
  int
)
ident(
  int_ref valid "src/cryptokit.ml" 694 21801 21811 "src/cryptokit.ml" 694 21801 21816
)
"src/cryptokit.ml" 695 21841 21847 "src/cryptokit.ml" 695 21841 21873
type(
  unit
)
"src/cryptokit.ml" 696 21875 21881 "src/cryptokit.ml" 696 21875 21891
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 696 21875 21892 "src/cryptokit.ml" 696 21875 21896
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 696 21875 21897 "src/cryptokit.ml" 696 21875 21898
type(
  int
)
"src/cryptokit.ml" 696 21875 21899 "src/cryptokit.ml" 696 21875 21903
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 696 21875 21904 "src/cryptokit.ml" 696 21875 21908
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 696 21875 21909 "src/cryptokit.ml" 696 21875 21914
type(
  int
)
ident(
  int_ref valid "src/cryptokit.ml" 694 21801 21811 "src/cryptokit.ml" 694 21801 21816
)
"src/cryptokit.ml" 696 21875 21881 "src/cryptokit.ml" 696 21875 21914
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 697 21916 21930 "src/cryptokit.ml" 697 21916 21934
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 697 21916 21935 "src/cryptokit.ml" 697 21916 21936
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 697 21916 21937 "src/cryptokit.ml" 697 21916 21942
type(
  int
)
ident(
  int_ref valid "src/cryptokit.ml" 694 21801 21811 "src/cryptokit.ml" 694 21801 21816
)
"src/cryptokit.ml" 697 21916 21930 "src/cryptokit.ml" 697 21916 21942
type(
  int
)
"src/cryptokit.ml" 697 21916 21922 "src/cryptokit.ml" 697 21916 21942
type(
  unit
)
"src/cryptokit.ml" 696 21875 21881 "src/cryptokit.ml" 697 21916 21942
type(
  unit
)
"src/cryptokit.ml" 695 21841 21847 "src/cryptokit.ml" 697 21916 21942
type(
  unit
)
"src/cryptokit.ml" 694 21801 21807 "src/cryptokit.ml" 697 21916 21942
type(
  unit
)
"src/cryptokit.ml" 693 21763 21769 "src/cryptokit.ml" 697 21916 21942
type(
  unit
)
"src/cryptokit.ml" 692 21698 21704 "src/cryptokit.ml" 697 21916 21942
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 702 21993 22007 "src/cryptokit.ml" 702 21993 22014
type(
  string option
)
"src/cryptokit.ml" 702 21993 22017 "src/cryptokit.ml" 702 21993 22020
type(
  Padding.scheme option
)
"src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
type(
  block_cipher
)
"src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
type(
  int
)
"src/cryptokit.ml" 703 22071 22089 "src/cryptokit.ml" 703 22071 22095
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
)
"src/cryptokit.ml" 703 22071 22089 "src/cryptokit.ml" 703 22071 22105
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 704 22109 22117 "src/cryptokit.ml" 704 22109 22123
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 705 22124 22137 "src/cryptokit.ml" 705 22124 22152
type(
  int -> string option -> bytes
)
ident(
  int_ref make_initial_iv "src/cryptokit.ml" 475 15055 15059 "src/cryptokit.ml" 475 15055 15074
)
"src/cryptokit.ml" 705 22124 22153 "src/cryptokit.ml" 705 22124 22162
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 705 22124 22163 "src/cryptokit.ml" 705 22124 22170
type(
  string option
)
ident(
  int_ref iv_init "src/cryptokit.ml" 702 21993 22007 "src/cryptokit.ml" 702 21993 22014
)
"src/cryptokit.ml" 705 22124 22137 "src/cryptokit.ml" 705 22124 22170
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 706 22171 22188 "src/cryptokit.ml" 706 22171 22200
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 706 22171 22201 "src/cryptokit.ml" 706 22171 22210
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 706 22171 22188 "src/cryptokit.ml" 706 22171 22210
type(
  bytes
)
"src/cryptokit.ml" 707 22211 22234 "src/cryptokit.ml" 707 22211 22235
type(
  int
)
"src/cryptokit.ml" 709 22237 22260 "src/cryptokit.ml" 709 22237 22269
type(
  int
)
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 711 22271 22296 "src/cryptokit.ml" 711 22271 22299
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 711 22271 22300 "src/cryptokit.ml" 728 22929 22953
)
"src/cryptokit.ml" 711 22271 22300 "src/cryptokit.ml" 711 22271 22307
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 711 22271 22308 "src/cryptokit.ml" 728 22929 22953
)
"src/cryptokit.ml" 711 22271 22308 "src/cryptokit.ml" 711 22271 22311
type(
  int
)
ident(
  def len "src/cryptokit.ml" 712 22314 22320 "src/cryptokit.ml" 728 22929 22953
)
"src/cryptokit.ml" 712 22314 22328 "src/cryptokit.ml" 712 22314 22331
type(
  int -> int -> unit
)
ident(
  def add "src/cryptokit.ml" 712 22314 22320 "src/cryptokit.ml" 728 22929 22953
)
"src/cryptokit.ml" 712 22314 22332 "src/cryptokit.ml" 712 22314 22339
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 727 22917 22928
)
"src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 712 22314 22343
type(
  int
)
ident(
  def len "src/cryptokit.ml" 713 22346 22354 "src/cryptokit.ml" 727 22917 22928
)
"src/cryptokit.ml" 713 22346 22357 "src/cryptokit.ml" 713 22346 22360
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 712 22314 22343
)
"src/cryptokit.ml" 713 22346 22361 "src/cryptokit.ml" 713 22346 22363
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 713 22346 22364 "src/cryptokit.ml" 713 22346 22365
type(
  int
)
"src/cryptokit.ml" 713 22346 22357 "src/cryptokit.ml" 713 22346 22365
type(
  bool
)
"src/cryptokit.ml" 713 22346 22371 "src/cryptokit.ml" 713 22346 22373
type(
  unit
)
"src/cryptokit.ml" 714 22379 22390 "src/cryptokit.ml" 714 22379 22394
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 714 22379 22395 "src/cryptokit.ml" 714 22379 22396
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 714 22379 22397 "src/cryptokit.ml" 714 22379 22400
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 712 22314 22343
)
"src/cryptokit.ml" 714 22379 22390 "src/cryptokit.ml" 714 22379 22400
type(
  int
)
"src/cryptokit.ml" 714 22379 22401 "src/cryptokit.ml" 714 22379 22403
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 714 22379 22404 "src/cryptokit.ml" 714 22379 22413
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 714 22379 22390 "src/cryptokit.ml" 714 22379 22413
type(
  bool
)
"src/cryptokit.ml" 716 22482 22492 "src/cryptokit.ml" 716 22482 22502
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 716 22482 22503 "src/cryptokit.ml" 716 22482 22506
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 711 22271 22296 "src/cryptokit.ml" 711 22271 22299
)
"src/cryptokit.ml" 716 22482 22507 "src/cryptokit.ml" 716 22482 22514
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 712 22314 22332 "src/cryptokit.ml" 712 22314 22339
)
"src/cryptokit.ml" 716 22482 22515 "src/cryptokit.ml" 716 22482 22521
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 716 22482 22522 "src/cryptokit.ml" 716 22482 22526
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 716 22482 22527 "src/cryptokit.ml" 716 22482 22530
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 712 22314 22343
)
"src/cryptokit.ml" 716 22482 22492 "src/cryptokit.ml" 716 22482 22530
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 717 22532 22550 "src/cryptokit.ml" 717 22532 22554
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 717 22532 22555 "src/cryptokit.ml" 717 22532 22556
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 717 22532 22557 "src/cryptokit.ml" 717 22532 22560
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 712 22314 22343
)
"src/cryptokit.ml" 717 22532 22550 "src/cryptokit.ml" 717 22532 22560
type(
  int
)
"src/cryptokit.ml" 717 22532 22542 "src/cryptokit.ml" 717 22532 22560
type(
  unit
)
"src/cryptokit.ml" 714 22379 22419 "src/cryptokit.ml" 718 22561 22572
type(
  unit
)
"src/cryptokit.ml" 720 22638 22652 "src/cryptokit.ml" 720 22638 22653
type(
  int
)
ident(
  def n "src/cryptokit.ml" 721 22676 22686 "src/cryptokit.ml" 726 22879 22916
)
"src/cryptokit.ml" 720 22638 22656 "src/cryptokit.ml" 720 22638 22665
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 720 22638 22666 "src/cryptokit.ml" 720 22638 22667
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 720 22638 22668 "src/cryptokit.ml" 720 22638 22672
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 720 22638 22656 "src/cryptokit.ml" 720 22638 22672
type(
  int
)
"src/cryptokit.ml" 721 22676 22686 "src/cryptokit.ml" 721 22676 22696
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 721 22676 22697 "src/cryptokit.ml" 721 22676 22700
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 711 22271 22296 "src/cryptokit.ml" 711 22271 22299
)
"src/cryptokit.ml" 721 22676 22701 "src/cryptokit.ml" 721 22676 22708
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 712 22314 22332 "src/cryptokit.ml" 712 22314 22339
)
"src/cryptokit.ml" 721 22676 22709 "src/cryptokit.ml" 721 22676 22715
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 721 22676 22716 "src/cryptokit.ml" 721 22676 22720
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 721 22676 22721 "src/cryptokit.ml" 721 22676 22722
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 720 22638 22652 "src/cryptokit.ml" 720 22638 22653
)
"src/cryptokit.ml" 721 22676 22686 "src/cryptokit.ml" 721 22676 22722
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 722 22724 22734 "src/cryptokit.ml" 722 22724 22743
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 722 22724 22744 "src/cryptokit.ml" 722 22724 22746
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 722 22724 22747 "src/cryptokit.ml" 722 22724 22748
type(
  int
)
"src/cryptokit.ml" 722 22724 22749 "src/cryptokit.ml" 722 22724 22755
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 722 22724 22756 "src/cryptokit.ml" 722 22724 22757
type(
  int
)
"src/cryptokit.ml" 722 22724 22758 "src/cryptokit.ml" 722 22724 22767
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 722 22724 22734 "src/cryptokit.ml" 722 22724 22767
type(
  unit
)
"src/cryptokit.ml" 723 22769 22779 "src/cryptokit.ml" 723 22769 22785
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
)
"src/cryptokit.ml" 723 22769 22779 "src/cryptokit.ml" 723 22769 22795
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 723 22769 22796 "src/cryptokit.ml" 723 22769 22802
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 723 22769 22803 "src/cryptokit.ml" 723 22769 22804
type(
  int
)
"src/cryptokit.ml" 723 22769 22805 "src/cryptokit.ml" 723 22769 22807
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 723 22769 22808 "src/cryptokit.ml" 723 22769 22809
type(
  int
)
"src/cryptokit.ml" 723 22769 22779 "src/cryptokit.ml" 723 22769 22809
type(
  unit
)
"src/cryptokit.ml" 724 22811 22829 "src/cryptokit.ml" 724 22811 22830
type(
  int
)
"src/cryptokit.ml" 724 22811 22821 "src/cryptokit.ml" 724 22811 22830
type(
  unit
)
"src/cryptokit.ml" 726 22879 22889 "src/cryptokit.ml" 726 22879 22892
type(
  int -> int -> unit
)
ident(
  int_ref add "src/cryptokit.ml" 712 22314 22328 "src/cryptokit.ml" 712 22314 22331
)
"src/cryptokit.ml" 726 22879 22894 "src/cryptokit.ml" 726 22879 22901
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 712 22314 22332 "src/cryptokit.ml" 712 22314 22339
)
"src/cryptokit.ml" 726 22879 22902 "src/cryptokit.ml" 726 22879 22903
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 726 22879 22904 "src/cryptokit.ml" 726 22879 22905
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 720 22638 22652 "src/cryptokit.ml" 720 22638 22653
)
"src/cryptokit.ml" 726 22879 22893 "src/cryptokit.ml" 726 22879 22906
type(
  int
)
"src/cryptokit.ml" 726 22879 22908 "src/cryptokit.ml" 726 22879 22911
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 712 22314 22340 "src/cryptokit.ml" 712 22314 22343
)
"src/cryptokit.ml" 726 22879 22912 "src/cryptokit.ml" 726 22879 22913
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 726 22879 22914 "src/cryptokit.ml" 726 22879 22915
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 720 22638 22652 "src/cryptokit.ml" 720 22638 22653
)
"src/cryptokit.ml" 726 22879 22907 "src/cryptokit.ml" 726 22879 22916
type(
  int
)
"src/cryptokit.ml" 726 22879 22889 "src/cryptokit.ml" 726 22879 22916
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 724 22811 22821 "src/cryptokit.ml" 726 22879 22916
type(
  unit
)
"src/cryptokit.ml" 723 22769 22779 "src/cryptokit.ml" 726 22879 22916
type(
  unit
)
"src/cryptokit.ml" 722 22724 22734 "src/cryptokit.ml" 726 22879 22916
type(
  unit
)
"src/cryptokit.ml" 721 22676 22686 "src/cryptokit.ml" 726 22879 22916
type(
  unit
)
"src/cryptokit.ml" 718 22561 22578 "src/cryptokit.ml" 727 22917 22928
type(
  unit
)
"src/cryptokit.ml" 714 22379 22387 "src/cryptokit.ml" 727 22917 22928
type(
  unit
)
"src/cryptokit.ml" 713 22346 22354 "src/cryptokit.ml" 727 22917 22928
type(
  unit
)
"src/cryptokit.ml" 728 22929 22938 "src/cryptokit.ml" 728 22929 22941
type(
  int -> int -> unit
)
ident(
  int_ref add "src/cryptokit.ml" 712 22314 22328 "src/cryptokit.ml" 712 22314 22331
)
"src/cryptokit.ml" 728 22929 22942 "src/cryptokit.ml" 728 22929 22949
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 711 22271 22300 "src/cryptokit.ml" 711 22271 22307
)
"src/cryptokit.ml" 728 22929 22950 "src/cryptokit.ml" 728 22929 22953
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 711 22271 22308 "src/cryptokit.ml" 711 22271 22311
)
"src/cryptokit.ml" 728 22929 22938 "src/cryptokit.ml" 728 22929 22953
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 712 22314 22320 "src/cryptokit.ml" 728 22929 22953
type(
  unit
)
"src/cryptokit.ml" 730 22955 22977 "src/cryptokit.ml" 730 22955 22978
type(
  string
)
ident(
  def s "src/cryptokit.ml" 731 22981 22987 "src/cryptokit.ml" 731 22981 23052
)
"src/cryptokit.ml" 731 22981 22987 "src/cryptokit.ml" 731 22981 22991
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'd
)
ident(
  int_ref self "src/cryptokit.ml" 704 22109 22117 "src/cryptokit.ml" 704 22109 22123
)
"src/cryptokit.ml" 731 22981 22987 "src/cryptokit.ml" 731 22981 23005
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 731 22981 23007 "src/cryptokit.ml" 731 22981 23029
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 731 22981 23030 "src/cryptokit.ml" 731 22981 23031
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 730 22955 22977 "src/cryptokit.ml" 730 22955 22978
)
"src/cryptokit.ml" 731 22981 23006 "src/cryptokit.ml" 731 22981 23032
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 731 22981 23033 "src/cryptokit.ml" 731 22981 23034
type(
  int
)
"src/cryptokit.ml" 731 22981 23036 "src/cryptokit.ml" 731 22981 23049
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 731 22981 23050 "src/cryptokit.ml" 731 22981 23051
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 730 22955 22977 "src/cryptokit.ml" 730 22955 22978
)
"src/cryptokit.ml" 731 22981 23035 "src/cryptokit.ml" 731 22981 23052
type(
  int
)
"src/cryptokit.ml" 731 22981 22987 "src/cryptokit.ml" 731 22981 23052
type(
  unit
)
"src/cryptokit.ml" 733 23054 23074 "src/cryptokit.ml" 733 23054 23075
type(
  char
)
ident(
  def c "src/cryptokit.ml" 734 23078 23084 "src/cryptokit.ml" 742 23325 23334
)
"src/cryptokit.ml" 734 23078 23087 "src/cryptokit.ml" 734 23078 23091
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 734 23078 23092 "src/cryptokit.ml" 734 23078 23093
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 734 23078 23094 "src/cryptokit.ml" 734 23078 23103
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 734 23078 23087 "src/cryptokit.ml" 734 23078 23103
type(
  bool
)
"src/cryptokit.ml" 735 23115 23123 "src/cryptokit.ml" 735 23115 23132
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 735 23115 23133 "src/cryptokit.ml" 735 23115 23139
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 735 23115 23140 "src/cryptokit.ml" 735 23115 23144
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 735 23115 23145 "src/cryptokit.ml" 735 23115 23146
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 733 23054 23074 "src/cryptokit.ml" 733 23054 23075
)
"src/cryptokit.ml" 735 23115 23123 "src/cryptokit.ml" 735 23115 23146
type(
  unit
)
"src/cryptokit.ml" 736 23148 23164 "src/cryptokit.ml" 736 23148 23168
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 736 23148 23169 "src/cryptokit.ml" 736 23148 23170
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 736 23148 23171 "src/cryptokit.ml" 736 23148 23172
type(
  int
)
"src/cryptokit.ml" 736 23148 23164 "src/cryptokit.ml" 736 23148 23172
type(
  int
)
"src/cryptokit.ml" 736 23148 23156 "src/cryptokit.ml" 736 23148 23172
type(
  unit
)
"src/cryptokit.ml" 734 23078 23109 "src/cryptokit.ml" 737 23173 23182
type(
  unit
)
"src/cryptokit.ml" 738 23194 23202 "src/cryptokit.ml" 738 23194 23211
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 738 23194 23212 "src/cryptokit.ml" 738 23194 23214
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 738 23194 23215 "src/cryptokit.ml" 738 23194 23216
type(
  int
)
"src/cryptokit.ml" 738 23194 23217 "src/cryptokit.ml" 738 23194 23223
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 738 23194 23224 "src/cryptokit.ml" 738 23194 23225
type(
  int
)
"src/cryptokit.ml" 738 23194 23226 "src/cryptokit.ml" 738 23194 23235
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 738 23194 23202 "src/cryptokit.ml" 738 23194 23235
type(
  unit
)
"src/cryptokit.ml" 739 23237 23245 "src/cryptokit.ml" 739 23237 23251
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
)
"src/cryptokit.ml" 739 23237 23245 "src/cryptokit.ml" 739 23237 23261
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 739 23237 23262 "src/cryptokit.ml" 739 23237 23268
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 739 23237 23269 "src/cryptokit.ml" 739 23237 23270
type(
  int
)
"src/cryptokit.ml" 739 23237 23271 "src/cryptokit.ml" 739 23237 23273
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 739 23237 23274 "src/cryptokit.ml" 739 23237 23275
type(
  int
)
"src/cryptokit.ml" 739 23237 23245 "src/cryptokit.ml" 739 23237 23275
type(
  unit
)
"src/cryptokit.ml" 740 23277 23285 "src/cryptokit.ml" 740 23277 23294
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 740 23277 23295 "src/cryptokit.ml" 740 23277 23301
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 740 23277 23302 "src/cryptokit.ml" 740 23277 23303
type(
  int
)
"src/cryptokit.ml" 740 23277 23304 "src/cryptokit.ml" 740 23277 23305
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 733 23054 23074 "src/cryptokit.ml" 733 23054 23075
)
"src/cryptokit.ml" 740 23277 23285 "src/cryptokit.ml" 740 23277 23305
type(
  unit
)
"src/cryptokit.ml" 741 23307 23323 "src/cryptokit.ml" 741 23307 23324
type(
  int
)
"src/cryptokit.ml" 741 23307 23315 "src/cryptokit.ml" 741 23307 23324
type(
  unit
)
"src/cryptokit.ml" 740 23277 23285 "src/cryptokit.ml" 741 23307 23324
type(
  unit
)
"src/cryptokit.ml" 739 23237 23245 "src/cryptokit.ml" 741 23307 23324
type(
  unit
)
"src/cryptokit.ml" 737 23173 23188 "src/cryptokit.ml" 742 23325 23334
type(
  unit
)
"src/cryptokit.ml" 734 23078 23084 "src/cryptokit.ml" 742 23325 23334
type(
  unit
)
"src/cryptokit.ml" 744 23336 23356 "src/cryptokit.ml" 744 23336 23357
type(
  int
)
ident(
  def b "src/cryptokit.ml" 745 23360 23366 "src/cryptokit.ml" 745 23360 23399
)
"src/cryptokit.ml" 745 23360 23366 "src/cryptokit.ml" 745 23360 23370
type(
  'd
)
ident(
  int_ref self "src/cryptokit.ml" 704 22109 22117 "src/cryptokit.ml" 704 22109 22123
)
"src/cryptokit.ml" 745 23360 23366 "src/cryptokit.ml" 745 23360 23379
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 745 23360 23381 "src/cryptokit.ml" 745 23360 23396
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 745 23360 23397 "src/cryptokit.ml" 745 23360 23398
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 744 23336 23356 "src/cryptokit.ml" 744 23336 23357
)
"src/cryptokit.ml" 745 23360 23380 "src/cryptokit.ml" 745 23360 23399
type(
  char
)
"src/cryptokit.ml" 745 23360 23366 "src/cryptokit.ml" 745 23360 23399
type(
  unit
)
"src/cryptokit.ml" 748 23419 23425 "src/cryptokit.ml" 748 23419 23431
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
)
"src/cryptokit.ml" 748 23419 23425 "src/cryptokit.ml" 748 23419 23436
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 749 23438 23444 "src/cryptokit.ml" 749 23438 23454
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 749 23438 23455 "src/cryptokit.ml" 749 23438 23461
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 749 23438 23444 "src/cryptokit.ml" 749 23438 23461
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 750 23463 23469 "src/cryptokit.ml" 750 23463 23479
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 750 23463 23480 "src/cryptokit.ml" 750 23463 23482
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 750 23463 23469 "src/cryptokit.ml" 750 23463 23482
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 749 23438 23444 "src/cryptokit.ml" 750 23463 23482
type(
  unit
)
"src/cryptokit.ml" 748 23419 23425 "src/cryptokit.ml" 750 23463 23482
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 753 23504 23513 "src/cryptokit.ml" 753 23504 23517
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 753 23504 23518 "src/cryptokit.ml" 753 23504 23519
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 753 23504 23520 "src/cryptokit.ml" 753 23504 23529
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 753 23504 23513 "src/cryptokit.ml" 753 23504 23529
type(
  bool
)
"src/cryptokit.ml" 754 23541 23549 "src/cryptokit.ml" 754 23541 23558
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 754 23541 23559 "src/cryptokit.ml" 754 23541 23561
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 754 23541 23562 "src/cryptokit.ml" 754 23541 23563
type(
  int
)
"src/cryptokit.ml" 754 23541 23564 "src/cryptokit.ml" 754 23541 23570
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 754 23541 23571 "src/cryptokit.ml" 754 23541 23572
type(
  int
)
"src/cryptokit.ml" 754 23541 23573 "src/cryptokit.ml" 754 23541 23582
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 754 23541 23549 "src/cryptokit.ml" 754 23541 23582
type(
  unit
)
"src/cryptokit.ml" 755 23584 23592 "src/cryptokit.ml" 755 23584 23598
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
)
"src/cryptokit.ml" 755 23584 23592 "src/cryptokit.ml" 755 23584 23608
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 755 23584 23609 "src/cryptokit.ml" 755 23584 23615
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 755 23584 23616 "src/cryptokit.ml" 755 23584 23617
type(
  int
)
"src/cryptokit.ml" 755 23584 23618 "src/cryptokit.ml" 755 23584 23620
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 755 23584 23621 "src/cryptokit.ml" 755 23584 23622
type(
  int
)
"src/cryptokit.ml" 755 23584 23592 "src/cryptokit.ml" 755 23584 23622
type(
  unit
)
"src/cryptokit.ml" 756 23624 23640 "src/cryptokit.ml" 756 23624 23641
type(
  int
)
"src/cryptokit.ml" 756 23624 23632 "src/cryptokit.ml" 756 23624 23641
type(
  unit
)
"src/cryptokit.ml" 755 23584 23592 "src/cryptokit.ml" 756 23624 23641
type(
  unit
)
"src/cryptokit.ml" 753 23504 23535 "src/cryptokit.ml" 757 23642 23651
type(
  unit
)
"src/cryptokit.ml" 753 23504 23510 "src/cryptokit.ml" 757 23642 23651
type(
  unit
)
"src/cryptokit.ml" 758 23653 23671 "src/cryptokit.ml" 758 23653 23674
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 702 21993 22017 "src/cryptokit.ml" 702 21993 22020
)
"src/cryptokit.ml" 759 23680 23688 "src/cryptokit.ml" 759 23680 23692
type(
  Padding.scheme option
)
"src/cryptokit.ml" 760 23696 23709 "src/cryptokit.ml" 760 23696 23713
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 760 23696 23714 "src/cryptokit.ml" 760 23696 23716
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 760 23696 23717 "src/cryptokit.ml" 760 23696 23718
type(
  int
)
"src/cryptokit.ml" 760 23696 23709 "src/cryptokit.ml" 760 23696 23718
type(
  bool
)
"src/cryptokit.ml" 760 23696 23724 "src/cryptokit.ml" 760 23696 23729
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 760 23696 23737 "src/cryptokit.ml" 760 23696 23754
type(
  error
)
"src/cryptokit.ml" 760 23696 23730 "src/cryptokit.ml" 760 23696 23755
type(
  exn
)
"src/cryptokit.ml" 760 23696 23724 "src/cryptokit.ml" 760 23696 23755
type(
  unit
)
"src/cryptokit.ml" 760 23696 23706 "src/cryptokit.ml" 760 23696 23755
type(
  unit
)
"src/cryptokit.ml" 761 23756 23769 "src/cryptokit.ml" 761 23756 23770
type(
  Padding.scheme
)
ident(
  def p "src/cryptokit.ml" 762 23774 23784 "src/cryptokit.ml" 765 23890 23909
)
"src/cryptokit.ml" 761 23756 23764 "src/cryptokit.ml" 761 23756 23770
type(
  Padding.scheme option
)
"src/cryptokit.ml" 762 23774 23784 "src/cryptokit.ml" 762 23774 23785
type(
  Padding.scheme
)
ident(
  int_ref p "src/cryptokit.ml" 761 23756 23769 "src/cryptokit.ml" 761 23756 23770
)
"src/cryptokit.ml" 762 23774 23784 "src/cryptokit.ml" 762 23774 23789
call(
  stack
)
type(
  bytes -> int -> unit
)
"src/cryptokit.ml" 762 23774 23790 "src/cryptokit.ml" 762 23774 23796
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 762 23774 23797 "src/cryptokit.ml" 762 23774 23801
type(
  int
)
ident(
  ext_ref used
)
"src/cryptokit.ml" 762 23774 23784 "src/cryptokit.ml" 762 23774 23801
type(
  unit
)
"src/cryptokit.ml" 763 23803 23813 "src/cryptokit.ml" 763 23803 23822
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 763 23803 23823 "src/cryptokit.ml" 763 23803 23825
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 763 23803 23826 "src/cryptokit.ml" 763 23803 23827
type(
  int
)
"src/cryptokit.ml" 763 23803 23828 "src/cryptokit.ml" 763 23803 23834
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 763 23803 23835 "src/cryptokit.ml" 763 23803 23836
type(
  int
)
"src/cryptokit.ml" 763 23803 23837 "src/cryptokit.ml" 763 23803 23846
type(
  int
)
ident(
  int_ref blocksize "src/cryptokit.ml" 703 22071 22077 "src/cryptokit.ml" 703 22071 22086
)
"src/cryptokit.ml" 763 23803 23813 "src/cryptokit.ml" 763 23803 23846
type(
  unit
)
"src/cryptokit.ml" 764 23848 23858 "src/cryptokit.ml" 764 23848 23864
type(
  block_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 702 21993 22046 "src/cryptokit.ml" 702 21993 22052
)
"src/cryptokit.ml" 764 23848 23858 "src/cryptokit.ml" 764 23848 23874
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 764 23848 23875 "src/cryptokit.ml" 764 23848 23881
type(
  bytes
)
ident(
  ext_ref buffer
)
"src/cryptokit.ml" 764 23848 23882 "src/cryptokit.ml" 764 23848 23883
type(
  int
)
"src/cryptokit.ml" 764 23848 23884 "src/cryptokit.ml" 764 23848 23886
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 764 23848 23887 "src/cryptokit.ml" 764 23848 23888
type(
  int
)
"src/cryptokit.ml" 764 23848 23858 "src/cryptokit.ml" 764 23848 23888
type(
  unit
)
"src/cryptokit.ml" 765 23890 23908 "src/cryptokit.ml" 765 23890 23909
type(
  int
)
"src/cryptokit.ml" 765 23890 23900 "src/cryptokit.ml" 765 23890 23909
type(
  unit
)
"src/cryptokit.ml" 764 23848 23858 "src/cryptokit.ml" 765 23890 23909
type(
  unit
)
"src/cryptokit.ml" 763 23803 23813 "src/cryptokit.ml" 765 23890 23909
type(
  unit
)
"src/cryptokit.ml" 762 23774 23784 "src/cryptokit.ml" 765 23890 23909
type(
  unit
)
"src/cryptokit.ml" 758 23653 23659 "src/cryptokit.ml" 766 23910 23919
type(
  unit
)
"src/cryptokit.ml" 767 23921 23927 "src/cryptokit.ml" 767 23921 23942
type(
  bytes -> string
)
ident(
  ext_ref Bytes.to_string
)
"src/cryptokit.ml" 767 23921 23943 "src/cryptokit.ml" 767 23921 23945
type(
  bytes
)
ident(
  ext_ref iv
)
"src/cryptokit.ml" 767 23921 23927 "src/cryptokit.ml" 767 23921 23945
call(
  tail
)
type(
  string
)
"src/cryptokit.ml" 758 23653 23659 "src/cryptokit.ml" 767 23921 23945
type(
  string
)
"src/cryptokit.ml" 753 23504 23510 "src/cryptokit.ml" 767 23921 23945
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 770 23953 23977 "src/cryptokit.ml" 770 23953 23979
type(
  string option
)
"src/cryptokit.ml" 770 23953 23981 "src/cryptokit.ml" 770 23953 23984
type(
  Padding.scheme option
)
"src/cryptokit.ml" 770 23953 23986 "src/cryptokit.ml" 770 23953 23993
type(
  block_cipher
)
"src/cryptokit.ml" 771 24010 24043 "src/cryptokit.ml" 771 24010 24050
type(
  block_cipher
)
"src/cryptokit.ml" 772 24067 24100 "src/cryptokit.ml" 772 24067 24107
type(
  block_cipher
)
"src/cryptokit.ml" 773 24126 24132 "src/cryptokit.ml" 773 24126 24133
type(
  unit
)
"src/cryptokit.ml" 773 24126 24139 "src/cryptokit.ml" 773 24126 24146
type(
  block_cipher
)
ident(
  int_ref cipher1 "src/cryptokit.ml" 770 23953 23986 "src/cryptokit.ml" 770 23953 23993
)
"src/cryptokit.ml" 773 24126 24139 "src/cryptokit.ml" 773 24126 24156
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 773 24126 24157 "src/cryptokit.ml" 773 24126 24159
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 773 24126 24160 "src/cryptokit.ml" 773 24126 24167
type(
  block_cipher
)
ident(
  int_ref cipher2 "src/cryptokit.ml" 771 24010 24043 "src/cryptokit.ml" 771 24010 24050
)
"src/cryptokit.ml" 773 24126 24160 "src/cryptokit.ml" 773 24126 24177
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 773 24126 24139 "src/cryptokit.ml" 773 24126 24177
type(
  bool
)
"src/cryptokit.ml" 774 24178 24188 "src/cryptokit.ml" 774 24178 24190
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 774 24178 24191 "src/cryptokit.ml" 774 24178 24198
type(
  block_cipher
)
ident(
  int_ref cipher2 "src/cryptokit.ml" 771 24010 24043 "src/cryptokit.ml" 771 24010 24050
)
"src/cryptokit.ml" 774 24178 24191 "src/cryptokit.ml" 774 24178 24208
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 774 24178 24209 "src/cryptokit.ml" 774 24178 24211
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 774 24178 24212 "src/cryptokit.ml" 774 24178 24219
type(
  block_cipher
)
ident(
  int_ref cipher3 "src/cryptokit.ml" 772 24067 24100 "src/cryptokit.ml" 772 24067 24107
)
"src/cryptokit.ml" 774 24178 24212 "src/cryptokit.ml" 774 24178 24229
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 774 24178 24191 "src/cryptokit.ml" 774 24178 24229
type(
  bool
)
"src/cryptokit.ml" 773 24126 24139 "src/cryptokit.ml" 774 24178 24229
type(
  bool
)
"src/cryptokit.ml" 775 24230 24245 "src/cryptokit.ml" 775 24230 24250
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 775 24230 24257 "src/cryptokit.ml" 775 24230 24280
type(
  error
)
"src/cryptokit.ml" 775 24230 24250 "src/cryptokit.ml" 775 24230 24281
type(
  exn
)
"src/cryptokit.ml" 775 24230 24245 "src/cryptokit.ml" 775 24230 24281
type(
  unit
)
"src/cryptokit.ml" 773 24126 24136 "src/cryptokit.ml" 775 24230 24281
type(
  unit
)
"src/cryptokit.ml" 777 24294 24311 "src/cryptokit.ml" 777 24294 24313
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 770 23953 23977 "src/cryptokit.ml" 770 23953 23979
)
"src/cryptokit.ml" 777 24294 24315 "src/cryptokit.ml" 777 24294 24318
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 770 23953 23981 "src/cryptokit.ml" 770 23953 23984
)
"src/cryptokit.ml" 777 24294 24319 "src/cryptokit.ml" 777 24294 24326
type(
  block_cipher
)
ident(
  int_ref cipher1 "src/cryptokit.ml" 770 23953 23986 "src/cryptokit.ml" 770 23953 23993
)
"src/cryptokit.ml" 779 24356 24366 "src/cryptokit.ml" 779 24356 24367
type(
  bytes
)
ident(
  def r "src/cryptokit.ml" 780 24402 24408 "src/cryptokit.ml" 782 24468 24498
)
"src/cryptokit.ml" 779 24356 24370 "src/cryptokit.ml" 779 24356 24385
type(
  string -> bytes
)
ident(
  ext_ref Bytes.of_string
)
"src/cryptokit.ml" 779 24356 24386 "src/cryptokit.ml" 779 24356 24391
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
ident(
  int_ref super "src/cryptokit.ml" 777 24294 24306 "src/cryptokit.ml" 777 24294 24326
)
"src/cryptokit.ml" 779 24356 24386 "src/cryptokit.ml" 779 24356 24398
call(
  stack
)
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 779 24356 24370 "src/cryptokit.ml" 779 24356 24398
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 780 24402 24408 "src/cryptokit.ml" 780 24402 24415
type(
  block_cipher
)
ident(
  int_ref cipher2 "src/cryptokit.ml" 771 24010 24043 "src/cryptokit.ml" 771 24010 24050
)
"src/cryptokit.ml" 780 24402 24408 "src/cryptokit.ml" 780 24402 24425
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 780 24402 24426 "src/cryptokit.ml" 780 24402 24427
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 779 24356 24366 "src/cryptokit.ml" 779 24356 24367
)
"src/cryptokit.ml" 780 24402 24428 "src/cryptokit.ml" 780 24402 24429
type(
  int
)
"src/cryptokit.ml" 780 24402 24430 "src/cryptokit.ml" 780 24402 24431
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 779 24356 24366 "src/cryptokit.ml" 779 24356 24367
)
"src/cryptokit.ml" 780 24402 24432 "src/cryptokit.ml" 780 24402 24433
type(
  int
)
"src/cryptokit.ml" 780 24402 24408 "src/cryptokit.ml" 780 24402 24433
type(
  unit
)
"src/cryptokit.ml" 781 24435 24441 "src/cryptokit.ml" 781 24435 24448
type(
  block_cipher
)
ident(
  int_ref cipher3 "src/cryptokit.ml" 772 24067 24100 "src/cryptokit.ml" 772 24067 24107
)
"src/cryptokit.ml" 781 24435 24441 "src/cryptokit.ml" 781 24435 24458
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 781 24435 24459 "src/cryptokit.ml" 781 24435 24460
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 779 24356 24366 "src/cryptokit.ml" 779 24356 24367
)
"src/cryptokit.ml" 781 24435 24461 "src/cryptokit.ml" 781 24435 24462
type(
  int
)
"src/cryptokit.ml" 781 24435 24463 "src/cryptokit.ml" 781 24435 24464
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 779 24356 24366 "src/cryptokit.ml" 779 24356 24367
)
"src/cryptokit.ml" 781 24435 24465 "src/cryptokit.ml" 781 24435 24466
type(
  int
)
"src/cryptokit.ml" 781 24435 24441 "src/cryptokit.ml" 781 24435 24466
type(
  unit
)
"src/cryptokit.ml" 782 24468 24474 "src/cryptokit.ml" 782 24468 24496
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/cryptokit.ml" 782 24468 24497 "src/cryptokit.ml" 782 24468 24498
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 779 24356 24366 "src/cryptokit.ml" 779 24356 24367
)
"src/cryptokit.ml" 782 24468 24474 "src/cryptokit.ml" 782 24468 24498
call(
  tail
)
type(
  string
)
"src/cryptokit.ml" 781 24435 24441 "src/cryptokit.ml" 782 24468 24498
type(
  string
)
"src/cryptokit.ml" 780 24402 24408 "src/cryptokit.ml" 782 24468 24498
type(
  string
)
"src/cryptokit.ml" 779 24356 24362 "src/cryptokit.ml" 782 24468 24498
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 784 24517 24523 "src/cryptokit.ml" 784 24517 24528
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'e
)
ident(
  int_ref super "src/cryptokit.ml" 777 24294 24306 "src/cryptokit.ml" 777 24294 24326
)
"src/cryptokit.ml" 784 24517 24523 "src/cryptokit.ml" 784 24517 24533
call(
  stack
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 784 24517 24535 "src/cryptokit.ml" 784 24517 24542
type(
  block_cipher
)
ident(
  int_ref cipher2 "src/cryptokit.ml" 771 24010 24043 "src/cryptokit.ml" 771 24010 24050
)
"src/cryptokit.ml" 784 24517 24535 "src/cryptokit.ml" 784 24517 24547
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 784 24517 24549 "src/cryptokit.ml" 784 24517 24556
type(
  block_cipher
)
ident(
  int_ref cipher3 "src/cryptokit.ml" 772 24067 24100 "src/cryptokit.ml" 772 24067 24107
)
"src/cryptokit.ml" 784 24517 24549 "src/cryptokit.ml" 784 24517 24561
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 784 24517 24535 "src/cryptokit.ml" 784 24517 24561
type(
  unit
)
"src/cryptokit.ml" 784 24517 24523 "src/cryptokit.ml" 784 24517 24561
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 799 24751 24765 "src/cryptokit.ml" 799 24751 24768
type(
  string
)
"src/cryptokit.ml" 802 24795 24804 "src/cryptokit.ml" 802 24795 24817
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 802 24795 24818 "src/cryptokit.ml" 802 24795 24821
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 799 24751 24765 "src/cryptokit.ml" 799 24751 24768
)
"src/cryptokit.ml" 802 24795 24804 "src/cryptokit.ml" 802 24795 24821
type(
  int
)
"src/cryptokit.ml" 802 24795 24822 "src/cryptokit.ml" 802 24795 24823
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 802 24795 24824 "src/cryptokit.ml" 802 24795 24825
type(
  int
)
"src/cryptokit.ml" 802 24795 24804 "src/cryptokit.ml" 802 24795 24825
type(
  bool
)
"src/cryptokit.ml" 802 24795 24826 "src/cryptokit.ml" 802 24795 24828
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 802 24795 24829 "src/cryptokit.ml" 802 24795 24842
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 802 24795 24843 "src/cryptokit.ml" 802 24795 24846
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 799 24751 24765 "src/cryptokit.ml" 799 24751 24768
)
"src/cryptokit.ml" 802 24795 24829 "src/cryptokit.ml" 802 24795 24846
type(
  int
)
"src/cryptokit.ml" 802 24795 24847 "src/cryptokit.ml" 802 24795 24849
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 802 24795 24850 "src/cryptokit.ml" 802 24795 24853
type(
  int
)
"src/cryptokit.ml" 802 24795 24829 "src/cryptokit.ml" 802 24795 24853
type(
  bool
)
"src/cryptokit.ml" 802 24795 24804 "src/cryptokit.ml" 802 24795 24853
type(
  bool
)
"src/cryptokit.ml" 803 24854 24865 "src/cryptokit.ml" 803 24854 24881
type(
  string -> bytes
)
ident(
  int_ref arcfour_cook_key "src/cryptokit.ml" 54 2464 2464 "src/cryptokit.ml" 54 2464 2533
)
"src/cryptokit.ml" 803 24854 24882 "src/cryptokit.ml" 803 24854 24885
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 799 24751 24765 "src/cryptokit.ml" 799 24751 24768
)
"src/cryptokit.ml" 803 24854 24865 "src/cryptokit.ml" 803 24854 24885
type(
  bytes
)
"src/cryptokit.ml" 804 24886 24897 "src/cryptokit.ml" 804 24886 24902
type(
  exn -> bytes
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 804 24886 24909 "src/cryptokit.ml" 804 24886 24923
type(
  error
)
"src/cryptokit.ml" 804 24886 24902 "src/cryptokit.ml" 804 24886 24924
type(
  exn
)
"src/cryptokit.ml" 804 24886 24897 "src/cryptokit.ml" 804 24886 24924
type(
  bytes
)
"src/cryptokit.ml" 802 24795 24801 "src/cryptokit.ml" 804 24886 24924
type(
  bytes
)
"src/cryptokit.ml" 805 24925 24946 "src/cryptokit.ml" 805 24925 24949
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 805 24925 24950 "src/cryptokit.ml" 810 25151 25207
)
"src/cryptokit.ml" 805 24925 24950 "src/cryptokit.ml" 805 24925 24957
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 805 24925 24958 "src/cryptokit.ml" 810 25151 25207
)
"src/cryptokit.ml" 805 24925 24958 "src/cryptokit.ml" 805 24925 24961
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 805 24925 24962 "src/cryptokit.ml" 810 25151 25207
)
"src/cryptokit.ml" 805 24925 24962 "src/cryptokit.ml" 805 24925 24969
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 805 24925 24970 "src/cryptokit.ml" 810 25151 25207
)
"src/cryptokit.ml" 805 24925 24970 "src/cryptokit.ml" 805 24925 24973
type(
  int
)
ident(
  def len "src/cryptokit.ml" 806 24976 24982 "src/cryptokit.ml" 810 25151 25207
)
"src/cryptokit.ml" 806 24976 24985 "src/cryptokit.ml" 806 24976 24988
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 805 24925 24970 "src/cryptokit.ml" 805 24925 24973
)
"src/cryptokit.ml" 806 24976 24989 "src/cryptokit.ml" 806 24976 24990
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 806 24976 24991 "src/cryptokit.ml" 806 24976 24992
type(
  int
)
"src/cryptokit.ml" 806 24976 24985 "src/cryptokit.ml" 806 24976 24992
type(
  bool
)
"src/cryptokit.ml" 807 24993 24999 "src/cryptokit.ml" 807 24993 25001
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 807 24993 25002 "src/cryptokit.ml" 807 24993 25009
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 805 24925 24950 "src/cryptokit.ml" 805 24925 24957
)
"src/cryptokit.ml" 807 24993 25010 "src/cryptokit.ml" 807 24993 25011
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 807 24993 25012 "src/cryptokit.ml" 807 24993 25013
type(
  int
)
"src/cryptokit.ml" 807 24993 25002 "src/cryptokit.ml" 807 24993 25013
type(
  bool
)
"src/cryptokit.ml" 807 24993 25014 "src/cryptokit.ml" 807 24993 25016
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 807 24993 25017 "src/cryptokit.ml" 807 24993 25024
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 805 24925 24950 "src/cryptokit.ml" 805 24925 24957
)
"src/cryptokit.ml" 807 24993 25025 "src/cryptokit.ml" 807 24993 25026
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 807 24993 25027 "src/cryptokit.ml" 807 24993 25039
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 807 24993 25040 "src/cryptokit.ml" 807 24993 25043
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 805 24925 24946 "src/cryptokit.ml" 805 24925 24949
)
"src/cryptokit.ml" 807 24993 25027 "src/cryptokit.ml" 807 24993 25043
type(
  int
)
"src/cryptokit.ml" 807 24993 25044 "src/cryptokit.ml" 807 24993 25045
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 807 24993 25046 "src/cryptokit.ml" 807 24993 25049
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 805 24925 24970 "src/cryptokit.ml" 805 24925 24973
)
"src/cryptokit.ml" 807 24993 25027 "src/cryptokit.ml" 807 24993 25049
type(
  int
)
"src/cryptokit.ml" 807 24993 25017 "src/cryptokit.ml" 807 24993 25049
type(
  bool
)
"src/cryptokit.ml" 808 25050 25056 "src/cryptokit.ml" 808 25050 25058
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 808 25050 25059 "src/cryptokit.ml" 808 25050 25066
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 805 24925 24962 "src/cryptokit.ml" 805 24925 24969
)
"src/cryptokit.ml" 808 25050 25067 "src/cryptokit.ml" 808 25050 25068
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 808 25050 25069 "src/cryptokit.ml" 808 25050 25070
type(
  int
)
"src/cryptokit.ml" 808 25050 25059 "src/cryptokit.ml" 808 25050 25070
type(
  bool
)
"src/cryptokit.ml" 808 25050 25071 "src/cryptokit.ml" 808 25050 25073
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 808 25050 25074 "src/cryptokit.ml" 808 25050 25081
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 805 24925 24962 "src/cryptokit.ml" 805 24925 24969
)
"src/cryptokit.ml" 808 25050 25082 "src/cryptokit.ml" 808 25050 25083
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 808 25050 25084 "src/cryptokit.ml" 808 25050 25096
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 808 25050 25097 "src/cryptokit.ml" 808 25050 25100
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 805 24925 24958 "src/cryptokit.ml" 805 24925 24961
)
"src/cryptokit.ml" 808 25050 25084 "src/cryptokit.ml" 808 25050 25100
type(
  int
)
"src/cryptokit.ml" 808 25050 25101 "src/cryptokit.ml" 808 25050 25102
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 808 25050 25103 "src/cryptokit.ml" 808 25050 25106
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 805 24925 24970 "src/cryptokit.ml" 805 24925 24973
)
"src/cryptokit.ml" 808 25050 25084 "src/cryptokit.ml" 808 25050 25106
type(
  int
)
"src/cryptokit.ml" 808 25050 25074 "src/cryptokit.ml" 808 25050 25106
type(
  bool
)
"src/cryptokit.ml" 808 25050 25059 "src/cryptokit.ml" 808 25050 25106
type(
  bool
)
"src/cryptokit.ml" 807 24993 25017 "src/cryptokit.ml" 808 25050 25106
type(
  bool
)
"src/cryptokit.ml" 807 24993 25002 "src/cryptokit.ml" 808 25050 25106
type(
  bool
)
"src/cryptokit.ml" 806 24976 24985 "src/cryptokit.ml" 808 25050 25106
type(
  bool
)
"src/cryptokit.ml" 809 25107 25118 "src/cryptokit.ml" 809 25107 25129
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 809 25107 25130 "src/cryptokit.ml" 809 25107 25149
type(
  string
)
"src/cryptokit.ml" 809 25107 25118 "src/cryptokit.ml" 809 25107 25149
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 806 24976 24982 "src/cryptokit.ml" 809 25107 25149
type(
  unit
)
"src/cryptokit.ml" 810 25151 25157 "src/cryptokit.ml" 810 25151 25174
type(
  bytes -> bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref arcfour_transform "src/cryptokit.ml" 55 2534 2534 "src/cryptokit.ml" 55 2534 2676
)
"src/cryptokit.ml" 810 25151 25175 "src/cryptokit.ml" 810 25151 25179
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 810 25151 25180 "src/cryptokit.ml" 810 25151 25183
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 805 24925 24946 "src/cryptokit.ml" 805 24925 24949
)
"src/cryptokit.ml" 810 25151 25184 "src/cryptokit.ml" 810 25151 25191
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 805 24925 24950 "src/cryptokit.ml" 805 24925 24957
)
"src/cryptokit.ml" 810 25151 25192 "src/cryptokit.ml" 810 25151 25195
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 805 24925 24958 "src/cryptokit.ml" 805 24925 24961
)
"src/cryptokit.ml" 810 25151 25196 "src/cryptokit.ml" 810 25151 25203
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 805 24925 24962 "src/cryptokit.ml" 805 24925 24969
)
"src/cryptokit.ml" 810 25151 25204 "src/cryptokit.ml" 810 25151 25207
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 805 24925 24970 "src/cryptokit.ml" 805 24925 24973
)
"src/cryptokit.ml" 810 25151 25157 "src/cryptokit.ml" 810 25151 25207
type(
  unit
)
"src/cryptokit.ml" 806 24976 24982 "src/cryptokit.ml" 810 25151 25207
type(
  unit
)
"src/cryptokit.ml" 812 25226 25232 "src/cryptokit.ml" 812 25226 25242
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 812 25226 25243 "src/cryptokit.ml" 812 25226 25247
type(
  bytes
)
ident(
  ext_ref ckey
)
"src/cryptokit.ml" 812 25226 25232 "src/cryptokit.ml" 812 25226 25247
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 817 25302 25316 "src/cryptokit.ml" 817 25302 25322
type(
  stream_cipher
)
"src/cryptokit.ml" 818 25342 25350 "src/cryptokit.ml" 818 25342 25356
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 819 25357 25375 "src/cryptokit.ml" 819 25357 25387
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 819 25357 25388 "src/cryptokit.ml" 819 25357 25389
type(
  int
)
"src/cryptokit.ml" 819 25357 25375 "src/cryptokit.ml" 819 25357 25389
type(
  bytes
)
"src/cryptokit.ml" 821 25391 25419 "src/cryptokit.ml" 821 25391 25422
type(
  int
)
"src/cryptokit.ml" 822 25440 25470 "src/cryptokit.ml" 822 25440 25471
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 823 25472 25503 "src/cryptokit.ml" 823 25472 25504
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 825 25506 25531 "src/cryptokit.ml" 825 25506 25534
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 825 25506 25535 "src/cryptokit.ml" 828 25623 25647
)
"src/cryptokit.ml" 825 25506 25535 "src/cryptokit.ml" 825 25506 25538
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 825 25506 25539 "src/cryptokit.ml" 828 25623 25647
)
"src/cryptokit.ml" 825 25506 25539 "src/cryptokit.ml" 825 25506 25542
type(
  int
)
ident(
  def len "src/cryptokit.ml" 826 25545 25551 "src/cryptokit.ml" 828 25623 25647
)
"src/cryptokit.ml" 826 25545 25551 "src/cryptokit.ml" 826 25545 25555
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 818 25342 25350 "src/cryptokit.ml" 818 25342 25356
)
"src/cryptokit.ml" 826 25545 25551 "src/cryptokit.ml" 826 25545 25571
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 826 25545 25572 "src/cryptokit.ml" 826 25545 25575
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 825 25506 25539 "src/cryptokit.ml" 825 25506 25542
)
"src/cryptokit.ml" 826 25545 25551 "src/cryptokit.ml" 826 25545 25575
type(
  unit
)
"src/cryptokit.ml" 827 25577 25583 "src/cryptokit.ml" 827 25577 25589
type(
  stream_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 817 25302 25316 "src/cryptokit.ml" 817 25302 25322
)
"src/cryptokit.ml" 827 25577 25583 "src/cryptokit.ml" 827 25577 25599
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> int -> unit
)
"src/cryptokit.ml" 827 25577 25600 "src/cryptokit.ml" 827 25577 25603
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 825 25506 25531 "src/cryptokit.ml" 825 25506 25534
)
"src/cryptokit.ml" 827 25577 25604 "src/cryptokit.ml" 827 25577 25607
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 825 25506 25535 "src/cryptokit.ml" 825 25506 25538
)
"src/cryptokit.ml" 827 25577 25608 "src/cryptokit.ml" 827 25577 25612
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 827 25577 25613 "src/cryptokit.ml" 827 25577 25617
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 827 25577 25618 "src/cryptokit.ml" 827 25577 25621
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 825 25506 25539 "src/cryptokit.ml" 825 25506 25542
)
"src/cryptokit.ml" 827 25577 25583 "src/cryptokit.ml" 827 25577 25621
type(
  unit
)
"src/cryptokit.ml" 828 25623 25637 "src/cryptokit.ml" 828 25623 25641
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 828 25623 25642 "src/cryptokit.ml" 828 25623 25643
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 828 25623 25644 "src/cryptokit.ml" 828 25623 25647
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 825 25506 25539 "src/cryptokit.ml" 825 25506 25542
)
"src/cryptokit.ml" 828 25623 25637 "src/cryptokit.ml" 828 25623 25647
type(
  int
)
"src/cryptokit.ml" 828 25623 25629 "src/cryptokit.ml" 828 25623 25647
type(
  unit
)
"src/cryptokit.ml" 827 25577 25583 "src/cryptokit.ml" 828 25623 25647
type(
  unit
)
"src/cryptokit.ml" 826 25545 25551 "src/cryptokit.ml" 828 25623 25647
type(
  unit
)
"src/cryptokit.ml" 830 25649 25671 "src/cryptokit.ml" 830 25649 25672
type(
  string
)
ident(
  def s "src/cryptokit.ml" 831 25675 25681 "src/cryptokit.ml" 831 25675 25746
)
"src/cryptokit.ml" 831 25675 25681 "src/cryptokit.ml" 831 25675 25685
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 818 25342 25350 "src/cryptokit.ml" 818 25342 25356
)
"src/cryptokit.ml" 831 25675 25681 "src/cryptokit.ml" 831 25675 25699
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 831 25675 25701 "src/cryptokit.ml" 831 25675 25723
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 831 25675 25724 "src/cryptokit.ml" 831 25675 25725
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 830 25649 25671 "src/cryptokit.ml" 830 25649 25672
)
"src/cryptokit.ml" 831 25675 25700 "src/cryptokit.ml" 831 25675 25726
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 831 25675 25727 "src/cryptokit.ml" 831 25675 25728
type(
  int
)
"src/cryptokit.ml" 831 25675 25730 "src/cryptokit.ml" 831 25675 25743
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 831 25675 25744 "src/cryptokit.ml" 831 25675 25745
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 830 25649 25671 "src/cryptokit.ml" 830 25649 25672
)
"src/cryptokit.ml" 831 25675 25729 "src/cryptokit.ml" 831 25675 25746
type(
  int
)
"src/cryptokit.ml" 831 25675 25681 "src/cryptokit.ml" 831 25675 25746
type(
  unit
)
"src/cryptokit.ml" 833 25748 25768 "src/cryptokit.ml" 833 25748 25769
type(
  char
)
ident(
  def c "src/cryptokit.ml" 834 25772 25778 "src/cryptokit.ml" 837 25877 25899
)
"src/cryptokit.ml" 834 25772 25778 "src/cryptokit.ml" 834 25772 25787
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 834 25772 25788 "src/cryptokit.ml" 834 25772 25795
type(
  bytes
)
ident(
  ext_ref charbuf
)
"src/cryptokit.ml" 834 25772 25796 "src/cryptokit.ml" 834 25772 25797
type(
  int
)
"src/cryptokit.ml" 834 25772 25798 "src/cryptokit.ml" 834 25772 25799
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 833 25748 25768 "src/cryptokit.ml" 833 25748 25769
)
"src/cryptokit.ml" 834 25772 25778 "src/cryptokit.ml" 834 25772 25799
type(
  unit
)
"src/cryptokit.ml" 835 25801 25807 "src/cryptokit.ml" 835 25801 25811
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 818 25342 25350 "src/cryptokit.ml" 818 25342 25356
)
"src/cryptokit.ml" 835 25801 25807 "src/cryptokit.ml" 835 25801 25827
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 835 25801 25828 "src/cryptokit.ml" 835 25801 25829
type(
  int
)
"src/cryptokit.ml" 835 25801 25807 "src/cryptokit.ml" 835 25801 25829
type(
  unit
)
"src/cryptokit.ml" 836 25831 25837 "src/cryptokit.ml" 836 25831 25843
type(
  stream_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 817 25302 25316 "src/cryptokit.ml" 817 25302 25322
)
"src/cryptokit.ml" 836 25831 25837 "src/cryptokit.ml" 836 25831 25853
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> int -> unit
)
"src/cryptokit.ml" 836 25831 25854 "src/cryptokit.ml" 836 25831 25861
type(
  bytes
)
ident(
  ext_ref charbuf
)
"src/cryptokit.ml" 836 25831 25862 "src/cryptokit.ml" 836 25831 25863
type(
  int
)
"src/cryptokit.ml" 836 25831 25864 "src/cryptokit.ml" 836 25831 25868
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 836 25831 25869 "src/cryptokit.ml" 836 25831 25873
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 836 25831 25874 "src/cryptokit.ml" 836 25831 25875
type(
  int
)
"src/cryptokit.ml" 836 25831 25837 "src/cryptokit.ml" 836 25831 25875
type(
  unit
)
"src/cryptokit.ml" 837 25877 25891 "src/cryptokit.ml" 837 25877 25895
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 837 25877 25896 "src/cryptokit.ml" 837 25877 25897
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 837 25877 25898 "src/cryptokit.ml" 837 25877 25899
type(
  int
)
"src/cryptokit.ml" 837 25877 25891 "src/cryptokit.ml" 837 25877 25899
type(
  int
)
"src/cryptokit.ml" 837 25877 25883 "src/cryptokit.ml" 837 25877 25899
type(
  unit
)
"src/cryptokit.ml" 836 25831 25837 "src/cryptokit.ml" 837 25877 25899
type(
  unit
)
"src/cryptokit.ml" 835 25801 25807 "src/cryptokit.ml" 837 25877 25899
type(
  unit
)
"src/cryptokit.ml" 834 25772 25778 "src/cryptokit.ml" 837 25877 25899
type(
  unit
)
"src/cryptokit.ml" 839 25901 25921 "src/cryptokit.ml" 839 25901 25922
type(
  int
)
ident(
  def b "src/cryptokit.ml" 840 25925 25931 "src/cryptokit.ml" 840 25925 25964
)
"src/cryptokit.ml" 840 25925 25931 "src/cryptokit.ml" 840 25925 25935
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 818 25342 25350 "src/cryptokit.ml" 818 25342 25356
)
"src/cryptokit.ml" 840 25925 25931 "src/cryptokit.ml" 840 25925 25944
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 840 25925 25946 "src/cryptokit.ml" 840 25925 25961
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 840 25925 25962 "src/cryptokit.ml" 840 25925 25963
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 839 25901 25921 "src/cryptokit.ml" 839 25901 25922
)
"src/cryptokit.ml" 840 25925 25945 "src/cryptokit.ml" 840 25925 25964
type(
  char
)
"src/cryptokit.ml" 840 25925 25931 "src/cryptokit.ml" 840 25925 25964
type(
  unit
)
"src/cryptokit.ml" 842 25966 25985 "src/cryptokit.ml" 842 25966 25987
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 843 25988 26008 "src/cryptokit.ml" 843 25988 26010
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 846 26030 26036 "src/cryptokit.ml" 846 26030 26042
type(
  stream_cipher
)
ident(
  int_ref cipher "src/cryptokit.ml" 817 25302 25316 "src/cryptokit.ml" 817 25302 25322
)
"src/cryptokit.ml" 846 26030 26036 "src/cryptokit.ml" 846 26030 26047
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 847 26049 26055 "src/cryptokit.ml" 847 26049 26068
type(
  'a
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 821 25391 25403 "src/cryptokit.ml" 821 25391 25422
)
"src/cryptokit.ml" 847 26049 26055 "src/cryptokit.ml" 847 26049 26073
call(
  stack
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 848 26075 26081 "src/cryptokit.ml" 848 26075 26091
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 848 26075 26092 "src/cryptokit.ml" 848 26075 26099
type(
  bytes
)
ident(
  ext_ref charbuf
)
"src/cryptokit.ml" 848 26075 26081 "src/cryptokit.ml" 848 26075 26099
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 847 26049 26055 "src/cryptokit.ml" 848 26075 26099
type(
  unit
)
"src/cryptokit.ml" 846 26030 26036 "src/cryptokit.ml" 848 26075 26099
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 858 26169 26177 "src/cryptokit.ml" 858 26169 26183
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 859 26184 26202 "src/cryptokit.ml" 859 26184 26211
type(
  unit -> bytes
)
ident(
  int_ref sha1_init "src/cryptokit.ml" 57 2678 2678 "src/cryptokit.ml" 57 2678 2730
)
"src/cryptokit.ml" 859 26184 26211 "src/cryptokit.ml" 859 26184 26213
type(
  unit
)
"src/cryptokit.ml" 859 26184 26202 "src/cryptokit.ml" 859 26184 26213
type(
  bytes
)
"src/cryptokit.ml" 860 26214 26237 "src/cryptokit.ml" 860 26214 26239
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 861 26240 26265 "src/cryptokit.ml" 861 26240 26268
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 861 26240 26269 "src/cryptokit.ml" 864 26384 26421
)
"src/cryptokit.ml" 861 26240 26269 "src/cryptokit.ml" 861 26240 26272
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 861 26240 26273 "src/cryptokit.ml" 864 26384 26421
)
"src/cryptokit.ml" 861 26240 26273 "src/cryptokit.ml" 861 26240 26276
type(
  int
)
ident(
  def len "src/cryptokit.ml" 862 26279 26285 "src/cryptokit.ml" 864 26384 26421
)
"src/cryptokit.ml" 862 26279 26288 "src/cryptokit.ml" 862 26279 26291
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 861 26240 26269 "src/cryptokit.ml" 861 26240 26272
)
"src/cryptokit.ml" 862 26279 26292 "src/cryptokit.ml" 862 26279 26293
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 862 26279 26294 "src/cryptokit.ml" 862 26279 26295
type(
  int
)
"src/cryptokit.ml" 862 26279 26288 "src/cryptokit.ml" 862 26279 26295
type(
  bool
)
"src/cryptokit.ml" 862 26279 26296 "src/cryptokit.ml" 862 26279 26298
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 862 26279 26299 "src/cryptokit.ml" 862 26279 26302
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 861 26240 26273 "src/cryptokit.ml" 861 26240 26276
)
"src/cryptokit.ml" 862 26279 26303 "src/cryptokit.ml" 862 26279 26304
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 862 26279 26305 "src/cryptokit.ml" 862 26279 26306
type(
  int
)
"src/cryptokit.ml" 862 26279 26299 "src/cryptokit.ml" 862 26279 26306
type(
  bool
)
"src/cryptokit.ml" 862 26279 26307 "src/cryptokit.ml" 862 26279 26309
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 862 26279 26310 "src/cryptokit.ml" 862 26279 26313
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 861 26240 26269 "src/cryptokit.ml" 861 26240 26272
)
"src/cryptokit.ml" 862 26279 26314 "src/cryptokit.ml" 862 26279 26315
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 862 26279 26316 "src/cryptokit.ml" 862 26279 26328
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 862 26279 26329 "src/cryptokit.ml" 862 26279 26332
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 861 26240 26265 "src/cryptokit.ml" 861 26240 26268
)
"src/cryptokit.ml" 862 26279 26316 "src/cryptokit.ml" 862 26279 26332
type(
  int
)
"src/cryptokit.ml" 862 26279 26333 "src/cryptokit.ml" 862 26279 26334
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 862 26279 26335 "src/cryptokit.ml" 862 26279 26338
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 861 26240 26273 "src/cryptokit.ml" 861 26240 26276
)
"src/cryptokit.ml" 862 26279 26316 "src/cryptokit.ml" 862 26279 26338
type(
  int
)
"src/cryptokit.ml" 862 26279 26310 "src/cryptokit.ml" 862 26279 26338
type(
  bool
)
"src/cryptokit.ml" 862 26279 26299 "src/cryptokit.ml" 862 26279 26338
type(
  bool
)
"src/cryptokit.ml" 862 26279 26288 "src/cryptokit.ml" 862 26279 26338
type(
  bool
)
"src/cryptokit.ml" 863 26339 26350 "src/cryptokit.ml" 863 26339 26361
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 863 26339 26362 "src/cryptokit.ml" 863 26339 26382
type(
  string
)
"src/cryptokit.ml" 863 26339 26350 "src/cryptokit.ml" 863 26339 26382
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 862 26279 26285 "src/cryptokit.ml" 863 26339 26382
type(
  unit
)
"src/cryptokit.ml" 864 26384 26390 "src/cryptokit.ml" 864 26384 26401
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha1_update "src/cryptokit.ml" 58 2731 2731 "src/cryptokit.ml" 58 2731 2810
)
"src/cryptokit.ml" 864 26384 26402 "src/cryptokit.ml" 864 26384 26409
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 864 26384 26410 "src/cryptokit.ml" 864 26384 26413
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 861 26240 26265 "src/cryptokit.ml" 861 26240 26268
)
"src/cryptokit.ml" 864 26384 26414 "src/cryptokit.ml" 864 26384 26417
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 861 26240 26269 "src/cryptokit.ml" 861 26240 26272
)
"src/cryptokit.ml" 864 26384 26418 "src/cryptokit.ml" 864 26384 26421
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 861 26240 26273 "src/cryptokit.ml" 861 26240 26276
)
"src/cryptokit.ml" 864 26384 26390 "src/cryptokit.ml" 864 26384 26421
type(
  unit
)
"src/cryptokit.ml" 862 26279 26285 "src/cryptokit.ml" 864 26384 26421
type(
  unit
)
"src/cryptokit.ml" 865 26422 26444 "src/cryptokit.ml" 865 26422 26447
type(
  string
)
ident(
  def src "src/cryptokit.ml" 866 26450 26456 "src/cryptokit.ml" 866 26450 26526
)
"src/cryptokit.ml" 866 26450 26456 "src/cryptokit.ml" 866 26450 26467
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha1_update "src/cryptokit.ml" 58 2731 2731 "src/cryptokit.ml" 58 2731 2810
)
"src/cryptokit.ml" 866 26450 26468 "src/cryptokit.ml" 866 26450 26475
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 866 26450 26477 "src/cryptokit.ml" 866 26450 26499
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 866 26450 26500 "src/cryptokit.ml" 866 26450 26503
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 865 26422 26444 "src/cryptokit.ml" 865 26422 26447
)
"src/cryptokit.ml" 866 26450 26476 "src/cryptokit.ml" 866 26450 26504
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 866 26450 26505 "src/cryptokit.ml" 866 26450 26506
type(
  int
)
"src/cryptokit.ml" 866 26450 26508 "src/cryptokit.ml" 866 26450 26521
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 866 26450 26522 "src/cryptokit.ml" 866 26450 26525
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 865 26422 26444 "src/cryptokit.ml" 865 26422 26447
)
"src/cryptokit.ml" 866 26450 26507 "src/cryptokit.ml" 866 26450 26526
type(
  int
)
"src/cryptokit.ml" 866 26450 26456 "src/cryptokit.ml" 866 26450 26526
type(
  unit
)
"src/cryptokit.ml" 867 26527 26547 "src/cryptokit.ml" 867 26527 26548
type(
  char
)
ident(
  def c "src/cryptokit.ml" 868 26551 26557 "src/cryptokit.ml" 868 26551 26590
)
"src/cryptokit.ml" 868 26551 26557 "src/cryptokit.ml" 868 26551 26561
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 858 26169 26177 "src/cryptokit.ml" 858 26169 26183
)
"src/cryptokit.ml" 868 26551 26557 "src/cryptokit.ml" 868 26551 26572
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 868 26551 26574 "src/cryptokit.ml" 868 26551 26585
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 868 26551 26586 "src/cryptokit.ml" 868 26551 26587
type(
  int
)
"src/cryptokit.ml" 868 26551 26588 "src/cryptokit.ml" 868 26551 26589
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 867 26527 26547 "src/cryptokit.ml" 867 26527 26548
)
"src/cryptokit.ml" 868 26551 26573 "src/cryptokit.ml" 868 26551 26590
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 868 26551 26557 "src/cryptokit.ml" 868 26551 26590
type(
  unit
)
"src/cryptokit.ml" 869 26591 26611 "src/cryptokit.ml" 869 26591 26612
type(
  int
)
ident(
  def b "src/cryptokit.ml" 870 26615 26621 "src/cryptokit.ml" 870 26615 26654
)
"src/cryptokit.ml" 870 26615 26621 "src/cryptokit.ml" 870 26615 26625
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 858 26169 26177 "src/cryptokit.ml" 858 26169 26183
)
"src/cryptokit.ml" 870 26615 26621 "src/cryptokit.ml" 870 26615 26634
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 870 26615 26636 "src/cryptokit.ml" 870 26615 26651
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 870 26615 26652 "src/cryptokit.ml" 870 26615 26653
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 869 26591 26611 "src/cryptokit.ml" 869 26591 26612
)
"src/cryptokit.ml" 870 26615 26635 "src/cryptokit.ml" 870 26615 26654
type(
  char
)
"src/cryptokit.ml" 870 26615 26621 "src/cryptokit.ml" 870 26615 26654
type(
  unit
)
"src/cryptokit.ml" 872 26675 26681 "src/cryptokit.ml" 872 26675 26691
type(
  bytes -> string
)
ident(
  int_ref sha1_final "src/cryptokit.ml" 59 2811 2811 "src/cryptokit.ml" 59 2811 2867
)
"src/cryptokit.ml" 872 26675 26692 "src/cryptokit.ml" 872 26675 26699
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 872 26675 26681 "src/cryptokit.ml" 872 26675 26699
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 874 26718 26724 "src/cryptokit.ml" 874 26718 26734
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 874 26718 26735 "src/cryptokit.ml" 874 26718 26742
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 874 26718 26724 "src/cryptokit.ml" 874 26718 26742
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 877 26750 26754 "src/cryptokit.ml" 877 26750 26758
type(
  unit -> sha1
)
ident(
  def sha1 "src/cryptokit.ml" 879 26774 26774 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 877 26750 26759 "src/cryptokit.ml" 877 26750 26761
type(
  unit
)
"src/cryptokit.ml" 877 26750 26768 "src/cryptokit.ml" 877 26750 26772
call(
  tail
)
"src/cryptokit.ml" 877 26750 26764 "src/cryptokit.ml" 877 26750 26772
type(
  sha1
)
"src/cryptokit.ml" 880 26789 26797 "src/cryptokit.ml" 880 26789 26803
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 881 26804 26822 "src/cryptokit.ml" 881 26804 26833
type(
  unit -> bytes
)
ident(
  int_ref sha224_init "src/cryptokit.ml" 61 2925 2925 "src/cryptokit.ml" 61 2925 2981
)
"src/cryptokit.ml" 881 26804 26833 "src/cryptokit.ml" 881 26804 26835
type(
  unit
)
"src/cryptokit.ml" 881 26804 26822 "src/cryptokit.ml" 881 26804 26835
type(
  bytes
)
"src/cryptokit.ml" 882 26836 26859 "src/cryptokit.ml" 882 26836 26861
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 883 26862 26887 "src/cryptokit.ml" 883 26862 26890
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 883 26862 26891 "src/cryptokit.ml" 886 27008 27047
)
"src/cryptokit.ml" 883 26862 26891 "src/cryptokit.ml" 883 26862 26894
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 883 26862 26895 "src/cryptokit.ml" 886 27008 27047
)
"src/cryptokit.ml" 883 26862 26895 "src/cryptokit.ml" 883 26862 26898
type(
  int
)
ident(
  def len "src/cryptokit.ml" 884 26901 26907 "src/cryptokit.ml" 886 27008 27047
)
"src/cryptokit.ml" 884 26901 26910 "src/cryptokit.ml" 884 26901 26913
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 883 26862 26891 "src/cryptokit.ml" 883 26862 26894
)
"src/cryptokit.ml" 884 26901 26914 "src/cryptokit.ml" 884 26901 26915
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 884 26901 26916 "src/cryptokit.ml" 884 26901 26917
type(
  int
)
"src/cryptokit.ml" 884 26901 26910 "src/cryptokit.ml" 884 26901 26917
type(
  bool
)
"src/cryptokit.ml" 884 26901 26918 "src/cryptokit.ml" 884 26901 26920
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 884 26901 26921 "src/cryptokit.ml" 884 26901 26924
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 883 26862 26895 "src/cryptokit.ml" 883 26862 26898
)
"src/cryptokit.ml" 884 26901 26925 "src/cryptokit.ml" 884 26901 26926
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 884 26901 26927 "src/cryptokit.ml" 884 26901 26928
type(
  int
)
"src/cryptokit.ml" 884 26901 26921 "src/cryptokit.ml" 884 26901 26928
type(
  bool
)
"src/cryptokit.ml" 884 26901 26929 "src/cryptokit.ml" 884 26901 26931
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 884 26901 26932 "src/cryptokit.ml" 884 26901 26935
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 883 26862 26891 "src/cryptokit.ml" 883 26862 26894
)
"src/cryptokit.ml" 884 26901 26936 "src/cryptokit.ml" 884 26901 26937
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 884 26901 26938 "src/cryptokit.ml" 884 26901 26950
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 884 26901 26951 "src/cryptokit.ml" 884 26901 26954
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 883 26862 26887 "src/cryptokit.ml" 883 26862 26890
)
"src/cryptokit.ml" 884 26901 26938 "src/cryptokit.ml" 884 26901 26954
type(
  int
)
"src/cryptokit.ml" 884 26901 26955 "src/cryptokit.ml" 884 26901 26956
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 884 26901 26957 "src/cryptokit.ml" 884 26901 26960
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 883 26862 26895 "src/cryptokit.ml" 883 26862 26898
)
"src/cryptokit.ml" 884 26901 26938 "src/cryptokit.ml" 884 26901 26960
type(
  int
)
"src/cryptokit.ml" 884 26901 26932 "src/cryptokit.ml" 884 26901 26960
type(
  bool
)
"src/cryptokit.ml" 884 26901 26921 "src/cryptokit.ml" 884 26901 26960
type(
  bool
)
"src/cryptokit.ml" 884 26901 26910 "src/cryptokit.ml" 884 26901 26960
type(
  bool
)
"src/cryptokit.ml" 885 26961 26972 "src/cryptokit.ml" 885 26961 26983
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 885 26961 26984 "src/cryptokit.ml" 885 26961 27006
type(
  string
)
"src/cryptokit.ml" 885 26961 26972 "src/cryptokit.ml" 885 26961 27006
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 884 26901 26907 "src/cryptokit.ml" 885 26961 27006
type(
  unit
)
"src/cryptokit.ml" 886 27008 27014 "src/cryptokit.ml" 886 27008 27027
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha256_update "src/cryptokit.ml" 62 2982 2982 "src/cryptokit.ml" 62 2982 3065
)
"src/cryptokit.ml" 886 27008 27028 "src/cryptokit.ml" 886 27008 27035
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 886 27008 27036 "src/cryptokit.ml" 886 27008 27039
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 883 26862 26887 "src/cryptokit.ml" 883 26862 26890
)
"src/cryptokit.ml" 886 27008 27040 "src/cryptokit.ml" 886 27008 27043
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 883 26862 26891 "src/cryptokit.ml" 883 26862 26894
)
"src/cryptokit.ml" 886 27008 27044 "src/cryptokit.ml" 886 27008 27047
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 883 26862 26895 "src/cryptokit.ml" 883 26862 26898
)
"src/cryptokit.ml" 886 27008 27014 "src/cryptokit.ml" 886 27008 27047
type(
  unit
)
"src/cryptokit.ml" 884 26901 26907 "src/cryptokit.ml" 886 27008 27047
type(
  unit
)
"src/cryptokit.ml" 887 27048 27070 "src/cryptokit.ml" 887 27048 27073
type(
  string
)
ident(
  def src "src/cryptokit.ml" 888 27076 27082 "src/cryptokit.ml" 888 27076 27154
)
"src/cryptokit.ml" 888 27076 27082 "src/cryptokit.ml" 888 27076 27095
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha256_update "src/cryptokit.ml" 62 2982 2982 "src/cryptokit.ml" 62 2982 3065
)
"src/cryptokit.ml" 888 27076 27096 "src/cryptokit.ml" 888 27076 27103
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 888 27076 27105 "src/cryptokit.ml" 888 27076 27127
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 888 27076 27128 "src/cryptokit.ml" 888 27076 27131
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 887 27048 27070 "src/cryptokit.ml" 887 27048 27073
)
"src/cryptokit.ml" 888 27076 27104 "src/cryptokit.ml" 888 27076 27132
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 888 27076 27133 "src/cryptokit.ml" 888 27076 27134
type(
  int
)
"src/cryptokit.ml" 888 27076 27136 "src/cryptokit.ml" 888 27076 27149
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 888 27076 27150 "src/cryptokit.ml" 888 27076 27153
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 887 27048 27070 "src/cryptokit.ml" 887 27048 27073
)
"src/cryptokit.ml" 888 27076 27135 "src/cryptokit.ml" 888 27076 27154
type(
  int
)
"src/cryptokit.ml" 888 27076 27082 "src/cryptokit.ml" 888 27076 27154
type(
  unit
)
"src/cryptokit.ml" 889 27155 27175 "src/cryptokit.ml" 889 27155 27176
type(
  char
)
ident(
  def c "src/cryptokit.ml" 890 27179 27185 "src/cryptokit.ml" 890 27179 27218
)
"src/cryptokit.ml" 890 27179 27185 "src/cryptokit.ml" 890 27179 27189
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'b
)
ident(
  int_ref self "src/cryptokit.ml" 880 26789 26797 "src/cryptokit.ml" 880 26789 26803
)
"src/cryptokit.ml" 890 27179 27185 "src/cryptokit.ml" 890 27179 27200
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 890 27179 27202 "src/cryptokit.ml" 890 27179 27213
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 890 27179 27214 "src/cryptokit.ml" 890 27179 27215
type(
  int
)
"src/cryptokit.ml" 890 27179 27216 "src/cryptokit.ml" 890 27179 27217
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 889 27155 27175 "src/cryptokit.ml" 889 27155 27176
)
"src/cryptokit.ml" 890 27179 27201 "src/cryptokit.ml" 890 27179 27218
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 890 27179 27185 "src/cryptokit.ml" 890 27179 27218
type(
  unit
)
"src/cryptokit.ml" 891 27219 27239 "src/cryptokit.ml" 891 27219 27240
type(
  int
)
ident(
  def b "src/cryptokit.ml" 892 27243 27249 "src/cryptokit.ml" 892 27243 27282
)
"src/cryptokit.ml" 892 27243 27249 "src/cryptokit.ml" 892 27243 27253
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 880 26789 26797 "src/cryptokit.ml" 880 26789 26803
)
"src/cryptokit.ml" 892 27243 27249 "src/cryptokit.ml" 892 27243 27262
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 892 27243 27264 "src/cryptokit.ml" 892 27243 27279
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 892 27243 27280 "src/cryptokit.ml" 892 27243 27281
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 891 27219 27239 "src/cryptokit.ml" 891 27219 27240
)
"src/cryptokit.ml" 892 27243 27263 "src/cryptokit.ml" 892 27243 27282
type(
  char
)
"src/cryptokit.ml" 892 27243 27249 "src/cryptokit.ml" 892 27243 27282
type(
  unit
)
"src/cryptokit.ml" 894 27303 27309 "src/cryptokit.ml" 894 27303 27321
type(
  bytes -> string
)
ident(
  int_ref sha224_final "src/cryptokit.ml" 64 3127 3127 "src/cryptokit.ml" 64 3127 3187
)
"src/cryptokit.ml" 894 27303 27322 "src/cryptokit.ml" 894 27303 27329
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 894 27303 27309 "src/cryptokit.ml" 894 27303 27329
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 896 27348 27354 "src/cryptokit.ml" 896 27348 27364
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 896 27348 27365 "src/cryptokit.ml" 896 27348 27372
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 896 27348 27354 "src/cryptokit.ml" 896 27348 27372
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 899 27380 27384 "src/cryptokit.ml" 899 27380 27390
type(
  unit -> sha224
)
ident(
  def sha224 "src/cryptokit.ml" 901 27408 27408 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 899 27380 27391 "src/cryptokit.ml" 899 27380 27393
type(
  unit
)
"src/cryptokit.ml" 899 27380 27400 "src/cryptokit.ml" 899 27380 27406
call(
  tail
)
"src/cryptokit.ml" 899 27380 27396 "src/cryptokit.ml" 899 27380 27406
type(
  sha224
)
"src/cryptokit.ml" 902 27423 27431 "src/cryptokit.ml" 902 27423 27437
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 903 27438 27456 "src/cryptokit.ml" 903 27438 27467
type(
  unit -> bytes
)
ident(
  int_ref sha256_init "src/cryptokit.ml" 60 2868 2868 "src/cryptokit.ml" 60 2868 2924
)
"src/cryptokit.ml" 903 27438 27467 "src/cryptokit.ml" 903 27438 27469
type(
  unit
)
"src/cryptokit.ml" 903 27438 27456 "src/cryptokit.ml" 903 27438 27469
type(
  bytes
)
"src/cryptokit.ml" 904 27470 27493 "src/cryptokit.ml" 904 27470 27495
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 905 27496 27521 "src/cryptokit.ml" 905 27496 27524
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 905 27496 27525 "src/cryptokit.ml" 908 27642 27681
)
"src/cryptokit.ml" 905 27496 27525 "src/cryptokit.ml" 905 27496 27528
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 905 27496 27529 "src/cryptokit.ml" 908 27642 27681
)
"src/cryptokit.ml" 905 27496 27529 "src/cryptokit.ml" 905 27496 27532
type(
  int
)
ident(
  def len "src/cryptokit.ml" 906 27535 27541 "src/cryptokit.ml" 908 27642 27681
)
"src/cryptokit.ml" 906 27535 27544 "src/cryptokit.ml" 906 27535 27547
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 905 27496 27525 "src/cryptokit.ml" 905 27496 27528
)
"src/cryptokit.ml" 906 27535 27548 "src/cryptokit.ml" 906 27535 27549
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 906 27535 27550 "src/cryptokit.ml" 906 27535 27551
type(
  int
)
"src/cryptokit.ml" 906 27535 27544 "src/cryptokit.ml" 906 27535 27551
type(
  bool
)
"src/cryptokit.ml" 906 27535 27552 "src/cryptokit.ml" 906 27535 27554
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 906 27535 27555 "src/cryptokit.ml" 906 27535 27558
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 905 27496 27529 "src/cryptokit.ml" 905 27496 27532
)
"src/cryptokit.ml" 906 27535 27559 "src/cryptokit.ml" 906 27535 27560
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 906 27535 27561 "src/cryptokit.ml" 906 27535 27562
type(
  int
)
"src/cryptokit.ml" 906 27535 27555 "src/cryptokit.ml" 906 27535 27562
type(
  bool
)
"src/cryptokit.ml" 906 27535 27563 "src/cryptokit.ml" 906 27535 27565
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 906 27535 27566 "src/cryptokit.ml" 906 27535 27569
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 905 27496 27525 "src/cryptokit.ml" 905 27496 27528
)
"src/cryptokit.ml" 906 27535 27570 "src/cryptokit.ml" 906 27535 27571
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 906 27535 27572 "src/cryptokit.ml" 906 27535 27584
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 906 27535 27585 "src/cryptokit.ml" 906 27535 27588
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 905 27496 27521 "src/cryptokit.ml" 905 27496 27524
)
"src/cryptokit.ml" 906 27535 27572 "src/cryptokit.ml" 906 27535 27588
type(
  int
)
"src/cryptokit.ml" 906 27535 27589 "src/cryptokit.ml" 906 27535 27590
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 906 27535 27591 "src/cryptokit.ml" 906 27535 27594
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 905 27496 27529 "src/cryptokit.ml" 905 27496 27532
)
"src/cryptokit.ml" 906 27535 27572 "src/cryptokit.ml" 906 27535 27594
type(
  int
)
"src/cryptokit.ml" 906 27535 27566 "src/cryptokit.ml" 906 27535 27594
type(
  bool
)
"src/cryptokit.ml" 906 27535 27555 "src/cryptokit.ml" 906 27535 27594
type(
  bool
)
"src/cryptokit.ml" 906 27535 27544 "src/cryptokit.ml" 906 27535 27594
type(
  bool
)
"src/cryptokit.ml" 907 27595 27606 "src/cryptokit.ml" 907 27595 27617
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 907 27595 27618 "src/cryptokit.ml" 907 27595 27640
type(
  string
)
"src/cryptokit.ml" 907 27595 27606 "src/cryptokit.ml" 907 27595 27640
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 906 27535 27541 "src/cryptokit.ml" 907 27595 27640
type(
  unit
)
"src/cryptokit.ml" 908 27642 27648 "src/cryptokit.ml" 908 27642 27661
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha256_update "src/cryptokit.ml" 62 2982 2982 "src/cryptokit.ml" 62 2982 3065
)
"src/cryptokit.ml" 908 27642 27662 "src/cryptokit.ml" 908 27642 27669
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 908 27642 27670 "src/cryptokit.ml" 908 27642 27673
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 905 27496 27521 "src/cryptokit.ml" 905 27496 27524
)
"src/cryptokit.ml" 908 27642 27674 "src/cryptokit.ml" 908 27642 27677
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 905 27496 27525 "src/cryptokit.ml" 905 27496 27528
)
"src/cryptokit.ml" 908 27642 27678 "src/cryptokit.ml" 908 27642 27681
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 905 27496 27529 "src/cryptokit.ml" 905 27496 27532
)
"src/cryptokit.ml" 908 27642 27648 "src/cryptokit.ml" 908 27642 27681
type(
  unit
)
"src/cryptokit.ml" 906 27535 27541 "src/cryptokit.ml" 908 27642 27681
type(
  unit
)
"src/cryptokit.ml" 909 27682 27704 "src/cryptokit.ml" 909 27682 27707
type(
  string
)
ident(
  def src "src/cryptokit.ml" 910 27710 27716 "src/cryptokit.ml" 910 27710 27788
)
"src/cryptokit.ml" 910 27710 27716 "src/cryptokit.ml" 910 27710 27729
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha256_update "src/cryptokit.ml" 62 2982 2982 "src/cryptokit.ml" 62 2982 3065
)
"src/cryptokit.ml" 910 27710 27730 "src/cryptokit.ml" 910 27710 27737
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 910 27710 27739 "src/cryptokit.ml" 910 27710 27761
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 910 27710 27762 "src/cryptokit.ml" 910 27710 27765
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 909 27682 27704 "src/cryptokit.ml" 909 27682 27707
)
"src/cryptokit.ml" 910 27710 27738 "src/cryptokit.ml" 910 27710 27766
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 910 27710 27767 "src/cryptokit.ml" 910 27710 27768
type(
  int
)
"src/cryptokit.ml" 910 27710 27770 "src/cryptokit.ml" 910 27710 27783
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 910 27710 27784 "src/cryptokit.ml" 910 27710 27787
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 909 27682 27704 "src/cryptokit.ml" 909 27682 27707
)
"src/cryptokit.ml" 910 27710 27769 "src/cryptokit.ml" 910 27710 27788
type(
  int
)
"src/cryptokit.ml" 910 27710 27716 "src/cryptokit.ml" 910 27710 27788
type(
  unit
)
"src/cryptokit.ml" 911 27789 27809 "src/cryptokit.ml" 911 27789 27810
type(
  char
)
ident(
  def c "src/cryptokit.ml" 912 27813 27819 "src/cryptokit.ml" 912 27813 27852
)
"src/cryptokit.ml" 912 27813 27819 "src/cryptokit.ml" 912 27813 27823
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'c
)
ident(
  int_ref self "src/cryptokit.ml" 902 27423 27431 "src/cryptokit.ml" 902 27423 27437
)
"src/cryptokit.ml" 912 27813 27819 "src/cryptokit.ml" 912 27813 27834
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 912 27813 27836 "src/cryptokit.ml" 912 27813 27847
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 912 27813 27848 "src/cryptokit.ml" 912 27813 27849
type(
  int
)
"src/cryptokit.ml" 912 27813 27850 "src/cryptokit.ml" 912 27813 27851
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 911 27789 27809 "src/cryptokit.ml" 911 27789 27810
)
"src/cryptokit.ml" 912 27813 27835 "src/cryptokit.ml" 912 27813 27852
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 912 27813 27819 "src/cryptokit.ml" 912 27813 27852
type(
  unit
)
"src/cryptokit.ml" 913 27853 27873 "src/cryptokit.ml" 913 27853 27874
type(
  int
)
ident(
  def b "src/cryptokit.ml" 914 27877 27883 "src/cryptokit.ml" 914 27877 27916
)
"src/cryptokit.ml" 914 27877 27883 "src/cryptokit.ml" 914 27877 27887
type(
  'c
)
ident(
  int_ref self "src/cryptokit.ml" 902 27423 27431 "src/cryptokit.ml" 902 27423 27437
)
"src/cryptokit.ml" 914 27877 27883 "src/cryptokit.ml" 914 27877 27896
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 914 27877 27898 "src/cryptokit.ml" 914 27877 27913
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 914 27877 27914 "src/cryptokit.ml" 914 27877 27915
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 913 27853 27873 "src/cryptokit.ml" 913 27853 27874
)
"src/cryptokit.ml" 914 27877 27897 "src/cryptokit.ml" 914 27877 27916
type(
  char
)
"src/cryptokit.ml" 914 27877 27883 "src/cryptokit.ml" 914 27877 27916
type(
  unit
)
"src/cryptokit.ml" 916 27937 27943 "src/cryptokit.ml" 916 27937 27955
type(
  bytes -> string
)
ident(
  int_ref sha256_final "src/cryptokit.ml" 63 3066 3066 "src/cryptokit.ml" 63 3066 3126
)
"src/cryptokit.ml" 916 27937 27956 "src/cryptokit.ml" 916 27937 27963
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 916 27937 27943 "src/cryptokit.ml" 916 27937 27963
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 918 27982 27988 "src/cryptokit.ml" 918 27982 27998
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 918 27982 27999 "src/cryptokit.ml" 918 27982 28006
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 918 27982 27988 "src/cryptokit.ml" 918 27982 28006
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 921 28014 28018 "src/cryptokit.ml" 921 28014 28024
type(
  unit -> sha256
)
ident(
  def sha256 "src/cryptokit.ml" 923 28042 28042 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 921 28014 28025 "src/cryptokit.ml" 921 28014 28027
type(
  unit
)
"src/cryptokit.ml" 921 28014 28034 "src/cryptokit.ml" 921 28014 28040
call(
  tail
)
"src/cryptokit.ml" 921 28014 28030 "src/cryptokit.ml" 921 28014 28040
type(
  sha256
)
"src/cryptokit.ml" 924 28057 28065 "src/cryptokit.ml" 924 28057 28071
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 925 28072 28090 "src/cryptokit.ml" 925 28072 28101
type(
  unit -> bytes
)
ident(
  int_ref sha384_init "src/cryptokit.ml" 66 3245 3245 "src/cryptokit.ml" 66 3245 3301
)
"src/cryptokit.ml" 925 28072 28101 "src/cryptokit.ml" 925 28072 28103
type(
  unit
)
"src/cryptokit.ml" 925 28072 28090 "src/cryptokit.ml" 925 28072 28103
type(
  bytes
)
"src/cryptokit.ml" 926 28104 28127 "src/cryptokit.ml" 926 28104 28129
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 927 28130 28155 "src/cryptokit.ml" 927 28130 28158
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 927 28130 28159 "src/cryptokit.ml" 930 28276 28315
)
"src/cryptokit.ml" 927 28130 28159 "src/cryptokit.ml" 927 28130 28162
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 927 28130 28163 "src/cryptokit.ml" 930 28276 28315
)
"src/cryptokit.ml" 927 28130 28163 "src/cryptokit.ml" 927 28130 28166
type(
  int
)
ident(
  def len "src/cryptokit.ml" 928 28169 28175 "src/cryptokit.ml" 930 28276 28315
)
"src/cryptokit.ml" 928 28169 28178 "src/cryptokit.ml" 928 28169 28181
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 927 28130 28159 "src/cryptokit.ml" 927 28130 28162
)
"src/cryptokit.ml" 928 28169 28182 "src/cryptokit.ml" 928 28169 28183
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 928 28169 28184 "src/cryptokit.ml" 928 28169 28185
type(
  int
)
"src/cryptokit.ml" 928 28169 28178 "src/cryptokit.ml" 928 28169 28185
type(
  bool
)
"src/cryptokit.ml" 928 28169 28186 "src/cryptokit.ml" 928 28169 28188
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 928 28169 28189 "src/cryptokit.ml" 928 28169 28192
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 927 28130 28163 "src/cryptokit.ml" 927 28130 28166
)
"src/cryptokit.ml" 928 28169 28193 "src/cryptokit.ml" 928 28169 28194
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 928 28169 28195 "src/cryptokit.ml" 928 28169 28196
type(
  int
)
"src/cryptokit.ml" 928 28169 28189 "src/cryptokit.ml" 928 28169 28196
type(
  bool
)
"src/cryptokit.ml" 928 28169 28197 "src/cryptokit.ml" 928 28169 28199
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 928 28169 28200 "src/cryptokit.ml" 928 28169 28203
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 927 28130 28159 "src/cryptokit.ml" 927 28130 28162
)
"src/cryptokit.ml" 928 28169 28204 "src/cryptokit.ml" 928 28169 28205
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 928 28169 28206 "src/cryptokit.ml" 928 28169 28218
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 928 28169 28219 "src/cryptokit.ml" 928 28169 28222
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 927 28130 28155 "src/cryptokit.ml" 927 28130 28158
)
"src/cryptokit.ml" 928 28169 28206 "src/cryptokit.ml" 928 28169 28222
type(
  int
)
"src/cryptokit.ml" 928 28169 28223 "src/cryptokit.ml" 928 28169 28224
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 928 28169 28225 "src/cryptokit.ml" 928 28169 28228
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 927 28130 28163 "src/cryptokit.ml" 927 28130 28166
)
"src/cryptokit.ml" 928 28169 28206 "src/cryptokit.ml" 928 28169 28228
type(
  int
)
"src/cryptokit.ml" 928 28169 28200 "src/cryptokit.ml" 928 28169 28228
type(
  bool
)
"src/cryptokit.ml" 928 28169 28189 "src/cryptokit.ml" 928 28169 28228
type(
  bool
)
"src/cryptokit.ml" 928 28169 28178 "src/cryptokit.ml" 928 28169 28228
type(
  bool
)
"src/cryptokit.ml" 929 28229 28240 "src/cryptokit.ml" 929 28229 28251
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 929 28229 28252 "src/cryptokit.ml" 929 28229 28274
type(
  string
)
"src/cryptokit.ml" 929 28229 28240 "src/cryptokit.ml" 929 28229 28274
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 928 28169 28175 "src/cryptokit.ml" 929 28229 28274
type(
  unit
)
"src/cryptokit.ml" 930 28276 28282 "src/cryptokit.ml" 930 28276 28295
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha512_update "src/cryptokit.ml" 67 3302 3302 "src/cryptokit.ml" 67 3302 3385
)
"src/cryptokit.ml" 930 28276 28296 "src/cryptokit.ml" 930 28276 28303
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 930 28276 28304 "src/cryptokit.ml" 930 28276 28307
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 927 28130 28155 "src/cryptokit.ml" 927 28130 28158
)
"src/cryptokit.ml" 930 28276 28308 "src/cryptokit.ml" 930 28276 28311
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 927 28130 28159 "src/cryptokit.ml" 927 28130 28162
)
"src/cryptokit.ml" 930 28276 28312 "src/cryptokit.ml" 930 28276 28315
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 927 28130 28163 "src/cryptokit.ml" 927 28130 28166
)
"src/cryptokit.ml" 930 28276 28282 "src/cryptokit.ml" 930 28276 28315
type(
  unit
)
"src/cryptokit.ml" 928 28169 28175 "src/cryptokit.ml" 930 28276 28315
type(
  unit
)
"src/cryptokit.ml" 931 28316 28338 "src/cryptokit.ml" 931 28316 28341
type(
  string
)
ident(
  def src "src/cryptokit.ml" 932 28344 28350 "src/cryptokit.ml" 932 28344 28422
)
"src/cryptokit.ml" 932 28344 28350 "src/cryptokit.ml" 932 28344 28363
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha512_update "src/cryptokit.ml" 67 3302 3302 "src/cryptokit.ml" 67 3302 3385
)
"src/cryptokit.ml" 932 28344 28364 "src/cryptokit.ml" 932 28344 28371
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 932 28344 28373 "src/cryptokit.ml" 932 28344 28395
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 932 28344 28396 "src/cryptokit.ml" 932 28344 28399
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 931 28316 28338 "src/cryptokit.ml" 931 28316 28341
)
"src/cryptokit.ml" 932 28344 28372 "src/cryptokit.ml" 932 28344 28400
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 932 28344 28401 "src/cryptokit.ml" 932 28344 28402
type(
  int
)
"src/cryptokit.ml" 932 28344 28404 "src/cryptokit.ml" 932 28344 28417
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 932 28344 28418 "src/cryptokit.ml" 932 28344 28421
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 931 28316 28338 "src/cryptokit.ml" 931 28316 28341
)
"src/cryptokit.ml" 932 28344 28403 "src/cryptokit.ml" 932 28344 28422
type(
  int
)
"src/cryptokit.ml" 932 28344 28350 "src/cryptokit.ml" 932 28344 28422
type(
  unit
)
"src/cryptokit.ml" 933 28423 28443 "src/cryptokit.ml" 933 28423 28444
type(
  char
)
ident(
  def c "src/cryptokit.ml" 934 28447 28453 "src/cryptokit.ml" 934 28447 28486
)
"src/cryptokit.ml" 934 28447 28453 "src/cryptokit.ml" 934 28447 28457
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'd
)
ident(
  int_ref self "src/cryptokit.ml" 924 28057 28065 "src/cryptokit.ml" 924 28057 28071
)
"src/cryptokit.ml" 934 28447 28453 "src/cryptokit.ml" 934 28447 28468
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 934 28447 28470 "src/cryptokit.ml" 934 28447 28481
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 934 28447 28482 "src/cryptokit.ml" 934 28447 28483
type(
  int
)
"src/cryptokit.ml" 934 28447 28484 "src/cryptokit.ml" 934 28447 28485
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 933 28423 28443 "src/cryptokit.ml" 933 28423 28444
)
"src/cryptokit.ml" 934 28447 28469 "src/cryptokit.ml" 934 28447 28486
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 934 28447 28453 "src/cryptokit.ml" 934 28447 28486
type(
  unit
)
"src/cryptokit.ml" 935 28487 28507 "src/cryptokit.ml" 935 28487 28508
type(
  int
)
ident(
  def b "src/cryptokit.ml" 936 28511 28517 "src/cryptokit.ml" 936 28511 28550
)
"src/cryptokit.ml" 936 28511 28517 "src/cryptokit.ml" 936 28511 28521
type(
  'd
)
ident(
  int_ref self "src/cryptokit.ml" 924 28057 28065 "src/cryptokit.ml" 924 28057 28071
)
"src/cryptokit.ml" 936 28511 28517 "src/cryptokit.ml" 936 28511 28530
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 936 28511 28532 "src/cryptokit.ml" 936 28511 28547
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 936 28511 28548 "src/cryptokit.ml" 936 28511 28549
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 935 28487 28507 "src/cryptokit.ml" 935 28487 28508
)
"src/cryptokit.ml" 936 28511 28531 "src/cryptokit.ml" 936 28511 28550
type(
  char
)
"src/cryptokit.ml" 936 28511 28517 "src/cryptokit.ml" 936 28511 28550
type(
  unit
)
"src/cryptokit.ml" 938 28571 28577 "src/cryptokit.ml" 938 28571 28589
type(
  bytes -> string
)
ident(
  int_ref sha384_final "src/cryptokit.ml" 69 3447 3447 "src/cryptokit.ml" 69 3447 3507
)
"src/cryptokit.ml" 938 28571 28590 "src/cryptokit.ml" 938 28571 28597
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 938 28571 28577 "src/cryptokit.ml" 938 28571 28597
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 940 28616 28622 "src/cryptokit.ml" 940 28616 28632
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 940 28616 28633 "src/cryptokit.ml" 940 28616 28640
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 940 28616 28622 "src/cryptokit.ml" 940 28616 28640
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 943 28648 28652 "src/cryptokit.ml" 943 28648 28658
type(
  unit -> sha384
)
ident(
  def sha384 "src/cryptokit.ml" 945 28676 28676 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 943 28648 28659 "src/cryptokit.ml" 943 28648 28661
type(
  unit
)
"src/cryptokit.ml" 943 28648 28668 "src/cryptokit.ml" 943 28648 28674
call(
  tail
)
"src/cryptokit.ml" 943 28648 28664 "src/cryptokit.ml" 943 28648 28674
type(
  sha384
)
"src/cryptokit.ml" 946 28691 28699 "src/cryptokit.ml" 946 28691 28705
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 947 28706 28724 "src/cryptokit.ml" 947 28706 28735
type(
  unit -> bytes
)
ident(
  int_ref sha512_init "src/cryptokit.ml" 65 3188 3188 "src/cryptokit.ml" 65 3188 3244
)
"src/cryptokit.ml" 947 28706 28735 "src/cryptokit.ml" 947 28706 28737
type(
  unit
)
"src/cryptokit.ml" 947 28706 28724 "src/cryptokit.ml" 947 28706 28737
type(
  bytes
)
"src/cryptokit.ml" 948 28738 28761 "src/cryptokit.ml" 948 28738 28763
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 949 28764 28789 "src/cryptokit.ml" 949 28764 28792
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 949 28764 28793 "src/cryptokit.ml" 952 28910 28949
)
"src/cryptokit.ml" 949 28764 28793 "src/cryptokit.ml" 949 28764 28796
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 949 28764 28797 "src/cryptokit.ml" 952 28910 28949
)
"src/cryptokit.ml" 949 28764 28797 "src/cryptokit.ml" 949 28764 28800
type(
  int
)
ident(
  def len "src/cryptokit.ml" 950 28803 28809 "src/cryptokit.ml" 952 28910 28949
)
"src/cryptokit.ml" 950 28803 28812 "src/cryptokit.ml" 950 28803 28815
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 949 28764 28793 "src/cryptokit.ml" 949 28764 28796
)
"src/cryptokit.ml" 950 28803 28816 "src/cryptokit.ml" 950 28803 28817
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 950 28803 28818 "src/cryptokit.ml" 950 28803 28819
type(
  int
)
"src/cryptokit.ml" 950 28803 28812 "src/cryptokit.ml" 950 28803 28819
type(
  bool
)
"src/cryptokit.ml" 950 28803 28820 "src/cryptokit.ml" 950 28803 28822
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 950 28803 28823 "src/cryptokit.ml" 950 28803 28826
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 949 28764 28797 "src/cryptokit.ml" 949 28764 28800
)
"src/cryptokit.ml" 950 28803 28827 "src/cryptokit.ml" 950 28803 28828
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 950 28803 28829 "src/cryptokit.ml" 950 28803 28830
type(
  int
)
"src/cryptokit.ml" 950 28803 28823 "src/cryptokit.ml" 950 28803 28830
type(
  bool
)
"src/cryptokit.ml" 950 28803 28831 "src/cryptokit.ml" 950 28803 28833
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 950 28803 28834 "src/cryptokit.ml" 950 28803 28837
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 949 28764 28793 "src/cryptokit.ml" 949 28764 28796
)
"src/cryptokit.ml" 950 28803 28838 "src/cryptokit.ml" 950 28803 28839
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 950 28803 28840 "src/cryptokit.ml" 950 28803 28852
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 950 28803 28853 "src/cryptokit.ml" 950 28803 28856
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 949 28764 28789 "src/cryptokit.ml" 949 28764 28792
)
"src/cryptokit.ml" 950 28803 28840 "src/cryptokit.ml" 950 28803 28856
type(
  int
)
"src/cryptokit.ml" 950 28803 28857 "src/cryptokit.ml" 950 28803 28858
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 950 28803 28859 "src/cryptokit.ml" 950 28803 28862
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 949 28764 28797 "src/cryptokit.ml" 949 28764 28800
)
"src/cryptokit.ml" 950 28803 28840 "src/cryptokit.ml" 950 28803 28862
type(
  int
)
"src/cryptokit.ml" 950 28803 28834 "src/cryptokit.ml" 950 28803 28862
type(
  bool
)
"src/cryptokit.ml" 950 28803 28823 "src/cryptokit.ml" 950 28803 28862
type(
  bool
)
"src/cryptokit.ml" 950 28803 28812 "src/cryptokit.ml" 950 28803 28862
type(
  bool
)
"src/cryptokit.ml" 951 28863 28874 "src/cryptokit.ml" 951 28863 28885
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 951 28863 28886 "src/cryptokit.ml" 951 28863 28908
type(
  string
)
"src/cryptokit.ml" 951 28863 28874 "src/cryptokit.ml" 951 28863 28908
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 950 28803 28809 "src/cryptokit.ml" 951 28863 28908
type(
  unit
)
"src/cryptokit.ml" 952 28910 28916 "src/cryptokit.ml" 952 28910 28929
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha512_update "src/cryptokit.ml" 67 3302 3302 "src/cryptokit.ml" 67 3302 3385
)
"src/cryptokit.ml" 952 28910 28930 "src/cryptokit.ml" 952 28910 28937
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 952 28910 28938 "src/cryptokit.ml" 952 28910 28941
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 949 28764 28789 "src/cryptokit.ml" 949 28764 28792
)
"src/cryptokit.ml" 952 28910 28942 "src/cryptokit.ml" 952 28910 28945
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 949 28764 28793 "src/cryptokit.ml" 949 28764 28796
)
"src/cryptokit.ml" 952 28910 28946 "src/cryptokit.ml" 952 28910 28949
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 949 28764 28797 "src/cryptokit.ml" 949 28764 28800
)
"src/cryptokit.ml" 952 28910 28916 "src/cryptokit.ml" 952 28910 28949
type(
  unit
)
"src/cryptokit.ml" 950 28803 28809 "src/cryptokit.ml" 952 28910 28949
type(
  unit
)
"src/cryptokit.ml" 953 28950 28972 "src/cryptokit.ml" 953 28950 28975
type(
  string
)
ident(
  def src "src/cryptokit.ml" 954 28978 28984 "src/cryptokit.ml" 954 28978 29056
)
"src/cryptokit.ml" 954 28978 28984 "src/cryptokit.ml" 954 28978 28997
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref sha512_update "src/cryptokit.ml" 67 3302 3302 "src/cryptokit.ml" 67 3302 3385
)
"src/cryptokit.ml" 954 28978 28998 "src/cryptokit.ml" 954 28978 29005
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 954 28978 29007 "src/cryptokit.ml" 954 28978 29029
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 954 28978 29030 "src/cryptokit.ml" 954 28978 29033
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 953 28950 28972 "src/cryptokit.ml" 953 28950 28975
)
"src/cryptokit.ml" 954 28978 29006 "src/cryptokit.ml" 954 28978 29034
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 954 28978 29035 "src/cryptokit.ml" 954 28978 29036
type(
  int
)
"src/cryptokit.ml" 954 28978 29038 "src/cryptokit.ml" 954 28978 29051
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 954 28978 29052 "src/cryptokit.ml" 954 28978 29055
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 953 28950 28972 "src/cryptokit.ml" 953 28950 28975
)
"src/cryptokit.ml" 954 28978 29037 "src/cryptokit.ml" 954 28978 29056
type(
  int
)
"src/cryptokit.ml" 954 28978 28984 "src/cryptokit.ml" 954 28978 29056
type(
  unit
)
"src/cryptokit.ml" 955 29057 29077 "src/cryptokit.ml" 955 29057 29078
type(
  char
)
ident(
  def c "src/cryptokit.ml" 956 29081 29087 "src/cryptokit.ml" 956 29081 29120
)
"src/cryptokit.ml" 956 29081 29087 "src/cryptokit.ml" 956 29081 29091
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'e
)
ident(
  int_ref self "src/cryptokit.ml" 946 28691 28699 "src/cryptokit.ml" 946 28691 28705
)
"src/cryptokit.ml" 956 29081 29087 "src/cryptokit.ml" 956 29081 29102
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 956 29081 29104 "src/cryptokit.ml" 956 29081 29115
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 956 29081 29116 "src/cryptokit.ml" 956 29081 29117
type(
  int
)
"src/cryptokit.ml" 956 29081 29118 "src/cryptokit.ml" 956 29081 29119
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 955 29057 29077 "src/cryptokit.ml" 955 29057 29078
)
"src/cryptokit.ml" 956 29081 29103 "src/cryptokit.ml" 956 29081 29120
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 956 29081 29087 "src/cryptokit.ml" 956 29081 29120
type(
  unit
)
"src/cryptokit.ml" 957 29121 29141 "src/cryptokit.ml" 957 29121 29142
type(
  int
)
ident(
  def b "src/cryptokit.ml" 958 29145 29151 "src/cryptokit.ml" 958 29145 29184
)
"src/cryptokit.ml" 958 29145 29151 "src/cryptokit.ml" 958 29145 29155
type(
  'e
)
ident(
  int_ref self "src/cryptokit.ml" 946 28691 28699 "src/cryptokit.ml" 946 28691 28705
)
"src/cryptokit.ml" 958 29145 29151 "src/cryptokit.ml" 958 29145 29164
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 958 29145 29166 "src/cryptokit.ml" 958 29145 29181
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 958 29145 29182 "src/cryptokit.ml" 958 29145 29183
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 957 29121 29141 "src/cryptokit.ml" 957 29121 29142
)
"src/cryptokit.ml" 958 29145 29165 "src/cryptokit.ml" 958 29145 29184
type(
  char
)
"src/cryptokit.ml" 958 29145 29151 "src/cryptokit.ml" 958 29145 29184
type(
  unit
)
"src/cryptokit.ml" 960 29205 29211 "src/cryptokit.ml" 960 29205 29223
type(
  bytes -> string
)
ident(
  int_ref sha512_final "src/cryptokit.ml" 68 3386 3386 "src/cryptokit.ml" 68 3386 3446
)
"src/cryptokit.ml" 960 29205 29224 "src/cryptokit.ml" 960 29205 29231
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 960 29205 29211 "src/cryptokit.ml" 960 29205 29231
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 962 29250 29256 "src/cryptokit.ml" 962 29250 29266
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 962 29250 29267 "src/cryptokit.ml" 962 29250 29274
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 962 29250 29256 "src/cryptokit.ml" 962 29250 29274
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 965 29282 29286 "src/cryptokit.ml" 965 29282 29292
type(
  unit -> sha512
)
ident(
  def sha512 "src/cryptokit.ml" 967 29310 29310 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 965 29282 29293 "src/cryptokit.ml" 965 29282 29295
type(
  unit
)
"src/cryptokit.ml" 965 29282 29302 "src/cryptokit.ml" 965 29282 29308
call(
  tail
)
"src/cryptokit.ml" 965 29282 29298 "src/cryptokit.ml" 965 29282 29308
type(
  sha512
)
"src/cryptokit.ml" 967 29310 29314 "src/cryptokit.ml" 967 29310 29318
type(
  int -> sha224
)
ident(
  def sha2 "src/cryptokit.ml" 975 29469 29469 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 967 29310 29319 "src/cryptokit.ml" 967 29310 29321
type(
  int
)
ident(
  def sz "src/cryptokit.ml" 968 29324 29326 "src/cryptokit.ml" 973 29428 29467
)
"src/cryptokit.ml" 968 29324 29332 "src/cryptokit.ml" 968 29324 29334
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 967 29310 29319 "src/cryptokit.ml" 967 29310 29321
)
"src/cryptokit.ml" 969 29340 29344 "src/cryptokit.ml" 969 29340 29347
type(
  int
)
"src/cryptokit.ml" 969 29340 29355 "src/cryptokit.ml" 969 29340 29361
call(
  tail
)
"src/cryptokit.ml" 969 29340 29351 "src/cryptokit.ml" 969 29340 29361
type(
  sha224
)
"src/cryptokit.ml" 970 29362 29366 "src/cryptokit.ml" 970 29362 29369
type(
  int
)
"src/cryptokit.ml" 970 29362 29377 "src/cryptokit.ml" 970 29362 29383
call(
  tail
)
"src/cryptokit.ml" 970 29362 29373 "src/cryptokit.ml" 970 29362 29383
type(
  sha256
)
"src/cryptokit.ml" 971 29384 29388 "src/cryptokit.ml" 971 29384 29391
type(
  int
)
"src/cryptokit.ml" 971 29384 29399 "src/cryptokit.ml" 971 29384 29405
call(
  tail
)
"src/cryptokit.ml" 971 29384 29395 "src/cryptokit.ml" 971 29384 29405
type(
  sha384
)
"src/cryptokit.ml" 972 29406 29410 "src/cryptokit.ml" 972 29406 29413
type(
  int
)
"src/cryptokit.ml" 972 29406 29421 "src/cryptokit.ml" 972 29406 29427
call(
  tail
)
"src/cryptokit.ml" 972 29406 29417 "src/cryptokit.ml" 972 29406 29427
type(
  sha512
)
"src/cryptokit.ml" 973 29428 29433 "src/cryptokit.ml" 973 29428 29434
type(
  int
)
"src/cryptokit.ml" 973 29428 29439 "src/cryptokit.ml" 973 29428 29444
type(
  exn -> sha224
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 973 29428 29452 "src/cryptokit.ml" 973 29428 29466
type(
  error
)
"src/cryptokit.ml" 973 29428 29445 "src/cryptokit.ml" 973 29428 29467
type(
  exn
)
"src/cryptokit.ml" 973 29428 29439 "src/cryptokit.ml" 973 29428 29467
type(
  sha224
)
"src/cryptokit.ml" 968 29324 29326 "src/cryptokit.ml" 973 29428 29467
type(
  sha224
)
"src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
type(
  int
)
"src/cryptokit.ml" 976 29485 29493 "src/cryptokit.ml" 976 29485 29499
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 978 29518 29527 "src/cryptokit.ml" 978 29518 29529
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
)
"src/cryptokit.ml" 978 29518 29530 "src/cryptokit.ml" 978 29518 29531
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 978 29518 29532 "src/cryptokit.ml" 978 29518 29535
type(
  int
)
"src/cryptokit.ml" 978 29518 29527 "src/cryptokit.ml" 978 29518 29535
type(
  bool
)
"src/cryptokit.ml" 978 29518 29536 "src/cryptokit.ml" 978 29518 29538
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 978 29518 29539 "src/cryptokit.ml" 978 29518 29541
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
)
"src/cryptokit.ml" 978 29518 29542 "src/cryptokit.ml" 978 29518 29543
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 978 29518 29544 "src/cryptokit.ml" 978 29518 29547
type(
  int
)
"src/cryptokit.ml" 978 29518 29539 "src/cryptokit.ml" 978 29518 29547
type(
  bool
)
"src/cryptokit.ml" 978 29518 29548 "src/cryptokit.ml" 978 29518 29550
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 978 29518 29551 "src/cryptokit.ml" 978 29518 29553
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
)
"src/cryptokit.ml" 978 29518 29554 "src/cryptokit.ml" 978 29518 29555
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 978 29518 29556 "src/cryptokit.ml" 978 29518 29559
type(
  int
)
"src/cryptokit.ml" 978 29518 29551 "src/cryptokit.ml" 978 29518 29559
type(
  bool
)
"src/cryptokit.ml" 978 29518 29560 "src/cryptokit.ml" 978 29518 29562
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 978 29518 29563 "src/cryptokit.ml" 978 29518 29565
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
)
"src/cryptokit.ml" 978 29518 29566 "src/cryptokit.ml" 978 29518 29567
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 978 29518 29568 "src/cryptokit.ml" 978 29518 29571
type(
  int
)
"src/cryptokit.ml" 978 29518 29563 "src/cryptokit.ml" 978 29518 29571
type(
  bool
)
"src/cryptokit.ml" 978 29518 29551 "src/cryptokit.ml" 978 29518 29571
type(
  bool
)
"src/cryptokit.ml" 978 29518 29539 "src/cryptokit.ml" 978 29518 29571
type(
  bool
)
"src/cryptokit.ml" 978 29518 29527 "src/cryptokit.ml" 978 29518 29571
type(
  bool
)
"src/cryptokit.ml" 979 29572 29583 "src/cryptokit.ml" 979 29572 29592
type(
  int -> sha3_context
)
ident(
  int_ref sha3_init "src/cryptokit.ml" 71 3526 3526 "src/cryptokit.ml" 71 3526 3584
)
"src/cryptokit.ml" 979 29572 29593 "src/cryptokit.ml" 979 29572 29595
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
)
"src/cryptokit.ml" 979 29572 29583 "src/cryptokit.ml" 979 29572 29595
type(
  sha3_context
)
"src/cryptokit.ml" 980 29596 29607 "src/cryptokit.ml" 980 29596 29612
type(
  exn -> sha3_context
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 980 29596 29620 "src/cryptokit.ml" 980 29596 29634
type(
  error
)
"src/cryptokit.ml" 980 29596 29613 "src/cryptokit.ml" 980 29596 29635
type(
  exn
)
"src/cryptokit.ml" 980 29596 29607 "src/cryptokit.ml" 980 29596 29635
type(
  sha3_context
)
"src/cryptokit.ml" 978 29518 29524 "src/cryptokit.ml" 980 29596 29635
type(
  sha3_context
)
"src/cryptokit.ml" 981 29636 29659 "src/cryptokit.ml" 981 29636 29661
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 975 29469 29480 "src/cryptokit.ml" 975 29469 29482
)
"src/cryptokit.ml" 981 29636 29662 "src/cryptokit.ml" 981 29636 29663
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( / )
)
"src/cryptokit.ml" 981 29636 29664 "src/cryptokit.ml" 981 29636 29665
type(
  int
)
"src/cryptokit.ml" 981 29636 29659 "src/cryptokit.ml" 981 29636 29665
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 982 29666 29691 "src/cryptokit.ml" 982 29666 29694
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 982 29666 29695 "src/cryptokit.ml" 985 29810 29847
)
"src/cryptokit.ml" 982 29666 29695 "src/cryptokit.ml" 982 29666 29698
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 982 29666 29699 "src/cryptokit.ml" 985 29810 29847
)
"src/cryptokit.ml" 982 29666 29699 "src/cryptokit.ml" 982 29666 29702
type(
  int
)
ident(
  def len "src/cryptokit.ml" 983 29705 29711 "src/cryptokit.ml" 985 29810 29847
)
"src/cryptokit.ml" 983 29705 29714 "src/cryptokit.ml" 983 29705 29717
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 982 29666 29695 "src/cryptokit.ml" 982 29666 29698
)
"src/cryptokit.ml" 983 29705 29718 "src/cryptokit.ml" 983 29705 29719
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 983 29705 29720 "src/cryptokit.ml" 983 29705 29721
type(
  int
)
"src/cryptokit.ml" 983 29705 29714 "src/cryptokit.ml" 983 29705 29721
type(
  bool
)
"src/cryptokit.ml" 983 29705 29722 "src/cryptokit.ml" 983 29705 29724
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 983 29705 29725 "src/cryptokit.ml" 983 29705 29728
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 982 29666 29699 "src/cryptokit.ml" 982 29666 29702
)
"src/cryptokit.ml" 983 29705 29729 "src/cryptokit.ml" 983 29705 29730
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 983 29705 29731 "src/cryptokit.ml" 983 29705 29732
type(
  int
)
"src/cryptokit.ml" 983 29705 29725 "src/cryptokit.ml" 983 29705 29732
type(
  bool
)
"src/cryptokit.ml" 983 29705 29733 "src/cryptokit.ml" 983 29705 29735
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 983 29705 29736 "src/cryptokit.ml" 983 29705 29739
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 982 29666 29695 "src/cryptokit.ml" 982 29666 29698
)
"src/cryptokit.ml" 983 29705 29740 "src/cryptokit.ml" 983 29705 29741
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 983 29705 29742 "src/cryptokit.ml" 983 29705 29754
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 983 29705 29755 "src/cryptokit.ml" 983 29705 29758
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 982 29666 29691 "src/cryptokit.ml" 982 29666 29694
)
"src/cryptokit.ml" 983 29705 29742 "src/cryptokit.ml" 983 29705 29758
type(
  int
)
"src/cryptokit.ml" 983 29705 29759 "src/cryptokit.ml" 983 29705 29760
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 983 29705 29761 "src/cryptokit.ml" 983 29705 29764
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 982 29666 29699 "src/cryptokit.ml" 982 29666 29702
)
"src/cryptokit.ml" 983 29705 29742 "src/cryptokit.ml" 983 29705 29764
type(
  int
)
"src/cryptokit.ml" 983 29705 29736 "src/cryptokit.ml" 983 29705 29764
type(
  bool
)
"src/cryptokit.ml" 983 29705 29725 "src/cryptokit.ml" 983 29705 29764
type(
  bool
)
"src/cryptokit.ml" 983 29705 29714 "src/cryptokit.ml" 983 29705 29764
type(
  bool
)
"src/cryptokit.ml" 984 29765 29776 "src/cryptokit.ml" 984 29765 29787
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 984 29765 29788 "src/cryptokit.ml" 984 29765 29808
type(
  string
)
"src/cryptokit.ml" 984 29765 29776 "src/cryptokit.ml" 984 29765 29808
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 983 29705 29711 "src/cryptokit.ml" 984 29765 29808
type(
  unit
)
"src/cryptokit.ml" 985 29810 29816 "src/cryptokit.ml" 985 29810 29827
type(
  sha3_context -> bytes -> int -> int -> unit
)
ident(
  int_ref sha3_absorb "src/cryptokit.ml" 72 3585 3585 "src/cryptokit.ml" 72 3585 3671
)
"src/cryptokit.ml" 985 29810 29828 "src/cryptokit.ml" 985 29810 29835
type(
  sha3_context
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 985 29810 29836 "src/cryptokit.ml" 985 29810 29839
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 982 29666 29691 "src/cryptokit.ml" 982 29666 29694
)
"src/cryptokit.ml" 985 29810 29840 "src/cryptokit.ml" 985 29810 29843
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 982 29666 29695 "src/cryptokit.ml" 982 29666 29698
)
"src/cryptokit.ml" 985 29810 29844 "src/cryptokit.ml" 985 29810 29847
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 982 29666 29699 "src/cryptokit.ml" 982 29666 29702
)
"src/cryptokit.ml" 985 29810 29816 "src/cryptokit.ml" 985 29810 29847
type(
  unit
)
"src/cryptokit.ml" 983 29705 29711 "src/cryptokit.ml" 985 29810 29847
type(
  unit
)
"src/cryptokit.ml" 986 29848 29870 "src/cryptokit.ml" 986 29848 29873
type(
  string
)
ident(
  def src "src/cryptokit.ml" 987 29876 29882 "src/cryptokit.ml" 987 29876 29952
)
"src/cryptokit.ml" 987 29876 29882 "src/cryptokit.ml" 987 29876 29893
type(
  sha3_context -> bytes -> int -> int -> unit
)
ident(
  int_ref sha3_absorb "src/cryptokit.ml" 72 3585 3585 "src/cryptokit.ml" 72 3585 3671
)
"src/cryptokit.ml" 987 29876 29894 "src/cryptokit.ml" 987 29876 29901
type(
  sha3_context
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 987 29876 29903 "src/cryptokit.ml" 987 29876 29925
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 987 29876 29926 "src/cryptokit.ml" 987 29876 29929
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 986 29848 29870 "src/cryptokit.ml" 986 29848 29873
)
"src/cryptokit.ml" 987 29876 29902 "src/cryptokit.ml" 987 29876 29930
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 987 29876 29931 "src/cryptokit.ml" 987 29876 29932
type(
  int
)
"src/cryptokit.ml" 987 29876 29934 "src/cryptokit.ml" 987 29876 29947
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 987 29876 29948 "src/cryptokit.ml" 987 29876 29951
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 986 29848 29870 "src/cryptokit.ml" 986 29848 29873
)
"src/cryptokit.ml" 987 29876 29933 "src/cryptokit.ml" 987 29876 29952
type(
  int
)
"src/cryptokit.ml" 987 29876 29882 "src/cryptokit.ml" 987 29876 29952
type(
  unit
)
"src/cryptokit.ml" 988 29953 29973 "src/cryptokit.ml" 988 29953 29974
type(
  char
)
ident(
  def c "src/cryptokit.ml" 989 29977 29983 "src/cryptokit.ml" 989 29977 30016
)
"src/cryptokit.ml" 989 29977 29983 "src/cryptokit.ml" 989 29977 29987
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'f
)
ident(
  int_ref self "src/cryptokit.ml" 976 29485 29493 "src/cryptokit.ml" 976 29485 29499
)
"src/cryptokit.ml" 989 29977 29983 "src/cryptokit.ml" 989 29977 29998
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 989 29977 30000 "src/cryptokit.ml" 989 29977 30011
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 989 29977 30012 "src/cryptokit.ml" 989 29977 30013
type(
  int
)
"src/cryptokit.ml" 989 29977 30014 "src/cryptokit.ml" 989 29977 30015
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 988 29953 29973 "src/cryptokit.ml" 988 29953 29974
)
"src/cryptokit.ml" 989 29977 29999 "src/cryptokit.ml" 989 29977 30016
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 989 29977 29983 "src/cryptokit.ml" 989 29977 30016
type(
  unit
)
"src/cryptokit.ml" 990 30017 30037 "src/cryptokit.ml" 990 30017 30038
type(
  int
)
ident(
  def b "src/cryptokit.ml" 991 30041 30047 "src/cryptokit.ml" 991 30041 30080
)
"src/cryptokit.ml" 991 30041 30047 "src/cryptokit.ml" 991 30041 30051
type(
  'f
)
ident(
  int_ref self "src/cryptokit.ml" 976 29485 29493 "src/cryptokit.ml" 976 29485 29499
)
"src/cryptokit.ml" 991 30041 30047 "src/cryptokit.ml" 991 30041 30060
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 991 30041 30062 "src/cryptokit.ml" 991 30041 30077
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 991 30041 30078 "src/cryptokit.ml" 991 30041 30079
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 990 30017 30037 "src/cryptokit.ml" 990 30017 30038
)
"src/cryptokit.ml" 991 30041 30061 "src/cryptokit.ml" 991 30041 30080
type(
  char
)
"src/cryptokit.ml" 991 30041 30047 "src/cryptokit.ml" 991 30041 30080
type(
  unit
)
"src/cryptokit.ml" 993 30101 30107 "src/cryptokit.ml" 993 30101 30119
type(
  sha3_context -> string
)
ident(
  int_ref sha3_extract "src/cryptokit.ml" 73 3672 3672 "src/cryptokit.ml" 73 3672 3739
)
"src/cryptokit.ml" 993 30101 30120 "src/cryptokit.ml" 993 30101 30127
type(
  sha3_context
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 993 30101 30107 "src/cryptokit.ml" 993 30101 30127
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 995 30146 30152 "src/cryptokit.ml" 995 30146 30161
type(
  sha3_context -> unit
)
ident(
  int_ref sha3_wipe "src/cryptokit.ml" 74 3740 3740 "src/cryptokit.ml" 74 3740 3799
)
"src/cryptokit.ml" 995 30146 30162 "src/cryptokit.ml" 995 30146 30169
type(
  sha3_context
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 995 30146 30152 "src/cryptokit.ml" 995 30146 30169
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 998 30177 30181 "src/cryptokit.ml" 998 30177 30185
type(
  int -> sha3
)
ident(
  def sha3 "src/cryptokit.ml" 1000 30204 30204 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 998 30177 30186 "src/cryptokit.ml" 998 30177 30188
type(
  int
)
ident(
  def sz "src/cryptokit.ml" 998 30177 30191 "src/cryptokit.ml" 998 30177 30202
)
"src/cryptokit.ml" 998 30177 30191 "src/cryptokit.ml" 998 30177 30199
type(
  int -> sha3
)
"src/cryptokit.ml" 998 30177 30200 "src/cryptokit.ml" 998 30177 30202
type(
  int
)
ident(
  int_ref sz "src/cryptokit.ml" 998 30177 30186 "src/cryptokit.ml" 998 30177 30188
)
"src/cryptokit.ml" 998 30177 30191 "src/cryptokit.ml" 998 30177 30202
call(
  tail
)
type(
  sha3
)
"src/cryptokit.ml" 1001 30222 30230 "src/cryptokit.ml" 1001 30222 30236
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 1002 30237 30255 "src/cryptokit.ml" 1002 30237 30269
type(
  unit -> bytes
)
ident(
  int_ref ripemd160_init "src/cryptokit.ml" 75 3800 3800 "src/cryptokit.ml" 75 3800 3862
)
"src/cryptokit.ml" 1002 30237 30269 "src/cryptokit.ml" 1002 30237 30271
type(
  unit
)
"src/cryptokit.ml" 1002 30237 30255 "src/cryptokit.ml" 1002 30237 30271
type(
  bytes
)
"src/cryptokit.ml" 1003 30272 30295 "src/cryptokit.ml" 1003 30272 30297
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1004 30298 30323 "src/cryptokit.ml" 1004 30298 30326
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 1004 30298 30327 "src/cryptokit.ml" 1007 30447 30489
)
"src/cryptokit.ml" 1004 30298 30327 "src/cryptokit.ml" 1004 30298 30330
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1004 30298 30331 "src/cryptokit.ml" 1007 30447 30489
)
"src/cryptokit.ml" 1004 30298 30331 "src/cryptokit.ml" 1004 30298 30334
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1005 30337 30343 "src/cryptokit.ml" 1007 30447 30489
)
"src/cryptokit.ml" 1005 30337 30346 "src/cryptokit.ml" 1005 30337 30349
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1004 30298 30327 "src/cryptokit.ml" 1004 30298 30330
)
"src/cryptokit.ml" 1005 30337 30350 "src/cryptokit.ml" 1005 30337 30351
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1005 30337 30352 "src/cryptokit.ml" 1005 30337 30353
type(
  int
)
"src/cryptokit.ml" 1005 30337 30346 "src/cryptokit.ml" 1005 30337 30353
type(
  bool
)
"src/cryptokit.ml" 1005 30337 30354 "src/cryptokit.ml" 1005 30337 30356
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1005 30337 30357 "src/cryptokit.ml" 1005 30337 30360
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1004 30298 30331 "src/cryptokit.ml" 1004 30298 30334
)
"src/cryptokit.ml" 1005 30337 30361 "src/cryptokit.ml" 1005 30337 30362
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1005 30337 30363 "src/cryptokit.ml" 1005 30337 30364
type(
  int
)
"src/cryptokit.ml" 1005 30337 30357 "src/cryptokit.ml" 1005 30337 30364
type(
  bool
)
"src/cryptokit.ml" 1005 30337 30365 "src/cryptokit.ml" 1005 30337 30367
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1005 30337 30368 "src/cryptokit.ml" 1005 30337 30371
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1004 30298 30327 "src/cryptokit.ml" 1004 30298 30330
)
"src/cryptokit.ml" 1005 30337 30372 "src/cryptokit.ml" 1005 30337 30373
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1005 30337 30374 "src/cryptokit.ml" 1005 30337 30386
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1005 30337 30387 "src/cryptokit.ml" 1005 30337 30390
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1004 30298 30323 "src/cryptokit.ml" 1004 30298 30326
)
"src/cryptokit.ml" 1005 30337 30374 "src/cryptokit.ml" 1005 30337 30390
type(
  int
)
"src/cryptokit.ml" 1005 30337 30391 "src/cryptokit.ml" 1005 30337 30392
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1005 30337 30393 "src/cryptokit.ml" 1005 30337 30396
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1004 30298 30331 "src/cryptokit.ml" 1004 30298 30334
)
"src/cryptokit.ml" 1005 30337 30374 "src/cryptokit.ml" 1005 30337 30396
type(
  int
)
"src/cryptokit.ml" 1005 30337 30368 "src/cryptokit.ml" 1005 30337 30396
type(
  bool
)
"src/cryptokit.ml" 1005 30337 30357 "src/cryptokit.ml" 1005 30337 30396
type(
  bool
)
"src/cryptokit.ml" 1005 30337 30346 "src/cryptokit.ml" 1005 30337 30396
type(
  bool
)
"src/cryptokit.ml" 1006 30397 30408 "src/cryptokit.ml" 1006 30397 30419
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 1006 30397 30420 "src/cryptokit.ml" 1006 30397 30445
type(
  string
)
"src/cryptokit.ml" 1006 30397 30408 "src/cryptokit.ml" 1006 30397 30445
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1005 30337 30343 "src/cryptokit.ml" 1006 30397 30445
type(
  unit
)
"src/cryptokit.ml" 1007 30447 30453 "src/cryptokit.ml" 1007 30447 30469
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref ripemd160_update "src/cryptokit.ml" 76 3863 3863 "src/cryptokit.ml" 76 3863 3952
)
"src/cryptokit.ml" 1007 30447 30470 "src/cryptokit.ml" 1007 30447 30477
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1007 30447 30478 "src/cryptokit.ml" 1007 30447 30481
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1004 30298 30323 "src/cryptokit.ml" 1004 30298 30326
)
"src/cryptokit.ml" 1007 30447 30482 "src/cryptokit.ml" 1007 30447 30485
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1004 30298 30327 "src/cryptokit.ml" 1004 30298 30330
)
"src/cryptokit.ml" 1007 30447 30486 "src/cryptokit.ml" 1007 30447 30489
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1004 30298 30331 "src/cryptokit.ml" 1004 30298 30334
)
"src/cryptokit.ml" 1007 30447 30453 "src/cryptokit.ml" 1007 30447 30489
type(
  unit
)
"src/cryptokit.ml" 1005 30337 30343 "src/cryptokit.ml" 1007 30447 30489
type(
  unit
)
"src/cryptokit.ml" 1008 30490 30512 "src/cryptokit.ml" 1008 30490 30515
type(
  string
)
ident(
  def src "src/cryptokit.ml" 1009 30518 30524 "src/cryptokit.ml" 1009 30518 30599
)
"src/cryptokit.ml" 1009 30518 30524 "src/cryptokit.ml" 1009 30518 30540
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref ripemd160_update "src/cryptokit.ml" 76 3863 3863 "src/cryptokit.ml" 76 3863 3952
)
"src/cryptokit.ml" 1009 30518 30541 "src/cryptokit.ml" 1009 30518 30548
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1009 30518 30550 "src/cryptokit.ml" 1009 30518 30572
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1009 30518 30573 "src/cryptokit.ml" 1009 30518 30576
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 1008 30490 30512 "src/cryptokit.ml" 1008 30490 30515
)
"src/cryptokit.ml" 1009 30518 30549 "src/cryptokit.ml" 1009 30518 30577
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1009 30518 30578 "src/cryptokit.ml" 1009 30518 30579
type(
  int
)
"src/cryptokit.ml" 1009 30518 30581 "src/cryptokit.ml" 1009 30518 30594
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1009 30518 30595 "src/cryptokit.ml" 1009 30518 30598
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 1008 30490 30512 "src/cryptokit.ml" 1008 30490 30515
)
"src/cryptokit.ml" 1009 30518 30580 "src/cryptokit.ml" 1009 30518 30599
type(
  int
)
"src/cryptokit.ml" 1009 30518 30524 "src/cryptokit.ml" 1009 30518 30599
type(
  unit
)
"src/cryptokit.ml" 1010 30600 30620 "src/cryptokit.ml" 1010 30600 30621
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1011 30624 30630 "src/cryptokit.ml" 1011 30624 30663
)
"src/cryptokit.ml" 1011 30624 30630 "src/cryptokit.ml" 1011 30624 30634
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'g
)
ident(
  int_ref self "src/cryptokit.ml" 1001 30222 30230 "src/cryptokit.ml" 1001 30222 30236
)
"src/cryptokit.ml" 1011 30624 30630 "src/cryptokit.ml" 1011 30624 30645
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 1011 30624 30647 "src/cryptokit.ml" 1011 30624 30658
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 1011 30624 30659 "src/cryptokit.ml" 1011 30624 30660
type(
  int
)
"src/cryptokit.ml" 1011 30624 30661 "src/cryptokit.ml" 1011 30624 30662
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1010 30600 30620 "src/cryptokit.ml" 1010 30600 30621
)
"src/cryptokit.ml" 1011 30624 30646 "src/cryptokit.ml" 1011 30624 30663
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1011 30624 30630 "src/cryptokit.ml" 1011 30624 30663
type(
  unit
)
"src/cryptokit.ml" 1012 30664 30684 "src/cryptokit.ml" 1012 30664 30685
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1013 30688 30694 "src/cryptokit.ml" 1013 30688 30727
)
"src/cryptokit.ml" 1013 30688 30694 "src/cryptokit.ml" 1013 30688 30698
type(
  'g
)
ident(
  int_ref self "src/cryptokit.ml" 1001 30222 30230 "src/cryptokit.ml" 1001 30222 30236
)
"src/cryptokit.ml" 1013 30688 30694 "src/cryptokit.ml" 1013 30688 30707
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1013 30688 30709 "src/cryptokit.ml" 1013 30688 30724
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 1013 30688 30725 "src/cryptokit.ml" 1013 30688 30726
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1012 30664 30684 "src/cryptokit.ml" 1012 30664 30685
)
"src/cryptokit.ml" 1013 30688 30708 "src/cryptokit.ml" 1013 30688 30727
type(
  char
)
"src/cryptokit.ml" 1013 30688 30694 "src/cryptokit.ml" 1013 30688 30727
type(
  unit
)
"src/cryptokit.ml" 1015 30748 30754 "src/cryptokit.ml" 1015 30748 30769
type(
  bytes -> string
)
ident(
  int_ref ripemd160_final "src/cryptokit.ml" 77 3953 3953 "src/cryptokit.ml" 77 3953 4019
)
"src/cryptokit.ml" 1015 30748 30770 "src/cryptokit.ml" 1015 30748 30777
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1015 30748 30754 "src/cryptokit.ml" 1015 30748 30777
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 1017 30796 30802 "src/cryptokit.ml" 1017 30796 30812
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 1017 30796 30813 "src/cryptokit.ml" 1017 30796 30820
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1017 30796 30802 "src/cryptokit.ml" 1017 30796 30820
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1020 30828 30832 "src/cryptokit.ml" 1020 30828 30841
type(
  unit -> ripemd160
)
ident(
  def ripemd160 "src/cryptokit.ml" 1022 30862 30862 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 1020 30828 30842 "src/cryptokit.ml" 1020 30828 30844
type(
  unit
)
"src/cryptokit.ml" 1020 30828 30851 "src/cryptokit.ml" 1020 30828 30860
call(
  tail
)
"src/cryptokit.ml" 1020 30828 30847 "src/cryptokit.ml" 1020 30828 30860
type(
  ripemd160
)
"src/cryptokit.ml" 1023 30874 30882 "src/cryptokit.ml" 1023 30874 30888
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 1024 30889 30907 "src/cryptokit.ml" 1024 30889 30915
type(
  unit -> bytes
)
ident(
  int_ref md5_init "src/cryptokit.ml" 78 4020 4020 "src/cryptokit.ml" 78 4020 4070
)
"src/cryptokit.ml" 1024 30889 30915 "src/cryptokit.ml" 1024 30889 30917
type(
  unit
)
"src/cryptokit.ml" 1024 30889 30907 "src/cryptokit.ml" 1024 30889 30917
type(
  bytes
)
"src/cryptokit.ml" 1025 30918 30941 "src/cryptokit.ml" 1025 30918 30943
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1026 30944 30969 "src/cryptokit.ml" 1026 30944 30972
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 1026 30944 30973 "src/cryptokit.ml" 1029 31087 31123
)
"src/cryptokit.ml" 1026 30944 30973 "src/cryptokit.ml" 1026 30944 30976
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1026 30944 30977 "src/cryptokit.ml" 1029 31087 31123
)
"src/cryptokit.ml" 1026 30944 30977 "src/cryptokit.ml" 1026 30944 30980
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1027 30983 30989 "src/cryptokit.ml" 1029 31087 31123
)
"src/cryptokit.ml" 1027 30983 30992 "src/cryptokit.ml" 1027 30983 30995
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1026 30944 30973 "src/cryptokit.ml" 1026 30944 30976
)
"src/cryptokit.ml" 1027 30983 30996 "src/cryptokit.ml" 1027 30983 30997
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1027 30983 30998 "src/cryptokit.ml" 1027 30983 30999
type(
  int
)
"src/cryptokit.ml" 1027 30983 30992 "src/cryptokit.ml" 1027 30983 30999
type(
  bool
)
"src/cryptokit.ml" 1027 30983 31000 "src/cryptokit.ml" 1027 30983 31002
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1027 30983 31003 "src/cryptokit.ml" 1027 30983 31006
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1026 30944 30977 "src/cryptokit.ml" 1026 30944 30980
)
"src/cryptokit.ml" 1027 30983 31007 "src/cryptokit.ml" 1027 30983 31008
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1027 30983 31009 "src/cryptokit.ml" 1027 30983 31010
type(
  int
)
"src/cryptokit.ml" 1027 30983 31003 "src/cryptokit.ml" 1027 30983 31010
type(
  bool
)
"src/cryptokit.ml" 1027 30983 31011 "src/cryptokit.ml" 1027 30983 31013
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1027 30983 31014 "src/cryptokit.ml" 1027 30983 31017
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1026 30944 30973 "src/cryptokit.ml" 1026 30944 30976
)
"src/cryptokit.ml" 1027 30983 31018 "src/cryptokit.ml" 1027 30983 31019
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1027 30983 31020 "src/cryptokit.ml" 1027 30983 31032
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1027 30983 31033 "src/cryptokit.ml" 1027 30983 31036
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1026 30944 30969 "src/cryptokit.ml" 1026 30944 30972
)
"src/cryptokit.ml" 1027 30983 31020 "src/cryptokit.ml" 1027 30983 31036
type(
  int
)
"src/cryptokit.ml" 1027 30983 31037 "src/cryptokit.ml" 1027 30983 31038
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1027 30983 31039 "src/cryptokit.ml" 1027 30983 31042
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1026 30944 30977 "src/cryptokit.ml" 1026 30944 30980
)
"src/cryptokit.ml" 1027 30983 31020 "src/cryptokit.ml" 1027 30983 31042
type(
  int
)
"src/cryptokit.ml" 1027 30983 31014 "src/cryptokit.ml" 1027 30983 31042
type(
  bool
)
"src/cryptokit.ml" 1027 30983 31003 "src/cryptokit.ml" 1027 30983 31042
type(
  bool
)
"src/cryptokit.ml" 1027 30983 30992 "src/cryptokit.ml" 1027 30983 31042
type(
  bool
)
"src/cryptokit.ml" 1028 31043 31054 "src/cryptokit.ml" 1028 31043 31065
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 1028 31043 31066 "src/cryptokit.ml" 1028 31043 31085
type(
  string
)
"src/cryptokit.ml" 1028 31043 31054 "src/cryptokit.ml" 1028 31043 31085
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1027 30983 30989 "src/cryptokit.ml" 1028 31043 31085
type(
  unit
)
"src/cryptokit.ml" 1029 31087 31093 "src/cryptokit.ml" 1029 31087 31103
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref md5_update "src/cryptokit.ml" 79 4071 4071 "src/cryptokit.ml" 79 4071 4148
)
"src/cryptokit.ml" 1029 31087 31104 "src/cryptokit.ml" 1029 31087 31111
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1029 31087 31112 "src/cryptokit.ml" 1029 31087 31115
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1026 30944 30969 "src/cryptokit.ml" 1026 30944 30972
)
"src/cryptokit.ml" 1029 31087 31116 "src/cryptokit.ml" 1029 31087 31119
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1026 30944 30973 "src/cryptokit.ml" 1026 30944 30976
)
"src/cryptokit.ml" 1029 31087 31120 "src/cryptokit.ml" 1029 31087 31123
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1026 30944 30977 "src/cryptokit.ml" 1026 30944 30980
)
"src/cryptokit.ml" 1029 31087 31093 "src/cryptokit.ml" 1029 31087 31123
type(
  unit
)
"src/cryptokit.ml" 1027 30983 30989 "src/cryptokit.ml" 1029 31087 31123
type(
  unit
)
"src/cryptokit.ml" 1030 31124 31146 "src/cryptokit.ml" 1030 31124 31149
type(
  string
)
ident(
  def src "src/cryptokit.ml" 1031 31152 31158 "src/cryptokit.ml" 1031 31152 31227
)
"src/cryptokit.ml" 1031 31152 31158 "src/cryptokit.ml" 1031 31152 31168
type(
  bytes -> bytes -> int -> int -> unit
)
ident(
  int_ref md5_update "src/cryptokit.ml" 79 4071 4071 "src/cryptokit.ml" 79 4071 4148
)
"src/cryptokit.ml" 1031 31152 31169 "src/cryptokit.ml" 1031 31152 31176
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1031 31152 31178 "src/cryptokit.ml" 1031 31152 31200
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1031 31152 31201 "src/cryptokit.ml" 1031 31152 31204
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 1030 31124 31146 "src/cryptokit.ml" 1030 31124 31149
)
"src/cryptokit.ml" 1031 31152 31177 "src/cryptokit.ml" 1031 31152 31205
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1031 31152 31206 "src/cryptokit.ml" 1031 31152 31207
type(
  int
)
"src/cryptokit.ml" 1031 31152 31209 "src/cryptokit.ml" 1031 31152 31222
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1031 31152 31223 "src/cryptokit.ml" 1031 31152 31226
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 1030 31124 31146 "src/cryptokit.ml" 1030 31124 31149
)
"src/cryptokit.ml" 1031 31152 31208 "src/cryptokit.ml" 1031 31152 31227
type(
  int
)
"src/cryptokit.ml" 1031 31152 31158 "src/cryptokit.ml" 1031 31152 31227
type(
  unit
)
"src/cryptokit.ml" 1032 31228 31248 "src/cryptokit.ml" 1032 31228 31249
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1033 31252 31258 "src/cryptokit.ml" 1033 31252 31291
)
"src/cryptokit.ml" 1033 31252 31258 "src/cryptokit.ml" 1033 31252 31262
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'h
)
ident(
  int_ref self "src/cryptokit.ml" 1023 30874 30882 "src/cryptokit.ml" 1023 30874 30888
)
"src/cryptokit.ml" 1033 31252 31258 "src/cryptokit.ml" 1033 31252 31273
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 1033 31252 31275 "src/cryptokit.ml" 1033 31252 31286
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 1033 31252 31287 "src/cryptokit.ml" 1033 31252 31288
type(
  int
)
"src/cryptokit.ml" 1033 31252 31289 "src/cryptokit.ml" 1033 31252 31290
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1032 31228 31248 "src/cryptokit.ml" 1032 31228 31249
)
"src/cryptokit.ml" 1033 31252 31274 "src/cryptokit.ml" 1033 31252 31291
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1033 31252 31258 "src/cryptokit.ml" 1033 31252 31291
type(
  unit
)
"src/cryptokit.ml" 1034 31292 31312 "src/cryptokit.ml" 1034 31292 31313
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1035 31316 31322 "src/cryptokit.ml" 1035 31316 31355
)
"src/cryptokit.ml" 1035 31316 31322 "src/cryptokit.ml" 1035 31316 31326
type(
  'h
)
ident(
  int_ref self "src/cryptokit.ml" 1023 30874 30882 "src/cryptokit.ml" 1023 30874 30888
)
"src/cryptokit.ml" 1035 31316 31322 "src/cryptokit.ml" 1035 31316 31335
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1035 31316 31337 "src/cryptokit.ml" 1035 31316 31352
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 1035 31316 31353 "src/cryptokit.ml" 1035 31316 31354
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1034 31292 31312 "src/cryptokit.ml" 1034 31292 31313
)
"src/cryptokit.ml" 1035 31316 31336 "src/cryptokit.ml" 1035 31316 31355
type(
  char
)
"src/cryptokit.ml" 1035 31316 31322 "src/cryptokit.ml" 1035 31316 31355
type(
  unit
)
"src/cryptokit.ml" 1037 31376 31382 "src/cryptokit.ml" 1037 31376 31391
type(
  bytes -> string
)
ident(
  int_ref md5_final "src/cryptokit.ml" 80 4149 4149 "src/cryptokit.ml" 80 4149 4203
)
"src/cryptokit.ml" 1037 31376 31392 "src/cryptokit.ml" 1037 31376 31399
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1037 31376 31382 "src/cryptokit.ml" 1037 31376 31399
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 1039 31418 31424 "src/cryptokit.ml" 1039 31418 31434
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 1039 31418 31435 "src/cryptokit.ml" 1039 31418 31442
type(
  bytes
)
ident(
  ext_ref context
)
"src/cryptokit.ml" 1039 31418 31424 "src/cryptokit.ml" 1039 31418 31442
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1042 31450 31454 "src/cryptokit.ml" 1042 31450 31457
type(
  unit -> md5
)
ident(
  def md5 "src/cryptokit.ml" 1042 31450 31470 "src/cryptokit.ml" 1044 31472 31475
)
"src/cryptokit.ml" 1042 31450 31458 "src/cryptokit.ml" 1042 31450 31460
type(
  unit
)
"src/cryptokit.ml" 1042 31450 31467 "src/cryptokit.ml" 1042 31450 31470
call(
  tail
)
"src/cryptokit.ml" 1042 31450 31463 "src/cryptokit.ml" 1042 31450 31470
type(
  md5
)
"src/cryptokit.ml" 1060 31679 31683 "src/cryptokit.ml" 1060 31679 31700
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme ->
  ?iv:string -> direction -> Block.block_cipher -> Block.cipher
)
ident(
  def make_block_cipher "src/cryptokit.ml" 1078 32482 32482 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1060 31679 31703 "src/cryptokit.ml" 1060 31679 31707
type(
  chaining_mode
)
"src/cryptokit.ml" 1060 31679 31710 "src/cryptokit.ml" 1060 31679 31713
type(
  chaining_mode
)
type(
  chaining_mode
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1060 31679 31710 "src/cryptokit.ml" 1060 31679 31713
)
type(
  chaining_mode option
)
type(
  chaining_mode option
)
type(
  chaining_mode
)
"src/cryptokit.ml" 1060 31679 31716 "src/cryptokit.ml" 1060 31679 31719
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1060 31679 31720 "src/cryptokit.ml" 1076 32413 32480
)
"src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1060 31679 31724 "src/cryptokit.ml" 1076 32413 32480
)
"src/cryptokit.ml" 1060 31679 31724 "src/cryptokit.ml" 1060 31679 31727
type(
  direction
)
ident(
  def dir "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1076 32413 32480
)
"src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
type(
  Block.block_cipher
)
ident(
  def block_cipher "src/cryptokit.ml" 1061 31743 31745 "src/cryptokit.ml" 1076 32413 32480
)
"src/cryptokit.ml" 1061 31743 31749 "src/cryptokit.ml" 1061 31743 31763
type(
  Block.block_cipher
)
ident(
  def chained_cipher "src/cryptokit.ml" 1071 32249 32251 "src/cryptokit.ml" 1076 32413 32480
)
"src/cryptokit.ml" 1062 31766 31777 "src/cryptokit.ml" 1062 31766 31781
type(
  chaining_mode
)
ident(
  int_ref mode "src/cryptokit.ml" 1060 31679 31703 "src/cryptokit.ml" 1060 31679 31707
)
"src/cryptokit.ml" 1062 31766 31783 "src/cryptokit.ml" 1062 31766 31786
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1060 31679 31724 "src/cryptokit.ml" 1060 31679 31727
)
"src/cryptokit.ml" 1062 31766 31776 "src/cryptokit.ml" 1062 31766 31787
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1063 31793 31800 "src/cryptokit.ml" 1063 31793 31803
type(
  chaining_mode
)
"src/cryptokit.ml" 1063 31793 31805 "src/cryptokit.ml" 1063 31793 31806
type(
  direction
)
"src/cryptokit.ml" 1063 31793 31799 "src/cryptokit.ml" 1063 31793 31807
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1063 31793 31811 "src/cryptokit.ml" 1063 31793 31823
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1064 31824 31831 "src/cryptokit.ml" 1064 31824 31834
type(
  chaining_mode
)
"src/cryptokit.ml" 1064 31824 31836 "src/cryptokit.ml" 1064 31824 31843
type(
  direction
)
"src/cryptokit.ml" 1064 31824 31830 "src/cryptokit.ml" 1064 31824 31844
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1064 31824 31848 "src/cryptokit.ml" 1064 31824 31869
type(
  ?iv:string -> Block.block_cipher -> Block.cbc_encrypt
)
"src/cryptokit.ml" 1064 31824 31871 "src/cryptokit.ml" 1064 31824 31873
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1064 31824 31874 "src/cryptokit.ml" 1064 31824 31886
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1064 31824 31848 "src/cryptokit.ml" 1064 31824 31886
call(
  stack
)
type(
  Block.cbc_encrypt
)
"src/cryptokit.ml" 1065 31887 31894 "src/cryptokit.ml" 1065 31887 31897
type(
  chaining_mode
)
"src/cryptokit.ml" 1065 31887 31899 "src/cryptokit.ml" 1065 31887 31906
type(
  direction
)
"src/cryptokit.ml" 1065 31887 31893 "src/cryptokit.ml" 1065 31887 31907
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1065 31887 31911 "src/cryptokit.ml" 1065 31887 31932
type(
  ?iv:string -> Block.block_cipher -> Block.cbc_decrypt
)
"src/cryptokit.ml" 1065 31887 31934 "src/cryptokit.ml" 1065 31887 31936
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1065 31887 31937 "src/cryptokit.ml" 1065 31887 31949
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1065 31887 31911 "src/cryptokit.ml" 1065 31887 31949
call(
  stack
)
type(
  Block.cbc_decrypt
)
"src/cryptokit.ml" 1066 31950 31961 "src/cryptokit.ml" 1066 31950 31962
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1066 31950 31976 "src/cryptokit.ml" 1066 31950 32016
)
"src/cryptokit.ml" 1066 31950 31957 "src/cryptokit.ml" 1066 31950 31962
type(
  chaining_mode
)
"src/cryptokit.ml" 1066 31950 31964 "src/cryptokit.ml" 1066 31950 31971
type(
  direction
)
"src/cryptokit.ml" 1066 31950 31956 "src/cryptokit.ml" 1066 31950 31972
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1066 31950 31976 "src/cryptokit.ml" 1066 31950 31997
type(
  ?iv:string -> int -> Block.block_cipher -> Block.cfb_encrypt
)
"src/cryptokit.ml" 1066 31950 31999 "src/cryptokit.ml" 1066 31950 32001
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1066 31950 32002 "src/cryptokit.ml" 1066 31950 32003
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1066 31950 31961 "src/cryptokit.ml" 1066 31950 31962
)
"src/cryptokit.ml" 1066 31950 32004 "src/cryptokit.ml" 1066 31950 32016
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1066 31950 31976 "src/cryptokit.ml" 1066 31950 32016
call(
  stack
)
type(
  Block.cfb_encrypt
)
"src/cryptokit.ml" 1067 32017 32028 "src/cryptokit.ml" 1067 32017 32029
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1067 32017 32043 "src/cryptokit.ml" 1067 32017 32083
)
"src/cryptokit.ml" 1067 32017 32024 "src/cryptokit.ml" 1067 32017 32029
type(
  chaining_mode
)
"src/cryptokit.ml" 1067 32017 32031 "src/cryptokit.ml" 1067 32017 32038
type(
  direction
)
"src/cryptokit.ml" 1067 32017 32023 "src/cryptokit.ml" 1067 32017 32039
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1067 32017 32043 "src/cryptokit.ml" 1067 32017 32064
type(
  ?iv:string -> int -> Block.block_cipher -> Block.cfb_decrypt
)
"src/cryptokit.ml" 1067 32017 32066 "src/cryptokit.ml" 1067 32017 32068
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1067 32017 32069 "src/cryptokit.ml" 1067 32017 32070
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1067 32017 32028 "src/cryptokit.ml" 1067 32017 32029
)
"src/cryptokit.ml" 1067 32017 32071 "src/cryptokit.ml" 1067 32017 32083
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1067 32017 32043 "src/cryptokit.ml" 1067 32017 32083
call(
  stack
)
type(
  Block.cfb_decrypt
)
"src/cryptokit.ml" 1068 32084 32095 "src/cryptokit.ml" 1068 32084 32096
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1068 32084 32104 "src/cryptokit.ml" 1068 32084 32136
)
"src/cryptokit.ml" 1068 32084 32091 "src/cryptokit.ml" 1068 32084 32096
type(
  chaining_mode
)
"src/cryptokit.ml" 1068 32084 32098 "src/cryptokit.ml" 1068 32084 32099
type(
  direction
)
"src/cryptokit.ml" 1068 32084 32090 "src/cryptokit.ml" 1068 32084 32100
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1068 32084 32104 "src/cryptokit.ml" 1068 32084 32117
type(
  ?iv:string -> int -> Block.block_cipher -> Block.ofb
)
"src/cryptokit.ml" 1068 32084 32119 "src/cryptokit.ml" 1068 32084 32121
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1068 32084 32122 "src/cryptokit.ml" 1068 32084 32123
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1068 32084 32095 "src/cryptokit.ml" 1068 32084 32096
)
"src/cryptokit.ml" 1068 32084 32124 "src/cryptokit.ml" 1068 32084 32136
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1068 32084 32104 "src/cryptokit.ml" 1068 32084 32136
call(
  stack
)
type(
  Block.ofb
)
"src/cryptokit.ml" 1069 32137 32144 "src/cryptokit.ml" 1069 32137 32147
type(
  chaining_mode
)
"src/cryptokit.ml" 1069 32137 32149 "src/cryptokit.ml" 1069 32137 32150
type(
  direction
)
"src/cryptokit.ml" 1069 32137 32143 "src/cryptokit.ml" 1069 32137 32151
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1069 32137 32155 "src/cryptokit.ml" 1069 32137 32168
type(
  ?iv:string -> ?inc:int -> Block.block_cipher -> Block.ctr
)
"src/cryptokit.ml" 1069 32137 32170 "src/cryptokit.ml" 1069 32137 32172
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1069 32137 32173 "src/cryptokit.ml" 1069 32137 32185
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1069 32137 32155 "src/cryptokit.ml" 1069 32137 32185
call(
  stack
)
type(
  Block.ctr
)
"src/cryptokit.ml" 1070 32186 32199 "src/cryptokit.ml" 1070 32186 32200
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1070 32186 32208 "src/cryptokit.ml" 1070 32186 32245
)
"src/cryptokit.ml" 1070 32186 32193 "src/cryptokit.ml" 1070 32186 32200
type(
  chaining_mode
)
"src/cryptokit.ml" 1070 32186 32202 "src/cryptokit.ml" 1070 32186 32203
type(
  direction
)
"src/cryptokit.ml" 1070 32186 32192 "src/cryptokit.ml" 1070 32186 32204
type(
  chaining_mode * direction
)
"src/cryptokit.ml" 1070 32186 32208 "src/cryptokit.ml" 1070 32186 32221
type(
  ?iv:string -> ?inc:int -> Block.block_cipher -> Block.ctr
)
"src/cryptokit.ml" 1070 32186 32223 "src/cryptokit.ml" 1070 32186 32225
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1060 31679 31721 "src/cryptokit.ml" 1060 31679 31723
)
"src/cryptokit.ml" 1070 32186 32231 "src/cryptokit.ml" 1070 32186 32232
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1070 32186 32199 "src/cryptokit.ml" 1070 32186 32200
)
"src/cryptokit.ml" 1070 32186 32233 "src/cryptokit.ml" 1070 32186 32245
type(
  Block.block_cipher
)
ident(
  int_ref block_cipher "src/cryptokit.ml" 1060 31679 31728 "src/cryptokit.ml" 1060 31679 31740
)
"src/cryptokit.ml" 1070 32186 32208 "src/cryptokit.ml" 1070 32186 32245
call(
  stack
)
type(
  Block.ctr
)
"src/cryptokit.ml" 1062 31766 31770 "src/cryptokit.ml" 1070 32186 32245
type(
  Block.block_cipher
)
"src/cryptokit.ml" 1071 32249 32257 "src/cryptokit.ml" 1071 32249 32260
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1060 31679 31716 "src/cryptokit.ml" 1060 31679 31719
)
"src/cryptokit.ml" 1072 32266 32270 "src/cryptokit.ml" 1072 32266 32274
type(
  Padding.scheme option
)
"src/cryptokit.ml" 1072 32266 32278 "src/cryptokit.ml" 1072 32266 32294
type(
  Block.block_cipher -> Block.cipher
)
"src/cryptokit.ml" 1072 32266 32295 "src/cryptokit.ml" 1072 32266 32309
type(
  Block.block_cipher
)
ident(
  int_ref chained_cipher "src/cryptokit.ml" 1061 31743 31749 "src/cryptokit.ml" 1061 31743 31763
)
"src/cryptokit.ml" 1072 32266 32278 "src/cryptokit.ml" 1072 32266 32309
call(
  tail
)
type(
  Block.cipher
)
"src/cryptokit.ml" 1073 32310 32319 "src/cryptokit.ml" 1073 32310 32320
type(
  Padding.scheme
)
ident(
  def p "src/cryptokit.ml" 1074 32324 32330 "src/cryptokit.ml" 1076 32413 32480
)
"src/cryptokit.ml" 1073 32310 32314 "src/cryptokit.ml" 1073 32310 32320
type(
  Padding.scheme option
)
"src/cryptokit.ml" 1074 32324 32336 "src/cryptokit.ml" 1074 32324 32339
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1060 31679 31724 "src/cryptokit.ml" 1060 31679 31727
)
"src/cryptokit.ml" 1075 32345 32353 "src/cryptokit.ml" 1075 32345 32360
type(
  direction
)
"src/cryptokit.ml" 1075 32345 32364 "src/cryptokit.ml" 1075 32345 32395
type(
  Padding.scheme -> Block.block_cipher -> Block.cipher_padded_encrypt
)
"src/cryptokit.ml" 1075 32345 32396 "src/cryptokit.ml" 1075 32345 32397
type(
  Padding.scheme
)
ident(
  int_ref p "src/cryptokit.ml" 1073 32310 32319 "src/cryptokit.ml" 1073 32310 32320
)
"src/cryptokit.ml" 1075 32345 32398 "src/cryptokit.ml" 1075 32345 32412
type(
  Block.block_cipher
)
ident(
  int_ref chained_cipher "src/cryptokit.ml" 1061 31743 31749 "src/cryptokit.ml" 1061 31743 31763
)
"src/cryptokit.ml" 1075 32345 32364 "src/cryptokit.ml" 1075 32345 32412
call(
  tail
)
type(
  Block.cipher_padded_encrypt
)
"src/cryptokit.ml" 1076 32413 32421 "src/cryptokit.ml" 1076 32413 32428
type(
  direction
)
"src/cryptokit.ml" 1076 32413 32432 "src/cryptokit.ml" 1076 32413 32463
type(
  Padding.scheme -> Block.block_cipher -> Block.cipher_padded_decrypt
)
"src/cryptokit.ml" 1076 32413 32464 "src/cryptokit.ml" 1076 32413 32465
type(
  Padding.scheme
)
ident(
  int_ref p "src/cryptokit.ml" 1073 32310 32319 "src/cryptokit.ml" 1073 32310 32320
)
"src/cryptokit.ml" 1076 32413 32466 "src/cryptokit.ml" 1076 32413 32480
type(
  Block.block_cipher
)
ident(
  int_ref chained_cipher "src/cryptokit.ml" 1061 31743 31749 "src/cryptokit.ml" 1061 31743 31763
)
"src/cryptokit.ml" 1076 32413 32432 "src/cryptokit.ml" 1076 32413 32480
call(
  tail
)
type(
  Block.cipher_padded_decrypt
)
"src/cryptokit.ml" 1074 32324 32330 "src/cryptokit.ml" 1076 32413 32480
type(
  Block.cipher
)
"src/cryptokit.ml" 1071 32249 32251 "src/cryptokit.ml" 1076 32413 32480
type(
  Block.cipher
)
"src/cryptokit.ml" 1061 31743 31745 "src/cryptokit.ml" 1076 32413 32480
type(
  Block.cipher
)
"src/cryptokit.ml" 1078 32482 32486 "src/cryptokit.ml" 1078 32482 32499
type(
  chaining_mode option -> direction -> direction
)
ident(
  def normalize_dir "src/cryptokit.ml" 1083 32612 32612 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1078 32482 32500 "src/cryptokit.ml" 1078 32482 32504
type(
  chaining_mode option
)
ident(
  def mode "src/cryptokit.ml" 1078 32482 32505 "src/cryptokit.ml" 1081 32598 32610
)
"src/cryptokit.ml" 1078 32482 32505 "src/cryptokit.ml" 1078 32482 32508
type(
  direction
)
ident(
  def dir "src/cryptokit.ml" 1079 32511 32513 "src/cryptokit.ml" 1081 32598 32610
)
"src/cryptokit.ml" 1079 32511 32519 "src/cryptokit.ml" 1079 32511 32523
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1078 32482 32500 "src/cryptokit.ml" 1078 32482 32504
)
"src/cryptokit.ml" 1080 32529 32542 "src/cryptokit.ml" 1080 32529 32543
type(
  int
)
"src/cryptokit.ml" 1080 32529 32537 "src/cryptokit.ml" 1080 32529 32544
type(
  chaining_mode
)
"src/cryptokit.ml" 1080 32529 32533 "src/cryptokit.ml" 1080 32529 32544
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32556 "src/cryptokit.ml" 1080 32529 32557
type(
  int
)
"src/cryptokit.ml" 1080 32529 32551 "src/cryptokit.ml" 1080 32529 32558
type(
  chaining_mode
)
"src/cryptokit.ml" 1080 32529 32547 "src/cryptokit.ml" 1080 32529 32558
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32533 "src/cryptokit.ml" 1080 32529 32558
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32565 "src/cryptokit.ml" 1080 32529 32570
type(
  chaining_mode
)
"src/cryptokit.ml" 1080 32529 32561 "src/cryptokit.ml" 1080 32529 32570
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32533 "src/cryptokit.ml" 1080 32529 32570
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32584 "src/cryptokit.ml" 1080 32529 32585
type(
  int
)
"src/cryptokit.ml" 1080 32529 32577 "src/cryptokit.ml" 1080 32529 32586
type(
  chaining_mode
)
"src/cryptokit.ml" 1080 32529 32573 "src/cryptokit.ml" 1080 32529 32586
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32533 "src/cryptokit.ml" 1080 32529 32586
type(
  chaining_mode option
)
"src/cryptokit.ml" 1080 32529 32590 "src/cryptokit.ml" 1080 32529 32597
type(
  direction
)
"src/cryptokit.ml" 1081 32598 32602 "src/cryptokit.ml" 1081 32598 32603
type(
  chaining_mode option
)
"src/cryptokit.ml" 1081 32598 32607 "src/cryptokit.ml" 1081 32598 32610
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1078 32482 32505 "src/cryptokit.ml" 1078 32482 32508
)
"src/cryptokit.ml" 1079 32511 32513 "src/cryptokit.ml" 1081 32598 32610
type(
  direction
)
"src/cryptokit.ml" 1083 32612 32616 "src/cryptokit.ml" 1083 32612 32619
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme -> ?iv:string -> string -> direction -> Block.cipher
)
ident(
  def aes "src/cryptokit.ml" 1089 32810 32810 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1083 32612 32621 "src/cryptokit.ml" 1083 32612 32625
type(
  chaining_mode option
)
ident(
  def mode "src/cryptokit.ml" 1083 32612 32626 "src/cryptokit.ml" 1087 32765 32808
)
"src/cryptokit.ml" 1083 32612 32627 "src/cryptokit.ml" 1083 32612 32630
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1083 32612 32631 "src/cryptokit.ml" 1087 32765 32808
)
"src/cryptokit.ml" 1083 32612 32632 "src/cryptokit.ml" 1083 32612 32634
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1083 32612 32635 "src/cryptokit.ml" 1087 32765 32808
)
"src/cryptokit.ml" 1083 32612 32635 "src/cryptokit.ml" 1083 32612 32638
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1083 32612 32639 "src/cryptokit.ml" 1087 32765 32808
)
"src/cryptokit.ml" 1083 32612 32639 "src/cryptokit.ml" 1083 32612 32642
type(
  direction
)
ident(
  def dir "src/cryptokit.ml" 1084 32645 32647 "src/cryptokit.ml" 1087 32765 32808
)
"src/cryptokit.ml" 1084 32645 32647 "src/cryptokit.ml" 1084 32645 32664
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme ->
  ?iv:string -> direction -> Block.block_cipher -> Block.cipher
)
ident(
  int_ref make_block_cipher "src/cryptokit.ml" 1060 31679 31683 "src/cryptokit.ml" 1060 31679 31700
)
"src/cryptokit.ml" 1084 32645 32666 "src/cryptokit.ml" 1084 32645 32670
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1083 32612 32621 "src/cryptokit.ml" 1083 32612 32625
)
"src/cryptokit.ml" 1084 32645 32672 "src/cryptokit.ml" 1084 32645 32675
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1083 32612 32627 "src/cryptokit.ml" 1083 32612 32630
)
"src/cryptokit.ml" 1084 32645 32677 "src/cryptokit.ml" 1084 32645 32679
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1083 32612 32632 "src/cryptokit.ml" 1083 32612 32634
)
"src/cryptokit.ml" 1084 32645 32680 "src/cryptokit.ml" 1084 32645 32683
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1083 32612 32639 "src/cryptokit.ml" 1083 32612 32642
)
"src/cryptokit.ml" 1085 32684 32694 "src/cryptokit.ml" 1085 32684 32707
type(
  chaining_mode option -> direction -> direction
)
ident(
  int_ref normalize_dir "src/cryptokit.ml" 1078 32482 32486 "src/cryptokit.ml" 1078 32482 32499
)
"src/cryptokit.ml" 1085 32684 32708 "src/cryptokit.ml" 1085 32684 32712
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1083 32612 32621 "src/cryptokit.ml" 1083 32612 32625
)
"src/cryptokit.ml" 1085 32684 32713 "src/cryptokit.ml" 1085 32684 32716
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1083 32612 32639 "src/cryptokit.ml" 1083 32612 32642
)
"src/cryptokit.ml" 1085 32684 32694 "src/cryptokit.ml" 1085 32684 32716
call(
  stack
)
type(
  direction
)
"src/cryptokit.ml" 1086 32722 32728 "src/cryptokit.ml" 1086 32722 32735
type(
  direction
)
"src/cryptokit.ml" 1086 32722 32739 "src/cryptokit.ml" 1086 32722 32760
type(
  string -> Block.aes_encrypt
)
"src/cryptokit.ml" 1086 32722 32761 "src/cryptokit.ml" 1086 32722 32764
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1083 32612 32635 "src/cryptokit.ml" 1083 32612 32638
)
"src/cryptokit.ml" 1086 32722 32739 "src/cryptokit.ml" 1086 32722 32764
call(
  stack
)
type(
  Block.aes_encrypt
)
"src/cryptokit.ml" 1087 32765 32771 "src/cryptokit.ml" 1087 32765 32778
type(
  direction
)
"src/cryptokit.ml" 1087 32765 32782 "src/cryptokit.ml" 1087 32765 32803
type(
  string -> Block.aes_decrypt
)
"src/cryptokit.ml" 1087 32765 32804 "src/cryptokit.ml" 1087 32765 32807
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1083 32612 32635 "src/cryptokit.ml" 1083 32612 32638
)
"src/cryptokit.ml" 1087 32765 32782 "src/cryptokit.ml" 1087 32765 32807
call(
  stack
)
type(
  Block.aes_decrypt
)
"src/cryptokit.ml" 1085 32684 32687 "src/cryptokit.ml" 1087 32765 32808
type(
  Block.block_cipher
)
"src/cryptokit.ml" 1084 32645 32647 "src/cryptokit.ml" 1087 32765 32808
call(
  tail
)
type(
  Block.cipher
)
"src/cryptokit.ml" 1089 32810 32814 "src/cryptokit.ml" 1089 32810 32822
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme -> ?iv:string -> string -> direction -> Block.cipher
)
ident(
  def blowfish "src/cryptokit.ml" 1095 33023 33023 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1089 32810 32824 "src/cryptokit.ml" 1089 32810 32828
type(
  chaining_mode option
)
ident(
  def mode "src/cryptokit.ml" 1089 32810 32829 "src/cryptokit.ml" 1093 32973 33021
)
"src/cryptokit.ml" 1089 32810 32830 "src/cryptokit.ml" 1089 32810 32833
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1089 32810 32834 "src/cryptokit.ml" 1093 32973 33021
)
"src/cryptokit.ml" 1089 32810 32835 "src/cryptokit.ml" 1089 32810 32837
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1089 32810 32838 "src/cryptokit.ml" 1093 32973 33021
)
"src/cryptokit.ml" 1089 32810 32838 "src/cryptokit.ml" 1089 32810 32841
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1089 32810 32842 "src/cryptokit.ml" 1093 32973 33021
)
"src/cryptokit.ml" 1089 32810 32842 "src/cryptokit.ml" 1089 32810 32845
type(
  direction
)
ident(
  def dir "src/cryptokit.ml" 1090 32848 32850 "src/cryptokit.ml" 1093 32973 33021
)
"src/cryptokit.ml" 1090 32848 32850 "src/cryptokit.ml" 1090 32848 32867
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme ->
  ?iv:string -> direction -> Block.block_cipher -> Block.cipher
)
ident(
  int_ref make_block_cipher "src/cryptokit.ml" 1060 31679 31683 "src/cryptokit.ml" 1060 31679 31700
)
"src/cryptokit.ml" 1090 32848 32869 "src/cryptokit.ml" 1090 32848 32873
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1089 32810 32824 "src/cryptokit.ml" 1089 32810 32828
)
"src/cryptokit.ml" 1090 32848 32875 "src/cryptokit.ml" 1090 32848 32878
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1089 32810 32830 "src/cryptokit.ml" 1089 32810 32833
)
"src/cryptokit.ml" 1090 32848 32880 "src/cryptokit.ml" 1090 32848 32882
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1089 32810 32835 "src/cryptokit.ml" 1089 32810 32837
)
"src/cryptokit.ml" 1090 32848 32883 "src/cryptokit.ml" 1090 32848 32886
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1089 32810 32842 "src/cryptokit.ml" 1089 32810 32845
)
"src/cryptokit.ml" 1091 32887 32897 "src/cryptokit.ml" 1091 32887 32910
type(
  chaining_mode option -> direction -> direction
)
ident(
  int_ref normalize_dir "src/cryptokit.ml" 1078 32482 32486 "src/cryptokit.ml" 1078 32482 32499
)
"src/cryptokit.ml" 1091 32887 32911 "src/cryptokit.ml" 1091 32887 32915
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1089 32810 32824 "src/cryptokit.ml" 1089 32810 32828
)
"src/cryptokit.ml" 1091 32887 32916 "src/cryptokit.ml" 1091 32887 32919
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1089 32810 32842 "src/cryptokit.ml" 1089 32810 32845
)
"src/cryptokit.ml" 1091 32887 32897 "src/cryptokit.ml" 1091 32887 32919
call(
  stack
)
type(
  direction
)
"src/cryptokit.ml" 1092 32925 32931 "src/cryptokit.ml" 1092 32925 32938
type(
  direction
)
"src/cryptokit.ml" 1092 32925 32942 "src/cryptokit.ml" 1092 32925 32968
type(
  string -> Block.blowfish_encrypt
)
"src/cryptokit.ml" 1092 32925 32969 "src/cryptokit.ml" 1092 32925 32972
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1089 32810 32838 "src/cryptokit.ml" 1089 32810 32841
)
"src/cryptokit.ml" 1092 32925 32942 "src/cryptokit.ml" 1092 32925 32972
call(
  stack
)
type(
  Block.blowfish_encrypt
)
"src/cryptokit.ml" 1093 32973 32979 "src/cryptokit.ml" 1093 32973 32986
type(
  direction
)
"src/cryptokit.ml" 1093 32973 32990 "src/cryptokit.ml" 1093 32973 33016
type(
  string -> Block.blowfish_decrypt
)
"src/cryptokit.ml" 1093 32973 33017 "src/cryptokit.ml" 1093 32973 33020
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1089 32810 32838 "src/cryptokit.ml" 1089 32810 32841
)
"src/cryptokit.ml" 1093 32973 32990 "src/cryptokit.ml" 1093 32973 33020
call(
  stack
)
type(
  Block.blowfish_decrypt
)
"src/cryptokit.ml" 1091 32887 32890 "src/cryptokit.ml" 1093 32973 33021
type(
  Block.block_cipher
)
"src/cryptokit.ml" 1090 32848 32850 "src/cryptokit.ml" 1093 32973 33021
call(
  tail
)
type(
  Block.cipher
)
"src/cryptokit.ml" 1095 33023 33027 "src/cryptokit.ml" 1095 33023 33030
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme -> ?iv:string -> string -> direction -> Block.cipher
)
ident(
  def des "src/cryptokit.ml" 1099 33145 33145 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1095 33023 33032 "src/cryptokit.ml" 1095 33023 33036
type(
  chaining_mode option
)
ident(
  def mode "src/cryptokit.ml" 1095 33023 33037 "src/cryptokit.ml" 1097 33095 33143
)
"src/cryptokit.ml" 1095 33023 33038 "src/cryptokit.ml" 1095 33023 33041
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1095 33023 33042 "src/cryptokit.ml" 1097 33095 33143
)
"src/cryptokit.ml" 1095 33023 33043 "src/cryptokit.ml" 1095 33023 33045
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1095 33023 33046 "src/cryptokit.ml" 1097 33095 33143
)
"src/cryptokit.ml" 1095 33023 33046 "src/cryptokit.ml" 1095 33023 33049
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1095 33023 33050 "src/cryptokit.ml" 1097 33095 33143
)
"src/cryptokit.ml" 1095 33023 33050 "src/cryptokit.ml" 1095 33023 33053
type(
  direction
)
ident(
  def dir "src/cryptokit.ml" 1096 33056 33058 "src/cryptokit.ml" 1097 33095 33143
)
"src/cryptokit.ml" 1096 33056 33058 "src/cryptokit.ml" 1096 33056 33075
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme ->
  ?iv:string -> direction -> Block.block_cipher -> Block.cipher
)
ident(
  int_ref make_block_cipher "src/cryptokit.ml" 1060 31679 31683 "src/cryptokit.ml" 1060 31679 31700
)
"src/cryptokit.ml" 1096 33056 33077 "src/cryptokit.ml" 1096 33056 33081
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1095 33023 33032 "src/cryptokit.ml" 1095 33023 33036
)
"src/cryptokit.ml" 1096 33056 33083 "src/cryptokit.ml" 1096 33056 33086
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1095 33023 33038 "src/cryptokit.ml" 1095 33023 33041
)
"src/cryptokit.ml" 1096 33056 33088 "src/cryptokit.ml" 1096 33056 33090
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1095 33023 33043 "src/cryptokit.ml" 1095 33023 33045
)
"src/cryptokit.ml" 1096 33056 33091 "src/cryptokit.ml" 1096 33056 33094
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1095 33023 33050 "src/cryptokit.ml" 1095 33023 33053
)
"src/cryptokit.ml" 1097 33095 33100 "src/cryptokit.ml" 1097 33095 33113
type(
  direction -> string -> Block.des
)
"src/cryptokit.ml" 1097 33095 33115 "src/cryptokit.ml" 1097 33095 33128
type(
  chaining_mode option -> direction -> direction
)
ident(
  int_ref normalize_dir "src/cryptokit.ml" 1078 32482 32486 "src/cryptokit.ml" 1078 32482 32499
)
"src/cryptokit.ml" 1097 33095 33129 "src/cryptokit.ml" 1097 33095 33133
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1095 33023 33032 "src/cryptokit.ml" 1095 33023 33036
)
"src/cryptokit.ml" 1097 33095 33134 "src/cryptokit.ml" 1097 33095 33137
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1095 33023 33050 "src/cryptokit.ml" 1095 33023 33053
)
"src/cryptokit.ml" 1097 33095 33114 "src/cryptokit.ml" 1097 33095 33138
call(
  stack
)
type(
  direction
)
"src/cryptokit.ml" 1097 33095 33139 "src/cryptokit.ml" 1097 33095 33142
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1095 33023 33046 "src/cryptokit.ml" 1095 33023 33049
)
"src/cryptokit.ml" 1097 33095 33099 "src/cryptokit.ml" 1097 33095 33143
call(
  stack
)
type(
  Block.des
)
"src/cryptokit.ml" 1096 33056 33058 "src/cryptokit.ml" 1097 33095 33143
call(
  tail
)
type(
  Block.cipher
)
"src/cryptokit.ml" 1099 33145 33149 "src/cryptokit.ml" 1099 33145 33159
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme -> ?iv:string -> string -> direction -> Block.cipher
)
ident(
  def triple_des "src/cryptokit.ml" 1105 33364 33364 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1099 33145 33161 "src/cryptokit.ml" 1099 33145 33165
type(
  chaining_mode option
)
ident(
  def mode "src/cryptokit.ml" 1099 33145 33166 "src/cryptokit.ml" 1103 33312 33362
)
"src/cryptokit.ml" 1099 33145 33167 "src/cryptokit.ml" 1099 33145 33170
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1099 33145 33171 "src/cryptokit.ml" 1103 33312 33362
)
"src/cryptokit.ml" 1099 33145 33172 "src/cryptokit.ml" 1099 33145 33174
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1099 33145 33175 "src/cryptokit.ml" 1103 33312 33362
)
"src/cryptokit.ml" 1099 33145 33175 "src/cryptokit.ml" 1099 33145 33178
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1099 33145 33179 "src/cryptokit.ml" 1103 33312 33362
)
"src/cryptokit.ml" 1099 33145 33179 "src/cryptokit.ml" 1099 33145 33182
type(
  direction
)
ident(
  def dir "src/cryptokit.ml" 1100 33185 33187 "src/cryptokit.ml" 1103 33312 33362
)
"src/cryptokit.ml" 1100 33185 33187 "src/cryptokit.ml" 1100 33185 33204
type(
  ?mode:chaining_mode ->
  ?pad:Padding.scheme ->
  ?iv:string -> direction -> Block.block_cipher -> Block.cipher
)
ident(
  int_ref make_block_cipher "src/cryptokit.ml" 1060 31679 31683 "src/cryptokit.ml" 1060 31679 31700
)
"src/cryptokit.ml" 1100 33185 33206 "src/cryptokit.ml" 1100 33185 33210
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1099 33145 33161 "src/cryptokit.ml" 1099 33145 33165
)
"src/cryptokit.ml" 1100 33185 33212 "src/cryptokit.ml" 1100 33185 33215
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1099 33145 33167 "src/cryptokit.ml" 1099 33145 33170
)
"src/cryptokit.ml" 1100 33185 33217 "src/cryptokit.ml" 1100 33185 33219
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1099 33145 33172 "src/cryptokit.ml" 1099 33145 33174
)
"src/cryptokit.ml" 1100 33185 33220 "src/cryptokit.ml" 1100 33185 33223
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1099 33145 33179 "src/cryptokit.ml" 1099 33145 33182
)
"src/cryptokit.ml" 1101 33224 33234 "src/cryptokit.ml" 1101 33224 33247
type(
  chaining_mode option -> direction -> direction
)
ident(
  int_ref normalize_dir "src/cryptokit.ml" 1078 32482 32486 "src/cryptokit.ml" 1078 32482 32499
)
"src/cryptokit.ml" 1101 33224 33248 "src/cryptokit.ml" 1101 33224 33252
type(
  chaining_mode option
)
ident(
  int_ref mode "src/cryptokit.ml" 1099 33145 33161 "src/cryptokit.ml" 1099 33145 33165
)
"src/cryptokit.ml" 1101 33224 33253 "src/cryptokit.ml" 1101 33224 33256
type(
  direction
)
ident(
  int_ref dir "src/cryptokit.ml" 1099 33145 33179 "src/cryptokit.ml" 1099 33145 33182
)
"src/cryptokit.ml" 1101 33224 33234 "src/cryptokit.ml" 1101 33224 33256
call(
  stack
)
type(
  direction
)
"src/cryptokit.ml" 1102 33262 33268 "src/cryptokit.ml" 1102 33262 33275
type(
  direction
)
"src/cryptokit.ml" 1102 33262 33279 "src/cryptokit.ml" 1102 33262 33307
type(
  string -> Block.triple_des_encrypt
)
"src/cryptokit.ml" 1102 33262 33308 "src/cryptokit.ml" 1102 33262 33311
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1099 33145 33175 "src/cryptokit.ml" 1099 33145 33178
)
"src/cryptokit.ml" 1102 33262 33279 "src/cryptokit.ml" 1102 33262 33311
call(
  stack
)
type(
  Block.triple_des_encrypt
)
"src/cryptokit.ml" 1103 33312 33318 "src/cryptokit.ml" 1103 33312 33325
type(
  direction
)
"src/cryptokit.ml" 1103 33312 33329 "src/cryptokit.ml" 1103 33312 33357
type(
  string -> Block.triple_des_decrypt
)
"src/cryptokit.ml" 1103 33312 33358 "src/cryptokit.ml" 1103 33312 33361
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1099 33145 33175 "src/cryptokit.ml" 1099 33145 33178
)
"src/cryptokit.ml" 1103 33312 33329 "src/cryptokit.ml" 1103 33312 33361
call(
  stack
)
type(
  Block.triple_des_decrypt
)
"src/cryptokit.ml" 1101 33224 33227 "src/cryptokit.ml" 1103 33312 33362
type(
  Block.block_cipher
)
"src/cryptokit.ml" 1100 33185 33187 "src/cryptokit.ml" 1103 33312 33362
call(
  tail
)
type(
  Block.cipher
)
"src/cryptokit.ml" 1105 33364 33368 "src/cryptokit.ml" 1105 33364 33375
type(
  string -> 'a -> Stream.cipher
)
ident(
  def arcfour "src/cryptokit.ml" 1105 33364 33428 "src/cryptokit.ml" 1107 33430 33433
)
"src/cryptokit.ml" 1105 33364 33376 "src/cryptokit.ml" 1105 33364 33379
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1105 33364 33380 "src/cryptokit.ml" 1105 33364 33428
)
"src/cryptokit.ml" 1105 33364 33380 "src/cryptokit.ml" 1105 33364 33383
type(
  'a
)
ident(
  def dir "src/cryptokit.ml" 1105 33364 33386 "src/cryptokit.ml" 1105 33364 33428
)
"src/cryptokit.ml" 1105 33364 33386 "src/cryptokit.ml" 1105 33364 33403
type(
  Stream.stream_cipher -> Stream.cipher
)
"src/cryptokit.ml" 1105 33364 33405 "src/cryptokit.ml" 1105 33364 33423
type(
  string -> Stream.arcfour
)
"src/cryptokit.ml" 1105 33364 33424 "src/cryptokit.ml" 1105 33364 33427
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1105 33364 33376 "src/cryptokit.ml" 1105 33364 33379
)
"src/cryptokit.ml" 1105 33364 33404 "src/cryptokit.ml" 1105 33364 33428
call(
  stack
)
type(
  Stream.arcfour
)
"src/cryptokit.ml" 1105 33364 33386 "src/cryptokit.ml" 1105 33364 33428
call(
  tail
)
type(
  Stream.cipher
)
"src/cryptokit.ml" 1113 33533 33541 "src/cryptokit.ml" 1113 33533 33549
type(
  string -> int -> bytes
)
ident(
  def hmac_pad "src/cryptokit.ml" 1121 33791 33795 "src/cryptokit.ml" 1138 34275 34280
)
"src/cryptokit.ml" 1113 33533 33550 "src/cryptokit.ml" 1113 33533 33553
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1113 33533 33554 "src/cryptokit.ml" 1120 33783 33790
)
"src/cryptokit.ml" 1113 33533 33554 "src/cryptokit.ml" 1113 33533 33558
type(
  int
)
ident(
  def byte "src/cryptokit.ml" 1114 33561 33567 "src/cryptokit.ml" 1120 33783 33790
)
"src/cryptokit.ml" 1114 33561 33571 "src/cryptokit.ml" 1114 33561 33574
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1118 33679 33685 "src/cryptokit.ml" 1120 33783 33790
)
"src/cryptokit.ml" 1115 33577 33588 "src/cryptokit.ml" 1115 33577 33601
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1115 33577 33602 "src/cryptokit.ml" 1115 33577 33605
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1113 33533 33550 "src/cryptokit.ml" 1113 33533 33553
)
"src/cryptokit.ml" 1115 33577 33588 "src/cryptokit.ml" 1115 33577 33605
type(
  int
)
"src/cryptokit.ml" 1115 33577 33606 "src/cryptokit.ml" 1115 33577 33607
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1115 33577 33608 "src/cryptokit.ml" 1115 33577 33619
type(
  int
)
ident(
  int_ref H.blocksize "src/cryptokit.ml" 1111 33464 33498 "src/cryptokit.ml" 1111 33464 33516
)
"src/cryptokit.ml" 1115 33577 33588 "src/cryptokit.ml" 1115 33577 33619
type(
  bool
)
"src/cryptokit.ml" 1116 33620 33633 "src/cryptokit.ml" 1116 33620 33644
type(
  H.h -> string -> string
)
ident(
  int_ref hash_string "src/cryptokit.ml" 184 6901 6905 "src/cryptokit.ml" 184 6901 6916
)
"src/cryptokit.ml" 1116 33620 33650 "src/cryptokit.ml" 1116 33620 33653
call(
  stack
)
"src/cryptokit.ml" 1116 33620 33645 "src/cryptokit.ml" 1116 33620 33654
type(
  H.h
)
"src/cryptokit.ml" 1116 33620 33655 "src/cryptokit.ml" 1116 33620 33658
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1113 33533 33550 "src/cryptokit.ml" 1113 33533 33553
)
"src/cryptokit.ml" 1116 33620 33633 "src/cryptokit.ml" 1116 33620 33658
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1117 33659 33672 "src/cryptokit.ml" 1117 33659 33675
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1113 33533 33550 "src/cryptokit.ml" 1113 33533 33553
)
"src/cryptokit.ml" 1115 33577 33585 "src/cryptokit.ml" 1117 33659 33675
type(
  string
)
"src/cryptokit.ml" 1118 33679 33689 "src/cryptokit.ml" 1118 33679 33690
type(
  bytes
)
ident(
  def r "src/cryptokit.ml" 1119 33735 33741 "src/cryptokit.ml" 1120 33783 33790
)
"src/cryptokit.ml" 1118 33679 33693 "src/cryptokit.ml" 1118 33679 33703
type(
  int -> char -> bytes
)
ident(
  ext_ref Bytes.make
)
"src/cryptokit.ml" 1118 33679 33704 "src/cryptokit.ml" 1118 33679 33715
type(
  int
)
ident(
  int_ref H.blocksize "src/cryptokit.ml" 1111 33464 33498 "src/cryptokit.ml" 1111 33464 33516
)
"src/cryptokit.ml" 1118 33679 33717 "src/cryptokit.ml" 1118 33679 33725
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1118 33679 33726 "src/cryptokit.ml" 1118 33679 33730
type(
  int
)
ident(
  int_ref byte "src/cryptokit.ml" 1113 33533 33554 "src/cryptokit.ml" 1113 33533 33558
)
"src/cryptokit.ml" 1118 33679 33716 "src/cryptokit.ml" 1118 33679 33731
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1118 33679 33693 "src/cryptokit.ml" 1118 33679 33731
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1119 33735 33741 "src/cryptokit.ml" 1119 33735 33751
type(
  string -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_string "src/cryptokit.ml" 44 1600 1600 "src/cryptokit.ml" 44 1600 1685
)
"src/cryptokit.ml" 1119 33735 33752 "src/cryptokit.ml" 1119 33735 33755
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1114 33561 33571 "src/cryptokit.ml" 1114 33561 33574
)
"src/cryptokit.ml" 1119 33735 33756 "src/cryptokit.ml" 1119 33735 33757
type(
  int
)
"src/cryptokit.ml" 1119 33735 33758 "src/cryptokit.ml" 1119 33735 33759
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 1118 33679 33689 "src/cryptokit.ml" 1118 33679 33690
)
"src/cryptokit.ml" 1119 33735 33760 "src/cryptokit.ml" 1119 33735 33761
type(
  int
)
"src/cryptokit.ml" 1119 33735 33763 "src/cryptokit.ml" 1119 33735 33776
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1119 33735 33777 "src/cryptokit.ml" 1119 33735 33780
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1114 33561 33571 "src/cryptokit.ml" 1114 33561 33574
)
"src/cryptokit.ml" 1119 33735 33762 "src/cryptokit.ml" 1119 33735 33781
type(
  int
)
"src/cryptokit.ml" 1119 33735 33741 "src/cryptokit.ml" 1119 33735 33781
type(
  unit
)
"src/cryptokit.ml" 1120 33783 33789 "src/cryptokit.ml" 1120 33783 33790
type(
  bytes
)
ident(
  int_ref r "src/cryptokit.ml" 1118 33679 33689 "src/cryptokit.ml" 1118 33679 33690
)
"src/cryptokit.ml" 1119 33735 33741 "src/cryptokit.ml" 1120 33783 33790
type(
  bytes
)
"src/cryptokit.ml" 1118 33679 33685 "src/cryptokit.ml" 1120 33783 33790
type(
  bytes
)
"src/cryptokit.ml" 1114 33561 33567 "src/cryptokit.ml" 1120 33783 33790
type(
  bytes
)
"src/cryptokit.ml" 1121 33791 33806 "src/cryptokit.ml" 1121 33791 33809
type(
  string
)
"src/cryptokit.ml" 1122 33812 33824 "src/cryptokit.ml" 1122 33812 33830
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
)
"src/cryptokit.ml" 1125 33880 33895 "src/cryptokit.ml" 1125 33880 33896
type(
  bytes
)
ident(
  def b "src/cryptokit.ml" 1126 33920 33931 "src/cryptokit.ml" 1127 33972 33995
)
"src/cryptokit.ml" 1125 33880 33899 "src/cryptokit.ml" 1125 33880 33907
type(
  string -> int -> bytes
)
ident(
  int_ref hmac_pad "src/cryptokit.ml" 1113 33533 33541 "src/cryptokit.ml" 1113 33533 33549
)
"src/cryptokit.ml" 1125 33880 33908 "src/cryptokit.ml" 1125 33880 33911
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1121 33791 33806 "src/cryptokit.ml" 1121 33791 33809
)
"src/cryptokit.ml" 1125 33880 33912 "src/cryptokit.ml" 1125 33880 33916
type(
  int
)
"src/cryptokit.ml" 1125 33880 33899 "src/cryptokit.ml" 1125 33880 33916
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1126 33920 33931 "src/cryptokit.ml" 1126 33920 33935
type(
  < add_byte : int -> unit; add_char : char -> unit;
    add_string : string -> unit; add_substring : bytes -> int -> int -> unit;
    hash_size : int; result : string; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 1122 33812 33824 "src/cryptokit.ml" 1122 33812 33830
)
"src/cryptokit.ml" 1126 33920 33931 "src/cryptokit.ml" 1126 33920 33949
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1126 33920 33950 "src/cryptokit.ml" 1126 33920 33951
type(
  bytes
)
ident(
  int_ref b "src/cryptokit.ml" 1125 33880 33895 "src/cryptokit.ml" 1125 33880 33896
)
"src/cryptokit.ml" 1126 33920 33952 "src/cryptokit.ml" 1126 33920 33953
type(
  int
)
"src/cryptokit.ml" 1126 33920 33955 "src/cryptokit.ml" 1126 33920 33967
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1126 33920 33968 "src/cryptokit.ml" 1126 33920 33969
type(
  bytes
)
ident(
  int_ref b "src/cryptokit.ml" 1125 33880 33895 "src/cryptokit.ml" 1125 33880 33896
)
"src/cryptokit.ml" 1126 33920 33954 "src/cryptokit.ml" 1126 33920 33970
type(
  int
)
"src/cryptokit.ml" 1126 33920 33931 "src/cryptokit.ml" 1126 33920 33970
type(
  unit
)
"src/cryptokit.ml" 1127 33972 33983 "src/cryptokit.ml" 1127 33972 33993
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 1127 33972 33994 "src/cryptokit.ml" 1127 33972 33995
type(
  bytes
)
ident(
  int_ref b "src/cryptokit.ml" 1125 33880 33895 "src/cryptokit.ml" 1125 33880 33896
)
"src/cryptokit.ml" 1127 33972 33983 "src/cryptokit.ml" 1127 33972 33995
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1126 33920 33931 "src/cryptokit.ml" 1127 33972 33995
type(
  unit
)
"src/cryptokit.ml" 1125 33880 33890 "src/cryptokit.ml" 1127 33972 33996
type(
  'a -> unit
)
type(
  unit
)
"src/cryptokit.ml" 1129 34021 34035 "src/cryptokit.ml" 1129 34021 34037
type(
  H.h
)
ident(
  def h' "src/cryptokit.ml" 1130 34051 34061 "src/cryptokit.ml" 1136 34253 34264
)
"src/cryptokit.ml" 1129 34021 34044 "src/cryptokit.ml" 1129 34021 34047
call(
  stack
)
"src/cryptokit.ml" 1129 34021 34040 "src/cryptokit.ml" 1129 34021 34047
type(
  H.h
)
"src/cryptokit.ml" 1130 34051 34065 "src/cryptokit.ml" 1130 34051 34066
type(
  bytes
)
ident(
  def b "src/cryptokit.ml" 1131 34090 34100 "src/cryptokit.ml" 1136 34253 34264
)
"src/cryptokit.ml" 1130 34051 34069 "src/cryptokit.ml" 1130 34051 34077
type(
  string -> int -> bytes
)
ident(
  int_ref hmac_pad "src/cryptokit.ml" 1113 33533 33541 "src/cryptokit.ml" 1113 33533 33549
)
"src/cryptokit.ml" 1130 34051 34078 "src/cryptokit.ml" 1130 34051 34081
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1121 33791 33806 "src/cryptokit.ml" 1121 33791 33809
)
"src/cryptokit.ml" 1130 34051 34082 "src/cryptokit.ml" 1130 34051 34086
type(
  int
)
"src/cryptokit.ml" 1130 34051 34069 "src/cryptokit.ml" 1130 34051 34086
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1131 34090 34100 "src/cryptokit.ml" 1131 34090 34102
type(
  H.h
)
ident(
  int_ref h' "src/cryptokit.ml" 1129 34021 34035 "src/cryptokit.ml" 1129 34021 34037
)
"src/cryptokit.ml" 1131 34090 34100 "src/cryptokit.ml" 1131 34090 34116
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1131 34090 34117 "src/cryptokit.ml" 1131 34090 34118
type(
  bytes
)
ident(
  int_ref b "src/cryptokit.ml" 1130 34051 34065 "src/cryptokit.ml" 1130 34051 34066
)
"src/cryptokit.ml" 1131 34090 34119 "src/cryptokit.ml" 1131 34090 34120
type(
  int
)
"src/cryptokit.ml" 1131 34090 34122 "src/cryptokit.ml" 1131 34090 34134
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1131 34090 34135 "src/cryptokit.ml" 1131 34090 34136
type(
  bytes
)
ident(
  int_ref b "src/cryptokit.ml" 1130 34051 34065 "src/cryptokit.ml" 1130 34051 34066
)
"src/cryptokit.ml" 1131 34090 34121 "src/cryptokit.ml" 1131 34090 34137
type(
  int
)
"src/cryptokit.ml" 1131 34090 34100 "src/cryptokit.ml" 1131 34090 34137
type(
  unit
)
"src/cryptokit.ml" 1132 34139 34149 "src/cryptokit.ml" 1132 34139 34159
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 1132 34139 34160 "src/cryptokit.ml" 1132 34139 34161
type(
  bytes
)
ident(
  int_ref b "src/cryptokit.ml" 1130 34051 34065 "src/cryptokit.ml" 1130 34051 34066
)
"src/cryptokit.ml" 1132 34139 34149 "src/cryptokit.ml" 1132 34139 34161
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1133 34163 34173 "src/cryptokit.ml" 1133 34163 34175
type(
  H.h
)
ident(
  int_ref h' "src/cryptokit.ml" 1129 34021 34035 "src/cryptokit.ml" 1129 34021 34037
)
"src/cryptokit.ml" 1133 34163 34173 "src/cryptokit.ml" 1133 34163 34186
call(
  stack
)
type(
  string -> unit
)
"src/cryptokit.ml" 1133 34163 34188 "src/cryptokit.ml" 1133 34163 34193
type(
  'a
)
ident(
  int_ref super "src/cryptokit.ml" 1123 33831 33847 "src/cryptokit.ml" 1123 33831 33850
)
"src/cryptokit.ml" 1133 34163 34187 "src/cryptokit.ml" 1133 34163 34201
call(
  stack
)
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 1133 34163 34173 "src/cryptokit.ml" 1133 34163 34201
type(
  unit
)
"src/cryptokit.ml" 1134 34203 34217 "src/cryptokit.ml" 1134 34203 34218
type(
  string
)
ident(
  def r "src/cryptokit.ml" 1135 34234 34244 "src/cryptokit.ml" 1136 34253 34264
)
"src/cryptokit.ml" 1134 34203 34221 "src/cryptokit.ml" 1134 34203 34223
type(
  H.h
)
ident(
  int_ref h' "src/cryptokit.ml" 1129 34021 34035 "src/cryptokit.ml" 1129 34021 34037
)
"src/cryptokit.ml" 1134 34203 34221 "src/cryptokit.ml" 1134 34203 34230
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1135 34234 34244 "src/cryptokit.ml" 1135 34234 34246
type(
  H.h
)
ident(
  int_ref h' "src/cryptokit.ml" 1129 34021 34035 "src/cryptokit.ml" 1129 34021 34037
)
"src/cryptokit.ml" 1135 34234 34244 "src/cryptokit.ml" 1135 34234 34251
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1136 34253 34263 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
ident(
  int_ref r "src/cryptokit.ml" 1134 34203 34217 "src/cryptokit.ml" 1134 34203 34218
)
"src/cryptokit.ml" 1135 34234 34244 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
"src/cryptokit.ml" 1134 34203 34213 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
"src/cryptokit.ml" 1133 34163 34173 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
"src/cryptokit.ml" 1132 34139 34149 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
"src/cryptokit.ml" 1131 34090 34100 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
"src/cryptokit.ml" 1130 34051 34061 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
"src/cryptokit.ml" 1129 34021 34031 "src/cryptokit.ml" 1136 34253 34264
type(
  string
)
type(
  string
)
"src/cryptokit.ml" 1145 34362 34401 "src/cryptokit.ml" 1145 34362 34410
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 1145 34362 34415 "src/cryptokit.ml" 1145 34362 34419
)
"src/cryptokit.ml" 1145 34362 34413 "src/cryptokit.ml" 1145 34362 34415
type(
  int
)
"src/cryptokit.ml" 1145 34362 34364 "src/cryptokit.ml" 1145 34362 34420
call(
  stack
)
"src/cryptokit.ml" 1147 34442 34483 "src/cryptokit.ml" 1147 34442 34492
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 1147 34442 34497 "src/cryptokit.ml" 1147 34442 34501
)
"src/cryptokit.ml" 1147 34442 34495 "src/cryptokit.ml" 1147 34442 34497
type(
  int
)
"src/cryptokit.ml" 1147 34442 34444 "src/cryptokit.ml" 1147 34442 34502
call(
  stack
)
"src/cryptokit.ml" 1149 34524 34565 "src/cryptokit.ml" 1149 34524 34574
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 1149 34524 34580 "src/cryptokit.ml" 1149 34524 34584
)
"src/cryptokit.ml" 1149 34524 34577 "src/cryptokit.ml" 1149 34524 34580
type(
  int
)
"src/cryptokit.ml" 1149 34524 34526 "src/cryptokit.ml" 1149 34524 34585
call(
  stack
)
"src/cryptokit.ml" 1151 34611 34655 "src/cryptokit.ml" 1151 34611 34664
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 1151 34611 34669 "src/cryptokit.ml" 1151 34611 34673
)
"src/cryptokit.ml" 1151 34611 34667 "src/cryptokit.ml" 1151 34611 34669
type(
  int
)
"src/cryptokit.ml" 1151 34611 34613 "src/cryptokit.ml" 1151 34611 34674
call(
  stack
)
"src/cryptokit.ml" 1153 34693 34731 "src/cryptokit.ml" 1153 34693 34740
type(
  int
)
ident(
  def blocksize "src/cryptokit.ml" 1153 34693 34745 "src/cryptokit.ml" 1153 34693 34749
)
"src/cryptokit.ml" 1153 34693 34743 "src/cryptokit.ml" 1153 34693 34745
type(
  int
)
"src/cryptokit.ml" 1153 34693 34695 "src/cryptokit.ml" 1153 34693 34750
call(
  stack
)
"src/cryptokit.ml" 1155 34752 34756 "src/cryptokit.ml" 1155 34752 34765
type(
  string -> HMAC_SHA1.hmac
)
ident(
  def hmac_sha1 "src/cryptokit.ml" 1156 34795 34795 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1155 34752 34766 "src/cryptokit.ml" 1155 34752 34769
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1155 34752 34772 "src/cryptokit.ml" 1155 34752 34794
)
"src/cryptokit.ml" 1155 34752 34772 "src/cryptokit.ml" 1155 34752 34790
type(
  string -> HMAC_SHA1.hmac
)
"src/cryptokit.ml" 1155 34752 34791 "src/cryptokit.ml" 1155 34752 34794
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1155 34752 34766 "src/cryptokit.ml" 1155 34752 34769
)
"src/cryptokit.ml" 1155 34752 34772 "src/cryptokit.ml" 1155 34752 34794
call(
  tail
)
type(
  HMAC_SHA1.hmac
)
"src/cryptokit.ml" 1156 34795 34799 "src/cryptokit.ml" 1156 34795 34810
type(
  string -> HMAC_SHA256.hmac
)
ident(
  def hmac_sha256 "src/cryptokit.ml" 1157 34842 34842 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1156 34795 34811 "src/cryptokit.ml" 1156 34795 34814
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1156 34795 34817 "src/cryptokit.ml" 1156 34795 34841
)
"src/cryptokit.ml" 1156 34795 34817 "src/cryptokit.ml" 1156 34795 34837
type(
  string -> HMAC_SHA256.hmac
)
"src/cryptokit.ml" 1156 34795 34838 "src/cryptokit.ml" 1156 34795 34841
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1156 34795 34811 "src/cryptokit.ml" 1156 34795 34814
)
"src/cryptokit.ml" 1156 34795 34817 "src/cryptokit.ml" 1156 34795 34841
call(
  tail
)
type(
  HMAC_SHA256.hmac
)
"src/cryptokit.ml" 1157 34842 34846 "src/cryptokit.ml" 1157 34842 34857
type(
  string -> HMAC_SHA512.hmac
)
ident(
  def hmac_sha512 "src/cryptokit.ml" 1158 34889 34889 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1157 34842 34858 "src/cryptokit.ml" 1157 34842 34861
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1157 34842 34864 "src/cryptokit.ml" 1157 34842 34888
)
"src/cryptokit.ml" 1157 34842 34864 "src/cryptokit.ml" 1157 34842 34884
type(
  string -> HMAC_SHA512.hmac
)
"src/cryptokit.ml" 1157 34842 34885 "src/cryptokit.ml" 1157 34842 34888
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1157 34842 34858 "src/cryptokit.ml" 1157 34842 34861
)
"src/cryptokit.ml" 1157 34842 34864 "src/cryptokit.ml" 1157 34842 34888
call(
  tail
)
type(
  HMAC_SHA512.hmac
)
"src/cryptokit.ml" 1158 34889 34893 "src/cryptokit.ml" 1158 34889 34907
type(
  string -> HMAC_RIPEMD160.hmac
)
ident(
  def hmac_ripemd160 "src/cryptokit.ml" 1159 34942 34942 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1158 34889 34908 "src/cryptokit.ml" 1158 34889 34911
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1158 34889 34914 "src/cryptokit.ml" 1158 34889 34941
)
"src/cryptokit.ml" 1158 34889 34914 "src/cryptokit.ml" 1158 34889 34937
type(
  string -> HMAC_RIPEMD160.hmac
)
"src/cryptokit.ml" 1158 34889 34938 "src/cryptokit.ml" 1158 34889 34941
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1158 34889 34908 "src/cryptokit.ml" 1158 34889 34911
)
"src/cryptokit.ml" 1158 34889 34914 "src/cryptokit.ml" 1158 34889 34941
call(
  tail
)
type(
  HMAC_RIPEMD160.hmac
)
"src/cryptokit.ml" 1159 34942 34946 "src/cryptokit.ml" 1159 34942 34954
type(
  string -> HMAC_MD5.hmac
)
ident(
  def hmac_md5 "src/cryptokit.ml" 1161 34984 34984 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1159 34942 34955 "src/cryptokit.ml" 1159 34942 34958
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1159 34942 34961 "src/cryptokit.ml" 1159 34942 34982
)
"src/cryptokit.ml" 1159 34942 34961 "src/cryptokit.ml" 1159 34942 34978
type(
  string -> HMAC_MD5.hmac
)
"src/cryptokit.ml" 1159 34942 34979 "src/cryptokit.ml" 1159 34942 34982
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1159 34942 34955 "src/cryptokit.ml" 1159 34942 34958
)
"src/cryptokit.ml" 1159 34942 34961 "src/cryptokit.ml" 1159 34942 34982
call(
  tail
)
type(
  HMAC_MD5.hmac
)
"src/cryptokit.ml" 1161 34984 34988 "src/cryptokit.ml" 1161 34984 34991
type(
  ?iv:string -> ?pad:Padding.scheme -> string -> Block.mac
)
ident(
  def aes "src/cryptokit.ml" 1163 35060 35060 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1161 34984 34993 "src/cryptokit.ml" 1161 34984 34995
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1161 34984 34996 "src/cryptokit.ml" 1162 35007 35059
)
"src/cryptokit.ml" 1161 34984 34997 "src/cryptokit.ml" 1161 34984 35000
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1161 34984 35001 "src/cryptokit.ml" 1162 35007 35059
)
"src/cryptokit.ml" 1161 34984 35001 "src/cryptokit.ml" 1161 34984 35004
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1162 35007 35009 "src/cryptokit.ml" 1162 35007 35059
)
"src/cryptokit.ml" 1162 35007 35009 "src/cryptokit.ml" 1162 35007 35022
type(
  ?iv:string -> ?pad:Padding.scheme -> Block.block_cipher -> Block.mac
)
"src/cryptokit.ml" 1162 35007 35024 "src/cryptokit.ml" 1162 35007 35026
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1161 34984 34993 "src/cryptokit.ml" 1161 34984 34995
)
"src/cryptokit.ml" 1162 35007 35028 "src/cryptokit.ml" 1162 35007 35031
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1161 34984 34997 "src/cryptokit.ml" 1161 34984 35000
)
"src/cryptokit.ml" 1162 35007 35033 "src/cryptokit.ml" 1162 35007 35054
type(
  string -> Block.aes_encrypt
)
"src/cryptokit.ml" 1162 35007 35055 "src/cryptokit.ml" 1162 35007 35058
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1161 34984 35001 "src/cryptokit.ml" 1161 34984 35004
)
"src/cryptokit.ml" 1162 35007 35032 "src/cryptokit.ml" 1162 35007 35059
call(
  stack
)
type(
  Block.aes_encrypt
)
"src/cryptokit.ml" 1162 35007 35009 "src/cryptokit.ml" 1162 35007 35059
call(
  tail
)
type(
  Block.mac
)
"src/cryptokit.ml" 1163 35060 35064 "src/cryptokit.ml" 1163 35060 35067
type(
  ?iv:string -> ?pad:Padding.scheme -> string -> Block.mac
)
ident(
  def des "src/cryptokit.ml" 1165 35136 35136 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1163 35060 35069 "src/cryptokit.ml" 1163 35060 35071
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1163 35060 35072 "src/cryptokit.ml" 1164 35083 35135
)
"src/cryptokit.ml" 1163 35060 35073 "src/cryptokit.ml" 1163 35060 35076
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1163 35060 35077 "src/cryptokit.ml" 1164 35083 35135
)
"src/cryptokit.ml" 1163 35060 35077 "src/cryptokit.ml" 1163 35060 35080
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1164 35083 35085 "src/cryptokit.ml" 1164 35083 35135
)
"src/cryptokit.ml" 1164 35083 35085 "src/cryptokit.ml" 1164 35083 35098
type(
  ?iv:string -> ?pad:Padding.scheme -> Block.block_cipher -> Block.mac
)
"src/cryptokit.ml" 1164 35083 35100 "src/cryptokit.ml" 1164 35083 35102
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1163 35060 35069 "src/cryptokit.ml" 1163 35060 35071
)
"src/cryptokit.ml" 1164 35083 35104 "src/cryptokit.ml" 1164 35083 35107
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1163 35060 35073 "src/cryptokit.ml" 1163 35060 35076
)
"src/cryptokit.ml" 1164 35083 35109 "src/cryptokit.ml" 1164 35083 35130
type(
  string -> Block.des_encrypt
)
"src/cryptokit.ml" 1164 35083 35131 "src/cryptokit.ml" 1164 35083 35134
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1163 35060 35077 "src/cryptokit.ml" 1163 35060 35080
)
"src/cryptokit.ml" 1164 35083 35108 "src/cryptokit.ml" 1164 35083 35135
call(
  stack
)
type(
  Block.des_encrypt
)
"src/cryptokit.ml" 1164 35083 35085 "src/cryptokit.ml" 1164 35083 35135
call(
  tail
)
type(
  Block.mac
)
"src/cryptokit.ml" 1165 35136 35140 "src/cryptokit.ml" 1165 35136 35150
type(
  ?iv:string -> ?pad:Padding.scheme -> string -> Block.mac
)
ident(
  def triple_des "src/cryptokit.ml" 1167 35226 35226 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1165 35136 35152 "src/cryptokit.ml" 1165 35136 35154
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1165 35136 35155 "src/cryptokit.ml" 1166 35166 35225
)
"src/cryptokit.ml" 1165 35136 35156 "src/cryptokit.ml" 1165 35136 35159
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1165 35136 35160 "src/cryptokit.ml" 1166 35166 35225
)
"src/cryptokit.ml" 1165 35136 35160 "src/cryptokit.ml" 1165 35136 35163
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1166 35166 35168 "src/cryptokit.ml" 1166 35166 35225
)
"src/cryptokit.ml" 1166 35166 35168 "src/cryptokit.ml" 1166 35166 35181
type(
  ?iv:string -> ?pad:Padding.scheme -> Block.block_cipher -> Block.mac
)
"src/cryptokit.ml" 1166 35166 35183 "src/cryptokit.ml" 1166 35166 35185
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1165 35136 35152 "src/cryptokit.ml" 1165 35136 35154
)
"src/cryptokit.ml" 1166 35166 35187 "src/cryptokit.ml" 1166 35166 35190
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1165 35136 35156 "src/cryptokit.ml" 1165 35136 35159
)
"src/cryptokit.ml" 1166 35166 35192 "src/cryptokit.ml" 1166 35166 35220
type(
  string -> Block.triple_des_encrypt
)
"src/cryptokit.ml" 1166 35166 35221 "src/cryptokit.ml" 1166 35166 35224
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1165 35136 35160 "src/cryptokit.ml" 1165 35136 35163
)
"src/cryptokit.ml" 1166 35166 35191 "src/cryptokit.ml" 1166 35166 35225
call(
  stack
)
type(
  Block.triple_des_encrypt
)
"src/cryptokit.ml" 1166 35166 35168 "src/cryptokit.ml" 1166 35166 35225
call(
  tail
)
type(
  Block.mac
)
"src/cryptokit.ml" 1167 35226 35230 "src/cryptokit.ml" 1167 35226 35250
type(
  ?iv:string -> ?pad:Padding.scheme -> string -> Block.mac_final_triple
)
ident(
  def des_final_triple_des "src/cryptokit.ml" 1177 35644 35690 "src/cryptokit.ml" 1179 35692 35695
)
"src/cryptokit.ml" 1167 35226 35252 "src/cryptokit.ml" 1167 35226 35254
type(
  string option
)
ident(
  def iv "src/cryptokit.ml" 1167 35226 35255 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1167 35226 35256 "src/cryptokit.ml" 1167 35226 35259
type(
  Padding.scheme option
)
ident(
  def pad "src/cryptokit.ml" 1167 35226 35260 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1167 35226 35260 "src/cryptokit.ml" 1167 35226 35263
type(
  string
)
ident(
  def key "src/cryptokit.ml" 1168 35266 35268 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1168 35266 35272 "src/cryptokit.ml" 1168 35266 35274
type(
  int
)
ident(
  def kl "src/cryptokit.ml" 1169 35298 35300 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1168 35266 35277 "src/cryptokit.ml" 1168 35266 35290
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1168 35266 35291 "src/cryptokit.ml" 1168 35266 35294
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1167 35226 35260 "src/cryptokit.ml" 1167 35226 35263
)
"src/cryptokit.ml" 1168 35266 35277 "src/cryptokit.ml" 1168 35266 35294
type(
  int
)
"src/cryptokit.ml" 1169 35298 35303 "src/cryptokit.ml" 1169 35298 35305
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 1168 35266 35272 "src/cryptokit.ml" 1168 35266 35274
)
"src/cryptokit.ml" 1169 35298 35306 "src/cryptokit.ml" 1169 35298 35308
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 1169 35298 35309 "src/cryptokit.ml" 1169 35298 35311
type(
  int
)
"src/cryptokit.ml" 1169 35298 35303 "src/cryptokit.ml" 1169 35298 35311
type(
  bool
)
"src/cryptokit.ml" 1169 35298 35312 "src/cryptokit.ml" 1169 35298 35314
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 1169 35298 35315 "src/cryptokit.ml" 1169 35298 35317
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 1168 35266 35272 "src/cryptokit.ml" 1168 35266 35274
)
"src/cryptokit.ml" 1169 35298 35318 "src/cryptokit.ml" 1169 35298 35320
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 1169 35298 35321 "src/cryptokit.ml" 1169 35298 35323
type(
  int
)
"src/cryptokit.ml" 1169 35298 35315 "src/cryptokit.ml" 1169 35298 35323
type(
  bool
)
"src/cryptokit.ml" 1169 35298 35303 "src/cryptokit.ml" 1169 35298 35323
type(
  bool
)
"src/cryptokit.ml" 1169 35298 35329 "src/cryptokit.ml" 1169 35298 35334
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1169 35298 35342 "src/cryptokit.ml" 1169 35298 35356
type(
  error
)
"src/cryptokit.ml" 1169 35298 35335 "src/cryptokit.ml" 1169 35298 35357
type(
  exn
)
"src/cryptokit.ml" 1169 35298 35329 "src/cryptokit.ml" 1169 35298 35357
type(
  unit
)
"src/cryptokit.ml" 1169 35298 35300 "src/cryptokit.ml" 1169 35298 35357
type(
  unit
)
"src/cryptokit.ml" 1170 35359 35365 "src/cryptokit.ml" 1170 35359 35367
type(
  string
)
ident(
  def k1 "src/cryptokit.ml" 1171 35392 35394 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1170 35359 35370 "src/cryptokit.ml" 1170 35359 35380
type(
  string -> int -> int -> string
)
ident(
  ext_ref String.sub
)
"src/cryptokit.ml" 1170 35359 35381 "src/cryptokit.ml" 1170 35359 35384
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1167 35226 35260 "src/cryptokit.ml" 1167 35226 35263
)
"src/cryptokit.ml" 1170 35359 35385 "src/cryptokit.ml" 1170 35359 35386
type(
  int
)
"src/cryptokit.ml" 1170 35359 35387 "src/cryptokit.ml" 1170 35359 35388
type(
  int
)
"src/cryptokit.ml" 1170 35359 35370 "src/cryptokit.ml" 1170 35359 35388
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1171 35392 35398 "src/cryptokit.ml" 1171 35392 35400
type(
  string
)
ident(
  def k2 "src/cryptokit.ml" 1172 35425 35427 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1171 35392 35403 "src/cryptokit.ml" 1171 35392 35413
type(
  string -> int -> int -> string
)
ident(
  ext_ref String.sub
)
"src/cryptokit.ml" 1171 35392 35414 "src/cryptokit.ml" 1171 35392 35417
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1167 35226 35260 "src/cryptokit.ml" 1167 35226 35263
)
"src/cryptokit.ml" 1171 35392 35418 "src/cryptokit.ml" 1171 35392 35419
type(
  int
)
"src/cryptokit.ml" 1171 35392 35420 "src/cryptokit.ml" 1171 35392 35421
type(
  int
)
"src/cryptokit.ml" 1171 35392 35403 "src/cryptokit.ml" 1171 35392 35421
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1172 35425 35431 "src/cryptokit.ml" 1172 35425 35433
type(
  string
)
ident(
  def k3 "src/cryptokit.ml" 1173 35483 35485 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1172 35425 35439 "src/cryptokit.ml" 1172 35425 35441
type(
  int
)
ident(
  int_ref kl "src/cryptokit.ml" 1168 35266 35272 "src/cryptokit.ml" 1168 35266 35274
)
"src/cryptokit.ml" 1172 35425 35442 "src/cryptokit.ml" 1172 35425 35443
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1172 35425 35444 "src/cryptokit.ml" 1172 35425 35446
type(
  int
)
"src/cryptokit.ml" 1172 35425 35439 "src/cryptokit.ml" 1172 35425 35446
type(
  bool
)
"src/cryptokit.ml" 1172 35425 35452 "src/cryptokit.ml" 1172 35425 35462
type(
  string -> int -> int -> string
)
ident(
  ext_ref String.sub
)
"src/cryptokit.ml" 1172 35425 35463 "src/cryptokit.ml" 1172 35425 35466
type(
  string
)
ident(
  int_ref key "src/cryptokit.ml" 1167 35226 35260 "src/cryptokit.ml" 1167 35226 35263
)
"src/cryptokit.ml" 1172 35425 35467 "src/cryptokit.ml" 1172 35425 35469
type(
  int
)
"src/cryptokit.ml" 1172 35425 35470 "src/cryptokit.ml" 1172 35425 35471
type(
  int
)
"src/cryptokit.ml" 1172 35425 35452 "src/cryptokit.ml" 1172 35425 35471
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1172 35425 35477 "src/cryptokit.ml" 1172 35425 35479
type(
  string
)
ident(
  int_ref k1 "src/cryptokit.ml" 1170 35359 35365 "src/cryptokit.ml" 1170 35359 35367
)
"src/cryptokit.ml" 1172 35425 35436 "src/cryptokit.ml" 1172 35425 35479
type(
  string
)
"src/cryptokit.ml" 1173 35483 35489 "src/cryptokit.ml" 1173 35483 35491
type(
  Block.des_encrypt
)
ident(
  def c1 "src/cryptokit.ml" 1176 35594 35596 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1173 35483 35494 "src/cryptokit.ml" 1173 35483 35515
type(
  string -> Block.des_encrypt
)
"src/cryptokit.ml" 1173 35483 35516 "src/cryptokit.ml" 1173 35483 35518
type(
  string
)
ident(
  int_ref k1 "src/cryptokit.ml" 1170 35359 35365 "src/cryptokit.ml" 1170 35359 35367
)
"src/cryptokit.ml" 1173 35483 35494 "src/cryptokit.ml" 1173 35483 35518
call(
  stack
)
type(
  Block.des_encrypt
)
"src/cryptokit.ml" 1174 35519 35525 "src/cryptokit.ml" 1174 35519 35527
type(
  Block.des_decrypt
)
ident(
  def c2 "src/cryptokit.ml" 1176 35594 35596 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1174 35519 35530 "src/cryptokit.ml" 1174 35519 35551
type(
  string -> Block.des_decrypt
)
"src/cryptokit.ml" 1174 35519 35552 "src/cryptokit.ml" 1174 35519 35554
type(
  string
)
ident(
  int_ref k2 "src/cryptokit.ml" 1171 35392 35398 "src/cryptokit.ml" 1171 35392 35400
)
"src/cryptokit.ml" 1174 35519 35530 "src/cryptokit.ml" 1174 35519 35554
call(
  stack
)
type(
  Block.des_decrypt
)
"src/cryptokit.ml" 1175 35555 35561 "src/cryptokit.ml" 1175 35555 35563
type(
  Block.des_encrypt
)
ident(
  def c3 "src/cryptokit.ml" 1176 35594 35596 "src/cryptokit.ml" 1177 35644 35690
)
"src/cryptokit.ml" 1175 35555 35566 "src/cryptokit.ml" 1175 35555 35587
type(
  string -> Block.des_encrypt
)
"src/cryptokit.ml" 1175 35555 35588 "src/cryptokit.ml" 1175 35555 35590
type(
  string
)
ident(
  int_ref k3 "src/cryptokit.ml" 1172 35425 35431 "src/cryptokit.ml" 1172 35425 35433
)
"src/cryptokit.ml" 1175 35555 35566 "src/cryptokit.ml" 1175 35555 35590
call(
  stack
)
type(
  Block.des_encrypt
)
"src/cryptokit.ml" 1176 35594 35596 "src/cryptokit.ml" 1176 35594 35607
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1176 35594 35608 "src/cryptokit.ml" 1176 35594 35610
type(
  string
)
ident(
  int_ref k1 "src/cryptokit.ml" 1170 35359 35365 "src/cryptokit.ml" 1170 35359 35367
)
"src/cryptokit.ml" 1176 35594 35596 "src/cryptokit.ml" 1176 35594 35610
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1176 35594 35612 "src/cryptokit.ml" 1176 35594 35623
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1176 35594 35624 "src/cryptokit.ml" 1176 35594 35626
type(
  string
)
ident(
  int_ref k2 "src/cryptokit.ml" 1171 35392 35398 "src/cryptokit.ml" 1171 35392 35400
)
"src/cryptokit.ml" 1176 35594 35612 "src/cryptokit.ml" 1176 35594 35626
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1176 35594 35628 "src/cryptokit.ml" 1176 35594 35639
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1176 35594 35640 "src/cryptokit.ml" 1176 35594 35642
type(
  string
)
ident(
  int_ref k3 "src/cryptokit.ml" 1172 35425 35431 "src/cryptokit.ml" 1172 35425 35433
)
"src/cryptokit.ml" 1176 35594 35628 "src/cryptokit.ml" 1176 35594 35642
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1177 35644 35646 "src/cryptokit.ml" 1177 35644 35672
type(
  ?iv:string ->
  ?pad:Padding.scheme ->
  Block.block_cipher ->
  Block.block_cipher -> Block.block_cipher -> Block.mac_final_triple
)
"src/cryptokit.ml" 1177 35644 35674 "src/cryptokit.ml" 1177 35644 35676
type(
  string option
)
ident(
  int_ref iv "src/cryptokit.ml" 1167 35226 35252 "src/cryptokit.ml" 1167 35226 35254
)
"src/cryptokit.ml" 1177 35644 35678 "src/cryptokit.ml" 1177 35644 35681
type(
  Padding.scheme option
)
ident(
  int_ref pad "src/cryptokit.ml" 1167 35226 35256 "src/cryptokit.ml" 1167 35226 35259
)
"src/cryptokit.ml" 1177 35644 35682 "src/cryptokit.ml" 1177 35644 35684
type(
  Block.des_encrypt
)
ident(
  int_ref c1 "src/cryptokit.ml" 1173 35483 35489 "src/cryptokit.ml" 1173 35483 35491
)
"src/cryptokit.ml" 1177 35644 35685 "src/cryptokit.ml" 1177 35644 35687
type(
  Block.des_decrypt
)
ident(
  int_ref c2 "src/cryptokit.ml" 1174 35519 35525 "src/cryptokit.ml" 1174 35519 35527
)
"src/cryptokit.ml" 1177 35644 35688 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.des_encrypt
)
ident(
  int_ref c3 "src/cryptokit.ml" 1175 35555 35561 "src/cryptokit.ml" 1175 35555 35563
)
"src/cryptokit.ml" 1177 35644 35646 "src/cryptokit.ml" 1177 35644 35690
call(
  tail
)
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1176 35594 35628 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1176 35594 35612 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1176 35594 35596 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1173 35483 35485 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1172 35425 35427 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1171 35392 35394 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1170 35359 35361 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1169 35298 35300 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1168 35266 35268 "src/cryptokit.ml" 1177 35644 35690
type(
  Block.mac_final_triple
)
"src/cryptokit.ml" 1191 35861 35865 "src/cryptokit.ml" 1191 35861 35871
type(
  < random_bytes : bytes -> int -> int -> 'a; .. > -> int -> string
)
ident(
  def string "src/cryptokit.ml" 1196 35974 35974 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1191 35861 35872 "src/cryptokit.ml" 1191 35861 35875
type(
  < random_bytes : bytes -> int -> int -> 'a; .. > as 'b
)
ident(
  def rng "src/cryptokit.ml" 1191 35861 35876 "src/cryptokit.ml" 1194 35944 35972
)
"src/cryptokit.ml" 1191 35861 35876 "src/cryptokit.ml" 1191 35861 35879
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1192 35882 35884 "src/cryptokit.ml" 1194 35944 35972
)
"src/cryptokit.ml" 1192 35882 35888 "src/cryptokit.ml" 1192 35882 35891
type(
  bytes
)
ident(
  def res "src/cryptokit.ml" 1193 35914 35916 "src/cryptokit.ml" 1194 35944 35972
)
"src/cryptokit.ml" 1192 35882 35894 "src/cryptokit.ml" 1192 35882 35906
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 1192 35882 35907 "src/cryptokit.ml" 1192 35882 35910
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1191 35861 35876 "src/cryptokit.ml" 1191 35861 35879
)
"src/cryptokit.ml" 1192 35882 35894 "src/cryptokit.ml" 1192 35882 35910
type(
  bytes
)
"src/cryptokit.ml" 1193 35914 35916 "src/cryptokit.ml" 1193 35914 35919
type(
  'b
)
ident(
  int_ref rng "src/cryptokit.ml" 1191 35861 35872 "src/cryptokit.ml" 1191 35861 35875
)
"src/cryptokit.ml" 1193 35914 35916 "src/cryptokit.ml" 1193 35914 35932
call(
  stack
)
type(
  bytes -> int -> int -> 'a
)
"src/cryptokit.ml" 1193 35914 35933 "src/cryptokit.ml" 1193 35914 35936
type(
  bytes
)
ident(
  int_ref res "src/cryptokit.ml" 1192 35882 35888 "src/cryptokit.ml" 1192 35882 35891
)
"src/cryptokit.ml" 1193 35914 35937 "src/cryptokit.ml" 1193 35914 35938
type(
  int
)
"src/cryptokit.ml" 1193 35914 35939 "src/cryptokit.ml" 1193 35914 35942
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1191 35861 35876 "src/cryptokit.ml" 1191 35861 35879
)
"src/cryptokit.ml" 1193 35914 35916 "src/cryptokit.ml" 1193 35914 35942
type(
  'a
)
"src/cryptokit.ml" 1194 35944 35946 "src/cryptokit.ml" 1194 35944 35968
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/cryptokit.ml" 1194 35944 35969 "src/cryptokit.ml" 1194 35944 35972
type(
  bytes
)
ident(
  int_ref res "src/cryptokit.ml" 1192 35882 35888 "src/cryptokit.ml" 1192 35882 35891
)
"src/cryptokit.ml" 1194 35944 35946 "src/cryptokit.ml" 1194 35944 35972
call(
  tail
)
type(
  string
)
"src/cryptokit.ml" 1193 35914 35916 "src/cryptokit.ml" 1194 35944 35972
type(
  string
)
"src/cryptokit.ml" 1192 35882 35884 "src/cryptokit.ml" 1194 35944 35972
type(
  string
)
"src/cryptokit.ml" 1204 36292 36300 "src/cryptokit.ml" 1204 36292 36306
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1205 36307 36319 "src/cryptokit.ml" 1205 36307 36333
type(
  unit -> system_rng_handle
)
ident(
  int_ref get_system_rng "src/cryptokit.ml" 1197 35997 35997 "src/cryptokit.ml" 1197 35997 36071
)
"src/cryptokit.ml" 1205 36307 36334 "src/cryptokit.ml" 1205 36307 36336
type(
  unit
)
"src/cryptokit.ml" 1205 36307 36319 "src/cryptokit.ml" 1205 36307 36336
type(
  system_rng_handle
)
"src/cryptokit.ml" 1206 36337 36361 "src/cryptokit.ml" 1206 36337 36364
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 1206 36337 36365 "src/cryptokit.ml" 1211 36535 36580
)
"src/cryptokit.ml" 1206 36337 36365 "src/cryptokit.ml" 1206 36337 36368
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1206 36337 36369 "src/cryptokit.ml" 1211 36535 36580
)
"src/cryptokit.ml" 1206 36337 36369 "src/cryptokit.ml" 1206 36337 36372
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1207 36375 36381 "src/cryptokit.ml" 1211 36535 36580
)
"src/cryptokit.ml" 1207 36375 36384 "src/cryptokit.ml" 1207 36375 36387
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1206 36337 36365 "src/cryptokit.ml" 1206 36337 36368
)
"src/cryptokit.ml" 1207 36375 36388 "src/cryptokit.ml" 1207 36375 36389
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1207 36375 36390 "src/cryptokit.ml" 1207 36375 36391
type(
  int
)
"src/cryptokit.ml" 1207 36375 36384 "src/cryptokit.ml" 1207 36375 36391
type(
  bool
)
"src/cryptokit.ml" 1207 36375 36392 "src/cryptokit.ml" 1207 36375 36394
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1207 36375 36395 "src/cryptokit.ml" 1207 36375 36398
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1206 36337 36369 "src/cryptokit.ml" 1206 36337 36372
)
"src/cryptokit.ml" 1207 36375 36399 "src/cryptokit.ml" 1207 36375 36400
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1207 36375 36401 "src/cryptokit.ml" 1207 36375 36402
type(
  int
)
"src/cryptokit.ml" 1207 36375 36395 "src/cryptokit.ml" 1207 36375 36402
type(
  bool
)
"src/cryptokit.ml" 1207 36375 36403 "src/cryptokit.ml" 1207 36375 36405
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1207 36375 36406 "src/cryptokit.ml" 1207 36375 36409
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1206 36337 36365 "src/cryptokit.ml" 1206 36337 36368
)
"src/cryptokit.ml" 1207 36375 36410 "src/cryptokit.ml" 1207 36375 36411
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1207 36375 36412 "src/cryptokit.ml" 1207 36375 36424
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1207 36375 36425 "src/cryptokit.ml" 1207 36375 36428
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1206 36337 36361 "src/cryptokit.ml" 1206 36337 36364
)
"src/cryptokit.ml" 1207 36375 36412 "src/cryptokit.ml" 1207 36375 36428
type(
  int
)
"src/cryptokit.ml" 1207 36375 36429 "src/cryptokit.ml" 1207 36375 36430
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1207 36375 36431 "src/cryptokit.ml" 1207 36375 36434
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1206 36337 36369 "src/cryptokit.ml" 1206 36337 36372
)
"src/cryptokit.ml" 1207 36375 36412 "src/cryptokit.ml" 1207 36375 36434
type(
  int
)
"src/cryptokit.ml" 1207 36375 36406 "src/cryptokit.ml" 1207 36375 36434
type(
  bool
)
"src/cryptokit.ml" 1207 36375 36395 "src/cryptokit.ml" 1207 36375 36434
type(
  bool
)
"src/cryptokit.ml" 1207 36375 36384 "src/cryptokit.ml" 1207 36375 36434
type(
  bool
)
"src/cryptokit.ml" 1208 36435 36446 "src/cryptokit.ml" 1208 36435 36457
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 1208 36435 36458 "src/cryptokit.ml" 1208 36435 36472
type(
  string
)
"src/cryptokit.ml" 1208 36435 36446 "src/cryptokit.ml" 1208 36435 36472
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1207 36375 36381 "src/cryptokit.ml" 1208 36435 36472
type(
  unit
)
"src/cryptokit.ml" 1209 36474 36483 "src/cryptokit.ml" 1209 36474 36506
type(
  system_rng_handle -> bytes -> int -> int -> bool
)
ident(
  int_ref system_rng_random_bytes "src/cryptokit.ml" 1199 36151 36151 "src/cryptokit.ml" 1201 36237 36271
)
"src/cryptokit.ml" 1209 36474 36507 "src/cryptokit.ml" 1209 36474 36508
type(
  system_rng_handle
)
ident(
  ext_ref h
)
"src/cryptokit.ml" 1209 36474 36509 "src/cryptokit.ml" 1209 36474 36512
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1206 36337 36361 "src/cryptokit.ml" 1206 36337 36364
)
"src/cryptokit.ml" 1209 36474 36513 "src/cryptokit.ml" 1209 36474 36516
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1206 36337 36365 "src/cryptokit.ml" 1206 36337 36368
)
"src/cryptokit.ml" 1209 36474 36517 "src/cryptokit.ml" 1209 36474 36520
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1206 36337 36369 "src/cryptokit.ml" 1206 36337 36372
)
"src/cryptokit.ml" 1209 36474 36483 "src/cryptokit.ml" 1209 36474 36520
type(
  bool
)
"src/cryptokit.ml" 1210 36521 36532 "src/cryptokit.ml" 1210 36521 36534
type(
  unit
)
"src/cryptokit.ml" 1211 36535 36546 "src/cryptokit.ml" 1211 36535 36551
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1211 36535 36558 "src/cryptokit.ml" 1211 36535 36579
type(
  error
)
"src/cryptokit.ml" 1211 36535 36551 "src/cryptokit.ml" 1211 36535 36580
type(
  exn
)
"src/cryptokit.ml" 1211 36535 36546 "src/cryptokit.ml" 1211 36535 36580
type(
  unit
)
"src/cryptokit.ml" 1209 36474 36480 "src/cryptokit.ml" 1211 36535 36580
type(
  unit
)
"src/cryptokit.ml" 1207 36375 36381 "src/cryptokit.ml" 1211 36535 36580
type(
  unit
)
"src/cryptokit.ml" 1213 36599 36605 "src/cryptokit.ml" 1213 36599 36621
type(
  system_rng_handle -> unit
)
ident(
  int_ref close_system_rng "src/cryptokit.ml" 1198 36072 36072 "src/cryptokit.ml" 1198 36072 36150
)
"src/cryptokit.ml" 1213 36599 36622 "src/cryptokit.ml" 1213 36599 36623
type(
  system_rng_handle
)
ident(
  ext_ref h
)
"src/cryptokit.ml" 1213 36599 36605 "src/cryptokit.ml" 1213 36599 36623
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1216 36631 36635 "src/cryptokit.ml" 1216 36631 36645
type(
  unit -> system_rng
)
ident(
  def system_rng "src/cryptokit.ml" 1219 36722 36722 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1216 36631 36646 "src/cryptokit.ml" 1216 36631 36648
type(
  unit
)
"src/cryptokit.ml" 1217 36651 36661 "src/cryptokit.ml" 1217 36651 36671
call(
  stack
)
"src/cryptokit.ml" 1217 36651 36657 "src/cryptokit.ml" 1217 36651 36671
type(
  system_rng
)
"src/cryptokit.ml" 1217 36651 36677 "src/cryptokit.ml" 1217 36651 36686
type(
  exn
)
"src/cryptokit.ml" 1217 36651 36690 "src/cryptokit.ml" 1217 36651 36695
type(
  exn -> system_rng
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1217 36651 36702 "src/cryptokit.ml" 1217 36651 36719
type(
  error
)
"src/cryptokit.ml" 1217 36651 36695 "src/cryptokit.ml" 1217 36651 36720
type(
  exn
)
"src/cryptokit.ml" 1217 36651 36690 "src/cryptokit.ml" 1217 36651 36720
type(
  system_rng
)
"src/cryptokit.ml" 1217 36651 36653 "src/cryptokit.ml" 1217 36651 36720
type(
  system_rng
)
"src/cryptokit.ml" 1219 36722 36739 "src/cryptokit.ml" 1219 36722 36747
type(
  string
)
"src/cryptokit.ml" 1220 36750 36758 "src/cryptokit.ml" 1220 36750 36764
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1221 36765 36778 "src/cryptokit.ml" 1221 36765 36791
type(
  string -> Unix.open_flag list -> Unix.file_perm -> Unix.file_descr
)
ident(
  ext_ref Unix.openfile
)
"src/cryptokit.ml" 1221 36765 36792 "src/cryptokit.ml" 1221 36765 36800
type(
  string
)
ident(
  int_ref filename "src/cryptokit.ml" 1219 36722 36739 "src/cryptokit.ml" 1219 36722 36747
)
"src/cryptokit.ml" 1221 36765 36802 "src/cryptokit.ml" 1221 36765 36815
type(
  Unix.open_flag
)
"src/cryptokit.ml" 1221 36765 36801 "src/cryptokit.ml" 1221 36765 36816
type(
  Unix.open_flag list
)
"src/cryptokit.ml" 1221 36765 36817 "src/cryptokit.ml" 1221 36765 36818
type(
  Unix.file_perm
)
"src/cryptokit.ml" 1221 36765 36778 "src/cryptokit.ml" 1221 36765 36818
call(
  stack
)
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1222 36819 36843 "src/cryptokit.ml" 1222 36819 36846
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 1222 36819 36847 "src/cryptokit.ml" 1227 37057 37066
)
"src/cryptokit.ml" 1222 36819 36847 "src/cryptokit.ml" 1222 36819 36850
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1222 36819 36851 "src/cryptokit.ml" 1227 37057 37066
)
"src/cryptokit.ml" 1222 36819 36851 "src/cryptokit.ml" 1222 36819 36854
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1223 36857 36863 "src/cryptokit.ml" 1227 37057 37066
)
"src/cryptokit.ml" 1223 36857 36866 "src/cryptokit.ml" 1223 36857 36869
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1222 36819 36851 "src/cryptokit.ml" 1222 36819 36854
)
"src/cryptokit.ml" 1223 36857 36870 "src/cryptokit.ml" 1223 36857 36871
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1223 36857 36872 "src/cryptokit.ml" 1223 36857 36873
type(
  int
)
"src/cryptokit.ml" 1223 36857 36866 "src/cryptokit.ml" 1223 36857 36873
type(
  bool
)
"src/cryptokit.ml" 1224 36889 36901 "src/cryptokit.ml" 1224 36889 36902
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1225 36933 36941 "src/cryptokit.ml" 1226 36991 37056
)
"src/cryptokit.ml" 1224 36889 36905 "src/cryptokit.ml" 1224 36889 36914
type(
  Unix.file_descr -> bytes -> int -> int -> int
)
ident(
  ext_ref Unix.read
)
"src/cryptokit.ml" 1224 36889 36915 "src/cryptokit.ml" 1224 36889 36917
type(
  Unix.file_descr
)
ident(
  ext_ref fd
)
"src/cryptokit.ml" 1224 36889 36918 "src/cryptokit.ml" 1224 36889 36921
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1222 36819 36843 "src/cryptokit.ml" 1222 36819 36846
)
"src/cryptokit.ml" 1224 36889 36922 "src/cryptokit.ml" 1224 36889 36925
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1222 36819 36847 "src/cryptokit.ml" 1222 36819 36850
)
"src/cryptokit.ml" 1224 36889 36926 "src/cryptokit.ml" 1224 36889 36929
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1222 36819 36851 "src/cryptokit.ml" 1222 36819 36854
)
"src/cryptokit.ml" 1224 36889 36905 "src/cryptokit.ml" 1224 36889 36929
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1225 36933 36944 "src/cryptokit.ml" 1225 36933 36945
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1224 36889 36901 "src/cryptokit.ml" 1224 36889 36902
)
"src/cryptokit.ml" 1225 36933 36946 "src/cryptokit.ml" 1225 36933 36947
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1225 36933 36948 "src/cryptokit.ml" 1225 36933 36949
type(
  int
)
"src/cryptokit.ml" 1225 36933 36944 "src/cryptokit.ml" 1225 36933 36949
type(
  bool
)
"src/cryptokit.ml" 1225 36933 36955 "src/cryptokit.ml" 1225 36933 36960
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1225 36933 36967 "src/cryptokit.ml" 1225 36933 36988
type(
  error
)
"src/cryptokit.ml" 1225 36933 36960 "src/cryptokit.ml" 1225 36933 36989
type(
  exn
)
"src/cryptokit.ml" 1225 36933 36955 "src/cryptokit.ml" 1225 36933 36989
type(
  unit
)
"src/cryptokit.ml" 1225 36933 36941 "src/cryptokit.ml" 1225 36933 36989
type(
  unit
)
"src/cryptokit.ml" 1226 36991 37002 "src/cryptokit.ml" 1226 36991 37003
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1224 36889 36901 "src/cryptokit.ml" 1224 36889 36902
)
"src/cryptokit.ml" 1226 36991 37004 "src/cryptokit.ml" 1226 36991 37005
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1226 36991 37006 "src/cryptokit.ml" 1226 36991 37009
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1222 36819 36851 "src/cryptokit.ml" 1222 36819 36854
)
"src/cryptokit.ml" 1226 36991 37002 "src/cryptokit.ml" 1226 36991 37009
type(
  bool
)
"src/cryptokit.ml" 1226 36991 37015 "src/cryptokit.ml" 1226 36991 37019
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. > as 'c
)
ident(
  int_ref self "src/cryptokit.ml" 1220 36750 36758 "src/cryptokit.ml" 1220 36750 36764
)
"src/cryptokit.ml" 1226 36991 37015 "src/cryptokit.ml" 1226 36991 37032
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1226 36991 37033 "src/cryptokit.ml" 1226 36991 37036
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1222 36819 36843 "src/cryptokit.ml" 1222 36819 36846
)
"src/cryptokit.ml" 1226 36991 37038 "src/cryptokit.ml" 1226 36991 37041
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1222 36819 36847 "src/cryptokit.ml" 1222 36819 36850
)
"src/cryptokit.ml" 1226 36991 37042 "src/cryptokit.ml" 1226 36991 37043
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1226 36991 37044 "src/cryptokit.ml" 1226 36991 37045
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1224 36889 36901 "src/cryptokit.ml" 1224 36889 36902
)
"src/cryptokit.ml" 1226 36991 37037 "src/cryptokit.ml" 1226 36991 37046
type(
  int
)
"src/cryptokit.ml" 1226 36991 37048 "src/cryptokit.ml" 1226 36991 37051
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1222 36819 36851 "src/cryptokit.ml" 1222 36819 36854
)
"src/cryptokit.ml" 1226 36991 37052 "src/cryptokit.ml" 1226 36991 37053
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1226 36991 37054 "src/cryptokit.ml" 1226 36991 37055
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1224 36889 36901 "src/cryptokit.ml" 1224 36889 36902
)
"src/cryptokit.ml" 1226 36991 37047 "src/cryptokit.ml" 1226 36991 37056
type(
  int
)
"src/cryptokit.ml" 1226 36991 37015 "src/cryptokit.ml" 1226 36991 37056
type(
  unit
)
"src/cryptokit.ml" 1226 36991 36999 "src/cryptokit.ml" 1226 36991 37056
type(
  unit
)
"src/cryptokit.ml" 1225 36933 36941 "src/cryptokit.ml" 1226 36991 37056
type(
  unit
)
"src/cryptokit.ml" 1223 36857 36879 "src/cryptokit.ml" 1227 37057 37066
type(
  unit
)
"src/cryptokit.ml" 1223 36857 36863 "src/cryptokit.ml" 1227 37057 37066
type(
  unit
)
"src/cryptokit.ml" 1229 37085 37091 "src/cryptokit.ml" 1229 37085 37101
type(
  Unix.file_descr -> unit
)
ident(
  ext_ref Unix.close
)
"src/cryptokit.ml" 1229 37085 37102 "src/cryptokit.ml" 1229 37085 37104
type(
  Unix.file_descr
)
ident(
  ext_ref fd
)
"src/cryptokit.ml" 1229 37085 37091 "src/cryptokit.ml" 1229 37085 37104
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1232 37112 37116 "src/cryptokit.ml" 1232 37112 37126
type(
  string -> device_rng
)
ident(
  def device_rng "src/cryptokit.ml" 1234 37163 37163 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1232 37112 37127 "src/cryptokit.ml" 1232 37112 37135
type(
  string
)
ident(
  def filename "src/cryptokit.ml" 1232 37112 37138 "src/cryptokit.ml" 1232 37112 37161
)
"src/cryptokit.ml" 1232 37112 37138 "src/cryptokit.ml" 1232 37112 37152
type(
  string -> device_rng
)
"src/cryptokit.ml" 1232 37112 37153 "src/cryptokit.ml" 1232 37112 37161
type(
  string
)
ident(
  int_ref filename "src/cryptokit.ml" 1232 37112 37127 "src/cryptokit.ml" 1232 37112 37135
)
"src/cryptokit.ml" 1232 37112 37138 "src/cryptokit.ml" 1232 37112 37161
call(
  tail
)
type(
  device_rng
)
"src/cryptokit.ml" 1234 37163 37177 "src/cryptokit.ml" 1234 37163 37187
type(
  string
)
"src/cryptokit.ml" 1235 37190 37198 "src/cryptokit.ml" 1235 37190 37204
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1237 37218 37228 "src/cryptokit.ml" 1237 37218 37229
type(
  Unix.file_descr
)
ident(
  def s "src/cryptokit.ml" 1238 37279 37285 "src/cryptokit.ml" 1241 37361 37392
)
"src/cryptokit.ml" 1237 37218 37232 "src/cryptokit.ml" 1237 37218 37243
type(
  ?cloexec:bool ->
  Unix.socket_domain -> Unix.socket_type -> int -> Unix.file_descr
)
ident(
  ext_ref Unix.socket
)
"src/cryptokit.ml" 1237 37218 37244 "src/cryptokit.ml" 1237 37218 37256
type(
  Unix.socket_domain
)
"src/cryptokit.ml" 1237 37218 37257 "src/cryptokit.ml" 1237 37218 37273
type(
  Unix.socket_type
)
"src/cryptokit.ml" 1237 37218 37274 "src/cryptokit.ml" 1237 37218 37275
type(
  int
)
"src/cryptokit.ml" 1237 37218 37232 "src/cryptokit.ml" 1237 37218 37275
call(
  stack
)
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1239 37289 37297 "src/cryptokit.ml" 1239 37289 37309
type(
  Unix.file_descr -> Unix.sockaddr -> unit
)
ident(
  ext_ref Unix.connect
)
"src/cryptokit.ml" 1239 37289 37310 "src/cryptokit.ml" 1239 37289 37311
type(
  Unix.file_descr
)
ident(
  int_ref s "src/cryptokit.ml" 1237 37218 37228 "src/cryptokit.ml" 1237 37218 37229
)
"src/cryptokit.ml" 1239 37289 37328 "src/cryptokit.ml" 1239 37289 37338
type(
  string
)
ident(
  int_ref socketname "src/cryptokit.ml" 1234 37163 37177 "src/cryptokit.ml" 1234 37163 37187
)
"src/cryptokit.ml" 1239 37289 37312 "src/cryptokit.ml" 1239 37289 37339
type(
  Unix.sockaddr
)
"src/cryptokit.ml" 1239 37289 37297 "src/cryptokit.ml" 1239 37289 37339
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1239 37289 37341 "src/cryptokit.ml" 1239 37289 37342
type(
  Unix.file_descr
)
ident(
  int_ref s "src/cryptokit.ml" 1237 37218 37228 "src/cryptokit.ml" 1237 37218 37229
)
"src/cryptokit.ml" 1239 37289 37297 "src/cryptokit.ml" 1239 37289 37342
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1240 37343 37354 "src/cryptokit.ml" 1240 37343 37357
type(
  exn
)
ident(
  def exn "src/cryptokit.ml" 1241 37361 37369 "src/cryptokit.ml" 1241 37361 37392
)
"src/cryptokit.ml" 1241 37361 37369 "src/cryptokit.ml" 1241 37361 37379
type(
  Unix.file_descr -> unit
)
ident(
  ext_ref Unix.close
)
"src/cryptokit.ml" 1241 37361 37380 "src/cryptokit.ml" 1241 37361 37381
type(
  Unix.file_descr
)
ident(
  int_ref s "src/cryptokit.ml" 1237 37218 37228 "src/cryptokit.ml" 1237 37218 37229
)
"src/cryptokit.ml" 1241 37361 37369 "src/cryptokit.ml" 1241 37361 37381
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1241 37361 37383 "src/cryptokit.ml" 1241 37361 37388
type(
  exn -> Unix.file_descr
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1241 37361 37389 "src/cryptokit.ml" 1241 37361 37392
type(
  exn
)
ident(
  int_ref exn "src/cryptokit.ml" 1240 37343 37354 "src/cryptokit.ml" 1240 37343 37357
)
"src/cryptokit.ml" 1241 37361 37383 "src/cryptokit.ml" 1241 37361 37392
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1241 37361 37369 "src/cryptokit.ml" 1241 37361 37392
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1238 37279 37285 "src/cryptokit.ml" 1241 37361 37392
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1237 37218 37224 "src/cryptokit.ml" 1241 37361 37392
type(
  Unix.file_descr
)
"src/cryptokit.ml" 1242 37393 37417 "src/cryptokit.ml" 1242 37393 37420
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 1242 37393 37421 "src/cryptokit.ml" 1257 38008 38017
)
"src/cryptokit.ml" 1242 37393 37421 "src/cryptokit.ml" 1242 37393 37424
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1242 37393 37425 "src/cryptokit.ml" 1257 38008 38017
)
"src/cryptokit.ml" 1242 37393 37425 "src/cryptokit.ml" 1242 37393 37428
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1243 37431 37437 "src/cryptokit.ml" 1257 38008 38017
)
"src/cryptokit.ml" 1243 37431 37440 "src/cryptokit.ml" 1243 37431 37443
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1242 37393 37425 "src/cryptokit.ml" 1242 37393 37428
)
"src/cryptokit.ml" 1243 37431 37444 "src/cryptokit.ml" 1243 37431 37445
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1243 37431 37446 "src/cryptokit.ml" 1243 37431 37447
type(
  int
)
"src/cryptokit.ml" 1243 37431 37440 "src/cryptokit.ml" 1243 37431 37447
type(
  bool
)
"src/cryptokit.ml" 1244 37463 37475 "src/cryptokit.ml" 1244 37463 37479
type(
  int
)
ident(
  def reqd "src/cryptokit.ml" 1245 37497 37505 "src/cryptokit.ml" 1256 37933 38007
)
"src/cryptokit.ml" 1244 37463 37482 "src/cryptokit.ml" 1244 37463 37485
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/cryptokit.ml" 1244 37463 37486 "src/cryptokit.ml" 1244 37463 37489
type(
  int
)
"src/cryptokit.ml" 1244 37463 37490 "src/cryptokit.ml" 1244 37463 37493
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1242 37393 37425 "src/cryptokit.ml" 1242 37393 37428
)
"src/cryptokit.ml" 1244 37463 37482 "src/cryptokit.ml" 1244 37463 37493
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1245 37497 37509 "src/cryptokit.ml" 1245 37497 37512
type(
  bytes
)
ident(
  def msg "src/cryptokit.ml" 1246 37533 37541 "src/cryptokit.ml" 1256 37933 38007
)
"src/cryptokit.ml" 1245 37497 37515 "src/cryptokit.ml" 1245 37497 37527
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 1245 37497 37528 "src/cryptokit.ml" 1245 37497 37529
type(
  int
)
"src/cryptokit.ml" 1245 37497 37515 "src/cryptokit.ml" 1245 37497 37529
type(
  bytes
)
"src/cryptokit.ml" 1246 37533 37541 "src/cryptokit.ml" 1246 37533 37550
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1246 37533 37551 "src/cryptokit.ml" 1246 37533 37554
type(
  bytes
)
ident(
  int_ref msg "src/cryptokit.ml" 1245 37497 37509 "src/cryptokit.ml" 1245 37497 37512
)
"src/cryptokit.ml" 1246 37533 37555 "src/cryptokit.ml" 1246 37533 37556
type(
  int
)
"src/cryptokit.ml" 1246 37533 37557 "src/cryptokit.ml" 1246 37533 37563
type(
  char
)
"src/cryptokit.ml" 1246 37533 37541 "src/cryptokit.ml" 1246 37533 37563
type(
  unit
)
"src/cryptokit.ml" 1247 37593 37601 "src/cryptokit.ml" 1247 37593 37610
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1247 37593 37611 "src/cryptokit.ml" 1247 37593 37614
type(
  bytes
)
ident(
  int_ref msg "src/cryptokit.ml" 1245 37497 37509 "src/cryptokit.ml" 1245 37497 37512
)
"src/cryptokit.ml" 1247 37593 37615 "src/cryptokit.ml" 1247 37593 37616
type(
  int
)
"src/cryptokit.ml" 1247 37593 37618 "src/cryptokit.ml" 1247 37593 37626
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1247 37593 37627 "src/cryptokit.ml" 1247 37593 37631
type(
  int
)
ident(
  int_ref reqd "src/cryptokit.ml" 1244 37463 37475 "src/cryptokit.ml" 1244 37463 37479
)
"src/cryptokit.ml" 1247 37593 37617 "src/cryptokit.ml" 1247 37593 37632
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1247 37593 37601 "src/cryptokit.ml" 1247 37593 37632
type(
  unit
)
"src/cryptokit.ml" 1248 37634 37642 "src/cryptokit.ml" 1248 37634 37648
type(
  int -> unit
)
ident(
  ext_ref Pervasives.ignore
)
"src/cryptokit.ml" 1248 37634 37650 "src/cryptokit.ml" 1248 37634 37660
type(
  Unix.file_descr -> bytes -> int -> int -> int
)
ident(
  ext_ref Unix.write
)
"src/cryptokit.ml" 1248 37634 37661 "src/cryptokit.ml" 1248 37634 37663
type(
  Unix.file_descr
)
ident(
  ext_ref fd
)
"src/cryptokit.ml" 1248 37634 37664 "src/cryptokit.ml" 1248 37634 37667
type(
  bytes
)
ident(
  int_ref msg "src/cryptokit.ml" 1245 37497 37509 "src/cryptokit.ml" 1245 37497 37512
)
"src/cryptokit.ml" 1248 37634 37668 "src/cryptokit.ml" 1248 37634 37669
type(
  int
)
"src/cryptokit.ml" 1248 37634 37670 "src/cryptokit.ml" 1248 37634 37671
type(
  int
)
"src/cryptokit.ml" 1248 37634 37649 "src/cryptokit.ml" 1248 37634 37672
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1248 37634 37642 "src/cryptokit.ml" 1248 37634 37672
type(
  unit
)
"src/cryptokit.ml" 1249 37674 37690 "src/cryptokit.ml" 1249 37674 37697
type(
  int -> int -> unit
)
ident(
  def do_read "src/cryptokit.ml" 1249 37674 37682 "src/cryptokit.ml" 1256 37933 38007
)
"src/cryptokit.ml" 1249 37674 37698 "src/cryptokit.ml" 1249 37674 37701
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1249 37674 37702 "src/cryptokit.ml" 1254 37890 37903
)
"src/cryptokit.ml" 1249 37674 37702 "src/cryptokit.ml" 1249 37674 37705
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1250 37708 37718 "src/cryptokit.ml" 1254 37890 37903
)
"src/cryptokit.ml" 1250 37708 37721 "src/cryptokit.ml" 1250 37708 37724
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1249 37674 37702 "src/cryptokit.ml" 1249 37674 37705
)
"src/cryptokit.ml" 1250 37708 37725 "src/cryptokit.ml" 1250 37708 37726
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1250 37708 37727 "src/cryptokit.ml" 1250 37708 37728
type(
  int
)
"src/cryptokit.ml" 1250 37708 37721 "src/cryptokit.ml" 1250 37708 37728
type(
  bool
)
"src/cryptokit.ml" 1251 37740 37756 "src/cryptokit.ml" 1251 37740 37757
type(
  int
)
ident(
  def r "src/cryptokit.ml" 1252 37788 37800 "src/cryptokit.ml" 1253 37850 37889
)
"src/cryptokit.ml" 1251 37740 37760 "src/cryptokit.ml" 1251 37740 37769
type(
  Unix.file_descr -> bytes -> int -> int -> int
)
ident(
  ext_ref Unix.read
)
"src/cryptokit.ml" 1251 37740 37770 "src/cryptokit.ml" 1251 37740 37772
type(
  Unix.file_descr
)
ident(
  ext_ref fd
)
"src/cryptokit.ml" 1251 37740 37773 "src/cryptokit.ml" 1251 37740 37776
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1242 37393 37417 "src/cryptokit.ml" 1242 37393 37420
)
"src/cryptokit.ml" 1251 37740 37777 "src/cryptokit.ml" 1251 37740 37780
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1249 37674 37698 "src/cryptokit.ml" 1249 37674 37701
)
"src/cryptokit.ml" 1251 37740 37781 "src/cryptokit.ml" 1251 37740 37784
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1249 37674 37702 "src/cryptokit.ml" 1249 37674 37705
)
"src/cryptokit.ml" 1251 37740 37760 "src/cryptokit.ml" 1251 37740 37784
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1252 37788 37803 "src/cryptokit.ml" 1252 37788 37804
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1251 37740 37756 "src/cryptokit.ml" 1251 37740 37757
)
"src/cryptokit.ml" 1252 37788 37805 "src/cryptokit.ml" 1252 37788 37806
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1252 37788 37807 "src/cryptokit.ml" 1252 37788 37808
type(
  int
)
"src/cryptokit.ml" 1252 37788 37803 "src/cryptokit.ml" 1252 37788 37808
type(
  bool
)
"src/cryptokit.ml" 1252 37788 37814 "src/cryptokit.ml" 1252 37788 37819
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1252 37788 37826 "src/cryptokit.ml" 1252 37788 37847
type(
  error
)
"src/cryptokit.ml" 1252 37788 37819 "src/cryptokit.ml" 1252 37788 37848
type(
  exn
)
"src/cryptokit.ml" 1252 37788 37814 "src/cryptokit.ml" 1252 37788 37848
type(
  unit
)
"src/cryptokit.ml" 1252 37788 37800 "src/cryptokit.ml" 1252 37788 37848
type(
  unit
)
"src/cryptokit.ml" 1253 37850 37862 "src/cryptokit.ml" 1253 37850 37869
type(
  int -> int -> unit
)
ident(
  int_ref do_read "src/cryptokit.ml" 1249 37674 37690 "src/cryptokit.ml" 1249 37674 37697
)
"src/cryptokit.ml" 1253 37850 37871 "src/cryptokit.ml" 1253 37850 37874
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1249 37674 37698 "src/cryptokit.ml" 1249 37674 37701
)
"src/cryptokit.ml" 1253 37850 37875 "src/cryptokit.ml" 1253 37850 37876
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1253 37850 37877 "src/cryptokit.ml" 1253 37850 37878
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1251 37740 37756 "src/cryptokit.ml" 1251 37740 37757
)
"src/cryptokit.ml" 1253 37850 37870 "src/cryptokit.ml" 1253 37850 37879
type(
  int
)
"src/cryptokit.ml" 1253 37850 37881 "src/cryptokit.ml" 1253 37850 37884
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1249 37674 37702 "src/cryptokit.ml" 1249 37674 37705
)
"src/cryptokit.ml" 1253 37850 37885 "src/cryptokit.ml" 1253 37850 37886
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1253 37850 37887 "src/cryptokit.ml" 1253 37850 37888
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1251 37740 37756 "src/cryptokit.ml" 1251 37740 37757
)
"src/cryptokit.ml" 1253 37850 37880 "src/cryptokit.ml" 1253 37850 37889
type(
  int
)
"src/cryptokit.ml" 1253 37850 37862 "src/cryptokit.ml" 1253 37850 37889
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1252 37788 37800 "src/cryptokit.ml" 1253 37850 37889
type(
  unit
)
"src/cryptokit.ml" 1250 37708 37734 "src/cryptokit.ml" 1254 37890 37903
type(
  unit
)
"src/cryptokit.ml" 1250 37708 37718 "src/cryptokit.ml" 1254 37890 37903
type(
  unit
)
"src/cryptokit.ml" 1255 37907 37915 "src/cryptokit.ml" 1255 37907 37922
type(
  int -> int -> unit
)
ident(
  int_ref do_read "src/cryptokit.ml" 1249 37674 37690 "src/cryptokit.ml" 1249 37674 37697
)
"src/cryptokit.ml" 1255 37907 37923 "src/cryptokit.ml" 1255 37907 37926
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1242 37393 37421 "src/cryptokit.ml" 1242 37393 37424
)
"src/cryptokit.ml" 1255 37907 37927 "src/cryptokit.ml" 1255 37907 37931
type(
  int
)
ident(
  int_ref reqd "src/cryptokit.ml" 1244 37463 37475 "src/cryptokit.ml" 1244 37463 37479
)
"src/cryptokit.ml" 1255 37907 37915 "src/cryptokit.ml" 1255 37907 37931
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1256 37933 37944 "src/cryptokit.ml" 1256 37933 37948
type(
  int
)
ident(
  int_ref reqd "src/cryptokit.ml" 1244 37463 37475 "src/cryptokit.ml" 1244 37463 37479
)
"src/cryptokit.ml" 1256 37933 37949 "src/cryptokit.ml" 1256 37933 37950
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1256 37933 37951 "src/cryptokit.ml" 1256 37933 37954
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1242 37393 37425 "src/cryptokit.ml" 1242 37393 37428
)
"src/cryptokit.ml" 1256 37933 37944 "src/cryptokit.ml" 1256 37933 37954
type(
  bool
)
"src/cryptokit.ml" 1256 37933 37960 "src/cryptokit.ml" 1256 37933 37964
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. > as 'd
)
ident(
  int_ref self "src/cryptokit.ml" 1235 37190 37198 "src/cryptokit.ml" 1235 37190 37204
)
"src/cryptokit.ml" 1256 37933 37960 "src/cryptokit.ml" 1256 37933 37977
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1256 37933 37978 "src/cryptokit.ml" 1256 37933 37981
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1242 37393 37417 "src/cryptokit.ml" 1242 37393 37420
)
"src/cryptokit.ml" 1256 37933 37983 "src/cryptokit.ml" 1256 37933 37986
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1242 37393 37421 "src/cryptokit.ml" 1242 37393 37424
)
"src/cryptokit.ml" 1256 37933 37987 "src/cryptokit.ml" 1256 37933 37988
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1256 37933 37989 "src/cryptokit.ml" 1256 37933 37993
type(
  int
)
ident(
  int_ref reqd "src/cryptokit.ml" 1244 37463 37475 "src/cryptokit.ml" 1244 37463 37479
)
"src/cryptokit.ml" 1256 37933 37982 "src/cryptokit.ml" 1256 37933 37994
type(
  int
)
"src/cryptokit.ml" 1256 37933 37996 "src/cryptokit.ml" 1256 37933 37999
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1242 37393 37425 "src/cryptokit.ml" 1242 37393 37428
)
"src/cryptokit.ml" 1256 37933 38000 "src/cryptokit.ml" 1256 37933 38001
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1256 37933 38002 "src/cryptokit.ml" 1256 37933 38006
type(
  int
)
ident(
  int_ref reqd "src/cryptokit.ml" 1244 37463 37475 "src/cryptokit.ml" 1244 37463 37479
)
"src/cryptokit.ml" 1256 37933 37995 "src/cryptokit.ml" 1256 37933 38007
type(
  int
)
"src/cryptokit.ml" 1256 37933 37960 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1256 37933 37941 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1255 37907 37915 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1249 37674 37682 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1248 37634 37642 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1247 37593 37601 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1246 37533 37541 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1245 37497 37505 "src/cryptokit.ml" 1256 37933 38007
type(
  unit
)
"src/cryptokit.ml" 1243 37431 37453 "src/cryptokit.ml" 1257 38008 38017
type(
  unit
)
"src/cryptokit.ml" 1243 37431 37437 "src/cryptokit.ml" 1257 38008 38017
type(
  unit
)
"src/cryptokit.ml" 1259 38036 38042 "src/cryptokit.ml" 1259 38036 38052
type(
  Unix.file_descr -> unit
)
ident(
  ext_ref Unix.close
)
"src/cryptokit.ml" 1259 38036 38053 "src/cryptokit.ml" 1259 38036 38055
type(
  Unix.file_descr
)
ident(
  ext_ref fd
)
"src/cryptokit.ml" 1259 38036 38042 "src/cryptokit.ml" 1259 38036 38055
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1262 38063 38067 "src/cryptokit.ml" 1262 38063 38074
type(
  string -> egd_rng
)
ident(
  def egd_rng "src/cryptokit.ml" 1264 38112 38112 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1262 38063 38075 "src/cryptokit.ml" 1262 38063 38085
type(
  string
)
ident(
  def socketname "src/cryptokit.ml" 1262 38063 38088 "src/cryptokit.ml" 1262 38063 38110
)
"src/cryptokit.ml" 1262 38063 38088 "src/cryptokit.ml" 1262 38063 38099
type(
  string -> egd_rng
)
"src/cryptokit.ml" 1262 38063 38100 "src/cryptokit.ml" 1262 38063 38110
type(
  string
)
ident(
  int_ref socketname "src/cryptokit.ml" 1262 38063 38075 "src/cryptokit.ml" 1262 38063 38085
)
"src/cryptokit.ml" 1262 38063 38088 "src/cryptokit.ml" 1262 38063 38110
call(
  tail
)
type(
  egd_rng
)
"src/cryptokit.ml" 1269 38320 38344 "src/cryptokit.ml" 1269 38320 38347
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 1269 38320 38348 "src/cryptokit.ml" 1273 38529 38575
)
"src/cryptokit.ml" 1269 38320 38348 "src/cryptokit.ml" 1269 38320 38351
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1269 38320 38352 "src/cryptokit.ml" 1273 38529 38575
)
"src/cryptokit.ml" 1269 38320 38352 "src/cryptokit.ml" 1269 38320 38355
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1270 38358 38364 "src/cryptokit.ml" 1273 38529 38575
)
"src/cryptokit.ml" 1270 38358 38367 "src/cryptokit.ml" 1270 38358 38370
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1269 38320 38348 "src/cryptokit.ml" 1269 38320 38351
)
"src/cryptokit.ml" 1270 38358 38371 "src/cryptokit.ml" 1270 38358 38372
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1270 38358 38373 "src/cryptokit.ml" 1270 38358 38374
type(
  int
)
"src/cryptokit.ml" 1270 38358 38367 "src/cryptokit.ml" 1270 38358 38374
type(
  bool
)
"src/cryptokit.ml" 1270 38358 38375 "src/cryptokit.ml" 1270 38358 38377
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1270 38358 38378 "src/cryptokit.ml" 1270 38358 38381
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1269 38320 38352 "src/cryptokit.ml" 1269 38320 38355
)
"src/cryptokit.ml" 1270 38358 38382 "src/cryptokit.ml" 1270 38358 38383
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1270 38358 38384 "src/cryptokit.ml" 1270 38358 38385
type(
  int
)
"src/cryptokit.ml" 1270 38358 38378 "src/cryptokit.ml" 1270 38358 38385
type(
  bool
)
"src/cryptokit.ml" 1270 38358 38386 "src/cryptokit.ml" 1270 38358 38388
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1270 38358 38389 "src/cryptokit.ml" 1270 38358 38392
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1269 38320 38348 "src/cryptokit.ml" 1269 38320 38351
)
"src/cryptokit.ml" 1270 38358 38393 "src/cryptokit.ml" 1270 38358 38394
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1270 38358 38395 "src/cryptokit.ml" 1270 38358 38407
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1270 38358 38408 "src/cryptokit.ml" 1270 38358 38411
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1269 38320 38344 "src/cryptokit.ml" 1269 38320 38347
)
"src/cryptokit.ml" 1270 38358 38395 "src/cryptokit.ml" 1270 38358 38411
type(
  int
)
"src/cryptokit.ml" 1270 38358 38412 "src/cryptokit.ml" 1270 38358 38413
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1270 38358 38414 "src/cryptokit.ml" 1270 38358 38417
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1269 38320 38352 "src/cryptokit.ml" 1269 38320 38355
)
"src/cryptokit.ml" 1270 38358 38395 "src/cryptokit.ml" 1270 38358 38417
type(
  int
)
"src/cryptokit.ml" 1270 38358 38389 "src/cryptokit.ml" 1270 38358 38417
type(
  bool
)
"src/cryptokit.ml" 1270 38358 38378 "src/cryptokit.ml" 1270 38358 38417
type(
  bool
)
"src/cryptokit.ml" 1270 38358 38367 "src/cryptokit.ml" 1270 38358 38417
type(
  bool
)
"src/cryptokit.ml" 1271 38424 38435 "src/cryptokit.ml" 1271 38424 38446
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 1271 38424 38447 "src/cryptokit.ml" 1271 38424 38474
type(
  string
)
"src/cryptokit.ml" 1271 38424 38435 "src/cryptokit.ml" 1271 38424 38474
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1270 38358 38364 "src/cryptokit.ml" 1271 38424 38474
type(
  unit
)
"src/cryptokit.ml" 1272 38476 38485 "src/cryptokit.ml" 1272 38476 38488
type(
  bool -> bool
)
ident(
  ext_ref Pervasives.not
)
"src/cryptokit.ml" 1272 38476 38490 "src/cryptokit.ml" 1272 38476 38515
type(
  bytes -> int -> int -> bool
)
ident(
  int_ref hardware_rng_random_bytes "src/cryptokit.ml" 1265 38190 38190 "src/cryptokit.ml" 1265 38190 38288
)
"src/cryptokit.ml" 1272 38476 38516 "src/cryptokit.ml" 1272 38476 38519
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1269 38320 38344 "src/cryptokit.ml" 1269 38320 38347
)
"src/cryptokit.ml" 1272 38476 38520 "src/cryptokit.ml" 1272 38476 38523
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1269 38320 38348 "src/cryptokit.ml" 1269 38320 38351
)
"src/cryptokit.ml" 1272 38476 38524 "src/cryptokit.ml" 1272 38476 38527
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1269 38320 38352 "src/cryptokit.ml" 1269 38320 38355
)
"src/cryptokit.ml" 1272 38476 38489 "src/cryptokit.ml" 1272 38476 38528
type(
  bool
)
"src/cryptokit.ml" 1272 38476 38485 "src/cryptokit.ml" 1272 38476 38528
type(
  bool
)
"src/cryptokit.ml" 1273 38529 38540 "src/cryptokit.ml" 1273 38529 38545
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1273 38529 38553 "src/cryptokit.ml" 1273 38529 38574
type(
  error
)
"src/cryptokit.ml" 1273 38529 38546 "src/cryptokit.ml" 1273 38529 38575
type(
  exn
)
"src/cryptokit.ml" 1273 38529 38540 "src/cryptokit.ml" 1273 38529 38575
type(
  unit
)
"src/cryptokit.ml" 1272 38476 38482 "src/cryptokit.ml" 1273 38529 38575
type(
  unit
)
"src/cryptokit.ml" 1270 38358 38364 "src/cryptokit.ml" 1273 38529 38575
type(
  unit
)
"src/cryptokit.ml" 1275 38594 38600 "src/cryptokit.ml" 1275 38594 38602
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1278 38610 38614 "src/cryptokit.ml" 1278 38610 38626
type(
  unit -> hardware_rng
)
ident(
  def hardware_rng "src/cryptokit.ml" 1283 38727 38727 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1278 38610 38627 "src/cryptokit.ml" 1278 38610 38629
type(
  unit
)
"src/cryptokit.ml" 1279 38632 38637 "src/cryptokit.ml" 1279 38632 38659
type(
  unit -> bool
)
ident(
  int_ref hardware_rng_available "src/cryptokit.ml" 1264 38112 38112 "src/cryptokit.ml" 1264 38112 38189
)
"src/cryptokit.ml" 1279 38632 38660 "src/cryptokit.ml" 1279 38632 38662
type(
  unit
)
"src/cryptokit.ml" 1279 38632 38637 "src/cryptokit.ml" 1279 38632 38662
type(
  bool
)
"src/cryptokit.ml" 1280 38663 38674 "src/cryptokit.ml" 1280 38663 38686
call(
  tail
)
"src/cryptokit.ml" 1280 38663 38670 "src/cryptokit.ml" 1280 38663 38686
type(
  hardware_rng
)
"src/cryptokit.ml" 1281 38687 38694 "src/cryptokit.ml" 1281 38687 38699
type(
  exn -> hardware_rng
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1281 38687 38707 "src/cryptokit.ml" 1281 38687 38724
type(
  error
)
"src/cryptokit.ml" 1281 38687 38700 "src/cryptokit.ml" 1281 38687 38725
type(
  exn
)
"src/cryptokit.ml" 1281 38687 38694 "src/cryptokit.ml" 1281 38687 38725
type(
  hardware_rng
)
"src/cryptokit.ml" 1279 38632 38634 "src/cryptokit.ml" 1281 38687 38725
type(
  hardware_rng
)
"src/cryptokit.ml" 1285 38751 38776 "src/cryptokit.ml" 1285 38751 38779
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 1285 38751 38787 "src/cryptokit.ml" 1286 38817 38854
)
"src/cryptokit.ml" 1285 38751 38788 "src/cryptokit.ml" 1285 38751 38791
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1285 38751 38797 "src/cryptokit.ml" 1286 38817 38854
)
"src/cryptokit.ml" 1285 38751 38798 "src/cryptokit.ml" 1285 38751 38801
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1285 38751 38807 "src/cryptokit.ml" 1286 38817 38854
)
"src/cryptokit.ml" 1286 38817 38823 "src/cryptokit.ml" 1286 38817 38828
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1286 38817 38836 "src/cryptokit.ml" 1286 38817 38853
type(
  error
)
"src/cryptokit.ml" 1286 38817 38829 "src/cryptokit.ml" 1286 38817 38854
type(
  exn
)
"src/cryptokit.ml" 1286 38817 38823 "src/cryptokit.ml" 1286 38817 38854
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1287 38855 38873 "src/cryptokit.ml" 1287 38855 38875
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1290 38883 38887 "src/cryptokit.ml" 1290 38883 38897
type(
  system_rng
)
ident(
  def secure_rng "src/cryptokit.ml" 1314 39465 39465 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1292 38906 38914 "src/cryptokit.ml" 1292 38906 38924
call(
  stack
)
"src/cryptokit.ml" 1292 38906 38910 "src/cryptokit.ml" 1292 38906 38924
type(
  system_rng
)
"src/cryptokit.ml" 1293 38925 38932 "src/cryptokit.ml" 1293 38925 38941
type(
  exn
)
"src/cryptokit.ml" 1295 38951 38955 "src/cryptokit.ml" 1295 38951 38969
type(
  string -> device_rng
)
"src/cryptokit.ml" 1295 38951 38970 "src/cryptokit.ml" 1295 38951 38983
type(
  string
)
"src/cryptokit.ml" 1295 38951 38955 "src/cryptokit.ml" 1295 38951 38983
call(
  stack
)
type(
  device_rng
)
"src/cryptokit.ml" 1296 38984 39007 "src/cryptokit.ml" 1296 38984 39008
type(
  Unix.error
)
"src/cryptokit.ml" 1296 38984 39009 "src/cryptokit.ml" 1296 38984 39010
type(
  string
)
"src/cryptokit.ml" 1296 38984 39011 "src/cryptokit.ml" 1296 38984 39012
type(
  string
)
"src/cryptokit.ml" 1296 38984 38991 "src/cryptokit.ml" 1296 38984 39013
type(
  exn
)
"src/cryptokit.ml" 1298 39023 39027 "src/cryptokit.ml" 1298 39023 39038
type(
  string -> egd_rng
)
"src/cryptokit.ml" 1298 39023 39040 "src/cryptokit.ml" 1298 39023 39050
type(
  string -> string
)
ident(
  ext_ref Sys.getenv
)
"src/cryptokit.ml" 1298 39023 39051 "src/cryptokit.ml" 1298 39023 39063
type(
  string
)
"src/cryptokit.ml" 1298 39023 39039 "src/cryptokit.ml" 1298 39023 39064
type(
  string
)
"src/cryptokit.ml" 1298 39023 39027 "src/cryptokit.ml" 1298 39023 39064
call(
  stack
)
type(
  egd_rng
)
"src/cryptokit.ml" 1299 39065 39072 "src/cryptokit.ml" 1299 39065 39081
type(
  exn
)
"src/cryptokit.ml" 1299 39065 39100 "src/cryptokit.ml" 1299 39065 39101
type(
  Unix.error
)
"src/cryptokit.ml" 1299 39065 39102 "src/cryptokit.ml" 1299 39065 39103
type(
  string
)
"src/cryptokit.ml" 1299 39065 39104 "src/cryptokit.ml" 1299 39065 39105
type(
  string
)
"src/cryptokit.ml" 1299 39065 39084 "src/cryptokit.ml" 1299 39065 39106
type(
  exn
)
"src/cryptokit.ml" 1299 39065 39072 "src/cryptokit.ml" 1299 39065 39106
type(
  exn
)
"src/cryptokit.ml" 1301 39116 39120 "src/cryptokit.ml" 1301 39116 39131
type(
  string -> egd_rng
)
"src/cryptokit.ml" 1301 39116 39133 "src/cryptokit.ml" 1301 39116 39148
type(
  string -> string -> string
)
ident(
  ext_ref Filename.concat
)
"src/cryptokit.ml" 1301 39116 39150 "src/cryptokit.ml" 1301 39116 39160
type(
  string -> string
)
ident(
  ext_ref Sys.getenv
)
"src/cryptokit.ml" 1301 39116 39161 "src/cryptokit.ml" 1301 39116 39167
type(
  string
)
"src/cryptokit.ml" 1301 39116 39149 "src/cryptokit.ml" 1301 39116 39168
type(
  string
)
"src/cryptokit.ml" 1301 39116 39169 "src/cryptokit.ml" 1301 39116 39185
type(
  string
)
"src/cryptokit.ml" 1301 39116 39132 "src/cryptokit.ml" 1301 39116 39186
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1301 39116 39120 "src/cryptokit.ml" 1301 39116 39186
call(
  stack
)
type(
  egd_rng
)
"src/cryptokit.ml" 1302 39187 39194 "src/cryptokit.ml" 1302 39187 39203
type(
  exn
)
"src/cryptokit.ml" 1302 39187 39222 "src/cryptokit.ml" 1302 39187 39223
type(
  Unix.error
)
"src/cryptokit.ml" 1302 39187 39224 "src/cryptokit.ml" 1302 39187 39225
type(
  string
)
"src/cryptokit.ml" 1302 39187 39226 "src/cryptokit.ml" 1302 39187 39227
type(
  string
)
"src/cryptokit.ml" 1302 39187 39206 "src/cryptokit.ml" 1302 39187 39228
type(
  exn
)
"src/cryptokit.ml" 1302 39187 39194 "src/cryptokit.ml" 1302 39187 39228
type(
  exn
)
"src/cryptokit.ml" 1304 39238 39242 "src/cryptokit.ml" 1304 39238 39253
type(
  string -> egd_rng
)
"src/cryptokit.ml" 1304 39238 39254 "src/cryptokit.ml" 1304 39238 39273
type(
  string
)
"src/cryptokit.ml" 1304 39238 39242 "src/cryptokit.ml" 1304 39238 39273
call(
  stack
)
type(
  egd_rng
)
"src/cryptokit.ml" 1305 39274 39297 "src/cryptokit.ml" 1305 39274 39298
type(
  Unix.error
)
"src/cryptokit.ml" 1305 39274 39299 "src/cryptokit.ml" 1305 39274 39300
type(
  string
)
"src/cryptokit.ml" 1305 39274 39301 "src/cryptokit.ml" 1305 39274 39302
type(
  string
)
"src/cryptokit.ml" 1305 39274 39281 "src/cryptokit.ml" 1305 39274 39303
type(
  exn
)
"src/cryptokit.ml" 1307 39313 39317 "src/cryptokit.ml" 1307 39313 39328
type(
  string -> egd_rng
)
"src/cryptokit.ml" 1307 39313 39329 "src/cryptokit.ml" 1307 39313 39344
type(
  string
)
"src/cryptokit.ml" 1307 39313 39317 "src/cryptokit.ml" 1307 39313 39344
call(
  stack
)
type(
  egd_rng
)
"src/cryptokit.ml" 1308 39345 39368 "src/cryptokit.ml" 1308 39345 39369
type(
  Unix.error
)
"src/cryptokit.ml" 1308 39345 39370 "src/cryptokit.ml" 1308 39345 39371
type(
  string
)
"src/cryptokit.ml" 1308 39345 39372 "src/cryptokit.ml" 1308 39345 39373
type(
  string
)
"src/cryptokit.ml" 1308 39345 39352 "src/cryptokit.ml" 1308 39345 39374
type(
  exn
)
"src/cryptokit.ml" 1310 39384 39388 "src/cryptokit.ml" 1310 39384 39399
type(
  string -> egd_rng
)
"src/cryptokit.ml" 1310 39384 39400 "src/cryptokit.ml" 1310 39384 39415
type(
  string
)
"src/cryptokit.ml" 1310 39384 39388 "src/cryptokit.ml" 1310 39384 39415
call(
  stack
)
type(
  egd_rng
)
"src/cryptokit.ml" 1311 39416 39439 "src/cryptokit.ml" 1311 39416 39440
type(
  Unix.error
)
"src/cryptokit.ml" 1311 39416 39441 "src/cryptokit.ml" 1311 39416 39442
type(
  string
)
"src/cryptokit.ml" 1311 39416 39443 "src/cryptokit.ml" 1311 39416 39444
type(
  string
)
"src/cryptokit.ml" 1311 39416 39423 "src/cryptokit.ml" 1311 39416 39445
type(
  exn
)
"src/cryptokit.ml" 1312 39449 39457 "src/cryptokit.ml" 1312 39449 39463
call(
  stack
)
"src/cryptokit.ml" 1312 39449 39453 "src/cryptokit.ml" 1312 39449 39463
type(
  no_rng
)
"src/cryptokit.ml" 1309 39378 39380 "src/cryptokit.ml" 1312 39449 39463
type(
  egd_rng
)
"src/cryptokit.ml" 1306 39307 39309 "src/cryptokit.ml" 1312 39449 39463
type(
  egd_rng
)
"src/cryptokit.ml" 1303 39232 39234 "src/cryptokit.ml" 1312 39449 39463
type(
  egd_rng
)
"src/cryptokit.ml" 1300 39110 39112 "src/cryptokit.ml" 1312 39449 39463
type(
  egd_rng
)
"src/cryptokit.ml" 1297 39017 39019 "src/cryptokit.ml" 1312 39449 39463
type(
  egd_rng
)
"src/cryptokit.ml" 1294 38945 38947 "src/cryptokit.ml" 1312 39449 39463
type(
  device_rng
)
"src/cryptokit.ml" 1291 38900 38902 "src/cryptokit.ml" 1312 39449 39463
type(
  system_rng
)
"src/cryptokit.ml" 1314 39465 39482 "src/cryptokit.ml" 1314 39465 39486
type(
  string
)
"src/cryptokit.ml" 1315 39489 39495 "src/cryptokit.ml" 1315 39489 39496
type(
  unit
)
"src/cryptokit.ml" 1315 39489 39502 "src/cryptokit.ml" 1315 39489 39515
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1315 39489 39516 "src/cryptokit.ml" 1315 39489 39520
type(
  string
)
ident(
  int_ref seed "src/cryptokit.ml" 1314 39465 39482 "src/cryptokit.ml" 1314 39465 39486
)
"src/cryptokit.ml" 1315 39489 39502 "src/cryptokit.ml" 1315 39489 39520
type(
  int
)
"src/cryptokit.ml" 1315 39489 39521 "src/cryptokit.ml" 1315 39489 39522
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1315 39489 39523 "src/cryptokit.ml" 1315 39489 39525
type(
  int
)
"src/cryptokit.ml" 1315 39489 39502 "src/cryptokit.ml" 1315 39489 39525
type(
  bool
)
"src/cryptokit.ml" 1315 39489 39531 "src/cryptokit.ml" 1315 39489 39536
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1315 39489 39544 "src/cryptokit.ml" 1315 39489 39558
type(
  error
)
"src/cryptokit.ml" 1315 39489 39537 "src/cryptokit.ml" 1315 39489 39559
type(
  exn
)
"src/cryptokit.ml" 1315 39489 39531 "src/cryptokit.ml" 1315 39489 39559
type(
  unit
)
"src/cryptokit.ml" 1315 39489 39499 "src/cryptokit.ml" 1315 39489 39559
type(
  unit
)
"src/cryptokit.ml" 1316 39563 39572 "src/cryptokit.ml" 1316 39563 39578
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1318 39596 39602 "src/cryptokit.ml" 1318 39596 39623
type(
  ?iv:string -> Block.block_cipher -> Block.cbc_encrypt
)
"src/cryptokit.ml" 1318 39596 39625 "src/cryptokit.ml" 1318 39596 39646
type(
  string -> Block.aes_encrypt
)
"src/cryptokit.ml" 1318 39596 39648 "src/cryptokit.ml" 1318 39596 39658
type(
  string -> int -> int -> string
)
ident(
  ext_ref String.sub
)
"src/cryptokit.ml" 1318 39596 39659 "src/cryptokit.ml" 1318 39596 39663
type(
  string
)
ident(
  int_ref seed "src/cryptokit.ml" 1314 39465 39482 "src/cryptokit.ml" 1314 39465 39486
)
"src/cryptokit.ml" 1318 39596 39664 "src/cryptokit.ml" 1318 39596 39665
type(
  int
)
"src/cryptokit.ml" 1318 39596 39666 "src/cryptokit.ml" 1318 39596 39668
type(
  int
)
"src/cryptokit.ml" 1318 39596 39647 "src/cryptokit.ml" 1318 39596 39669
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1318 39596 39624 "src/cryptokit.ml" 1318 39596 39670
call(
  stack
)
type(
  Block.aes_encrypt
)
"src/cryptokit.ml" 1318 39596 39602 "src/cryptokit.ml" 1318 39596 39670
call(
  stack
)
type(
  Block.cbc_encrypt
)
"src/cryptokit.ml" 1320 39687 39697 "src/cryptokit.ml" 1320 39687 39698
type(
  bytes
)
ident(
  def s "src/cryptokit.ml" 1321 39725 39731 "src/cryptokit.ml" 1322 39785 39792
)
"src/cryptokit.ml" 1320 39687 39701 "src/cryptokit.ml" 1320 39687 39711
type(
  int -> char -> bytes
)
ident(
  ext_ref Bytes.make
)
"src/cryptokit.ml" 1320 39687 39712 "src/cryptokit.ml" 1320 39687 39714
type(
  int
)
"src/cryptokit.ml" 1320 39687 39715 "src/cryptokit.ml" 1320 39687 39721
type(
  char
)
"src/cryptokit.ml" 1320 39687 39701 "src/cryptokit.ml" 1320 39687 39721
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1321 39725 39731 "src/cryptokit.ml" 1321 39725 39742
type(
  string -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref String.blit
)
"src/cryptokit.ml" 1321 39725 39743 "src/cryptokit.ml" 1321 39725 39747
type(
  string
)
ident(
  int_ref seed "src/cryptokit.ml" 1314 39465 39482 "src/cryptokit.ml" 1314 39465 39486
)
"src/cryptokit.ml" 1321 39725 39748 "src/cryptokit.ml" 1321 39725 39749
type(
  int
)
"src/cryptokit.ml" 1321 39725 39750 "src/cryptokit.ml" 1321 39725 39751
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 1320 39687 39697 "src/cryptokit.ml" 1320 39687 39698
)
"src/cryptokit.ml" 1321 39725 39752 "src/cryptokit.ml" 1321 39725 39753
type(
  int
)
"src/cryptokit.ml" 1321 39725 39755 "src/cryptokit.ml" 1321 39725 39758
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/cryptokit.ml" 1321 39725 39759 "src/cryptokit.ml" 1321 39725 39761
type(
  int
)
"src/cryptokit.ml" 1321 39725 39763 "src/cryptokit.ml" 1321 39725 39776
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1321 39725 39777 "src/cryptokit.ml" 1321 39725 39781
type(
  string
)
ident(
  int_ref seed "src/cryptokit.ml" 1314 39465 39482 "src/cryptokit.ml" 1314 39465 39486
)
"src/cryptokit.ml" 1321 39725 39762 "src/cryptokit.ml" 1321 39725 39782
type(
  int
)
"src/cryptokit.ml" 1321 39725 39754 "src/cryptokit.ml" 1321 39725 39783
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1321 39725 39731 "src/cryptokit.ml" 1321 39725 39783
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1322 39785 39791 "src/cryptokit.ml" 1322 39785 39792
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 1320 39687 39697 "src/cryptokit.ml" 1320 39687 39698
)
"src/cryptokit.ml" 1321 39725 39731 "src/cryptokit.ml" 1322 39785 39792
type(
  bytes
)
"src/cryptokit.ml" 1320 39687 39693 "src/cryptokit.ml" 1322 39785 39792
type(
  bytes
)
"src/cryptokit.ml" 1323 39793 39808 "src/cryptokit.ml" 1323 39793 39820
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 1323 39793 39821 "src/cryptokit.ml" 1323 39793 39823
type(
  int
)
"src/cryptokit.ml" 1323 39793 39808 "src/cryptokit.ml" 1323 39793 39823
type(
  bytes
)
"src/cryptokit.ml" 1324 39824 39847 "src/cryptokit.ml" 1324 39824 39849
type(
  int
)
"src/cryptokit.ml" 1326 39851 39875 "src/cryptokit.ml" 1326 39851 39878
type(
  bytes
)
ident(
  def buf "src/cryptokit.ml" 1326 39851 39879 "src/cryptokit.ml" 1346 40672 40681
)
"src/cryptokit.ml" 1326 39851 39879 "src/cryptokit.ml" 1326 39851 39882
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1326 39851 39883 "src/cryptokit.ml" 1346 40672 40681
)
"src/cryptokit.ml" 1326 39851 39883 "src/cryptokit.ml" 1326 39851 39886
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1327 39889 39895 "src/cryptokit.ml" 1346 40672 40681
)
"src/cryptokit.ml" 1327 39889 39898 "src/cryptokit.ml" 1327 39889 39901
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1326 39851 39883 "src/cryptokit.ml" 1326 39851 39886
)
"src/cryptokit.ml" 1327 39889 39902 "src/cryptokit.ml" 1327 39889 39903
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1327 39889 39904 "src/cryptokit.ml" 1327 39889 39905
type(
  int
)
"src/cryptokit.ml" 1327 39889 39898 "src/cryptokit.ml" 1327 39889 39905
type(
  bool
)
"src/cryptokit.ml" 1328 39917 39928 "src/cryptokit.ml" 1328 39917 39932
type(
  int
)
ident(
  ext_ref opos
)
"src/cryptokit.ml" 1328 39917 39933 "src/cryptokit.ml" 1328 39917 39935
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1328 39917 39936 "src/cryptokit.ml" 1328 39917 39938
type(
  int
)
"src/cryptokit.ml" 1328 39917 39928 "src/cryptokit.ml" 1328 39917 39938
type(
  bool
)
"src/cryptokit.ml" 1330 40012 40030 "src/cryptokit.ml" 1330 40012 40032
type(
  int
)
"src/cryptokit.ml" 1330 40012 40036 "src/cryptokit.ml" 1330 40012 40038
type(
  int
)
"src/cryptokit.ml" 1331 40042 40054 "src/cryptokit.ml" 1331 40042 40063
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1331 40042 40064 "src/cryptokit.ml" 1331 40042 40069
type(
  bytes
)
ident(
  ext_ref state
)
"src/cryptokit.ml" 1331 40042 40070 "src/cryptokit.ml" 1331 40042 40071
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1330 40012 40022 "src/cryptokit.ml" 1334 40208 40222
)
"src/cryptokit.ml" 1332 40072 40087 "src/cryptokit.ml" 1332 40072 40102
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/cryptokit.ml" 1332 40072 40103 "src/cryptokit.ml" 1332 40072 40112
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1332 40072 40114 "src/cryptokit.ml" 1332 40072 40123
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1332 40072 40124 "src/cryptokit.ml" 1332 40072 40129
type(
  bytes
)
ident(
  ext_ref state
)
"src/cryptokit.ml" 1332 40072 40131 "src/cryptokit.ml" 1332 40072 40132
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1330 40012 40022 "src/cryptokit.ml" 1334 40208 40222
)
"src/cryptokit.ml" 1332 40072 40132 "src/cryptokit.ml" 1332 40072 40133
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1332 40072 40133 "src/cryptokit.ml" 1332 40072 40135
type(
  int
)
"src/cryptokit.ml" 1332 40072 40130 "src/cryptokit.ml" 1332 40072 40136
type(
  int
)
"src/cryptokit.ml" 1332 40072 40113 "src/cryptokit.ml" 1332 40072 40137
type(
  char
)
"src/cryptokit.ml" 1332 40072 40103 "src/cryptokit.ml" 1332 40072 40137
type(
  int
)
"src/cryptokit.ml" 1332 40072 40138 "src/cryptokit.ml" 1332 40072 40139
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1333 40140 40171 "src/cryptokit.ml" 1333 40140 40180
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1333 40140 40182 "src/cryptokit.ml" 1333 40140 40191
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1333 40140 40192 "src/cryptokit.ml" 1333 40140 40197
type(
  bytes
)
ident(
  ext_ref state
)
"src/cryptokit.ml" 1333 40140 40199 "src/cryptokit.ml" 1333 40140 40200
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1330 40012 40022 "src/cryptokit.ml" 1334 40208 40222
)
"src/cryptokit.ml" 1333 40140 40200 "src/cryptokit.ml" 1333 40140 40201
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1333 40140 40201 "src/cryptokit.ml" 1333 40140 40203
type(
  int
)
"src/cryptokit.ml" 1333 40140 40198 "src/cryptokit.ml" 1333 40140 40204
type(
  int
)
"src/cryptokit.ml" 1333 40140 40181 "src/cryptokit.ml" 1333 40140 40205
type(
  char
)
"src/cryptokit.ml" 1333 40140 40171 "src/cryptokit.ml" 1333 40140 40205
type(
  int
)
"src/cryptokit.ml" 1332 40072 40102 "src/cryptokit.ml" 1333 40140 40206
type(
  int
)
"src/cryptokit.ml" 1332 40072 40086 "src/cryptokit.ml" 1333 40140 40207
type(
  char
)
"src/cryptokit.ml" 1331 40042 40054 "src/cryptokit.ml" 1333 40140 40207
type(
  unit
)
"src/cryptokit.ml" 1330 40012 40022 "src/cryptokit.ml" 1334 40208 40222
type(
  unit
)
"src/cryptokit.ml" 1336 40267 40277 "src/cryptokit.ml" 1336 40267 40283
type(
  Block.cbc_encrypt
)
ident(
  ext_ref cipher
)
"src/cryptokit.ml" 1336 40267 40277 "src/cryptokit.ml" 1336 40267 40293
call(
  stack
)
type(
  bytes -> int -> bytes -> int -> unit
)
"src/cryptokit.ml" 1336 40267 40294 "src/cryptokit.ml" 1336 40267 40299
type(
  bytes
)
ident(
  ext_ref state
)
"src/cryptokit.ml" 1336 40267 40300 "src/cryptokit.ml" 1336 40267 40302
type(
  int
)
"src/cryptokit.ml" 1336 40267 40303 "src/cryptokit.ml" 1336 40267 40307
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1336 40267 40308 "src/cryptokit.ml" 1336 40267 40309
type(
  int
)
"src/cryptokit.ml" 1336 40267 40277 "src/cryptokit.ml" 1336 40267 40309
type(
  unit
)
"src/cryptokit.ml" 1338 40365 40375 "src/cryptokit.ml" 1338 40365 40385
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 1338 40365 40386 "src/cryptokit.ml" 1338 40365 40391
type(
  bytes
)
ident(
  ext_ref state
)
"src/cryptokit.ml" 1338 40365 40392 "src/cryptokit.ml" 1338 40365 40394
type(
  int
)
"src/cryptokit.ml" 1338 40365 40395 "src/cryptokit.ml" 1338 40365 40400
type(
  bytes
)
ident(
  ext_ref state
)
"src/cryptokit.ml" 1338 40365 40401 "src/cryptokit.ml" 1338 40365 40402
type(
  int
)
"src/cryptokit.ml" 1338 40365 40403 "src/cryptokit.ml" 1338 40365 40405
type(
  int
)
"src/cryptokit.ml" 1338 40365 40375 "src/cryptokit.ml" 1338 40365 40405
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1340 40468 40486 "src/cryptokit.ml" 1340 40468 40487
type(
  int
)
"src/cryptokit.ml" 1340 40468 40478 "src/cryptokit.ml" 1340 40468 40487
type(
  unit
)
"src/cryptokit.ml" 1338 40365 40375 "src/cryptokit.ml" 1340 40468 40487
type(
  unit
)
"src/cryptokit.ml" 1336 40267 40277 "src/cryptokit.ml" 1340 40468 40487
type(
  unit
)
"src/cryptokit.ml" 1328 39917 39944 "src/cryptokit.ml" 1341 40488 40499
type(
  unit
)
"src/cryptokit.ml" 1328 39917 39925 "src/cryptokit.ml" 1341 40488 40499
type(
  unit
)
"src/cryptokit.ml" 1342 40501 40513 "src/cryptokit.ml" 1342 40501 40514
type(
  int
)
ident(
  def r "src/cryptokit.ml" 1343 40540 40548 "src/cryptokit.ml" 1345 40606 40671
)
"src/cryptokit.ml" 1342 40501 40517 "src/cryptokit.ml" 1342 40501 40520
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/cryptokit.ml" 1342 40501 40522 "src/cryptokit.ml" 1342 40501 40524
type(
  int
)
"src/cryptokit.ml" 1342 40501 40525 "src/cryptokit.ml" 1342 40501 40526
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1342 40501 40527 "src/cryptokit.ml" 1342 40501 40531
type(
  int
)
ident(
  ext_ref opos
)
"src/cryptokit.ml" 1342 40501 40521 "src/cryptokit.ml" 1342 40501 40532
type(
  int
)
"src/cryptokit.ml" 1342 40501 40533 "src/cryptokit.ml" 1342 40501 40536
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1326 39851 39883 "src/cryptokit.ml" 1326 39851 39886
)
"src/cryptokit.ml" 1342 40501 40517 "src/cryptokit.ml" 1342 40501 40536
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1343 40540 40548 "src/cryptokit.ml" 1343 40540 40558
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.blit
)
"src/cryptokit.ml" 1343 40540 40559 "src/cryptokit.ml" 1343 40540 40563
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1343 40540 40564 "src/cryptokit.ml" 1343 40540 40568
type(
  int
)
ident(
  ext_ref opos
)
"src/cryptokit.ml" 1343 40540 40569 "src/cryptokit.ml" 1343 40540 40572
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1326 39851 39875 "src/cryptokit.ml" 1326 39851 39878
)
"src/cryptokit.ml" 1343 40540 40573 "src/cryptokit.ml" 1343 40540 40576
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1326 39851 39879 "src/cryptokit.ml" 1326 39851 39882
)
"src/cryptokit.ml" 1343 40540 40577 "src/cryptokit.ml" 1343 40540 40578
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1342 40501 40513 "src/cryptokit.ml" 1342 40501 40514
)
"src/cryptokit.ml" 1343 40540 40548 "src/cryptokit.ml" 1343 40540 40578
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1344 40580 40596 "src/cryptokit.ml" 1344 40580 40600
type(
  int
)
ident(
  ext_ref opos
)
"src/cryptokit.ml" 1344 40580 40601 "src/cryptokit.ml" 1344 40580 40602
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1344 40580 40603 "src/cryptokit.ml" 1344 40580 40604
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1342 40501 40513 "src/cryptokit.ml" 1342 40501 40514
)
"src/cryptokit.ml" 1344 40580 40596 "src/cryptokit.ml" 1344 40580 40604
type(
  int
)
"src/cryptokit.ml" 1344 40580 40588 "src/cryptokit.ml" 1344 40580 40604
type(
  unit
)
"src/cryptokit.ml" 1345 40606 40617 "src/cryptokit.ml" 1345 40606 40618
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1342 40501 40513 "src/cryptokit.ml" 1342 40501 40514
)
"src/cryptokit.ml" 1345 40606 40619 "src/cryptokit.ml" 1345 40606 40620
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1345 40606 40621 "src/cryptokit.ml" 1345 40606 40624
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1326 39851 39883 "src/cryptokit.ml" 1326 39851 39886
)
"src/cryptokit.ml" 1345 40606 40617 "src/cryptokit.ml" 1345 40606 40624
type(
  bool
)
"src/cryptokit.ml" 1345 40606 40630 "src/cryptokit.ml" 1345 40606 40634
type(
  < random_bytes : bytes -> int -> int -> unit; wipe : unit; .. > as 'e
)
ident(
  int_ref self "src/cryptokit.ml" 1316 39563 39572 "src/cryptokit.ml" 1316 39563 39578
)
"src/cryptokit.ml" 1345 40606 40630 "src/cryptokit.ml" 1345 40606 40647
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1345 40606 40648 "src/cryptokit.ml" 1345 40606 40651
type(
  bytes
)
ident(
  int_ref buf "src/cryptokit.ml" 1326 39851 39875 "src/cryptokit.ml" 1326 39851 39878
)
"src/cryptokit.ml" 1345 40606 40653 "src/cryptokit.ml" 1345 40606 40656
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1326 39851 39879 "src/cryptokit.ml" 1326 39851 39882
)
"src/cryptokit.ml" 1345 40606 40657 "src/cryptokit.ml" 1345 40606 40658
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1345 40606 40659 "src/cryptokit.ml" 1345 40606 40660
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1342 40501 40513 "src/cryptokit.ml" 1342 40501 40514
)
"src/cryptokit.ml" 1345 40606 40652 "src/cryptokit.ml" 1345 40606 40661
type(
  int
)
"src/cryptokit.ml" 1345 40606 40663 "src/cryptokit.ml" 1345 40606 40666
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1326 39851 39883 "src/cryptokit.ml" 1326 39851 39886
)
"src/cryptokit.ml" 1345 40606 40667 "src/cryptokit.ml" 1345 40606 40668
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1345 40606 40669 "src/cryptokit.ml" 1345 40606 40670
type(
  int
)
ident(
  int_ref r "src/cryptokit.ml" 1342 40501 40513 "src/cryptokit.ml" 1342 40501 40514
)
"src/cryptokit.ml" 1345 40606 40662 "src/cryptokit.ml" 1345 40606 40671
type(
  int
)
"src/cryptokit.ml" 1345 40606 40630 "src/cryptokit.ml" 1345 40606 40671
type(
  unit
)
"src/cryptokit.ml" 1345 40606 40614 "src/cryptokit.ml" 1345 40606 40671
type(
  unit
)
"src/cryptokit.ml" 1344 40580 40588 "src/cryptokit.ml" 1345 40606 40671
type(
  unit
)
"src/cryptokit.ml" 1343 40540 40548 "src/cryptokit.ml" 1345 40606 40671
type(
  unit
)
"src/cryptokit.ml" 1342 40501 40509 "src/cryptokit.ml" 1345 40606 40671
type(
  unit
)
"src/cryptokit.ml" 1327 39889 39911 "src/cryptokit.ml" 1346 40672 40681
type(
  unit
)
"src/cryptokit.ml" 1327 39889 39895 "src/cryptokit.ml" 1346 40672 40681
type(
  unit
)
"src/cryptokit.ml" 1349 40701 40707 "src/cryptokit.ml" 1349 40701 40717
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 1349 40701 40718 "src/cryptokit.ml" 1349 40701 40722
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1349 40701 40707 "src/cryptokit.ml" 1349 40701 40722
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1349 40701 40724 "src/cryptokit.ml" 1349 40701 40735
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1349 40701 40736 "src/cryptokit.ml" 1349 40701 40740
type(
  string
)
ident(
  int_ref seed "src/cryptokit.ml" 1314 39465 39482 "src/cryptokit.ml" 1314 39465 39486
)
"src/cryptokit.ml" 1349 40701 40724 "src/cryptokit.ml" 1349 40701 40740
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1349 40701 40707 "src/cryptokit.ml" 1349 40701 40740
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1352 40748 40754 "src/cryptokit.ml" 1352 40748 40764
type(
  string -> pseudo_rng
)
ident(
  def pseudo_rng "src/cryptokit.ml" 1352 40748 40791 "src/cryptokit.ml" 1354 40793 40796
)
"src/cryptokit.ml" 1352 40748 40765 "src/cryptokit.ml" 1352 40748 40769
type(
  string
)
ident(
  def seed "src/cryptokit.ml" 1352 40748 40772 "src/cryptokit.ml" 1352 40748 40791
)
"src/cryptokit.ml" 1352 40748 40772 "src/cryptokit.ml" 1352 40748 40786
type(
  string -> pseudo_rng
)
"src/cryptokit.ml" 1352 40748 40787 "src/cryptokit.ml" 1352 40748 40791
type(
  string
)
ident(
  int_ref seed "src/cryptokit.ml" 1352 40748 40765 "src/cryptokit.ml" 1352 40748 40769
)
"src/cryptokit.ml" 1352 40748 40772 "src/cryptokit.ml" 1352 40748 40791
call(
  tail
)
type(
  pseudo_rng
)
"src/cryptokit.ml" 1373 41023 41027 "src/cryptokit.ml" 1373 41023 41035
type(
  key -> unit
)
ident(
  def wipe_key "src/cryptokit.ml" 1383 41197 41197 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
type(
  key
)
ident(
  def k "src/cryptokit.ml" 1374 41040 41042 "src/cryptokit.ml" 1381 41175 41195
)
"src/cryptokit.ml" 1374 41040 41042 "src/cryptokit.ml" 1374 41040 41053
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1374 41040 41054 "src/cryptokit.ml" 1374 41040 41055
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1374 41040 41054 "src/cryptokit.ml" 1374 41040 41057
type(
  string
)
"src/cryptokit.ml" 1374 41040 41042 "src/cryptokit.ml" 1374 41040 41057
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1375 41059 41061 "src/cryptokit.ml" 1375 41059 41072
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1375 41059 41073 "src/cryptokit.ml" 1375 41059 41074
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1375 41059 41073 "src/cryptokit.ml" 1375 41059 41076
type(
  string
)
"src/cryptokit.ml" 1375 41059 41061 "src/cryptokit.ml" 1375 41059 41076
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1376 41078 41080 "src/cryptokit.ml" 1376 41078 41091
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1376 41078 41092 "src/cryptokit.ml" 1376 41078 41093
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1376 41078 41092 "src/cryptokit.ml" 1376 41078 41095
type(
  string
)
"src/cryptokit.ml" 1376 41078 41080 "src/cryptokit.ml" 1376 41078 41095
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1377 41097 41099 "src/cryptokit.ml" 1377 41097 41110
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1377 41097 41111 "src/cryptokit.ml" 1377 41097 41112
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1377 41097 41111 "src/cryptokit.ml" 1377 41097 41114
type(
  string
)
"src/cryptokit.ml" 1377 41097 41099 "src/cryptokit.ml" 1377 41097 41114
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1378 41116 41118 "src/cryptokit.ml" 1378 41116 41129
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1378 41116 41130 "src/cryptokit.ml" 1378 41116 41131
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1378 41116 41130 "src/cryptokit.ml" 1378 41116 41133
type(
  string
)
"src/cryptokit.ml" 1378 41116 41118 "src/cryptokit.ml" 1378 41116 41133
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1379 41135 41137 "src/cryptokit.ml" 1379 41135 41148
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1379 41135 41149 "src/cryptokit.ml" 1379 41135 41150
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1379 41135 41149 "src/cryptokit.ml" 1379 41135 41153
type(
  string
)
"src/cryptokit.ml" 1379 41135 41137 "src/cryptokit.ml" 1379 41135 41153
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1380 41155 41157 "src/cryptokit.ml" 1380 41155 41168
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1380 41155 41169 "src/cryptokit.ml" 1380 41155 41170
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1380 41155 41169 "src/cryptokit.ml" 1380 41155 41173
type(
  string
)
"src/cryptokit.ml" 1380 41155 41157 "src/cryptokit.ml" 1380 41155 41173
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1381 41175 41177 "src/cryptokit.ml" 1381 41175 41188
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1381 41175 41189 "src/cryptokit.ml" 1381 41175 41190
type(
  key
)
ident(
  int_ref k "src/cryptokit.ml" 1373 41023 41036 "src/cryptokit.ml" 1373 41023 41037
)
"src/cryptokit.ml" 1381 41175 41189 "src/cryptokit.ml" 1381 41175 41195
type(
  string
)
"src/cryptokit.ml" 1381 41175 41177 "src/cryptokit.ml" 1381 41175 41195
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1380 41155 41157 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1379 41135 41137 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1378 41116 41118 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1377 41097 41099 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1376 41078 41080 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1375 41059 41061 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1374 41040 41042 "src/cryptokit.ml" 1381 41175 41195
type(
  unit
)
"src/cryptokit.ml" 1383 41197 41201 "src/cryptokit.ml" 1383 41197 41208
type(
  key -> string -> string
)
ident(
  def encrypt "src/cryptokit.ml" 1393 41508 41508 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1383 41197 41209 "src/cryptokit.ml" 1383 41197 41212
type(
  key
)
ident(
  def key "src/cryptokit.ml" 1383 41197 41213 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1383 41197 41213 "src/cryptokit.ml" 1383 41197 41216
type(
  string
)
ident(
  def msg "src/cryptokit.ml" 1384 41219 41221 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1384 41219 41225 "src/cryptokit.ml" 1384 41219 41228
type(
  Bn.t
)
ident(
  def msg "src/cryptokit.ml" 1385 41250 41252 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1384 41219 41231 "src/cryptokit.ml" 1384 41219 41242
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1384 41219 41243 "src/cryptokit.ml" 1384 41219 41246
type(
  string
)
ident(
  int_ref msg "src/cryptokit.ml" 1383 41197 41213 "src/cryptokit.ml" 1383 41197 41216
)
"src/cryptokit.ml" 1384 41219 41231 "src/cryptokit.ml" 1384 41219 41246
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1385 41250 41256 "src/cryptokit.ml" 1385 41250 41257
type(
  Bn.t
)
ident(
  def n "src/cryptokit.ml" 1386 41281 41283 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1385 41250 41260 "src/cryptokit.ml" 1385 41250 41271
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1385 41250 41272 "src/cryptokit.ml" 1385 41250 41275
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1383 41197 41209 "src/cryptokit.ml" 1383 41197 41212
)
"src/cryptokit.ml" 1385 41250 41272 "src/cryptokit.ml" 1385 41250 41277
type(
  string
)
"src/cryptokit.ml" 1385 41250 41260 "src/cryptokit.ml" 1385 41250 41277
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1386 41281 41287 "src/cryptokit.ml" 1386 41281 41288
type(
  Bn.t
)
ident(
  def e "src/cryptokit.ml" 1387 41312 41314 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1386 41281 41291 "src/cryptokit.ml" 1386 41281 41302
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1386 41281 41303 "src/cryptokit.ml" 1386 41281 41306
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1383 41197 41209 "src/cryptokit.ml" 1383 41197 41212
)
"src/cryptokit.ml" 1386 41281 41303 "src/cryptokit.ml" 1386 41281 41308
type(
  string
)
"src/cryptokit.ml" 1386 41281 41291 "src/cryptokit.ml" 1386 41281 41308
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1387 41312 41317 "src/cryptokit.ml" 1387 41312 41327
type(
  Bn.t -> Bn.t -> int
)
ident(
  ext_ref Bn.compare
)
"src/cryptokit.ml" 1387 41312 41328 "src/cryptokit.ml" 1387 41312 41331
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1384 41219 41225 "src/cryptokit.ml" 1384 41219 41228
)
"src/cryptokit.ml" 1387 41312 41332 "src/cryptokit.ml" 1387 41312 41333
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1385 41250 41256 "src/cryptokit.ml" 1385 41250 41257
)
"src/cryptokit.ml" 1387 41312 41317 "src/cryptokit.ml" 1387 41312 41333
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1387 41312 41334 "src/cryptokit.ml" 1387 41312 41336
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1387 41312 41337 "src/cryptokit.ml" 1387 41312 41338
type(
  int
)
"src/cryptokit.ml" 1387 41312 41317 "src/cryptokit.ml" 1387 41312 41338
type(
  bool
)
"src/cryptokit.ml" 1387 41312 41344 "src/cryptokit.ml" 1387 41312 41349
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1387 41312 41357 "src/cryptokit.ml" 1387 41312 41373
type(
  error
)
"src/cryptokit.ml" 1387 41312 41350 "src/cryptokit.ml" 1387 41312 41374
type(
  exn
)
"src/cryptokit.ml" 1387 41312 41344 "src/cryptokit.ml" 1387 41312 41374
type(
  unit
)
"src/cryptokit.ml" 1387 41312 41314 "src/cryptokit.ml" 1387 41312 41374
type(
  unit
)
"src/cryptokit.ml" 1388 41376 41382 "src/cryptokit.ml" 1388 41376 41383
type(
  Bn.t
)
ident(
  def r "src/cryptokit.ml" 1389 41410 41412 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1388 41376 41386 "src/cryptokit.ml" 1388 41376 41398
type(
  Bn.t -> Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_power
)
"src/cryptokit.ml" 1388 41376 41399 "src/cryptokit.ml" 1388 41376 41402
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1384 41219 41225 "src/cryptokit.ml" 1384 41219 41228
)
"src/cryptokit.ml" 1388 41376 41403 "src/cryptokit.ml" 1388 41376 41404
type(
  Bn.t
)
ident(
  int_ref e "src/cryptokit.ml" 1386 41281 41287 "src/cryptokit.ml" 1386 41281 41288
)
"src/cryptokit.ml" 1388 41376 41405 "src/cryptokit.ml" 1388 41376 41406
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1385 41250 41256 "src/cryptokit.ml" 1385 41250 41257
)
"src/cryptokit.ml" 1388 41376 41386 "src/cryptokit.ml" 1388 41376 41406
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1389 41410 41416 "src/cryptokit.ml" 1389 41410 41417
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1390 41455 41457 "src/cryptokit.ml" 1391 41503 41506
)
"src/cryptokit.ml" 1389 41410 41420 "src/cryptokit.ml" 1389 41410 41431
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1389 41410 41441 "src/cryptokit.ml" 1389 41410 41444
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1383 41197 41209 "src/cryptokit.ml" 1383 41197 41212
)
"src/cryptokit.ml" 1389 41410 41441 "src/cryptokit.ml" 1389 41410 41449
type(
  int
)
"src/cryptokit.ml" 1389 41410 41450 "src/cryptokit.ml" 1389 41410 41451
type(
  Bn.t
)
ident(
  int_ref r "src/cryptokit.ml" 1388 41376 41382 "src/cryptokit.ml" 1388 41376 41383
)
"src/cryptokit.ml" 1389 41410 41420 "src/cryptokit.ml" 1389 41410 41451
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1390 41455 41457 "src/cryptokit.ml" 1390 41455 41464
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1390 41455 41465 "src/cryptokit.ml" 1390 41455 41468
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1384 41219 41225 "src/cryptokit.ml" 1384 41219 41228
)
"src/cryptokit.ml" 1390 41455 41457 "src/cryptokit.ml" 1390 41455 41468
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1390 41455 41470 "src/cryptokit.ml" 1390 41455 41477
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1390 41455 41478 "src/cryptokit.ml" 1390 41455 41479
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1385 41250 41256 "src/cryptokit.ml" 1385 41250 41257
)
"src/cryptokit.ml" 1390 41455 41470 "src/cryptokit.ml" 1390 41455 41479
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1390 41455 41481 "src/cryptokit.ml" 1390 41455 41488
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1390 41455 41489 "src/cryptokit.ml" 1390 41455 41490
type(
  Bn.t
)
ident(
  int_ref e "src/cryptokit.ml" 1386 41281 41287 "src/cryptokit.ml" 1386 41281 41288
)
"src/cryptokit.ml" 1390 41455 41481 "src/cryptokit.ml" 1390 41455 41490
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1390 41455 41492 "src/cryptokit.ml" 1390 41455 41499
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1390 41455 41500 "src/cryptokit.ml" 1390 41455 41501
type(
  Bn.t
)
ident(
  int_ref r "src/cryptokit.ml" 1388 41376 41382 "src/cryptokit.ml" 1388 41376 41383
)
"src/cryptokit.ml" 1390 41455 41492 "src/cryptokit.ml" 1390 41455 41501
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1391 41503 41505 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1389 41410 41416 "src/cryptokit.ml" 1389 41410 41417
)
"src/cryptokit.ml" 1390 41455 41492 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1390 41455 41481 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1390 41455 41470 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1390 41455 41457 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1389 41410 41412 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1388 41376 41378 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1387 41312 41314 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1386 41281 41283 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1385 41250 41252 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1384 41219 41221 "src/cryptokit.ml" 1391 41503 41506
type(
  string
)
"src/cryptokit.ml" 1393 41508 41512 "src/cryptokit.ml" 1393 41508 41528
type(
  key -> string -> string
)
ident(
  def unwrap_signature "src/cryptokit.ml" 1395 41540 41540 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1393 41508 41531 "src/cryptokit.ml" 1393 41508 41538
type(
  key -> string -> string
)
ident(
  int_ref encrypt "src/cryptokit.ml" 1383 41197 41201 "src/cryptokit.ml" 1383 41197 41208
)
"src/cryptokit.ml" 1395 41540 41544 "src/cryptokit.ml" 1395 41540 41551
type(
  key -> string -> string
)
ident(
  def decrypt "src/cryptokit.ml" 1405 41851 41851 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1395 41540 41552 "src/cryptokit.ml" 1395 41540 41555
type(
  key
)
ident(
  def key "src/cryptokit.ml" 1395 41540 41556 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1395 41540 41556 "src/cryptokit.ml" 1395 41540 41559
type(
  string
)
ident(
  def msg "src/cryptokit.ml" 1396 41562 41564 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1396 41562 41568 "src/cryptokit.ml" 1396 41562 41571
type(
  Bn.t
)
ident(
  def msg "src/cryptokit.ml" 1397 41593 41595 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1396 41562 41574 "src/cryptokit.ml" 1396 41562 41585
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1396 41562 41586 "src/cryptokit.ml" 1396 41562 41589
type(
  string
)
ident(
  int_ref msg "src/cryptokit.ml" 1395 41540 41556 "src/cryptokit.ml" 1395 41540 41559
)
"src/cryptokit.ml" 1396 41562 41574 "src/cryptokit.ml" 1396 41562 41589
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1397 41593 41599 "src/cryptokit.ml" 1397 41593 41600
type(
  Bn.t
)
ident(
  def n "src/cryptokit.ml" 1398 41624 41626 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1397 41593 41603 "src/cryptokit.ml" 1397 41593 41614
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1397 41593 41615 "src/cryptokit.ml" 1397 41593 41618
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1395 41540 41552 "src/cryptokit.ml" 1395 41540 41555
)
"src/cryptokit.ml" 1397 41593 41615 "src/cryptokit.ml" 1397 41593 41620
type(
  string
)
"src/cryptokit.ml" 1397 41593 41603 "src/cryptokit.ml" 1397 41593 41620
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1398 41624 41630 "src/cryptokit.ml" 1398 41624 41631
type(
  Bn.t
)
ident(
  def d "src/cryptokit.ml" 1399 41655 41657 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1398 41624 41634 "src/cryptokit.ml" 1398 41624 41645
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1398 41624 41646 "src/cryptokit.ml" 1398 41624 41649
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1395 41540 41552 "src/cryptokit.ml" 1395 41540 41555
)
"src/cryptokit.ml" 1398 41624 41646 "src/cryptokit.ml" 1398 41624 41651
type(
  string
)
"src/cryptokit.ml" 1398 41624 41634 "src/cryptokit.ml" 1398 41624 41651
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1399 41655 41660 "src/cryptokit.ml" 1399 41655 41670
type(
  Bn.t -> Bn.t -> int
)
ident(
  ext_ref Bn.compare
)
"src/cryptokit.ml" 1399 41655 41671 "src/cryptokit.ml" 1399 41655 41674
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1396 41562 41568 "src/cryptokit.ml" 1396 41562 41571
)
"src/cryptokit.ml" 1399 41655 41675 "src/cryptokit.ml" 1399 41655 41676
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1397 41593 41599 "src/cryptokit.ml" 1397 41593 41600
)
"src/cryptokit.ml" 1399 41655 41660 "src/cryptokit.ml" 1399 41655 41676
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1399 41655 41677 "src/cryptokit.ml" 1399 41655 41679
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1399 41655 41680 "src/cryptokit.ml" 1399 41655 41681
type(
  int
)
"src/cryptokit.ml" 1399 41655 41660 "src/cryptokit.ml" 1399 41655 41681
type(
  bool
)
"src/cryptokit.ml" 1399 41655 41687 "src/cryptokit.ml" 1399 41655 41692
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1399 41655 41700 "src/cryptokit.ml" 1399 41655 41716
type(
  error
)
"src/cryptokit.ml" 1399 41655 41693 "src/cryptokit.ml" 1399 41655 41717
type(
  exn
)
"src/cryptokit.ml" 1399 41655 41687 "src/cryptokit.ml" 1399 41655 41717
type(
  unit
)
"src/cryptokit.ml" 1399 41655 41657 "src/cryptokit.ml" 1399 41655 41717
type(
  unit
)
"src/cryptokit.ml" 1400 41719 41725 "src/cryptokit.ml" 1400 41719 41726
type(
  Bn.t
)
ident(
  def r "src/cryptokit.ml" 1401 41753 41755 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1400 41719 41729 "src/cryptokit.ml" 1400 41719 41741
type(
  Bn.t -> Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_power
)
"src/cryptokit.ml" 1400 41719 41742 "src/cryptokit.ml" 1400 41719 41745
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1396 41562 41568 "src/cryptokit.ml" 1396 41562 41571
)
"src/cryptokit.ml" 1400 41719 41746 "src/cryptokit.ml" 1400 41719 41747
type(
  Bn.t
)
ident(
  int_ref d "src/cryptokit.ml" 1398 41624 41630 "src/cryptokit.ml" 1398 41624 41631
)
"src/cryptokit.ml" 1400 41719 41748 "src/cryptokit.ml" 1400 41719 41749
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1397 41593 41599 "src/cryptokit.ml" 1397 41593 41600
)
"src/cryptokit.ml" 1400 41719 41729 "src/cryptokit.ml" 1400 41719 41749
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1401 41753 41759 "src/cryptokit.ml" 1401 41753 41760
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1402 41798 41800 "src/cryptokit.ml" 1403 41846 41849
)
"src/cryptokit.ml" 1401 41753 41763 "src/cryptokit.ml" 1401 41753 41774
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1401 41753 41784 "src/cryptokit.ml" 1401 41753 41787
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1395 41540 41552 "src/cryptokit.ml" 1395 41540 41555
)
"src/cryptokit.ml" 1401 41753 41784 "src/cryptokit.ml" 1401 41753 41792
type(
  int
)
"src/cryptokit.ml" 1401 41753 41793 "src/cryptokit.ml" 1401 41753 41794
type(
  Bn.t
)
ident(
  int_ref r "src/cryptokit.ml" 1400 41719 41725 "src/cryptokit.ml" 1400 41719 41726
)
"src/cryptokit.ml" 1401 41753 41763 "src/cryptokit.ml" 1401 41753 41794
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1402 41798 41800 "src/cryptokit.ml" 1402 41798 41807
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1402 41798 41808 "src/cryptokit.ml" 1402 41798 41811
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1396 41562 41568 "src/cryptokit.ml" 1396 41562 41571
)
"src/cryptokit.ml" 1402 41798 41800 "src/cryptokit.ml" 1402 41798 41811
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1402 41798 41813 "src/cryptokit.ml" 1402 41798 41820
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1402 41798 41821 "src/cryptokit.ml" 1402 41798 41822
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1397 41593 41599 "src/cryptokit.ml" 1397 41593 41600
)
"src/cryptokit.ml" 1402 41798 41813 "src/cryptokit.ml" 1402 41798 41822
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1402 41798 41824 "src/cryptokit.ml" 1402 41798 41831
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1402 41798 41832 "src/cryptokit.ml" 1402 41798 41833
type(
  Bn.t
)
ident(
  int_ref d "src/cryptokit.ml" 1398 41624 41630 "src/cryptokit.ml" 1398 41624 41631
)
"src/cryptokit.ml" 1402 41798 41824 "src/cryptokit.ml" 1402 41798 41833
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1402 41798 41835 "src/cryptokit.ml" 1402 41798 41842
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1402 41798 41843 "src/cryptokit.ml" 1402 41798 41844
type(
  Bn.t
)
ident(
  int_ref r "src/cryptokit.ml" 1400 41719 41725 "src/cryptokit.ml" 1400 41719 41726
)
"src/cryptokit.ml" 1402 41798 41835 "src/cryptokit.ml" 1402 41798 41844
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1403 41846 41848 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1401 41753 41759 "src/cryptokit.ml" 1401 41753 41760
)
"src/cryptokit.ml" 1402 41798 41835 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1402 41798 41824 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1402 41798 41813 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1402 41798 41800 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1401 41753 41755 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1400 41719 41721 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1399 41655 41657 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1398 41624 41626 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1397 41593 41595 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1396 41562 41564 "src/cryptokit.ml" 1403 41846 41849
type(
  string
)
"src/cryptokit.ml" 1405 41851 41855 "src/cryptokit.ml" 1405 41851 41859
type(
  key -> string -> string
)
ident(
  def sign "src/cryptokit.ml" 1407 41871 41871 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1405 41851 41862 "src/cryptokit.ml" 1405 41851 41869
type(
  key -> string -> string
)
ident(
  int_ref decrypt "src/cryptokit.ml" 1395 41540 41544 "src/cryptokit.ml" 1395 41540 41551
)
"src/cryptokit.ml" 1407 41871 41875 "src/cryptokit.ml" 1407 41871 41886
type(
  key -> string -> string
)
ident(
  def decrypt_CRT "src/cryptokit.ml" 1422 42386 42386 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
type(
  key
)
ident(
  def key "src/cryptokit.ml" 1407 41871 41891 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1407 41871 41891 "src/cryptokit.ml" 1407 41871 41894
type(
  string
)
ident(
  def msg "src/cryptokit.ml" 1408 41897 41899 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1408 41897 41903 "src/cryptokit.ml" 1408 41897 41906
type(
  Bn.t
)
ident(
  def msg "src/cryptokit.ml" 1409 41928 41930 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1408 41897 41909 "src/cryptokit.ml" 1408 41897 41920
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1408 41897 41921 "src/cryptokit.ml" 1408 41897 41924
type(
  string
)
ident(
  int_ref msg "src/cryptokit.ml" 1407 41871 41891 "src/cryptokit.ml" 1407 41871 41894
)
"src/cryptokit.ml" 1408 41897 41909 "src/cryptokit.ml" 1408 41897 41924
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1409 41928 41934 "src/cryptokit.ml" 1409 41928 41935
type(
  Bn.t
)
ident(
  def n "src/cryptokit.ml" 1410 41959 41961 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1409 41928 41938 "src/cryptokit.ml" 1409 41928 41949
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1409 41928 41950 "src/cryptokit.ml" 1409 41928 41953
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1409 41928 41950 "src/cryptokit.ml" 1409 41928 41955
type(
  string
)
"src/cryptokit.ml" 1409 41928 41938 "src/cryptokit.ml" 1409 41928 41955
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1410 41959 41965 "src/cryptokit.ml" 1410 41959 41966
type(
  Bn.t
)
ident(
  def p "src/cryptokit.ml" 1411 41990 41992 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1410 41959 41969 "src/cryptokit.ml" 1410 41959 41980
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1410 41959 41981 "src/cryptokit.ml" 1410 41959 41984
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1410 41959 41981 "src/cryptokit.ml" 1410 41959 41986
type(
  string
)
"src/cryptokit.ml" 1410 41959 41969 "src/cryptokit.ml" 1410 41959 41986
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1411 41990 41996 "src/cryptokit.ml" 1411 41990 41997
type(
  Bn.t
)
ident(
  def q "src/cryptokit.ml" 1412 42021 42023 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1411 41990 42000 "src/cryptokit.ml" 1411 41990 42011
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1411 41990 42012 "src/cryptokit.ml" 1411 41990 42015
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1411 41990 42012 "src/cryptokit.ml" 1411 41990 42017
type(
  string
)
"src/cryptokit.ml" 1411 41990 42000 "src/cryptokit.ml" 1411 41990 42017
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1412 42021 42027 "src/cryptokit.ml" 1412 42021 42029
type(
  Bn.t
)
ident(
  def dp "src/cryptokit.ml" 1413 42054 42056 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1412 42021 42032 "src/cryptokit.ml" 1412 42021 42043
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1412 42021 42044 "src/cryptokit.ml" 1412 42021 42047
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1412 42021 42044 "src/cryptokit.ml" 1412 42021 42050
type(
  string
)
"src/cryptokit.ml" 1412 42021 42032 "src/cryptokit.ml" 1412 42021 42050
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1413 42054 42060 "src/cryptokit.ml" 1413 42054 42062
type(
  Bn.t
)
ident(
  def dq "src/cryptokit.ml" 1414 42087 42089 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1413 42054 42065 "src/cryptokit.ml" 1413 42054 42076
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1413 42054 42077 "src/cryptokit.ml" 1413 42054 42080
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1413 42054 42077 "src/cryptokit.ml" 1413 42054 42083
type(
  string
)
"src/cryptokit.ml" 1413 42054 42065 "src/cryptokit.ml" 1413 42054 42083
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1414 42087 42093 "src/cryptokit.ml" 1414 42087 42097
type(
  Bn.t
)
ident(
  def qinv "src/cryptokit.ml" 1415 42124 42126 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1414 42087 42100 "src/cryptokit.ml" 1414 42087 42111
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1414 42087 42112 "src/cryptokit.ml" 1414 42087 42115
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1414 42087 42112 "src/cryptokit.ml" 1414 42087 42120
type(
  string
)
"src/cryptokit.ml" 1414 42087 42100 "src/cryptokit.ml" 1414 42087 42120
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1415 42124 42129 "src/cryptokit.ml" 1415 42124 42139
type(
  Bn.t -> Bn.t -> int
)
ident(
  ext_ref Bn.compare
)
"src/cryptokit.ml" 1415 42124 42140 "src/cryptokit.ml" 1415 42124 42143
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1408 41897 41903 "src/cryptokit.ml" 1408 41897 41906
)
"src/cryptokit.ml" 1415 42124 42144 "src/cryptokit.ml" 1415 42124 42145
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1409 41928 41934 "src/cryptokit.ml" 1409 41928 41935
)
"src/cryptokit.ml" 1415 42124 42129 "src/cryptokit.ml" 1415 42124 42145
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1415 42124 42146 "src/cryptokit.ml" 1415 42124 42148
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1415 42124 42149 "src/cryptokit.ml" 1415 42124 42150
type(
  int
)
"src/cryptokit.ml" 1415 42124 42129 "src/cryptokit.ml" 1415 42124 42150
type(
  bool
)
"src/cryptokit.ml" 1415 42124 42156 "src/cryptokit.ml" 1415 42124 42161
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1415 42124 42169 "src/cryptokit.ml" 1415 42124 42185
type(
  error
)
"src/cryptokit.ml" 1415 42124 42162 "src/cryptokit.ml" 1415 42124 42186
type(
  exn
)
"src/cryptokit.ml" 1415 42124 42156 "src/cryptokit.ml" 1415 42124 42186
type(
  unit
)
"src/cryptokit.ml" 1415 42124 42126 "src/cryptokit.ml" 1415 42124 42186
type(
  unit
)
"src/cryptokit.ml" 1416 42188 42194 "src/cryptokit.ml" 1416 42188 42195
type(
  Bn.t
)
ident(
  def r "src/cryptokit.ml" 1417 42237 42239 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1416 42188 42198 "src/cryptokit.ml" 1416 42188 42214
type(
  Bn.t -> Bn.t -> Bn.t -> Bn.t -> Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_power_CRT
)
"src/cryptokit.ml" 1416 42188 42215 "src/cryptokit.ml" 1416 42188 42218
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1408 41897 41903 "src/cryptokit.ml" 1408 41897 41906
)
"src/cryptokit.ml" 1416 42188 42219 "src/cryptokit.ml" 1416 42188 42220
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1410 41959 41965 "src/cryptokit.ml" 1410 41959 41966
)
"src/cryptokit.ml" 1416 42188 42221 "src/cryptokit.ml" 1416 42188 42222
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1411 41990 41996 "src/cryptokit.ml" 1411 41990 41997
)
"src/cryptokit.ml" 1416 42188 42223 "src/cryptokit.ml" 1416 42188 42225
type(
  Bn.t
)
ident(
  int_ref dp "src/cryptokit.ml" 1412 42021 42027 "src/cryptokit.ml" 1412 42021 42029
)
"src/cryptokit.ml" 1416 42188 42226 "src/cryptokit.ml" 1416 42188 42228
type(
  Bn.t
)
ident(
  int_ref dq "src/cryptokit.ml" 1413 42054 42060 "src/cryptokit.ml" 1413 42054 42062
)
"src/cryptokit.ml" 1416 42188 42229 "src/cryptokit.ml" 1416 42188 42233
type(
  Bn.t
)
ident(
  int_ref qinv "src/cryptokit.ml" 1414 42087 42093 "src/cryptokit.ml" 1414 42087 42097
)
"src/cryptokit.ml" 1416 42188 42198 "src/cryptokit.ml" 1416 42188 42233
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1417 42237 42243 "src/cryptokit.ml" 1417 42237 42244
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1418 42282 42284 "src/cryptokit.ml" 1420 42381 42384
)
"src/cryptokit.ml" 1417 42237 42247 "src/cryptokit.ml" 1417 42237 42258
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1417 42237 42268 "src/cryptokit.ml" 1417 42237 42271
type(
  key
)
ident(
  int_ref key "src/cryptokit.ml" 1407 41871 41887 "src/cryptokit.ml" 1407 41871 41890
)
"src/cryptokit.ml" 1417 42237 42268 "src/cryptokit.ml" 1417 42237 42276
type(
  int
)
"src/cryptokit.ml" 1417 42237 42277 "src/cryptokit.ml" 1417 42237 42278
type(
  Bn.t
)
ident(
  int_ref r "src/cryptokit.ml" 1416 42188 42194 "src/cryptokit.ml" 1416 42188 42195
)
"src/cryptokit.ml" 1417 42237 42247 "src/cryptokit.ml" 1417 42237 42278
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1418 42282 42284 "src/cryptokit.ml" 1418 42282 42291
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1418 42282 42292 "src/cryptokit.ml" 1418 42282 42295
type(
  Bn.t
)
ident(
  int_ref msg "src/cryptokit.ml" 1408 41897 41903 "src/cryptokit.ml" 1408 41897 41906
)
"src/cryptokit.ml" 1418 42282 42284 "src/cryptokit.ml" 1418 42282 42295
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1418 42282 42297 "src/cryptokit.ml" 1418 42282 42304
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1418 42282 42305 "src/cryptokit.ml" 1418 42282 42306
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1409 41928 41934 "src/cryptokit.ml" 1409 41928 41935
)
"src/cryptokit.ml" 1418 42282 42297 "src/cryptokit.ml" 1418 42282 42306
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1418 42282 42308 "src/cryptokit.ml" 1418 42282 42315
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1418 42282 42316 "src/cryptokit.ml" 1418 42282 42317
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1410 41959 41965 "src/cryptokit.ml" 1410 41959 41966
)
"src/cryptokit.ml" 1418 42282 42308 "src/cryptokit.ml" 1418 42282 42317
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1418 42282 42319 "src/cryptokit.ml" 1418 42282 42326
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1418 42282 42327 "src/cryptokit.ml" 1418 42282 42328
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1411 41990 41996 "src/cryptokit.ml" 1411 41990 41997
)
"src/cryptokit.ml" 1418 42282 42319 "src/cryptokit.ml" 1418 42282 42328
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1419 42330 42332 "src/cryptokit.ml" 1419 42330 42339
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1419 42330 42340 "src/cryptokit.ml" 1419 42330 42342
type(
  Bn.t
)
ident(
  int_ref dp "src/cryptokit.ml" 1412 42021 42027 "src/cryptokit.ml" 1412 42021 42029
)
"src/cryptokit.ml" 1419 42330 42332 "src/cryptokit.ml" 1419 42330 42342
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1419 42330 42344 "src/cryptokit.ml" 1419 42330 42351
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1419 42330 42352 "src/cryptokit.ml" 1419 42330 42354
type(
  Bn.t
)
ident(
  int_ref dq "src/cryptokit.ml" 1413 42054 42060 "src/cryptokit.ml" 1413 42054 42062
)
"src/cryptokit.ml" 1419 42330 42344 "src/cryptokit.ml" 1419 42330 42354
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1419 42330 42356 "src/cryptokit.ml" 1419 42330 42363
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1419 42330 42364 "src/cryptokit.ml" 1419 42330 42368
type(
  Bn.t
)
ident(
  int_ref qinv "src/cryptokit.ml" 1414 42087 42093 "src/cryptokit.ml" 1414 42087 42097
)
"src/cryptokit.ml" 1419 42330 42356 "src/cryptokit.ml" 1419 42330 42368
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1419 42330 42370 "src/cryptokit.ml" 1419 42330 42377
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1419 42330 42378 "src/cryptokit.ml" 1419 42330 42379
type(
  Bn.t
)
ident(
  int_ref r "src/cryptokit.ml" 1416 42188 42194 "src/cryptokit.ml" 1416 42188 42195
)
"src/cryptokit.ml" 1419 42330 42370 "src/cryptokit.ml" 1419 42330 42379
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1420 42381 42383 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1417 42237 42243 "src/cryptokit.ml" 1417 42237 42244
)
"src/cryptokit.ml" 1419 42330 42370 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1419 42330 42356 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1419 42330 42344 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1419 42330 42332 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1418 42282 42319 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1418 42282 42308 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1418 42282 42297 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1418 42282 42284 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1417 42237 42239 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1416 42188 42190 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1415 42124 42126 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1414 42087 42089 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1413 42054 42056 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1412 42021 42023 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1411 41990 41992 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1410 41959 41961 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1409 41928 41930 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1408 41897 41899 "src/cryptokit.ml" 1420 42381 42384
type(
  string
)
"src/cryptokit.ml" 1422 42386 42390 "src/cryptokit.ml" 1422 42386 42398
type(
  key -> string -> string
)
ident(
  def sign_CRT "src/cryptokit.ml" 1424 42414 42414 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1422 42386 42401 "src/cryptokit.ml" 1422 42386 42412
type(
  key -> string -> string
)
ident(
  int_ref decrypt_CRT "src/cryptokit.ml" 1407 41871 41875 "src/cryptokit.ml" 1407 41871 41886
)
"src/cryptokit.ml" 1424 42414 42418 "src/cryptokit.ml" 1424 42414 42425
type(
  ?rng:Random.system_rng -> ?e:int -> int -> key
)
ident(
  def new_key "src/cryptokit.ml" 1484 44528 44533 "src/cryptokit.ml" 1486 44535 44538
)
"src/cryptokit.ml" 1424 42414 42428 "src/cryptokit.ml" 1424 42414 42431
type(
  Random.system_rng
)
"src/cryptokit.ml" 1424 42414 42434 "src/cryptokit.ml" 1424 42414 42451
type(
  Random.system_rng
)
ident(
  int_ref Random.secure_rng "src/cryptokit.ml" 1290 38883 38887 "src/cryptokit.ml" 1290 38883 38897
)
type(
  Random.system_rng
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1424 42414 42434 "src/cryptokit.ml" 1424 42414 42451
)
type(
  Random.system_rng option
)
type(
  Random.system_rng option
)
type(
  Random.system_rng
)
"src/cryptokit.ml" 1424 42414 42454 "src/cryptokit.ml" 1424 42414 42455
type(
  int option
)
ident(
  def e "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
type(
  int
)
ident(
  def numbits "src/cryptokit.ml" 1425 42466 42468 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1425 42466 42471 "src/cryptokit.ml" 1425 42466 42478
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1425 42466 42479 "src/cryptokit.ml" 1425 42466 42480
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1425 42466 42481 "src/cryptokit.ml" 1425 42466 42483
type(
  int
)
"src/cryptokit.ml" 1425 42466 42471 "src/cryptokit.ml" 1425 42466 42483
type(
  bool
)
"src/cryptokit.ml" 1425 42466 42484 "src/cryptokit.ml" 1425 42466 42486
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1425 42466 42487 "src/cryptokit.ml" 1425 42466 42494
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1425 42466 42495 "src/cryptokit.ml" 1425 42466 42499
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1425 42466 42500 "src/cryptokit.ml" 1425 42466 42501
type(
  int
)
"src/cryptokit.ml" 1425 42466 42487 "src/cryptokit.ml" 1425 42466 42501
type(
  int
)
"src/cryptokit.ml" 1425 42466 42502 "src/cryptokit.ml" 1425 42466 42503
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1425 42466 42504 "src/cryptokit.ml" 1425 42466 42505
type(
  int
)
"src/cryptokit.ml" 1425 42466 42487 "src/cryptokit.ml" 1425 42466 42505
type(
  bool
)
"src/cryptokit.ml" 1425 42466 42471 "src/cryptokit.ml" 1425 42466 42505
type(
  bool
)
"src/cryptokit.ml" 1425 42466 42511 "src/cryptokit.ml" 1425 42466 42516
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1425 42466 42523 "src/cryptokit.ml" 1425 42466 42537
type(
  error
)
"src/cryptokit.ml" 1425 42466 42516 "src/cryptokit.ml" 1425 42466 42538
type(
  exn
)
"src/cryptokit.ml" 1425 42466 42511 "src/cryptokit.ml" 1425 42466 42538
type(
  unit
)
"src/cryptokit.ml" 1425 42466 42468 "src/cryptokit.ml" 1425 42466 42538
type(
  unit
)
"src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
type(
  int
)
ident(
  def numbits2 "src/cryptokit.ml" 1430 42702 42704 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1426 42540 42557 "src/cryptokit.ml" 1426 42540 42564
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1426 42540 42565 "src/cryptokit.ml" 1426 42540 42566
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( / )
)
"src/cryptokit.ml" 1426 42540 42567 "src/cryptokit.ml" 1426 42540 42568
type(
  int
)
"src/cryptokit.ml" 1426 42540 42557 "src/cryptokit.ml" 1426 42540 42568
type(
  int
)
"src/cryptokit.ml" 1430 42702 42712 "src/cryptokit.ml" 1430 42702 42722
type(
  int -> Bn.t
)
ident(
  def gen_factor "src/cryptokit.ml" 1430 42702 42704 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1430 42702 42723 "src/cryptokit.ml" 1430 42702 42728
type(
  int
)
ident(
  def nbits "src/cryptokit.ml" 1431 42731 42735 "src/cryptokit.ml" 1437 42917 42946
)
"src/cryptokit.ml" 1431 42731 42739 "src/cryptokit.ml" 1431 42731 42740
type(
  Bn.t
)
ident(
  def n "src/cryptokit.ml" 1432 42792 42796 "src/cryptokit.ml" 1437 42917 42946
)
"src/cryptokit.ml" 1431 42731 42743 "src/cryptokit.ml" 1431 42731 42758
type(
  rng:(bytes -> int -> int -> unit) -> int -> Bn.t
)
ident(
  ext_ref Bn.random_prime
)
"src/cryptokit.ml" 1431 42731 42765 "src/cryptokit.ml" 1431 42731 42768
type(
  Random.system_rng
)
ident(
  int_ref rng "src/cryptokit.ml" 1424 42414 42428 "src/cryptokit.ml" 1424 42414 42431
)
"src/cryptokit.ml" 1431 42731 42764 "src/cryptokit.ml" 1431 42731 42782
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1431 42731 42783 "src/cryptokit.ml" 1431 42731 42788
type(
  int
)
ident(
  int_ref nbits "src/cryptokit.ml" 1430 42702 42723 "src/cryptokit.ml" 1430 42702 42728
)
"src/cryptokit.ml" 1431 42731 42743 "src/cryptokit.ml" 1431 42731 42788
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1432 42792 42802 "src/cryptokit.ml" 1432 42792 42803
type(
  int option
)
ident(
  int_ref e "src/cryptokit.ml" 1424 42414 42454 "src/cryptokit.ml" 1424 42414 42455
)
"src/cryptokit.ml" 1433 42809 42815 "src/cryptokit.ml" 1433 42809 42819
type(
  int option
)
"src/cryptokit.ml" 1433 42809 42823 "src/cryptokit.ml" 1433 42809 42824
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1431 42731 42739 "src/cryptokit.ml" 1431 42731 42740
)
"src/cryptokit.ml" 1434 42825 42836 "src/cryptokit.ml" 1434 42825 42837
type(
  int
)
ident(
  def e "src/cryptokit.ml" 1435 42841 42849 "src/cryptokit.ml" 1437 42917 42946
)
"src/cryptokit.ml" 1434 42825 42831 "src/cryptokit.ml" 1434 42825 42837
type(
  int option
)
"src/cryptokit.ml" 1435 42841 42852 "src/cryptokit.ml" 1435 42841 42869
type(
  Bn.t -> Bn.t -> bool
)
ident(
  ext_ref Bn.relative_prime
)
"src/cryptokit.ml" 1435 42841 42871 "src/cryptokit.ml" 1435 42841 42877
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.sub
)
"src/cryptokit.ml" 1435 42841 42878 "src/cryptokit.ml" 1435 42841 42879
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1431 42731 42739 "src/cryptokit.ml" 1431 42731 42740
)
"src/cryptokit.ml" 1435 42841 42880 "src/cryptokit.ml" 1435 42841 42886
type(
  Bn.t
)
ident(
  ext_ref Bn.one
)
"src/cryptokit.ml" 1435 42841 42870 "src/cryptokit.ml" 1435 42841 42887
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1435 42841 42889 "src/cryptokit.ml" 1435 42841 42898
type(
  int -> Bn.t
)
ident(
  ext_ref Bn.of_int
)
"src/cryptokit.ml" 1435 42841 42899 "src/cryptokit.ml" 1435 42841 42900
type(
  int
)
ident(
  int_ref e "src/cryptokit.ml" 1434 42825 42836 "src/cryptokit.ml" 1434 42825 42837
)
"src/cryptokit.ml" 1435 42841 42888 "src/cryptokit.ml" 1435 42841 42901
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1435 42841 42852 "src/cryptokit.ml" 1435 42841 42901
call(
  stack
)
type(
  bool
)
"src/cryptokit.ml" 1436 42902 42915 "src/cryptokit.ml" 1436 42902 42916
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1431 42731 42739 "src/cryptokit.ml" 1431 42731 42740
)
"src/cryptokit.ml" 1437 42917 42930 "src/cryptokit.ml" 1437 42917 42940
type(
  int -> Bn.t
)
ident(
  int_ref gen_factor "src/cryptokit.ml" 1430 42702 42712 "src/cryptokit.ml" 1430 42702 42722
)
"src/cryptokit.ml" 1437 42917 42941 "src/cryptokit.ml" 1437 42917 42946
type(
  int
)
ident(
  int_ref nbits "src/cryptokit.ml" 1430 42702 42723 "src/cryptokit.ml" 1430 42702 42728
)
"src/cryptokit.ml" 1437 42917 42930 "src/cryptokit.ml" 1437 42917 42946
call(
  tail
)
type(
  Bn.t
)
"src/cryptokit.ml" 1435 42841 42849 "src/cryptokit.ml" 1437 42917 42946
type(
  Bn.t
)
"src/cryptokit.ml" 1432 42792 42796 "src/cryptokit.ml" 1437 42917 42946
type(
  Bn.t
)
"src/cryptokit.ml" 1431 42731 42735 "src/cryptokit.ml" 1437 42917 42946
type(
  Bn.t
)
"src/cryptokit.ml" 1439 42974 42984 "src/cryptokit.ml" 1439 42974 42995
type(
  int -> Bn.t * Bn.t
)
ident(
  def gen_factors "src/cryptokit.ml" 1439 42974 42976 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1439 42974 42996 "src/cryptokit.ml" 1439 42974 43001
type(
  int
)
ident(
  def nbits "src/cryptokit.ml" 1440 43004 43008 "src/cryptokit.ml" 1444 43140 43178
)
"src/cryptokit.ml" 1440 43004 43012 "src/cryptokit.ml" 1440 43004 43013
type(
  Bn.t
)
ident(
  def p "src/cryptokit.ml" 1442 43065 43069 "src/cryptokit.ml" 1444 43140 43178
)
"src/cryptokit.ml" 1440 43004 43016 "src/cryptokit.ml" 1440 43004 43026
type(
  int -> Bn.t
)
ident(
  int_ref gen_factor "src/cryptokit.ml" 1430 42702 42712 "src/cryptokit.ml" 1430 42702 42722
)
"src/cryptokit.ml" 1440 43004 43027 "src/cryptokit.ml" 1440 43004 43032
type(
  int
)
ident(
  int_ref nbits "src/cryptokit.ml" 1439 42974 42996 "src/cryptokit.ml" 1439 42974 43001
)
"src/cryptokit.ml" 1440 43004 43016 "src/cryptokit.ml" 1440 43004 43032
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1441 43033 43041 "src/cryptokit.ml" 1441 43033 43042
type(
  Bn.t
)
ident(
  def q "src/cryptokit.ml" 1442 43065 43069 "src/cryptokit.ml" 1444 43140 43178
)
"src/cryptokit.ml" 1441 43033 43045 "src/cryptokit.ml" 1441 43033 43055
type(
  int -> Bn.t
)
ident(
  int_ref gen_factor "src/cryptokit.ml" 1430 42702 42712 "src/cryptokit.ml" 1430 42702 42722
)
"src/cryptokit.ml" 1441 43033 43056 "src/cryptokit.ml" 1441 43033 43061
type(
  int
)
ident(
  int_ref nbits "src/cryptokit.ml" 1439 42974 42996 "src/cryptokit.ml" 1439 42974 43001
)
"src/cryptokit.ml" 1441 43033 43045 "src/cryptokit.ml" 1441 43033 43061
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1442 43065 43073 "src/cryptokit.ml" 1442 43065 43076
type(
  int
)
ident(
  def cmp "src/cryptokit.ml" 1443 43097 43101 "src/cryptokit.ml" 1444 43140 43178
)
"src/cryptokit.ml" 1442 43065 43079 "src/cryptokit.ml" 1442 43065 43089
type(
  Bn.t -> Bn.t -> int
)
ident(
  ext_ref Bn.compare
)
"src/cryptokit.ml" 1442 43065 43090 "src/cryptokit.ml" 1442 43065 43091
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1440 43004 43012 "src/cryptokit.ml" 1440 43004 43013
)
"src/cryptokit.ml" 1442 43065 43092 "src/cryptokit.ml" 1442 43065 43093
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1441 43033 43041 "src/cryptokit.ml" 1441 43033 43042
)
"src/cryptokit.ml" 1442 43065 43079 "src/cryptokit.ml" 1442 43065 43093
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1443 43097 43104 "src/cryptokit.ml" 1443 43097 43107
type(
  int
)
ident(
  int_ref cmp "src/cryptokit.ml" 1442 43065 43073 "src/cryptokit.ml" 1442 43065 43076
)
"src/cryptokit.ml" 1443 43097 43108 "src/cryptokit.ml" 1443 43097 43109
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1443 43097 43110 "src/cryptokit.ml" 1443 43097 43111
type(
  int
)
"src/cryptokit.ml" 1443 43097 43104 "src/cryptokit.ml" 1443 43097 43111
type(
  bool
)
"src/cryptokit.ml" 1443 43097 43117 "src/cryptokit.ml" 1443 43097 43128
type(
  int -> Bn.t * Bn.t
)
ident(
  int_ref gen_factors "src/cryptokit.ml" 1439 42974 42984 "src/cryptokit.ml" 1439 42974 42995
)
"src/cryptokit.ml" 1443 43097 43129 "src/cryptokit.ml" 1443 43097 43134
type(
  int
)
ident(
  int_ref nbits "src/cryptokit.ml" 1439 42974 42996 "src/cryptokit.ml" 1439 42974 43001
)
"src/cryptokit.ml" 1443 43097 43117 "src/cryptokit.ml" 1443 43097 43134
call(
  tail
)
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1444 43140 43147 "src/cryptokit.ml" 1444 43140 43150
type(
  int
)
ident(
  int_ref cmp "src/cryptokit.ml" 1442 43065 43073 "src/cryptokit.ml" 1442 43065 43076
)
"src/cryptokit.ml" 1444 43140 43151 "src/cryptokit.ml" 1444 43140 43152
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1444 43140 43153 "src/cryptokit.ml" 1444 43140 43154
type(
  int
)
"src/cryptokit.ml" 1444 43140 43147 "src/cryptokit.ml" 1444 43140 43154
type(
  bool
)
"src/cryptokit.ml" 1444 43140 43161 "src/cryptokit.ml" 1444 43140 43162
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1441 43033 43041 "src/cryptokit.ml" 1441 43033 43042
)
"src/cryptokit.ml" 1444 43140 43164 "src/cryptokit.ml" 1444 43140 43165
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1440 43004 43012 "src/cryptokit.ml" 1440 43004 43013
)
"src/cryptokit.ml" 1444 43140 43160 "src/cryptokit.ml" 1444 43140 43166
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1444 43140 43173 "src/cryptokit.ml" 1444 43140 43174
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1440 43004 43012 "src/cryptokit.ml" 1440 43004 43013
)
"src/cryptokit.ml" 1444 43140 43176 "src/cryptokit.ml" 1444 43140 43177
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1441 43033 43041 "src/cryptokit.ml" 1441 43033 43042
)
"src/cryptokit.ml" 1444 43140 43172 "src/cryptokit.ml" 1444 43140 43178
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1444 43140 43144 "src/cryptokit.ml" 1444 43140 43178
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1443 43097 43101 "src/cryptokit.ml" 1444 43140 43178
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1442 43065 43069 "src/cryptokit.ml" 1444 43140 43178
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1440 43004 43008 "src/cryptokit.ml" 1444 43140 43178
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1445 43182 43189 "src/cryptokit.ml" 1445 43182 43190
type(
  Bn.t
)
ident(
  def p "src/cryptokit.ml" 1447 43255 43257 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1445 43182 43192 "src/cryptokit.ml" 1445 43182 43193
type(
  Bn.t
)
ident(
  def q "src/cryptokit.ml" 1447 43255 43257 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1445 43182 43188 "src/cryptokit.ml" 1445 43182 43194
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1445 43182 43197 "src/cryptokit.ml" 1445 43182 43208
type(
  int -> Bn.t * Bn.t
)
ident(
  int_ref gen_factors "src/cryptokit.ml" 1439 42974 42984 "src/cryptokit.ml" 1439 42974 42995
)
"src/cryptokit.ml" 1445 43182 43209 "src/cryptokit.ml" 1445 43182 43217
type(
  int
)
ident(
  int_ref numbits2 "src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
)
"src/cryptokit.ml" 1445 43182 43197 "src/cryptokit.ml" 1445 43182 43217
call(
  stack
)
type(
  Bn.t * Bn.t
)
"src/cryptokit.ml" 1447 43255 43261 "src/cryptokit.ml" 1447 43255 43263
type(
  Bn.t
)
ident(
  def p1 "src/cryptokit.ml" 1451 43428 43430 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1447 43255 43266 "src/cryptokit.ml" 1447 43255 43272
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.sub
)
"src/cryptokit.ml" 1447 43255 43273 "src/cryptokit.ml" 1447 43255 43274
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1445 43182 43189 "src/cryptokit.ml" 1445 43182 43190
)
"src/cryptokit.ml" 1447 43255 43275 "src/cryptokit.ml" 1447 43255 43281
type(
  Bn.t
)
ident(
  ext_ref Bn.one
)
"src/cryptokit.ml" 1447 43255 43266 "src/cryptokit.ml" 1447 43255 43281
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1448 43282 43288 "src/cryptokit.ml" 1448 43282 43290
type(
  Bn.t
)
ident(
  def q1 "src/cryptokit.ml" 1451 43428 43430 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1448 43282 43293 "src/cryptokit.ml" 1448 43282 43299
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.sub
)
"src/cryptokit.ml" 1448 43282 43300 "src/cryptokit.ml" 1448 43282 43301
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1445 43182 43192 "src/cryptokit.ml" 1445 43182 43193
)
"src/cryptokit.ml" 1448 43282 43302 "src/cryptokit.ml" 1448 43282 43308
type(
  Bn.t
)
ident(
  ext_ref Bn.one
)
"src/cryptokit.ml" 1448 43282 43293 "src/cryptokit.ml" 1448 43282 43308
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1451 43428 43434 "src/cryptokit.ml" 1451 43428 43435
type(
  Bn.t
)
ident(
  def e "src/cryptokit.ml" 1462 43749 43751 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1452 43438 43448 "src/cryptokit.ml" 1452 43438 43449
type(
  int option
)
ident(
  int_ref e "src/cryptokit.ml" 1424 42414 42454 "src/cryptokit.ml" 1424 42414 42455
)
"src/cryptokit.ml" 1453 43455 43466 "src/cryptokit.ml" 1453 43455 43467
type(
  int
)
ident(
  def e "src/cryptokit.ml" 1453 43455 43471 "src/cryptokit.ml" 1453 43455 43482
)
"src/cryptokit.ml" 1453 43455 43461 "src/cryptokit.ml" 1453 43455 43467
type(
  int option
)
"src/cryptokit.ml" 1453 43455 43471 "src/cryptokit.ml" 1453 43455 43480
type(
  int -> Bn.t
)
ident(
  ext_ref Bn.of_int
)
"src/cryptokit.ml" 1453 43455 43481 "src/cryptokit.ml" 1453 43455 43482
type(
  int
)
ident(
  int_ref e "src/cryptokit.ml" 1453 43455 43466 "src/cryptokit.ml" 1453 43455 43467
)
"src/cryptokit.ml" 1453 43455 43471 "src/cryptokit.ml" 1453 43455 43482
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1454 43483 43489 "src/cryptokit.ml" 1454 43483 43493
type(
  int option
)
"src/cryptokit.ml" 1455 43497 43513 "src/cryptokit.ml" 1455 43497 43525
type(
  unit -> Bn.t
)
ident(
  def gen_exponent "src/cryptokit.ml" 1455 43497 43505 "src/cryptokit.ml" 1460 43707 43730
)
"src/cryptokit.ml" 1455 43497 43526 "src/cryptokit.ml" 1455 43497 43528
type(
  unit
)
"src/cryptokit.ml" 1456 43531 43545 "src/cryptokit.ml" 1456 43531 43546
type(
  Bn.t
)
ident(
  def n "src/cryptokit.ml" 1457 43594 43604 "src/cryptokit.ml" 1459 43673 43703
)
"src/cryptokit.ml" 1456 43531 43549 "src/cryptokit.ml" 1456 43531 43558
type(
  rng:(bytes -> int -> int -> unit) -> ?odd:bool -> int -> Bn.t
)
ident(
  ext_ref Bn.random
)
"src/cryptokit.ml" 1456 43531 43565 "src/cryptokit.ml" 1456 43531 43568
type(
  Random.system_rng
)
ident(
  int_ref rng "src/cryptokit.ml" 1424 42414 42428 "src/cryptokit.ml" 1424 42414 42431
)
"src/cryptokit.ml" 1456 43531 43564 "src/cryptokit.ml" 1456 43531 43582
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1456 43531 43583 "src/cryptokit.ml" 1456 43531 43590
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1456 43531 43549 "src/cryptokit.ml" 1456 43531 43590
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1457 43594 43607 "src/cryptokit.ml" 1457 43594 43624
type(
  Bn.t -> Bn.t -> bool
)
ident(
  ext_ref Bn.relative_prime
)
"src/cryptokit.ml" 1457 43594 43625 "src/cryptokit.ml" 1457 43594 43626
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1456 43531 43545 "src/cryptokit.ml" 1456 43531 43546
)
"src/cryptokit.ml" 1457 43594 43627 "src/cryptokit.ml" 1457 43594 43629
type(
  Bn.t
)
ident(
  int_ref p1 "src/cryptokit.ml" 1447 43255 43261 "src/cryptokit.ml" 1447 43255 43263
)
"src/cryptokit.ml" 1457 43594 43607 "src/cryptokit.ml" 1457 43594 43629
call(
  stack
)
type(
  bool
)
"src/cryptokit.ml" 1457 43594 43630 "src/cryptokit.ml" 1457 43594 43632
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 1457 43594 43633 "src/cryptokit.ml" 1457 43594 43650
type(
  Bn.t -> Bn.t -> bool
)
ident(
  ext_ref Bn.relative_prime
)
"src/cryptokit.ml" 1457 43594 43651 "src/cryptokit.ml" 1457 43594 43652
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1456 43531 43545 "src/cryptokit.ml" 1456 43531 43546
)
"src/cryptokit.ml" 1457 43594 43653 "src/cryptokit.ml" 1457 43594 43655
type(
  Bn.t
)
ident(
  int_ref q1 "src/cryptokit.ml" 1448 43282 43288 "src/cryptokit.ml" 1448 43282 43290
)
"src/cryptokit.ml" 1457 43594 43633 "src/cryptokit.ml" 1457 43594 43655
call(
  stack
)
type(
  bool
)
"src/cryptokit.ml" 1457 43594 43607 "src/cryptokit.ml" 1457 43594 43655
type(
  bool
)
"src/cryptokit.ml" 1458 43656 43671 "src/cryptokit.ml" 1458 43656 43672
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1456 43531 43545 "src/cryptokit.ml" 1456 43531 43546
)
"src/cryptokit.ml" 1459 43673 43688 "src/cryptokit.ml" 1459 43673 43700
type(
  unit -> Bn.t
)
ident(
  int_ref gen_exponent "src/cryptokit.ml" 1455 43497 43513 "src/cryptokit.ml" 1455 43497 43525
)
"src/cryptokit.ml" 1459 43673 43701 "src/cryptokit.ml" 1459 43673 43703
type(
  unit
)
"src/cryptokit.ml" 1459 43673 43688 "src/cryptokit.ml" 1459 43673 43703
call(
  tail
)
type(
  Bn.t
)
"src/cryptokit.ml" 1457 43594 43604 "src/cryptokit.ml" 1459 43673 43703
type(
  Bn.t
)
"src/cryptokit.ml" 1456 43531 43541 "src/cryptokit.ml" 1459 43673 43703
type(
  Bn.t
)
"src/cryptokit.ml" 1460 43707 43715 "src/cryptokit.ml" 1460 43707 43727
type(
  unit -> Bn.t
)
ident(
  int_ref gen_exponent "src/cryptokit.ml" 1455 43497 43513 "src/cryptokit.ml" 1455 43497 43525
)
"src/cryptokit.ml" 1460 43707 43728 "src/cryptokit.ml" 1460 43707 43730
type(
  unit
)
"src/cryptokit.ml" 1460 43707 43715 "src/cryptokit.ml" 1460 43707 43730
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1455 43497 43505 "src/cryptokit.ml" 1460 43707 43730
type(
  Bn.t
)
"src/cryptokit.ml" 1452 43438 43442 "src/cryptokit.ml" 1460 43707 43730
type(
  Bn.t
)
"src/cryptokit.ml" 1462 43749 43755 "src/cryptokit.ml" 1462 43749 43756
type(
  Bn.t
)
ident(
  def n "src/cryptokit.ml" 1464 43806 43808 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1462 43749 43759 "src/cryptokit.ml" 1462 43749 43766
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mult
)
"src/cryptokit.ml" 1462 43749 43767 "src/cryptokit.ml" 1462 43749 43768
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1445 43182 43189 "src/cryptokit.ml" 1445 43182 43190
)
"src/cryptokit.ml" 1462 43749 43769 "src/cryptokit.ml" 1462 43749 43770
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1445 43182 43192 "src/cryptokit.ml" 1445 43182 43193
)
"src/cryptokit.ml" 1462 43749 43759 "src/cryptokit.ml" 1462 43749 43770
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1464 43806 43812 "src/cryptokit.ml" 1464 43806 43813
type(
  Bn.t
)
ident(
  def d "src/cryptokit.ml" 1466 43890 43892 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1464 43806 43816 "src/cryptokit.ml" 1464 43806 43826
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_inv
)
"src/cryptokit.ml" 1464 43806 43827 "src/cryptokit.ml" 1464 43806 43828
type(
  Bn.t
)
ident(
  int_ref e "src/cryptokit.ml" 1451 43428 43434 "src/cryptokit.ml" 1451 43428 43435
)
"src/cryptokit.ml" 1464 43806 43830 "src/cryptokit.ml" 1464 43806 43837
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mult
)
"src/cryptokit.ml" 1464 43806 43838 "src/cryptokit.ml" 1464 43806 43840
type(
  Bn.t
)
ident(
  int_ref p1 "src/cryptokit.ml" 1447 43255 43261 "src/cryptokit.ml" 1447 43255 43263
)
"src/cryptokit.ml" 1464 43806 43841 "src/cryptokit.ml" 1464 43806 43843
type(
  Bn.t
)
ident(
  int_ref q1 "src/cryptokit.ml" 1448 43282 43288 "src/cryptokit.ml" 1448 43282 43290
)
"src/cryptokit.ml" 1464 43806 43829 "src/cryptokit.ml" 1464 43806 43844
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1464 43806 43816 "src/cryptokit.ml" 1464 43806 43844
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1466 43890 43896 "src/cryptokit.ml" 1466 43890 43898
type(
  Bn.t
)
ident(
  def dp "src/cryptokit.ml" 1468 43965 43967 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1466 43890 43901 "src/cryptokit.ml" 1466 43890 43908
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_
)
"src/cryptokit.ml" 1466 43890 43909 "src/cryptokit.ml" 1466 43890 43910
type(
  Bn.t
)
ident(
  int_ref d "src/cryptokit.ml" 1464 43806 43812 "src/cryptokit.ml" 1464 43806 43813
)
"src/cryptokit.ml" 1466 43890 43911 "src/cryptokit.ml" 1466 43890 43913
type(
  Bn.t
)
ident(
  int_ref p1 "src/cryptokit.ml" 1447 43255 43261 "src/cryptokit.ml" 1447 43255 43263
)
"src/cryptokit.ml" 1466 43890 43901 "src/cryptokit.ml" 1466 43890 43913
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1466 43890 43918 "src/cryptokit.ml" 1466 43890 43920
type(
  Bn.t
)
ident(
  def dq "src/cryptokit.ml" 1468 43965 43967 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1466 43890 43923 "src/cryptokit.ml" 1466 43890 43930
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_
)
"src/cryptokit.ml" 1466 43890 43931 "src/cryptokit.ml" 1466 43890 43932
type(
  Bn.t
)
ident(
  int_ref d "src/cryptokit.ml" 1464 43806 43812 "src/cryptokit.ml" 1464 43806 43813
)
"src/cryptokit.ml" 1466 43890 43933 "src/cryptokit.ml" 1466 43890 43935
type(
  Bn.t
)
ident(
  int_ref q1 "src/cryptokit.ml" 1448 43282 43288 "src/cryptokit.ml" 1448 43282 43290
)
"src/cryptokit.ml" 1466 43890 43923 "src/cryptokit.ml" 1466 43890 43935
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1468 43965 43971 "src/cryptokit.ml" 1468 43965 43975
type(
  Bn.t
)
ident(
  def qinv "src/cryptokit.ml" 1470 44014 44016 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1468 43965 43978 "src/cryptokit.ml" 1468 43965 43988
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_inv
)
"src/cryptokit.ml" 1468 43965 43989 "src/cryptokit.ml" 1468 43965 43990
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1445 43182 43192 "src/cryptokit.ml" 1445 43182 43193
)
"src/cryptokit.ml" 1468 43965 43991 "src/cryptokit.ml" 1468 43965 43992
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1445 43182 43189 "src/cryptokit.ml" 1445 43182 43190
)
"src/cryptokit.ml" 1468 43965 43978 "src/cryptokit.ml" 1468 43965 43992
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1470 44014 44020 "src/cryptokit.ml" 1470 44014 44023
type(
  key
)
ident(
  def res "src/cryptokit.ml" 1480 44403 44405 "src/cryptokit.ml" 1484 44528 44533
)
"src/cryptokit.ml" 1471 44026 44039 "src/cryptokit.ml" 1471 44026 44046
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1472 44048 44058 "src/cryptokit.ml" 1472 44048 44069
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1472 44048 44079 "src/cryptokit.ml" 1472 44048 44086
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1472 44048 44087 "src/cryptokit.ml" 1472 44048 44088
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1462 43749 43755 "src/cryptokit.ml" 1462 43749 43756
)
"src/cryptokit.ml" 1472 44048 44058 "src/cryptokit.ml" 1472 44048 44088
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1473 44090 44100 "src/cryptokit.ml" 1473 44090 44111
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1473 44090 44121 "src/cryptokit.ml" 1473 44090 44128
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1473 44090 44129 "src/cryptokit.ml" 1473 44090 44130
type(
  Bn.t
)
ident(
  int_ref e "src/cryptokit.ml" 1451 43428 43434 "src/cryptokit.ml" 1451 43428 43435
)
"src/cryptokit.ml" 1473 44090 44100 "src/cryptokit.ml" 1473 44090 44130
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1474 44132 44142 "src/cryptokit.ml" 1474 44132 44153
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1474 44132 44163 "src/cryptokit.ml" 1474 44132 44170
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1424 42414 42456 "src/cryptokit.ml" 1424 42414 42463
)
"src/cryptokit.ml" 1474 44132 44171 "src/cryptokit.ml" 1474 44132 44172
type(
  Bn.t
)
ident(
  int_ref d "src/cryptokit.ml" 1464 43806 43812 "src/cryptokit.ml" 1464 43806 43813
)
"src/cryptokit.ml" 1474 44132 44142 "src/cryptokit.ml" 1474 44132 44172
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1475 44174 44184 "src/cryptokit.ml" 1475 44174 44195
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1475 44174 44205 "src/cryptokit.ml" 1475 44174 44213
type(
  int
)
ident(
  int_ref numbits2 "src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
)
"src/cryptokit.ml" 1475 44174 44214 "src/cryptokit.ml" 1475 44174 44215
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1445 43182 43189 "src/cryptokit.ml" 1445 43182 43190
)
"src/cryptokit.ml" 1475 44174 44184 "src/cryptokit.ml" 1475 44174 44215
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1476 44217 44227 "src/cryptokit.ml" 1476 44217 44238
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1476 44217 44248 "src/cryptokit.ml" 1476 44217 44256
type(
  int
)
ident(
  int_ref numbits2 "src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
)
"src/cryptokit.ml" 1476 44217 44257 "src/cryptokit.ml" 1476 44217 44258
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1445 43182 43192 "src/cryptokit.ml" 1445 43182 43193
)
"src/cryptokit.ml" 1476 44217 44227 "src/cryptokit.ml" 1476 44217 44258
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1477 44260 44271 "src/cryptokit.ml" 1477 44260 44282
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1477 44260 44292 "src/cryptokit.ml" 1477 44260 44300
type(
  int
)
ident(
  int_ref numbits2 "src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
)
"src/cryptokit.ml" 1477 44260 44301 "src/cryptokit.ml" 1477 44260 44303
type(
  Bn.t
)
ident(
  int_ref dp "src/cryptokit.ml" 1466 43890 43896 "src/cryptokit.ml" 1466 43890 43898
)
"src/cryptokit.ml" 1477 44260 44271 "src/cryptokit.ml" 1477 44260 44303
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1478 44305 44316 "src/cryptokit.ml" 1478 44305 44327
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1478 44305 44337 "src/cryptokit.ml" 1478 44305 44345
type(
  int
)
ident(
  int_ref numbits2 "src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
)
"src/cryptokit.ml" 1478 44305 44346 "src/cryptokit.ml" 1478 44305 44348
type(
  Bn.t
)
ident(
  int_ref dq "src/cryptokit.ml" 1466 43890 43918 "src/cryptokit.ml" 1466 43890 43920
)
"src/cryptokit.ml" 1478 44305 44316 "src/cryptokit.ml" 1478 44305 44348
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1479 44350 44363 "src/cryptokit.ml" 1479 44350 44374
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1479 44350 44384 "src/cryptokit.ml" 1479 44350 44392
type(
  int
)
ident(
  int_ref numbits2 "src/cryptokit.ml" 1426 42540 42546 "src/cryptokit.ml" 1426 42540 42554
)
"src/cryptokit.ml" 1479 44350 44393 "src/cryptokit.ml" 1479 44350 44397
type(
  Bn.t
)
ident(
  int_ref qinv "src/cryptokit.ml" 1468 43965 43971 "src/cryptokit.ml" 1468 43965 43975
)
"src/cryptokit.ml" 1479 44350 44363 "src/cryptokit.ml" 1479 44350 44397
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1471 44026 44030 "src/cryptokit.ml" 1479 44350 44399
type(
  key
)
"src/cryptokit.ml" 1480 44403 44405 "src/cryptokit.ml" 1480 44403 44412
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1480 44403 44413 "src/cryptokit.ml" 1480 44403 44414
type(
  Bn.t
)
ident(
  int_ref n "src/cryptokit.ml" 1462 43749 43755 "src/cryptokit.ml" 1462 43749 43756
)
"src/cryptokit.ml" 1480 44403 44405 "src/cryptokit.ml" 1480 44403 44414
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1480 44403 44416 "src/cryptokit.ml" 1480 44403 44423
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1480 44403 44424 "src/cryptokit.ml" 1480 44403 44425
type(
  Bn.t
)
ident(
  int_ref e "src/cryptokit.ml" 1451 43428 43434 "src/cryptokit.ml" 1451 43428 43435
)
"src/cryptokit.ml" 1480 44403 44416 "src/cryptokit.ml" 1480 44403 44425
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1480 44403 44427 "src/cryptokit.ml" 1480 44403 44434
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1480 44403 44435 "src/cryptokit.ml" 1480 44403 44436
type(
  Bn.t
)
ident(
  int_ref d "src/cryptokit.ml" 1464 43806 43812 "src/cryptokit.ml" 1464 43806 43813
)
"src/cryptokit.ml" 1480 44403 44427 "src/cryptokit.ml" 1480 44403 44436
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1481 44438 44440 "src/cryptokit.ml" 1481 44438 44447
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1481 44438 44448 "src/cryptokit.ml" 1481 44438 44449
type(
  Bn.t
)
ident(
  int_ref p "src/cryptokit.ml" 1445 43182 43189 "src/cryptokit.ml" 1445 43182 43190
)
"src/cryptokit.ml" 1481 44438 44440 "src/cryptokit.ml" 1481 44438 44449
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1481 44438 44451 "src/cryptokit.ml" 1481 44438 44458
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1481 44438 44459 "src/cryptokit.ml" 1481 44438 44460
type(
  Bn.t
)
ident(
  int_ref q "src/cryptokit.ml" 1445 43182 43192 "src/cryptokit.ml" 1445 43182 43193
)
"src/cryptokit.ml" 1481 44438 44451 "src/cryptokit.ml" 1481 44438 44460
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1482 44462 44464 "src/cryptokit.ml" 1482 44462 44471
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1482 44462 44472 "src/cryptokit.ml" 1482 44462 44474
type(
  Bn.t
)
ident(
  int_ref p1 "src/cryptokit.ml" 1447 43255 43261 "src/cryptokit.ml" 1447 43255 43263
)
"src/cryptokit.ml" 1482 44462 44464 "src/cryptokit.ml" 1482 44462 44474
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1482 44462 44476 "src/cryptokit.ml" 1482 44462 44483
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1482 44462 44484 "src/cryptokit.ml" 1482 44462 44486
type(
  Bn.t
)
ident(
  int_ref q1 "src/cryptokit.ml" 1448 43282 43288 "src/cryptokit.ml" 1448 43282 43290
)
"src/cryptokit.ml" 1482 44462 44476 "src/cryptokit.ml" 1482 44462 44486
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1483 44488 44490 "src/cryptokit.ml" 1483 44488 44497
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1483 44488 44498 "src/cryptokit.ml" 1483 44488 44500
type(
  Bn.t
)
ident(
  int_ref dp "src/cryptokit.ml" 1466 43890 43896 "src/cryptokit.ml" 1466 43890 43898
)
"src/cryptokit.ml" 1483 44488 44490 "src/cryptokit.ml" 1483 44488 44500
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1483 44488 44502 "src/cryptokit.ml" 1483 44488 44509
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1483 44488 44510 "src/cryptokit.ml" 1483 44488 44512
type(
  Bn.t
)
ident(
  int_ref dq "src/cryptokit.ml" 1466 43890 43918 "src/cryptokit.ml" 1466 43890 43920
)
"src/cryptokit.ml" 1483 44488 44502 "src/cryptokit.ml" 1483 44488 44512
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1483 44488 44514 "src/cryptokit.ml" 1483 44488 44521
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1483 44488 44522 "src/cryptokit.ml" 1483 44488 44526
type(
  Bn.t
)
ident(
  int_ref qinv "src/cryptokit.ml" 1468 43965 43971 "src/cryptokit.ml" 1468 43965 43975
)
"src/cryptokit.ml" 1483 44488 44514 "src/cryptokit.ml" 1483 44488 44526
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1484 44528 44530 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
ident(
  int_ref res "src/cryptokit.ml" 1470 44014 44020 "src/cryptokit.ml" 1470 44014 44023
)
"src/cryptokit.ml" 1483 44488 44514 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1483 44488 44502 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1483 44488 44490 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1482 44462 44476 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1482 44462 44464 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1481 44438 44451 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1481 44438 44440 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1480 44403 44427 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1480 44403 44416 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1480 44403 44405 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1470 44014 44016 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1468 43965 43967 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1466 43890 43892 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1464 43806 43808 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1462 43749 43751 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1451 43428 43430 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1447 43255 43257 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1445 43182 43184 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1439 42974 42976 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1430 42702 42704 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1426 42540 42542 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1425 42466 42468 "src/cryptokit.ml" 1484 44528 44533
type(
  key
)
"src/cryptokit.ml" 1497 44664 44668 "src/cryptokit.ml" 1497 44664 44682
type(
  ?rng:Random.system_rng -> ?privlen:int -> int -> parameters
)
ident(
  def new_parameters "src/cryptokit.ml" 1508 45153 45153 "src/cryptokit.ml" 1537 46150 46153
)
"src/cryptokit.ml" 1497 44664 44685 "src/cryptokit.ml" 1497 44664 44688
type(
  Random.system_rng
)
"src/cryptokit.ml" 1497 44664 44691 "src/cryptokit.ml" 1497 44664 44708
type(
  Random.system_rng
)
ident(
  int_ref Random.secure_rng "src/cryptokit.ml" 1290 38883 38887 "src/cryptokit.ml" 1290 38883 38897
)
type(
  Random.system_rng
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1497 44664 44691 "src/cryptokit.ml" 1497 44664 44708
)
type(
  Random.system_rng option
)
type(
  Random.system_rng option
)
type(
  Random.system_rng
)
"src/cryptokit.ml" 1497 44664 44712 "src/cryptokit.ml" 1497 44664 44719
type(
  int
)
"src/cryptokit.ml" 1497 44664 44722 "src/cryptokit.ml" 1497 44664 44725
type(
  int
)
type(
  int
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1497 44664 44722 "src/cryptokit.ml" 1497 44664 44725
)
type(
  int option
)
type(
  int option
)
type(
  int
)
"src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
type(
  int
)
ident(
  def numbits "src/cryptokit.ml" 1498 44737 44739 "src/cryptokit.ml" 1506 45128 45151
)
"src/cryptokit.ml" 1498 44737 44742 "src/cryptokit.ml" 1498 44737 44749
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
)
"src/cryptokit.ml" 1498 44737 44750 "src/cryptokit.ml" 1498 44737 44751
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1498 44737 44752 "src/cryptokit.ml" 1498 44737 44754
type(
  int
)
"src/cryptokit.ml" 1498 44737 44742 "src/cryptokit.ml" 1498 44737 44754
type(
  bool
)
"src/cryptokit.ml" 1498 44737 44755 "src/cryptokit.ml" 1498 44737 44757
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1498 44737 44758 "src/cryptokit.ml" 1498 44737 44765
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
)
"src/cryptokit.ml" 1498 44737 44766 "src/cryptokit.ml" 1498 44737 44768
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 1498 44737 44769 "src/cryptokit.ml" 1498 44737 44776
type(
  int
)
ident(
  int_ref privlen "src/cryptokit.ml" 1497 44664 44712 "src/cryptokit.ml" 1497 44664 44719
)
"src/cryptokit.ml" 1498 44737 44758 "src/cryptokit.ml" 1498 44737 44776
type(
  bool
)
"src/cryptokit.ml" 1498 44737 44742 "src/cryptokit.ml" 1498 44737 44776
type(
  bool
)
"src/cryptokit.ml" 1498 44737 44782 "src/cryptokit.ml" 1498 44737 44787
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1498 44737 44794 "src/cryptokit.ml" 1498 44737 44808
type(
  error
)
"src/cryptokit.ml" 1498 44737 44787 "src/cryptokit.ml" 1498 44737 44809
type(
  exn
)
"src/cryptokit.ml" 1498 44737 44782 "src/cryptokit.ml" 1498 44737 44809
type(
  unit
)
"src/cryptokit.ml" 1498 44737 44739 "src/cryptokit.ml" 1498 44737 44809
type(
  unit
)
"src/cryptokit.ml" 1499 44811 44817 "src/cryptokit.ml" 1499 44811 44819
type(
  Bn.t
)
ident(
  def np "src/cryptokit.ml" 1500 44873 44875 "src/cryptokit.ml" 1506 45128 45151
)
"src/cryptokit.ml" 1499 44811 44822 "src/cryptokit.ml" 1499 44811 44837
type(
  rng:(bytes -> int -> int -> unit) -> int -> Bn.t
)
ident(
  ext_ref Bn.random_prime
)
"src/cryptokit.ml" 1499 44811 44844 "src/cryptokit.ml" 1499 44811 44847
type(
  Random.system_rng
)
ident(
  int_ref rng "src/cryptokit.ml" 1497 44664 44685 "src/cryptokit.ml" 1497 44664 44688
)
"src/cryptokit.ml" 1499 44811 44843 "src/cryptokit.ml" 1499 44811 44861
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1499 44811 44862 "src/cryptokit.ml" 1499 44811 44869
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
)
"src/cryptokit.ml" 1499 44811 44822 "src/cryptokit.ml" 1499 44811 44869
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1500 44873 44883 "src/cryptokit.ml" 1500 44873 44897
type(
  unit -> Bn.t
)
ident(
  def find_generator "src/cryptokit.ml" 1500 44873 44875 "src/cryptokit.ml" 1506 45128 45151
)
"src/cryptokit.ml" 1500 44873 44898 "src/cryptokit.ml" 1500 44873 44900
type(
  unit
)
"src/cryptokit.ml" 1501 44903 44911 "src/cryptokit.ml" 1501 44903 44912
type(
  Bn.t
)
ident(
  def g "src/cryptokit.ml" 1502 44966 44970 "src/cryptokit.ml" 1502 44966 45026
)
"src/cryptokit.ml" 1501 44903 44915 "src/cryptokit.ml" 1501 44903 44924
type(
  rng:(bytes -> int -> int -> unit) -> ?odd:bool -> int -> Bn.t
)
ident(
  ext_ref Bn.random
)
"src/cryptokit.ml" 1501 44903 44931 "src/cryptokit.ml" 1501 44903 44934
type(
  Random.system_rng
)
ident(
  int_ref rng "src/cryptokit.ml" 1497 44664 44685 "src/cryptokit.ml" 1497 44664 44688
)
"src/cryptokit.ml" 1501 44903 44930 "src/cryptokit.ml" 1501 44903 44948
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1501 44903 44950 "src/cryptokit.ml" 1501 44903 44957
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
)
"src/cryptokit.ml" 1501 44903 44958 "src/cryptokit.ml" 1501 44903 44959
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1501 44903 44960 "src/cryptokit.ml" 1501 44903 44961
type(
  int
)
"src/cryptokit.ml" 1501 44903 44949 "src/cryptokit.ml" 1501 44903 44962
type(
  int
)
"src/cryptokit.ml" 1501 44903 44915 "src/cryptokit.ml" 1501 44903 44962
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1502 44966 44973 "src/cryptokit.ml" 1502 44966 44983
type(
  Bn.t -> Bn.t -> int
)
ident(
  ext_ref Bn.compare
)
"src/cryptokit.ml" 1502 44966 44984 "src/cryptokit.ml" 1502 44966 44985
type(
  Bn.t
)
ident(
  int_ref g "src/cryptokit.ml" 1501 44903 44911 "src/cryptokit.ml" 1501 44903 44912
)
"src/cryptokit.ml" 1502 44966 44986 "src/cryptokit.ml" 1502 44966 44992
type(
  Bn.t
)
ident(
  ext_ref Bn.one
)
"src/cryptokit.ml" 1502 44966 44973 "src/cryptokit.ml" 1502 44966 44992
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1502 44966 44993 "src/cryptokit.ml" 1502 44966 44995
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/cryptokit.ml" 1502 44966 44996 "src/cryptokit.ml" 1502 44966 44997
type(
  int
)
"src/cryptokit.ml" 1502 44966 44973 "src/cryptokit.ml" 1502 44966 44997
type(
  bool
)
"src/cryptokit.ml" 1502 44966 45003 "src/cryptokit.ml" 1502 44966 45017
type(
  unit -> Bn.t
)
ident(
  int_ref find_generator "src/cryptokit.ml" 1500 44873 44883 "src/cryptokit.ml" 1500 44873 44897
)
"src/cryptokit.ml" 1502 44966 45017 "src/cryptokit.ml" 1502 44966 45019
type(
  unit
)
"src/cryptokit.ml" 1502 44966 45003 "src/cryptokit.ml" 1502 44966 45019
call(
  tail
)
type(
  Bn.t
)
"src/cryptokit.ml" 1502 44966 45025 "src/cryptokit.ml" 1502 44966 45026
type(
  Bn.t
)
ident(
  int_ref g "src/cryptokit.ml" 1501 44903 44911 "src/cryptokit.ml" 1501 44903 44912
)
"src/cryptokit.ml" 1502 44966 44970 "src/cryptokit.ml" 1502 44966 45026
type(
  Bn.t
)
"src/cryptokit.ml" 1501 44903 44907 "src/cryptokit.ml" 1502 44966 45026
type(
  Bn.t
)
"src/cryptokit.ml" 1503 45030 45036 "src/cryptokit.ml" 1503 45030 45038
type(
  Bn.t
)
ident(
  def ng "src/cryptokit.ml" 1504 45062 45064 "src/cryptokit.ml" 1506 45128 45151
)
"src/cryptokit.ml" 1503 45030 45041 "src/cryptokit.ml" 1503 45030 45055
type(
  unit -> Bn.t
)
ident(
  int_ref find_generator "src/cryptokit.ml" 1500 44873 44883 "src/cryptokit.ml" 1500 44873 44897
)
"src/cryptokit.ml" 1503 45030 45056 "src/cryptokit.ml" 1503 45030 45058
type(
  unit
)
"src/cryptokit.ml" 1503 45030 45041 "src/cryptokit.ml" 1503 45030 45058
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1504 45062 45070 "src/cryptokit.ml" 1504 45062 45081
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1504 45062 45083 "src/cryptokit.ml" 1504 45062 45090
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
)
"src/cryptokit.ml" 1504 45062 45091 "src/cryptokit.ml" 1504 45062 45093
type(
  Bn.t
)
ident(
  int_ref np "src/cryptokit.ml" 1499 44811 44817 "src/cryptokit.ml" 1499 44811 44819
)
"src/cryptokit.ml" 1504 45062 45070 "src/cryptokit.ml" 1504 45062 45093
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1505 45095 45103 "src/cryptokit.ml" 1505 45095 45114
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1505 45095 45116 "src/cryptokit.ml" 1505 45095 45123
type(
  int
)
ident(
  int_ref numbits "src/cryptokit.ml" 1497 44664 44727 "src/cryptokit.ml" 1497 44664 44734
)
"src/cryptokit.ml" 1505 45095 45124 "src/cryptokit.ml" 1505 45095 45126
type(
  Bn.t
)
ident(
  int_ref ng "src/cryptokit.ml" 1503 45030 45036 "src/cryptokit.ml" 1503 45030 45038
)
"src/cryptokit.ml" 1505 45095 45103 "src/cryptokit.ml" 1505 45095 45126
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1506 45128 45142 "src/cryptokit.ml" 1506 45128 45149
type(
  int
)
ident(
  int_ref privlen "src/cryptokit.ml" 1497 44664 44712 "src/cryptokit.ml" 1497 44664 44719
)
"src/cryptokit.ml" 1504 45062 45064 "src/cryptokit.ml" 1506 45128 45151
type(
  parameters
)
"src/cryptokit.ml" 1503 45030 45032 "src/cryptokit.ml" 1506 45128 45151
type(
  parameters
)
"src/cryptokit.ml" 1500 44873 44875 "src/cryptokit.ml" 1506 45128 45151
type(
  parameters
)
"src/cryptokit.ml" 1499 44811 44813 "src/cryptokit.ml" 1506 45128 45151
type(
  parameters
)
"src/cryptokit.ml" 1498 44737 44739 "src/cryptokit.ml" 1506 45128 45151
type(
  parameters
)
"src/cryptokit.ml" 1510 45181 45185 "src/cryptokit.ml" 1510 45181 45199
type(
  ?rng:Random.system_rng -> parameters -> Bn.t
)
ident(
  def private_secret "src/cryptokit.ml" 1513 45288 45288 "src/cryptokit.ml" 1537 46150 46153
)
"src/cryptokit.ml" 1510 45181 45202 "src/cryptokit.ml" 1510 45181 45205
type(
  Random.system_rng
)
"src/cryptokit.ml" 1510 45181 45208 "src/cryptokit.ml" 1510 45181 45225
type(
  Random.system_rng
)
ident(
  int_ref Random.secure_rng "src/cryptokit.ml" 1290 38883 38887 "src/cryptokit.ml" 1290 38883 38897
)
type(
  Random.system_rng
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1510 45181 45208 "src/cryptokit.ml" 1510 45181 45225
)
type(
  Random.system_rng option
)
type(
  Random.system_rng option
)
type(
  Random.system_rng
)
"src/cryptokit.ml" 1510 45181 45227 "src/cryptokit.ml" 1510 45181 45233
type(
  parameters
)
ident(
  def params "src/cryptokit.ml" 1511 45236 45238 "src/cryptokit.ml" 1511 45236 45286
)
"src/cryptokit.ml" 1511 45236 45238 "src/cryptokit.ml" 1511 45236 45247
type(
  rng:(bytes -> int -> int -> unit) -> ?odd:bool -> int -> Bn.t
)
ident(
  ext_ref Bn.random
)
"src/cryptokit.ml" 1511 45236 45254 "src/cryptokit.ml" 1511 45236 45257
type(
  Random.system_rng
)
ident(
  int_ref rng "src/cryptokit.ml" 1510 45181 45202 "src/cryptokit.ml" 1510 45181 45205
)
"src/cryptokit.ml" 1511 45236 45253 "src/cryptokit.ml" 1511 45236 45271
call(
  stack
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1511 45236 45272 "src/cryptokit.ml" 1511 45236 45278
type(
  parameters
)
ident(
  int_ref params "src/cryptokit.ml" 1510 45181 45227 "src/cryptokit.ml" 1510 45181 45233
)
"src/cryptokit.ml" 1511 45236 45272 "src/cryptokit.ml" 1511 45236 45286
type(
  int
)
"src/cryptokit.ml" 1511 45236 45238 "src/cryptokit.ml" 1511 45236 45286
call(
  tail
)
type(
  Bn.t
)
"src/cryptokit.ml" 1513 45288 45292 "src/cryptokit.ml" 1513 45288 45299
type(
  parameters -> Bn.t -> string
)
ident(
  def message "src/cryptokit.ml" 1517 45443 45443 "src/cryptokit.ml" 1537 46150 46153
)
"src/cryptokit.ml" 1513 45288 45300 "src/cryptokit.ml" 1513 45288 45306
type(
  parameters
)
ident(
  def params "src/cryptokit.ml" 1513 45288 45307 "src/cryptokit.ml" 1515 45369 45441
)
"src/cryptokit.ml" 1513 45288 45307 "src/cryptokit.ml" 1513 45288 45314
type(
  Bn.t
)
ident(
  def privsec "src/cryptokit.ml" 1514 45317 45319 "src/cryptokit.ml" 1515 45369 45441
)
"src/cryptokit.ml" 1514 45317 45319 "src/cryptokit.ml" 1514 45317 45330
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1514 45317 45341 "src/cryptokit.ml" 1514 45317 45354
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1514 45317 45355 "src/cryptokit.ml" 1514 45317 45361
type(
  parameters
)
ident(
  int_ref params "src/cryptokit.ml" 1513 45288 45300 "src/cryptokit.ml" 1513 45288 45306
)
"src/cryptokit.ml" 1514 45317 45355 "src/cryptokit.ml" 1514 45317 45363
type(
  string
)
"src/cryptokit.ml" 1514 45317 45341 "src/cryptokit.ml" 1514 45317 45363
type(
  int
)
"src/cryptokit.ml" 1514 45317 45364 "src/cryptokit.ml" 1514 45317 45365
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 1514 45317 45366 "src/cryptokit.ml" 1514 45317 45367
type(
  int
)
"src/cryptokit.ml" 1514 45317 45340 "src/cryptokit.ml" 1514 45317 45368
type(
  int
)
"src/cryptokit.ml" 1515 45369 45374 "src/cryptokit.ml" 1515 45369 45386
type(
  Bn.t -> Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_power
)
"src/cryptokit.ml" 1515 45369 45388 "src/cryptokit.ml" 1515 45369 45399
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1515 45369 45400 "src/cryptokit.ml" 1515 45369 45406
type(
  parameters
)
ident(
  int_ref params "src/cryptokit.ml" 1513 45288 45300 "src/cryptokit.ml" 1513 45288 45306
)
"src/cryptokit.ml" 1515 45369 45400 "src/cryptokit.ml" 1515 45369 45408
type(
  string
)
"src/cryptokit.ml" 1515 45369 45387 "src/cryptokit.ml" 1515 45369 45409
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1515 45369 45410 "src/cryptokit.ml" 1515 45369 45417
type(
  Bn.t
)
ident(
  int_ref privsec "src/cryptokit.ml" 1513 45288 45307 "src/cryptokit.ml" 1513 45288 45314
)
"src/cryptokit.ml" 1515 45369 45419 "src/cryptokit.ml" 1515 45369 45430
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1515 45369 45431 "src/cryptokit.ml" 1515 45369 45437
type(
  parameters
)
ident(
  int_ref params "src/cryptokit.ml" 1513 45288 45300 "src/cryptokit.ml" 1513 45288 45306
)
"src/cryptokit.ml" 1515 45369 45431 "src/cryptokit.ml" 1515 45369 45439
type(
  string
)
"src/cryptokit.ml" 1515 45369 45418 "src/cryptokit.ml" 1515 45369 45440
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1515 45369 45373 "src/cryptokit.ml" 1515 45369 45441
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1514 45317 45319 "src/cryptokit.ml" 1515 45369 45441
call(
  tail
)
type(
  string
)
"src/cryptokit.ml" 1517 45443 45447 "src/cryptokit.ml" 1517 45443 45460
type(
  parameters -> Bn.t -> string -> string
)
ident(
  def shared_secret "src/cryptokit.ml" 1523 45655 45655 "src/cryptokit.ml" 1537 46150 46153
)
"src/cryptokit.ml" 1517 45443 45461 "src/cryptokit.ml" 1517 45443 45467
type(
  parameters
)
ident(
  def params "src/cryptokit.ml" 1517 45443 45468 "src/cryptokit.ml" 1521 45628 45653
)
"src/cryptokit.ml" 1517 45443 45468 "src/cryptokit.ml" 1517 45443 45475
type(
  Bn.t
)
ident(
  def privsec "src/cryptokit.ml" 1517 45443 45476 "src/cryptokit.ml" 1521 45628 45653
)
"src/cryptokit.ml" 1517 45443 45476 "src/cryptokit.ml" 1517 45443 45484
type(
  string
)
ident(
  def othermsg "src/cryptokit.ml" 1518 45487 45489 "src/cryptokit.ml" 1521 45628 45653
)
"src/cryptokit.ml" 1518 45487 45493 "src/cryptokit.ml" 1518 45487 45496
type(
  string
)
ident(
  def res "src/cryptokit.ml" 1521 45628 45633 "src/cryptokit.ml" 1521 45628 45653
)
"src/cryptokit.ml" 1519 45499 45503 "src/cryptokit.ml" 1519 45499 45514
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1519 45499 45525 "src/cryptokit.ml" 1519 45499 45538
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1519 45499 45539 "src/cryptokit.ml" 1519 45499 45545
type(
  parameters
)
ident(
  int_ref params "src/cryptokit.ml" 1517 45443 45461 "src/cryptokit.ml" 1517 45443 45467
)
"src/cryptokit.ml" 1519 45499 45539 "src/cryptokit.ml" 1519 45499 45547
type(
  string
)
"src/cryptokit.ml" 1519 45499 45525 "src/cryptokit.ml" 1519 45499 45547
type(
  int
)
"src/cryptokit.ml" 1519 45499 45548 "src/cryptokit.ml" 1519 45499 45549
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 1519 45499 45550 "src/cryptokit.ml" 1519 45499 45551
type(
  int
)
"src/cryptokit.ml" 1519 45499 45524 "src/cryptokit.ml" 1519 45499 45552
type(
  int
)
"src/cryptokit.ml" 1520 45553 45560 "src/cryptokit.ml" 1520 45553 45572
type(
  Bn.t -> Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_power
)
"src/cryptokit.ml" 1520 45553 45574 "src/cryptokit.ml" 1520 45553 45585
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1520 45553 45586 "src/cryptokit.ml" 1520 45553 45594
type(
  string
)
ident(
  int_ref othermsg "src/cryptokit.ml" 1517 45443 45476 "src/cryptokit.ml" 1517 45443 45484
)
"src/cryptokit.ml" 1520 45553 45573 "src/cryptokit.ml" 1520 45553 45595
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1520 45553 45596 "src/cryptokit.ml" 1520 45553 45603
type(
  Bn.t
)
ident(
  int_ref privsec "src/cryptokit.ml" 1517 45443 45468 "src/cryptokit.ml" 1517 45443 45475
)
"src/cryptokit.ml" 1520 45553 45605 "src/cryptokit.ml" 1520 45553 45616
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1520 45553 45617 "src/cryptokit.ml" 1520 45553 45623
type(
  parameters
)
ident(
  int_ref params "src/cryptokit.ml" 1517 45443 45461 "src/cryptokit.ml" 1517 45443 45467
)
"src/cryptokit.ml" 1520 45553 45617 "src/cryptokit.ml" 1520 45553 45625
type(
  string
)
"src/cryptokit.ml" 1520 45553 45604 "src/cryptokit.ml" 1520 45553 45626
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1520 45553 45559 "src/cryptokit.ml" 1520 45553 45627
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1519 45499 45503 "src/cryptokit.ml" 1520 45553 45627
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1521 45628 45633 "src/cryptokit.ml" 1521 45628 45640
type(
  Bn.t -> unit
)
ident(
  ext_ref Bn.wipe
)
"src/cryptokit.ml" 1521 45628 45641 "src/cryptokit.ml" 1521 45628 45648
type(
  Bn.t
)
ident(
  int_ref privsec "src/cryptokit.ml" 1517 45443 45468 "src/cryptokit.ml" 1517 45443 45475
)
"src/cryptokit.ml" 1521 45628 45633 "src/cryptokit.ml" 1521 45628 45648
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1521 45628 45650 "src/cryptokit.ml" 1521 45628 45653
type(
  string
)
ident(
  int_ref res "src/cryptokit.ml" 1518 45487 45493 "src/cryptokit.ml" 1518 45487 45496
)
"src/cryptokit.ml" 1521 45628 45633 "src/cryptokit.ml" 1521 45628 45653
type(
  string
)
"src/cryptokit.ml" 1518 45487 45489 "src/cryptokit.ml" 1521 45628 45653
type(
  string
)
"src/cryptokit.ml" 1523 45655 45659 "src/cryptokit.ml" 1523 45655 45669
type(
  ?diversification:string -> string -> int -> string
)
ident(
  def derive_key "src/cryptokit.ml" 1535 46117 46148 "src/cryptokit.ml" 1537 46150 46153
)
"src/cryptokit.ml" 1523 45655 45672 "src/cryptokit.ml" 1523 45655 45687
type(
  string
)
"src/cryptokit.ml" 1523 45655 45690 "src/cryptokit.ml" 1523 45655 45692
type(
  string
)
type(
  string
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1523 45655 45690 "src/cryptokit.ml" 1523 45655 45692
)
type(
  string option
)
type(
  string option
)
type(
  string
)
"src/cryptokit.ml" 1523 45655 45694 "src/cryptokit.ml" 1523 45655 45703
type(
  string
)
ident(
  def sharedsec "src/cryptokit.ml" 1523 45655 45704 "src/cryptokit.ml" 1535 46117 46148
)
"src/cryptokit.ml" 1523 45655 45704 "src/cryptokit.ml" 1523 45655 45712
type(
  int
)
ident(
  def numbytes "src/cryptokit.ml" 1524 45715 45717 "src/cryptokit.ml" 1535 46117 46148
)
"src/cryptokit.ml" 1524 45715 45721 "src/cryptokit.ml" 1524 45715 45727
type(
  bytes
)
ident(
  def result "src/cryptokit.ml" 1525 45755 45757 "src/cryptokit.ml" 1535 46117 46148
)
"src/cryptokit.ml" 1524 45715 45730 "src/cryptokit.ml" 1524 45715 45742
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 1524 45715 45743 "src/cryptokit.ml" 1524 45715 45751
type(
  int
)
ident(
  int_ref numbytes "src/cryptokit.ml" 1523 45655 45704 "src/cryptokit.ml" 1523 45655 45712
)
"src/cryptokit.ml" 1524 45715 45730 "src/cryptokit.ml" 1524 45715 45751
type(
  bytes
)
"src/cryptokit.ml" 1525 45755 45765 "src/cryptokit.ml" 1525 45755 45771
type(
  int -> int -> unit
)
ident(
  def derive "src/cryptokit.ml" 1525 45755 45757 "src/cryptokit.ml" 1535 46117 46148
)
"src/cryptokit.ml" 1525 45755 45772 "src/cryptokit.ml" 1525 45755 45775
type(
  int
)
ident(
  def pos "src/cryptokit.ml" 1525 45755 45776 "src/cryptokit.ml" 1533 46092 46099
)
"src/cryptokit.ml" 1525 45755 45776 "src/cryptokit.ml" 1525 45755 45783
type(
  int
)
ident(
  def counter "src/cryptokit.ml" 1526 45786 45790 "src/cryptokit.ml" 1533 46092 46099
)
"src/cryptokit.ml" 1526 45786 45793 "src/cryptokit.ml" 1526 45786 45796
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 1525 45755 45772 "src/cryptokit.ml" 1525 45755 45775
)
"src/cryptokit.ml" 1526 45786 45797 "src/cryptokit.ml" 1526 45786 45798
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1526 45786 45799 "src/cryptokit.ml" 1526 45786 45807
type(
  int
)
ident(
  int_ref numbytes "src/cryptokit.ml" 1523 45655 45704 "src/cryptokit.ml" 1523 45655 45712
)
"src/cryptokit.ml" 1526 45786 45793 "src/cryptokit.ml" 1526 45786 45807
type(
  bool
)
"src/cryptokit.ml" 1527 45819 45829 "src/cryptokit.ml" 1527 45819 45830
type(
  string
)
ident(
  def h "src/cryptokit.ml" 1530 45945 45951 "src/cryptokit.ml" 1532 46041 46091
)
"src/cryptokit.ml" 1528 45833 45841 "src/cryptokit.ml" 1528 45833 45852
type(
  Hash.sha1 -> string -> string
)
ident(
  int_ref hash_string "src/cryptokit.ml" 184 6901 6905 "src/cryptokit.ml" 184 6901 6916
)
"src/cryptokit.ml" 1528 45833 45854 "src/cryptokit.ml" 1528 45833 45863
type(
  unit -> Hash.sha1
)
ident(
  int_ref Hash.sha1 "src/cryptokit.ml" 877 26750 26754 "src/cryptokit.ml" 877 26750 26758
)
"src/cryptokit.ml" 1528 45833 45863 "src/cryptokit.ml" 1528 45833 45865
type(
  unit
)
"src/cryptokit.ml" 1528 45833 45853 "src/cryptokit.ml" 1528 45833 45866
call(
  stack
)
type(
  Hash.sha1
)
"src/cryptokit.ml" 1529 45868 45889 "src/cryptokit.ml" 1529 45868 45904
type(
  string
)
ident(
  int_ref diversification "src/cryptokit.ml" 1523 45655 45672 "src/cryptokit.ml" 1523 45655 45687
)
"src/cryptokit.ml" 1529 45868 45905 "src/cryptokit.ml" 1529 45868 45906
type(
  string -> string -> string
)
ident(
  ext_ref Pervasives.( ^ )
)
"src/cryptokit.ml" 1529 45868 45907 "src/cryptokit.ml" 1529 45868 45916
type(
  string
)
ident(
  int_ref sharedsec "src/cryptokit.ml" 1523 45655 45694 "src/cryptokit.ml" 1523 45655 45703
)
"src/cryptokit.ml" 1529 45868 45917 "src/cryptokit.ml" 1529 45868 45918
type(
  string -> string -> string
)
ident(
  ext_ref Pervasives.( ^ )
)
"src/cryptokit.ml" 1529 45868 45919 "src/cryptokit.ml" 1529 45868 45932
type(
  int -> string
)
ident(
  ext_ref Pervasives.string_of_int
)
"src/cryptokit.ml" 1529 45868 45933 "src/cryptokit.ml" 1529 45868 45940
type(
  int
)
ident(
  int_ref counter "src/cryptokit.ml" 1525 45755 45776 "src/cryptokit.ml" 1525 45755 45783
)
"src/cryptokit.ml" 1529 45868 45919 "src/cryptokit.ml" 1529 45868 45940
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1529 45868 45907 "src/cryptokit.ml" 1529 45868 45940
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1529 45868 45888 "src/cryptokit.ml" 1529 45868 45941
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1528 45833 45841 "src/cryptokit.ml" 1529 45868 45941
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1530 45945 45951 "src/cryptokit.ml" 1530 45945 45962
type(
  string -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref String.blit
)
"src/cryptokit.ml" 1530 45945 45963 "src/cryptokit.ml" 1530 45945 45964
type(
  string
)
ident(
  int_ref h "src/cryptokit.ml" 1527 45819 45829 "src/cryptokit.ml" 1527 45819 45830
)
"src/cryptokit.ml" 1530 45945 45965 "src/cryptokit.ml" 1530 45945 45966
type(
  int
)
"src/cryptokit.ml" 1530 45945 45967 "src/cryptokit.ml" 1530 45945 45973
type(
  bytes
)
ident(
  int_ref result "src/cryptokit.ml" 1524 45715 45721 "src/cryptokit.ml" 1524 45715 45727
)
"src/cryptokit.ml" 1530 45945 45974 "src/cryptokit.ml" 1530 45945 45977
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 1525 45755 45772 "src/cryptokit.ml" 1525 45755 45775
)
"src/cryptokit.ml" 1530 45945 45979 "src/cryptokit.ml" 1530 45945 45982
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/cryptokit.ml" 1530 45945 45984 "src/cryptokit.ml" 1530 45945 45997
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1530 45945 45998 "src/cryptokit.ml" 1530 45945 45999
type(
  string
)
ident(
  int_ref h "src/cryptokit.ml" 1527 45819 45829 "src/cryptokit.ml" 1527 45819 45830
)
"src/cryptokit.ml" 1530 45945 45983 "src/cryptokit.ml" 1530 45945 46000
type(
  int
)
"src/cryptokit.ml" 1530 45945 46002 "src/cryptokit.ml" 1530 45945 46010
type(
  int
)
ident(
  int_ref numbytes "src/cryptokit.ml" 1523 45655 45704 "src/cryptokit.ml" 1523 45655 45712
)
"src/cryptokit.ml" 1530 45945 46011 "src/cryptokit.ml" 1530 45945 46012
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1530 45945 46013 "src/cryptokit.ml" 1530 45945 46016
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 1525 45755 45772 "src/cryptokit.ml" 1525 45755 45775
)
"src/cryptokit.ml" 1530 45945 46001 "src/cryptokit.ml" 1530 45945 46017
type(
  int
)
"src/cryptokit.ml" 1530 45945 45978 "src/cryptokit.ml" 1530 45945 46018
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1530 45945 45951 "src/cryptokit.ml" 1530 45945 46018
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1531 46020 46026 "src/cryptokit.ml" 1531 46020 46037
type(
  string -> unit
)
ident(
  int_ref wipe_string "src/cryptokit.ml" 17 959 963 "src/cryptokit.ml" 17 959 974
)
"src/cryptokit.ml" 1531 46020 46038 "src/cryptokit.ml" 1531 46020 46039
type(
  string
)
ident(
  int_ref h "src/cryptokit.ml" 1527 45819 45829 "src/cryptokit.ml" 1527 45819 45830
)
"src/cryptokit.ml" 1531 46020 46026 "src/cryptokit.ml" 1531 46020 46039
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1532 46041 46047 "src/cryptokit.ml" 1532 46041 46053
type(
  int -> int -> unit
)
ident(
  int_ref derive "src/cryptokit.ml" 1525 45755 45765 "src/cryptokit.ml" 1525 45755 45771
)
"src/cryptokit.ml" 1532 46041 46055 "src/cryptokit.ml" 1532 46041 46058
type(
  int
)
ident(
  int_ref pos "src/cryptokit.ml" 1525 45755 45772 "src/cryptokit.ml" 1525 45755 45775
)
"src/cryptokit.ml" 1532 46041 46059 "src/cryptokit.ml" 1532 46041 46060
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1532 46041 46061 "src/cryptokit.ml" 1532 46041 46074
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1532 46041 46075 "src/cryptokit.ml" 1532 46041 46076
type(
  string
)
ident(
  int_ref h "src/cryptokit.ml" 1527 45819 45829 "src/cryptokit.ml" 1527 45819 45830
)
"src/cryptokit.ml" 1532 46041 46061 "src/cryptokit.ml" 1532 46041 46076
type(
  int
)
"src/cryptokit.ml" 1532 46041 46054 "src/cryptokit.ml" 1532 46041 46077
type(
  int
)
"src/cryptokit.ml" 1532 46041 46079 "src/cryptokit.ml" 1532 46041 46086
type(
  int
)
ident(
  int_ref counter "src/cryptokit.ml" 1525 45755 45776 "src/cryptokit.ml" 1525 45755 45783
)
"src/cryptokit.ml" 1532 46041 46087 "src/cryptokit.ml" 1532 46041 46088
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1532 46041 46089 "src/cryptokit.ml" 1532 46041 46090
type(
  int
)
"src/cryptokit.ml" 1532 46041 46078 "src/cryptokit.ml" 1532 46041 46091
type(
  int
)
"src/cryptokit.ml" 1532 46041 46047 "src/cryptokit.ml" 1532 46041 46091
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1531 46020 46026 "src/cryptokit.ml" 1532 46041 46091
type(
  unit
)
"src/cryptokit.ml" 1530 45945 45951 "src/cryptokit.ml" 1532 46041 46091
type(
  unit
)
"src/cryptokit.ml" 1526 45786 45813 "src/cryptokit.ml" 1533 46092 46099
type(
  unit
)
"src/cryptokit.ml" 1526 45786 45790 "src/cryptokit.ml" 1533 46092 46099
type(
  unit
)
"src/cryptokit.ml" 1534 46103 46105 "src/cryptokit.ml" 1534 46103 46111
type(
  int -> int -> unit
)
ident(
  int_ref derive "src/cryptokit.ml" 1525 45755 45765 "src/cryptokit.ml" 1525 45755 45771
)
"src/cryptokit.ml" 1534 46103 46112 "src/cryptokit.ml" 1534 46103 46113
type(
  int
)
"src/cryptokit.ml" 1534 46103 46114 "src/cryptokit.ml" 1534 46103 46115
type(
  int
)
"src/cryptokit.ml" 1534 46103 46105 "src/cryptokit.ml" 1534 46103 46115
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1535 46117 46119 "src/cryptokit.ml" 1535 46117 46141
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/cryptokit.ml" 1535 46117 46142 "src/cryptokit.ml" 1535 46117 46148
type(
  bytes
)
ident(
  int_ref result "src/cryptokit.ml" 1524 45715 45721 "src/cryptokit.ml" 1524 45715 45727
)
"src/cryptokit.ml" 1535 46117 46119 "src/cryptokit.ml" 1535 46117 46148
call(
  tail
)
type(
  string
)
"src/cryptokit.ml" 1534 46103 46105 "src/cryptokit.ml" 1535 46117 46148
type(
  string
)
"src/cryptokit.ml" 1525 45755 45757 "src/cryptokit.ml" 1535 46117 46148
type(
  string
)
"src/cryptokit.ml" 1524 45715 45717 "src/cryptokit.ml" 1535 46117 46148
type(
  string
)
"src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
type(
  string
)
ident(
  def base64_conv_table "src/cryptokit.ml" 1546 46296 46296 "src/cryptokit.ml" 1700 51097 51100
)
"src/cryptokit.ml" 1544 46226 46228 "src/cryptokit.ml" 1544 46226 46294
type(
  string
)
"src/cryptokit.ml" 1546 46296 46309 "src/cryptokit.ml" 1546 46296 46318
type(
  bool
)
"src/cryptokit.ml" 1546 46296 46319 "src/cryptokit.ml" 1546 46296 46326
type(
  bool
)
"src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1548 46345 46375 "src/cryptokit.ml" 1548 46345 46376
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1549 46377 46408 "src/cryptokit.ml" 1549 46377 46409
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1551 46411 46439 "src/cryptokit.ml" 1551 46411 46442
type(
  int
)
"src/cryptokit.ml" 1553 46461 46476 "src/cryptokit.ml" 1553 46461 46488
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/cryptokit.ml" 1553 46461 46489 "src/cryptokit.ml" 1553 46461 46490
type(
  int
)
"src/cryptokit.ml" 1553 46461 46476 "src/cryptokit.ml" 1553 46461 46490
type(
  bytes
)
"src/cryptokit.ml" 1554 46491 46514 "src/cryptokit.ml" 1554 46491 46515
type(
  int
)
"src/cryptokit.ml" 1555 46516 46542 "src/cryptokit.ml" 1555 46516 46543
type(
  int
)
"src/cryptokit.ml" 1557 46545 46565 "src/cryptokit.ml" 1557 46545 46566
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1558 46569 46575 "src/cryptokit.ml" 1578 47379 47388
)
"src/cryptokit.ml" 1558 46569 46575 "src/cryptokit.ml" 1558 46569 46584
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1558 46569 46585 "src/cryptokit.ml" 1558 46569 46589
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1558 46569 46590 "src/cryptokit.ml" 1558 46569 46594
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1558 46569 46595 "src/cryptokit.ml" 1558 46569 46596
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1557 46545 46565 "src/cryptokit.ml" 1557 46545 46566
)
"src/cryptokit.ml" 1558 46569 46575 "src/cryptokit.ml" 1558 46569 46596
type(
  unit
)
"src/cryptokit.ml" 1559 46598 46612 "src/cryptokit.ml" 1559 46598 46616
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1559 46598 46617 "src/cryptokit.ml" 1559 46598 46618
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1559 46598 46619 "src/cryptokit.ml" 1559 46598 46620
type(
  int
)
"src/cryptokit.ml" 1559 46598 46612 "src/cryptokit.ml" 1559 46598 46620
type(
  int
)
"src/cryptokit.ml" 1559 46598 46604 "src/cryptokit.ml" 1559 46598 46620
type(
  unit
)
"src/cryptokit.ml" 1560 46622 46631 "src/cryptokit.ml" 1560 46622 46635
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1560 46622 46636 "src/cryptokit.ml" 1560 46622 46637
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1560 46622 46638 "src/cryptokit.ml" 1560 46622 46639
type(
  int
)
"src/cryptokit.ml" 1560 46622 46631 "src/cryptokit.ml" 1560 46622 46639
type(
  bool
)
"src/cryptokit.ml" 1561 46651 46663 "src/cryptokit.ml" 1561 46651 46665
type(
  int
)
ident(
  def b0 "src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1577 47366 47377
)
"src/cryptokit.ml" 1561 46651 46668 "src/cryptokit.ml" 1561 46651 46677
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1561 46651 46679 "src/cryptokit.ml" 1561 46651 46688
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1561 46651 46689 "src/cryptokit.ml" 1561 46651 46693
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1561 46651 46694 "src/cryptokit.ml" 1561 46651 46695
type(
  int
)
"src/cryptokit.ml" 1561 46651 46678 "src/cryptokit.ml" 1561 46651 46696
type(
  char
)
"src/cryptokit.ml" 1561 46651 46668 "src/cryptokit.ml" 1561 46651 46696
type(
  int
)
"src/cryptokit.ml" 1562 46697 46709 "src/cryptokit.ml" 1562 46697 46711
type(
  int
)
ident(
  def b1 "src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1577 47366 47377
)
"src/cryptokit.ml" 1562 46697 46714 "src/cryptokit.ml" 1562 46697 46723
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1562 46697 46725 "src/cryptokit.ml" 1562 46697 46734
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1562 46697 46735 "src/cryptokit.ml" 1562 46697 46739
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1562 46697 46740 "src/cryptokit.ml" 1562 46697 46741
type(
  int
)
"src/cryptokit.ml" 1562 46697 46724 "src/cryptokit.ml" 1562 46697 46742
type(
  char
)
"src/cryptokit.ml" 1562 46697 46714 "src/cryptokit.ml" 1562 46697 46742
type(
  int
)
"src/cryptokit.ml" 1563 46743 46755 "src/cryptokit.ml" 1563 46743 46757
type(
  int
)
ident(
  def b2 "src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1577 47366 47377
)
"src/cryptokit.ml" 1563 46743 46760 "src/cryptokit.ml" 1563 46743 46769
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1563 46743 46771 "src/cryptokit.ml" 1563 46743 46780
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1563 46743 46781 "src/cryptokit.ml" 1563 46743 46785
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1563 46743 46786 "src/cryptokit.ml" 1563 46743 46787
type(
  int
)
"src/cryptokit.ml" 1563 46743 46770 "src/cryptokit.ml" 1563 46743 46788
type(
  char
)
"src/cryptokit.ml" 1563 46743 46760 "src/cryptokit.ml" 1563 46743 46788
type(
  int
)
"src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1564 46792 46804
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1564 46792 46820
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1564 46792 46821 "src/cryptokit.ml" 1564 46792 46822
type(
  int
)
"src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1564 46792 46822
type(
  unit
)
"src/cryptokit.ml" 1565 46824 46832 "src/cryptokit.ml" 1565 46824 46841
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1565 46824 46842 "src/cryptokit.ml" 1565 46824 46846
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1565 46824 46847 "src/cryptokit.ml" 1565 46824 46851
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1565 46824 46856 "src/cryptokit.ml" 1565 46824 46873
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1565 46824 46875 "src/cryptokit.ml" 1565 46824 46877
type(
  int
)
ident(
  int_ref b0 "src/cryptokit.ml" 1561 46651 46663 "src/cryptokit.ml" 1561 46651 46665
)
"src/cryptokit.ml" 1565 46824 46878 "src/cryptokit.ml" 1565 46824 46881
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1565 46824 46882 "src/cryptokit.ml" 1565 46824 46883
type(
  int
)
"src/cryptokit.ml" 1565 46824 46875 "src/cryptokit.ml" 1565 46824 46883
type(
  int
)
"src/cryptokit.ml" 1565 46824 46856 "src/cryptokit.ml" 1565 46824 46884
type(
  char
)
"src/cryptokit.ml" 1565 46824 46832 "src/cryptokit.ml" 1565 46824 46884
type(
  unit
)
"src/cryptokit.ml" 1566 46886 46894 "src/cryptokit.ml" 1566 46886 46903
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1566 46886 46904 "src/cryptokit.ml" 1566 46886 46908
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1566 46886 46910 "src/cryptokit.ml" 1566 46886 46914
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1566 46886 46914 "src/cryptokit.ml" 1566 46886 46915
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1566 46886 46915 "src/cryptokit.ml" 1566 46886 46916
type(
  int
)
"src/cryptokit.ml" 1566 46886 46909 "src/cryptokit.ml" 1566 46886 46917
type(
  int
)
"src/cryptokit.ml" 1566 46886 46918 "src/cryptokit.ml" 1566 46886 46935
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1566 46886 46938 "src/cryptokit.ml" 1566 46886 46940
type(
  int
)
ident(
  int_ref b0 "src/cryptokit.ml" 1561 46651 46663 "src/cryptokit.ml" 1561 46651 46665
)
"src/cryptokit.ml" 1566 46886 46941 "src/cryptokit.ml" 1566 46886 46945
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1566 46886 46946 "src/cryptokit.ml" 1566 46886 46947
type(
  int
)
"src/cryptokit.ml" 1566 46886 46937 "src/cryptokit.ml" 1566 46886 46948
type(
  int
)
"src/cryptokit.ml" 1566 46886 46949 "src/cryptokit.ml" 1566 46886 46952
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1566 46886 46953 "src/cryptokit.ml" 1566 46886 46954
type(
  int
)
"src/cryptokit.ml" 1566 46886 46937 "src/cryptokit.ml" 1566 46886 46954
type(
  int
)
"src/cryptokit.ml" 1566 46886 46955 "src/cryptokit.ml" 1566 46886 46956
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1566 46886 46958 "src/cryptokit.ml" 1566 46886 46960
type(
  int
)
ident(
  int_ref b1 "src/cryptokit.ml" 1562 46697 46709 "src/cryptokit.ml" 1562 46697 46711
)
"src/cryptokit.ml" 1566 46886 46961 "src/cryptokit.ml" 1566 46886 46964
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1566 46886 46965 "src/cryptokit.ml" 1566 46886 46966
type(
  int
)
"src/cryptokit.ml" 1566 46886 46957 "src/cryptokit.ml" 1566 46886 46967
type(
  int
)
"src/cryptokit.ml" 1566 46886 46937 "src/cryptokit.ml" 1566 46886 46967
type(
  int
)
"src/cryptokit.ml" 1566 46886 46918 "src/cryptokit.ml" 1566 46886 46968
type(
  char
)
"src/cryptokit.ml" 1566 46886 46894 "src/cryptokit.ml" 1566 46886 46968
type(
  unit
)
"src/cryptokit.ml" 1567 46970 46978 "src/cryptokit.ml" 1567 46970 46987
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1567 46970 46988 "src/cryptokit.ml" 1567 46970 46992
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1567 46970 46994 "src/cryptokit.ml" 1567 46970 46998
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1567 46970 46998 "src/cryptokit.ml" 1567 46970 46999
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1567 46970 46999 "src/cryptokit.ml" 1567 46970 47000
type(
  int
)
"src/cryptokit.ml" 1567 46970 46993 "src/cryptokit.ml" 1567 46970 47001
type(
  int
)
"src/cryptokit.ml" 1567 46970 47002 "src/cryptokit.ml" 1567 46970 47019
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1567 46970 47022 "src/cryptokit.ml" 1567 46970 47024
type(
  int
)
ident(
  int_ref b1 "src/cryptokit.ml" 1562 46697 46709 "src/cryptokit.ml" 1562 46697 46711
)
"src/cryptokit.ml" 1567 46970 47025 "src/cryptokit.ml" 1567 46970 47029
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1567 46970 47030 "src/cryptokit.ml" 1567 46970 47032
type(
  int
)
"src/cryptokit.ml" 1567 46970 47021 "src/cryptokit.ml" 1567 46970 47033
type(
  int
)
"src/cryptokit.ml" 1567 46970 47034 "src/cryptokit.ml" 1567 46970 47037
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1567 46970 47038 "src/cryptokit.ml" 1567 46970 47039
type(
  int
)
"src/cryptokit.ml" 1567 46970 47021 "src/cryptokit.ml" 1567 46970 47039
type(
  int
)
"src/cryptokit.ml" 1567 46970 47040 "src/cryptokit.ml" 1567 46970 47041
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1567 46970 47043 "src/cryptokit.ml" 1567 46970 47045
type(
  int
)
ident(
  int_ref b2 "src/cryptokit.ml" 1563 46743 46755 "src/cryptokit.ml" 1563 46743 46757
)
"src/cryptokit.ml" 1567 46970 47046 "src/cryptokit.ml" 1567 46970 47049
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1567 46970 47050 "src/cryptokit.ml" 1567 46970 47051
type(
  int
)
"src/cryptokit.ml" 1567 46970 47042 "src/cryptokit.ml" 1567 46970 47052
type(
  int
)
"src/cryptokit.ml" 1567 46970 47021 "src/cryptokit.ml" 1567 46970 47052
type(
  int
)
"src/cryptokit.ml" 1567 46970 47002 "src/cryptokit.ml" 1567 46970 47053
type(
  char
)
"src/cryptokit.ml" 1567 46970 46978 "src/cryptokit.ml" 1567 46970 47053
type(
  unit
)
"src/cryptokit.ml" 1568 47055 47063 "src/cryptokit.ml" 1568 47055 47072
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1568 47055 47073 "src/cryptokit.ml" 1568 47055 47077
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1568 47055 47079 "src/cryptokit.ml" 1568 47055 47083
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1568 47055 47083 "src/cryptokit.ml" 1568 47055 47084
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1568 47055 47084 "src/cryptokit.ml" 1568 47055 47085
type(
  int
)
"src/cryptokit.ml" 1568 47055 47078 "src/cryptokit.ml" 1568 47055 47086
type(
  int
)
"src/cryptokit.ml" 1568 47055 47087 "src/cryptokit.ml" 1568 47055 47104
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1568 47055 47106 "src/cryptokit.ml" 1568 47055 47108
type(
  int
)
ident(
  int_ref b2 "src/cryptokit.ml" 1563 46743 46755 "src/cryptokit.ml" 1563 46743 46757
)
"src/cryptokit.ml" 1568 47055 47109 "src/cryptokit.ml" 1568 47055 47113
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1568 47055 47114 "src/cryptokit.ml" 1568 47055 47116
type(
  int
)
"src/cryptokit.ml" 1568 47055 47106 "src/cryptokit.ml" 1568 47055 47116
type(
  int
)
"src/cryptokit.ml" 1568 47055 47087 "src/cryptokit.ml" 1568 47055 47117
type(
  char
)
"src/cryptokit.ml" 1568 47055 47063 "src/cryptokit.ml" 1568 47055 47117
type(
  unit
)
"src/cryptokit.ml" 1569 47119 47135 "src/cryptokit.ml" 1569 47119 47139
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1569 47119 47140 "src/cryptokit.ml" 1569 47119 47141
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1569 47119 47142 "src/cryptokit.ml" 1569 47119 47143
type(
  int
)
"src/cryptokit.ml" 1569 47119 47135 "src/cryptokit.ml" 1569 47119 47143
type(
  int
)
"src/cryptokit.ml" 1569 47119 47127 "src/cryptokit.ml" 1569 47119 47143
type(
  unit
)
"src/cryptokit.ml" 1570 47145 47161 "src/cryptokit.ml" 1570 47145 47162
type(
  int
)
"src/cryptokit.ml" 1570 47145 47153 "src/cryptokit.ml" 1570 47145 47162
type(
  unit
)
"src/cryptokit.ml" 1571 47164 47183 "src/cryptokit.ml" 1571 47164 47190
type(
  int
)
ident(
  ext_ref ocolumn
)
"src/cryptokit.ml" 1571 47164 47191 "src/cryptokit.ml" 1571 47164 47192
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1571 47164 47193 "src/cryptokit.ml" 1571 47164 47194
type(
  int
)
"src/cryptokit.ml" 1571 47164 47183 "src/cryptokit.ml" 1571 47164 47194
type(
  int
)
"src/cryptokit.ml" 1571 47164 47172 "src/cryptokit.ml" 1571 47164 47194
type(
  unit
)
"src/cryptokit.ml" 1572 47196 47207 "src/cryptokit.ml" 1572 47196 47216
type(
  bool
)
ident(
  int_ref multiline "src/cryptokit.ml" 1546 46296 46309 "src/cryptokit.ml" 1546 46296 46318
)
"src/cryptokit.ml" 1572 47196 47217 "src/cryptokit.ml" 1572 47196 47219
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 1572 47196 47220 "src/cryptokit.ml" 1572 47196 47227
type(
  int
)
ident(
  ext_ref ocolumn
)
"src/cryptokit.ml" 1572 47196 47228 "src/cryptokit.ml" 1572 47196 47230
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1572 47196 47231 "src/cryptokit.ml" 1572 47196 47233
type(
  int
)
"src/cryptokit.ml" 1572 47196 47220 "src/cryptokit.ml" 1572 47196 47233
type(
  bool
)
"src/cryptokit.ml" 1572 47196 47207 "src/cryptokit.ml" 1572 47196 47233
type(
  bool
)
"src/cryptokit.ml" 1573 47245 47255 "src/cryptokit.ml" 1573 47245 47259
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1573 47245 47255 "src/cryptokit.ml" 1573 47245 47275
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1573 47245 47276 "src/cryptokit.ml" 1573 47245 47277
type(
  int
)
"src/cryptokit.ml" 1573 47245 47255 "src/cryptokit.ml" 1573 47245 47277
type(
  unit
)
"src/cryptokit.ml" 1574 47279 47289 "src/cryptokit.ml" 1574 47279 47298
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1574 47279 47299 "src/cryptokit.ml" 1574 47279 47303
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1574 47279 47304 "src/cryptokit.ml" 1574 47279 47308
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1574 47279 47309 "src/cryptokit.ml" 1574 47279 47313
type(
  char
)
"src/cryptokit.ml" 1574 47279 47289 "src/cryptokit.ml" 1574 47279 47313
type(
  unit
)
"src/cryptokit.ml" 1575 47315 47333 "src/cryptokit.ml" 1575 47315 47337
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1575 47315 47338 "src/cryptokit.ml" 1575 47315 47339
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1575 47315 47340 "src/cryptokit.ml" 1575 47315 47341
type(
  int
)
"src/cryptokit.ml" 1575 47315 47333 "src/cryptokit.ml" 1575 47315 47341
type(
  int
)
"src/cryptokit.ml" 1575 47315 47325 "src/cryptokit.ml" 1575 47315 47341
type(
  unit
)
"src/cryptokit.ml" 1576 47343 47364 "src/cryptokit.ml" 1576 47343 47365
type(
  int
)
"src/cryptokit.ml" 1576 47343 47353 "src/cryptokit.ml" 1576 47343 47365
type(
  unit
)
"src/cryptokit.ml" 1575 47315 47325 "src/cryptokit.ml" 1576 47343 47365
type(
  unit
)
"src/cryptokit.ml" 1574 47279 47289 "src/cryptokit.ml" 1576 47343 47365
type(
  unit
)
"src/cryptokit.ml" 1572 47196 47239 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1572 47196 47204 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1571 47164 47172 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1570 47145 47153 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1569 47119 47127 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1568 47055 47063 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1567 46970 46978 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1566 46886 46894 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1565 46824 46832 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1564 46792 46800 "src/cryptokit.ml" 1577 47366 47377
type(
  unit
)
"src/cryptokit.ml" 1560 46622 46645 "src/cryptokit.ml" 1578 47379 47388
type(
  unit
)
"src/cryptokit.ml" 1560 46622 46628 "src/cryptokit.ml" 1578 47379 47388
type(
  unit
)
"src/cryptokit.ml" 1559 46598 46604 "src/cryptokit.ml" 1578 47379 47388
type(
  unit
)
"src/cryptokit.ml" 1558 46569 46575 "src/cryptokit.ml" 1578 47379 47388
type(
  unit
)
"src/cryptokit.ml" 1580 47390 47415 "src/cryptokit.ml" 1580 47390 47416
type(
  bytes
)
ident(
  def s "src/cryptokit.ml" 1580 47390 47417 "src/cryptokit.ml" 1581 47427 47499
)
"src/cryptokit.ml" 1580 47390 47417 "src/cryptokit.ml" 1580 47390 47420
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1580 47390 47421 "src/cryptokit.ml" 1581 47427 47499
)
"src/cryptokit.ml" 1580 47390 47421 "src/cryptokit.ml" 1580 47390 47424
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1581 47427 47433 "src/cryptokit.ml" 1581 47427 47499
)
"src/cryptokit.ml" 1581 47427 47441 "src/cryptokit.ml" 1581 47427 47444
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1580 47390 47417 "src/cryptokit.ml" 1580 47390 47420
)
"src/cryptokit.ml" 1581 47427 47448 "src/cryptokit.ml" 1581 47427 47451
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1580 47390 47417 "src/cryptokit.ml" 1580 47390 47420
)
"src/cryptokit.ml" 1581 47427 47452 "src/cryptokit.ml" 1581 47427 47453
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1581 47427 47454 "src/cryptokit.ml" 1581 47427 47457
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1580 47390 47421 "src/cryptokit.ml" 1580 47390 47424
)
"src/cryptokit.ml" 1581 47427 47448 "src/cryptokit.ml" 1581 47427 47457
type(
  int
)
"src/cryptokit.ml" 1581 47427 47458 "src/cryptokit.ml" 1581 47427 47459
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1581 47427 47460 "src/cryptokit.ml" 1581 47427 47461
type(
  int
)
"src/cryptokit.ml" 1581 47427 47448 "src/cryptokit.ml" 1581 47427 47461
type(
  int
)
"src/cryptokit.ml" 1581 47427 47465 "src/cryptokit.ml" 1581 47427 47469
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1581 47427 47465 "src/cryptokit.ml" 1581 47427 47478
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1581 47427 47480 "src/cryptokit.ml" 1581 47427 47489
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1581 47427 47490 "src/cryptokit.ml" 1581 47427 47491
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 1580 47390 47415 "src/cryptokit.ml" 1580 47390 47416
)
"src/cryptokit.ml" 1581 47427 47492 "src/cryptokit.ml" 1581 47427 47493
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1581 47427 47433 "src/cryptokit.ml" 1581 47427 47499
)
"src/cryptokit.ml" 1581 47427 47479 "src/cryptokit.ml" 1581 47427 47494
type(
  char
)
"src/cryptokit.ml" 1581 47427 47465 "src/cryptokit.ml" 1581 47427 47494
type(
  unit
)
"src/cryptokit.ml" 1581 47427 47433 "src/cryptokit.ml" 1581 47427 47499
type(
  unit
)
"src/cryptokit.ml" 1583 47501 47523 "src/cryptokit.ml" 1583 47501 47524
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1584 47527 47533 "src/cryptokit.ml" 1584 47527 47560
)
"src/cryptokit.ml" 1584 47527 47533 "src/cryptokit.ml" 1584 47527 47544
type(
  (char -> unit) -> string -> unit
)
ident(
  ext_ref String.iter
)
"src/cryptokit.ml" 1584 47527 47545 "src/cryptokit.ml" 1584 47527 47549
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1584 47527 47545 "src/cryptokit.ml" 1584 47527 47558
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1584 47527 47559 "src/cryptokit.ml" 1584 47527 47560
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1583 47501 47523 "src/cryptokit.ml" 1583 47501 47524
)
"src/cryptokit.ml" 1584 47527 47533 "src/cryptokit.ml" 1584 47527 47560
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1586 47562 47582 "src/cryptokit.ml" 1586 47562 47583
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1586 47562 47586 "src/cryptokit.ml" 1586 47562 47612
)
"src/cryptokit.ml" 1586 47562 47586 "src/cryptokit.ml" 1586 47562 47590
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1586 47562 47586 "src/cryptokit.ml" 1586 47562 47599
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1586 47562 47601 "src/cryptokit.ml" 1586 47562 47609
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1586 47562 47610 "src/cryptokit.ml" 1586 47562 47611
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1586 47562 47582 "src/cryptokit.ml" 1586 47562 47583
)
"src/cryptokit.ml" 1586 47562 47600 "src/cryptokit.ml" 1586 47562 47612
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1586 47562 47586 "src/cryptokit.ml" 1586 47562 47612
type(
  unit
)
"src/cryptokit.ml" 1588 47614 47640 "src/cryptokit.ml" 1588 47614 47645
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1588 47614 47653 "src/cryptokit.ml" 1588 47614 47670
type(
  error
)
"src/cryptokit.ml" 1588 47614 47646 "src/cryptokit.ml" 1588 47614 47671
type(
  exn
)
"src/cryptokit.ml" 1588 47614 47640 "src/cryptokit.ml" 1588 47614 47671
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1591 47693 47711 "src/cryptokit.ml" 1591 47693 47715
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1592 47721 47729 "src/cryptokit.ml" 1592 47721 47730
type(
  int
)
"src/cryptokit.ml" 1593 47734 47744 "src/cryptokit.ml" 1593 47734 47748
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1593 47734 47744 "src/cryptokit.ml" 1593 47734 47764
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1593 47734 47765 "src/cryptokit.ml" 1593 47734 47766
type(
  int
)
"src/cryptokit.ml" 1593 47734 47744 "src/cryptokit.ml" 1593 47734 47766
type(
  unit
)
"src/cryptokit.ml" 1594 47768 47782 "src/cryptokit.ml" 1594 47768 47784
type(
  int
)
ident(
  def b0 "src/cryptokit.ml" 1595 47819 47829 "src/cryptokit.ml" 1597 47956 47982
)
"src/cryptokit.ml" 1594 47768 47787 "src/cryptokit.ml" 1594 47768 47796
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1594 47768 47798 "src/cryptokit.ml" 1594 47768 47807
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1594 47768 47808 "src/cryptokit.ml" 1594 47768 47812
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1594 47768 47813 "src/cryptokit.ml" 1594 47768 47814
type(
  int
)
"src/cryptokit.ml" 1594 47768 47797 "src/cryptokit.ml" 1594 47768 47815
type(
  char
)
"src/cryptokit.ml" 1594 47768 47787 "src/cryptokit.ml" 1594 47768 47815
type(
  int
)
"src/cryptokit.ml" 1595 47819 47829 "src/cryptokit.ml" 1595 47819 47838
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1595 47819 47839 "src/cryptokit.ml" 1595 47819 47843
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1595 47819 47844 "src/cryptokit.ml" 1595 47819 47848
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1595 47819 47853 "src/cryptokit.ml" 1595 47819 47870
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1595 47819 47872 "src/cryptokit.ml" 1595 47819 47874
type(
  int
)
ident(
  int_ref b0 "src/cryptokit.ml" 1594 47768 47782 "src/cryptokit.ml" 1594 47768 47784
)
"src/cryptokit.ml" 1595 47819 47875 "src/cryptokit.ml" 1595 47819 47878
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1595 47819 47879 "src/cryptokit.ml" 1595 47819 47880
type(
  int
)
"src/cryptokit.ml" 1595 47819 47872 "src/cryptokit.ml" 1595 47819 47880
type(
  int
)
"src/cryptokit.ml" 1595 47819 47853 "src/cryptokit.ml" 1595 47819 47881
type(
  char
)
"src/cryptokit.ml" 1595 47819 47829 "src/cryptokit.ml" 1595 47819 47881
type(
  unit
)
"src/cryptokit.ml" 1596 47883 47893 "src/cryptokit.ml" 1596 47883 47902
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1596 47883 47903 "src/cryptokit.ml" 1596 47883 47907
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1596 47883 47909 "src/cryptokit.ml" 1596 47883 47913
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1596 47883 47913 "src/cryptokit.ml" 1596 47883 47914
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1596 47883 47914 "src/cryptokit.ml" 1596 47883 47915
type(
  int
)
"src/cryptokit.ml" 1596 47883 47908 "src/cryptokit.ml" 1596 47883 47916
type(
  int
)
"src/cryptokit.ml" 1596 47883 47917 "src/cryptokit.ml" 1596 47883 47934
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1596 47883 47937 "src/cryptokit.ml" 1596 47883 47939
type(
  int
)
ident(
  int_ref b0 "src/cryptokit.ml" 1594 47768 47782 "src/cryptokit.ml" 1594 47768 47784
)
"src/cryptokit.ml" 1596 47883 47940 "src/cryptokit.ml" 1596 47883 47944
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1596 47883 47945 "src/cryptokit.ml" 1596 47883 47946
type(
  int
)
"src/cryptokit.ml" 1596 47883 47936 "src/cryptokit.ml" 1596 47883 47947
type(
  int
)
"src/cryptokit.ml" 1596 47883 47948 "src/cryptokit.ml" 1596 47883 47951
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1596 47883 47952 "src/cryptokit.ml" 1596 47883 47953
type(
  int
)
"src/cryptokit.ml" 1596 47883 47936 "src/cryptokit.ml" 1596 47883 47953
type(
  int
)
"src/cryptokit.ml" 1596 47883 47917 "src/cryptokit.ml" 1596 47883 47954
type(
  char
)
"src/cryptokit.ml" 1596 47883 47893 "src/cryptokit.ml" 1596 47883 47954
type(
  unit
)
"src/cryptokit.ml" 1597 47956 47974 "src/cryptokit.ml" 1597 47956 47978
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1597 47956 47979 "src/cryptokit.ml" 1597 47956 47980
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1597 47956 47981 "src/cryptokit.ml" 1597 47956 47982
type(
  int
)
"src/cryptokit.ml" 1597 47956 47974 "src/cryptokit.ml" 1597 47956 47982
type(
  int
)
"src/cryptokit.ml" 1597 47956 47966 "src/cryptokit.ml" 1597 47956 47982
type(
  unit
)
"src/cryptokit.ml" 1596 47883 47893 "src/cryptokit.ml" 1597 47956 47982
type(
  unit
)
"src/cryptokit.ml" 1595 47819 47829 "src/cryptokit.ml" 1597 47956 47982
type(
  unit
)
"src/cryptokit.ml" 1594 47768 47778 "src/cryptokit.ml" 1597 47956 47982
type(
  unit
)
"src/cryptokit.ml" 1593 47734 47744 "src/cryptokit.ml" 1597 47956 47982
type(
  unit
)
"src/cryptokit.ml" 1598 47983 47991 "src/cryptokit.ml" 1598 47983 47992
type(
  int
)
"src/cryptokit.ml" 1599 47996 48006 "src/cryptokit.ml" 1599 47996 48010
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1599 47996 48006 "src/cryptokit.ml" 1599 47996 48026
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1599 47996 48027 "src/cryptokit.ml" 1599 47996 48028
type(
  int
)
"src/cryptokit.ml" 1599 47996 48006 "src/cryptokit.ml" 1599 47996 48028
type(
  unit
)
"src/cryptokit.ml" 1600 48030 48044 "src/cryptokit.ml" 1600 48030 48046
type(
  int
)
ident(
  def b0 "src/cryptokit.ml" 1602 48129 48139 "src/cryptokit.ml" 1605 48355 48381
)
"src/cryptokit.ml" 1600 48030 48049 "src/cryptokit.ml" 1600 48030 48058
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1600 48030 48060 "src/cryptokit.ml" 1600 48030 48069
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1600 48030 48070 "src/cryptokit.ml" 1600 48030 48074
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1600 48030 48075 "src/cryptokit.ml" 1600 48030 48076
type(
  int
)
"src/cryptokit.ml" 1600 48030 48059 "src/cryptokit.ml" 1600 48030 48077
type(
  char
)
"src/cryptokit.ml" 1600 48030 48049 "src/cryptokit.ml" 1600 48030 48077
type(
  int
)
"src/cryptokit.ml" 1601 48078 48092 "src/cryptokit.ml" 1601 48078 48094
type(
  int
)
ident(
  def b1 "src/cryptokit.ml" 1602 48129 48139 "src/cryptokit.ml" 1605 48355 48381
)
"src/cryptokit.ml" 1601 48078 48097 "src/cryptokit.ml" 1601 48078 48106
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1601 48078 48108 "src/cryptokit.ml" 1601 48078 48117
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1601 48078 48118 "src/cryptokit.ml" 1601 48078 48122
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1601 48078 48123 "src/cryptokit.ml" 1601 48078 48124
type(
  int
)
"src/cryptokit.ml" 1601 48078 48107 "src/cryptokit.ml" 1601 48078 48125
type(
  char
)
"src/cryptokit.ml" 1601 48078 48097 "src/cryptokit.ml" 1601 48078 48125
type(
  int
)
"src/cryptokit.ml" 1602 48129 48139 "src/cryptokit.ml" 1602 48129 48148
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1602 48129 48149 "src/cryptokit.ml" 1602 48129 48153
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1602 48129 48154 "src/cryptokit.ml" 1602 48129 48158
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1602 48129 48163 "src/cryptokit.ml" 1602 48129 48180
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1602 48129 48182 "src/cryptokit.ml" 1602 48129 48184
type(
  int
)
ident(
  int_ref b0 "src/cryptokit.ml" 1600 48030 48044 "src/cryptokit.ml" 1600 48030 48046
)
"src/cryptokit.ml" 1602 48129 48185 "src/cryptokit.ml" 1602 48129 48188
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1602 48129 48189 "src/cryptokit.ml" 1602 48129 48190
type(
  int
)
"src/cryptokit.ml" 1602 48129 48182 "src/cryptokit.ml" 1602 48129 48190
type(
  int
)
"src/cryptokit.ml" 1602 48129 48163 "src/cryptokit.ml" 1602 48129 48191
type(
  char
)
"src/cryptokit.ml" 1602 48129 48139 "src/cryptokit.ml" 1602 48129 48191
type(
  unit
)
"src/cryptokit.ml" 1603 48193 48203 "src/cryptokit.ml" 1603 48193 48212
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1603 48193 48213 "src/cryptokit.ml" 1603 48193 48217
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1603 48193 48219 "src/cryptokit.ml" 1603 48193 48223
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1603 48193 48223 "src/cryptokit.ml" 1603 48193 48224
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1603 48193 48224 "src/cryptokit.ml" 1603 48193 48225
type(
  int
)
"src/cryptokit.ml" 1603 48193 48218 "src/cryptokit.ml" 1603 48193 48226
type(
  int
)
"src/cryptokit.ml" 1603 48193 48227 "src/cryptokit.ml" 1603 48193 48244
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1603 48193 48247 "src/cryptokit.ml" 1603 48193 48249
type(
  int
)
ident(
  int_ref b0 "src/cryptokit.ml" 1600 48030 48044 "src/cryptokit.ml" 1600 48030 48046
)
"src/cryptokit.ml" 1603 48193 48250 "src/cryptokit.ml" 1603 48193 48254
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1603 48193 48255 "src/cryptokit.ml" 1603 48193 48256
type(
  int
)
"src/cryptokit.ml" 1603 48193 48246 "src/cryptokit.ml" 1603 48193 48257
type(
  int
)
"src/cryptokit.ml" 1603 48193 48258 "src/cryptokit.ml" 1603 48193 48261
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1603 48193 48262 "src/cryptokit.ml" 1603 48193 48263
type(
  int
)
"src/cryptokit.ml" 1603 48193 48246 "src/cryptokit.ml" 1603 48193 48263
type(
  int
)
"src/cryptokit.ml" 1603 48193 48264 "src/cryptokit.ml" 1603 48193 48265
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1603 48193 48267 "src/cryptokit.ml" 1603 48193 48269
type(
  int
)
ident(
  int_ref b1 "src/cryptokit.ml" 1601 48078 48092 "src/cryptokit.ml" 1601 48078 48094
)
"src/cryptokit.ml" 1603 48193 48270 "src/cryptokit.ml" 1603 48193 48273
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1603 48193 48274 "src/cryptokit.ml" 1603 48193 48275
type(
  int
)
"src/cryptokit.ml" 1603 48193 48266 "src/cryptokit.ml" 1603 48193 48276
type(
  int
)
"src/cryptokit.ml" 1603 48193 48246 "src/cryptokit.ml" 1603 48193 48276
type(
  int
)
"src/cryptokit.ml" 1603 48193 48227 "src/cryptokit.ml" 1603 48193 48277
type(
  char
)
"src/cryptokit.ml" 1603 48193 48203 "src/cryptokit.ml" 1603 48193 48277
type(
  unit
)
"src/cryptokit.ml" 1604 48279 48289 "src/cryptokit.ml" 1604 48279 48298
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1604 48279 48299 "src/cryptokit.ml" 1604 48279 48303
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1604 48279 48305 "src/cryptokit.ml" 1604 48279 48309
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1604 48279 48309 "src/cryptokit.ml" 1604 48279 48310
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1604 48279 48310 "src/cryptokit.ml" 1604 48279 48311
type(
  int
)
"src/cryptokit.ml" 1604 48279 48304 "src/cryptokit.ml" 1604 48279 48312
type(
  int
)
"src/cryptokit.ml" 1604 48279 48314 "src/cryptokit.ml" 1604 48279 48331
type(
  string
)
ident(
  int_ref base64_conv_table "src/cryptokit.ml" 1543 46202 46206 "src/cryptokit.ml" 1543 46202 46223
)
"src/cryptokit.ml" 1604 48279 48334 "src/cryptokit.ml" 1604 48279 48336
type(
  int
)
ident(
  int_ref b1 "src/cryptokit.ml" 1601 48078 48092 "src/cryptokit.ml" 1601 48078 48094
)
"src/cryptokit.ml" 1604 48279 48337 "src/cryptokit.ml" 1604 48279 48341
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1604 48279 48342 "src/cryptokit.ml" 1604 48279 48344
type(
  int
)
"src/cryptokit.ml" 1604 48279 48333 "src/cryptokit.ml" 1604 48279 48345
type(
  int
)
"src/cryptokit.ml" 1604 48279 48346 "src/cryptokit.ml" 1604 48279 48349
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1604 48279 48350 "src/cryptokit.ml" 1604 48279 48351
type(
  int
)
"src/cryptokit.ml" 1604 48279 48333 "src/cryptokit.ml" 1604 48279 48351
type(
  int
)
"src/cryptokit.ml" 1604 48279 48313 "src/cryptokit.ml" 1604 48279 48353
type(
  char
)
"src/cryptokit.ml" 1604 48279 48289 "src/cryptokit.ml" 1604 48279 48353
type(
  unit
)
"src/cryptokit.ml" 1605 48355 48373 "src/cryptokit.ml" 1605 48355 48377
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1605 48355 48378 "src/cryptokit.ml" 1605 48355 48379
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1605 48355 48380 "src/cryptokit.ml" 1605 48355 48381
type(
  int
)
"src/cryptokit.ml" 1605 48355 48373 "src/cryptokit.ml" 1605 48355 48381
type(
  int
)
"src/cryptokit.ml" 1605 48355 48365 "src/cryptokit.ml" 1605 48355 48381
type(
  unit
)
"src/cryptokit.ml" 1604 48279 48289 "src/cryptokit.ml" 1605 48355 48381
type(
  unit
)
"src/cryptokit.ml" 1603 48193 48203 "src/cryptokit.ml" 1605 48355 48381
type(
  unit
)
"src/cryptokit.ml" 1602 48129 48139 "src/cryptokit.ml" 1605 48355 48381
type(
  unit
)
"src/cryptokit.ml" 1600 48030 48040 "src/cryptokit.ml" 1605 48355 48381
type(
  unit
)
"src/cryptokit.ml" 1599 47996 48006 "src/cryptokit.ml" 1605 48355 48381
type(
  unit
)
"src/cryptokit.ml" 1606 48382 48390 "src/cryptokit.ml" 1606 48382 48391
type(
  int
)
"src/cryptokit.ml" 1606 48382 48395 "src/cryptokit.ml" 1606 48382 48397
type(
  unit
)
"src/cryptokit.ml" 1591 47693 47699 "src/cryptokit.ml" 1607 48398 48407
type(
  unit
)
"src/cryptokit.ml" 1608 48409 48418 "src/cryptokit.ml" 1608 48409 48427
type(
  bool
)
ident(
  int_ref multiline "src/cryptokit.ml" 1546 46296 46309 "src/cryptokit.ml" 1546 46296 46318
)
"src/cryptokit.ml" 1608 48409 48428 "src/cryptokit.ml" 1608 48409 48430
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1608 48409 48431 "src/cryptokit.ml" 1608 48409 48438
type(
  bool
)
ident(
  int_ref padding "src/cryptokit.ml" 1546 46296 46319 "src/cryptokit.ml" 1546 46296 46326
)
"src/cryptokit.ml" 1608 48409 48418 "src/cryptokit.ml" 1608 48409 48438
type(
  bool
)
"src/cryptokit.ml" 1609 48450 48462 "src/cryptokit.ml" 1609 48450 48472
type(
  int
)
ident(
  def num_equals "src/cryptokit.ml" 1611 48529 48537 "src/cryptokit.ml" 1613 48615 48648
)
"src/cryptokit.ml" 1610 48475 48491 "src/cryptokit.ml" 1610 48475 48495
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1610 48475 48501 "src/cryptokit.ml" 1610 48475 48502
type(
  int
)
"src/cryptokit.ml" 1610 48475 48506 "src/cryptokit.ml" 1610 48475 48507
type(
  int
)
"src/cryptokit.ml" 1610 48475 48510 "src/cryptokit.ml" 1610 48475 48511
type(
  int
)
"src/cryptokit.ml" 1610 48475 48515 "src/cryptokit.ml" 1610 48475 48516
type(
  int
)
"src/cryptokit.ml" 1610 48475 48519 "src/cryptokit.ml" 1610 48475 48520
type(
  int
)
"src/cryptokit.ml" 1610 48475 48524 "src/cryptokit.ml" 1610 48475 48525
type(
  int
)
"src/cryptokit.ml" 1610 48475 48485 "src/cryptokit.ml" 1610 48475 48525
type(
  int
)
"src/cryptokit.ml" 1611 48529 48537 "src/cryptokit.ml" 1611 48529 48541
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1611 48529 48537 "src/cryptokit.ml" 1611 48529 48557
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1611 48529 48558 "src/cryptokit.ml" 1611 48529 48568
type(
  int
)
ident(
  int_ref num_equals "src/cryptokit.ml" 1609 48450 48462 "src/cryptokit.ml" 1609 48450 48472
)
"src/cryptokit.ml" 1611 48529 48537 "src/cryptokit.ml" 1611 48529 48568
type(
  unit
)
"src/cryptokit.ml" 1612 48570 48578 "src/cryptokit.ml" 1612 48570 48588
type(
  bytes -> int -> int -> char -> unit
)
ident(
  ext_ref Bytes.fill
)
"src/cryptokit.ml" 1612 48570 48589 "src/cryptokit.ml" 1612 48570 48593
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1612 48570 48594 "src/cryptokit.ml" 1612 48570 48598
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1612 48570 48599 "src/cryptokit.ml" 1612 48570 48609
type(
  int
)
ident(
  int_ref num_equals "src/cryptokit.ml" 1609 48450 48462 "src/cryptokit.ml" 1609 48450 48472
)
"src/cryptokit.ml" 1612 48570 48610 "src/cryptokit.ml" 1612 48570 48613
type(
  char
)
"src/cryptokit.ml" 1612 48570 48578 "src/cryptokit.ml" 1612 48570 48613
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1613 48615 48631 "src/cryptokit.ml" 1613 48615 48635
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1613 48615 48636 "src/cryptokit.ml" 1613 48615 48637
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1613 48615 48638 "src/cryptokit.ml" 1613 48615 48648
type(
  int
)
ident(
  int_ref num_equals "src/cryptokit.ml" 1609 48450 48462 "src/cryptokit.ml" 1609 48450 48472
)
"src/cryptokit.ml" 1613 48615 48631 "src/cryptokit.ml" 1613 48615 48648
type(
  int
)
"src/cryptokit.ml" 1613 48615 48623 "src/cryptokit.ml" 1613 48615 48648
type(
  unit
)
"src/cryptokit.ml" 1612 48570 48578 "src/cryptokit.ml" 1613 48615 48648
type(
  unit
)
"src/cryptokit.ml" 1611 48529 48537 "src/cryptokit.ml" 1613 48615 48648
type(
  unit
)
"src/cryptokit.ml" 1608 48409 48444 "src/cryptokit.ml" 1614 48649 48658
type(
  unit
)
"src/cryptokit.ml" 1608 48409 48415 "src/cryptokit.ml" 1614 48649 48658
type(
  unit
)
"src/cryptokit.ml" 1615 48660 48669 "src/cryptokit.ml" 1615 48660 48678
type(
  bool
)
ident(
  int_ref multiline "src/cryptokit.ml" 1546 46296 46309 "src/cryptokit.ml" 1546 46296 46318
)
"src/cryptokit.ml" 1615 48660 48679 "src/cryptokit.ml" 1615 48660 48681
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/cryptokit.ml" 1615 48660 48682 "src/cryptokit.ml" 1615 48660 48689
type(
  int
)
ident(
  ext_ref ocolumn
)
"src/cryptokit.ml" 1615 48660 48690 "src/cryptokit.ml" 1615 48660 48691
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1615 48660 48692 "src/cryptokit.ml" 1615 48660 48693
type(
  int
)
"src/cryptokit.ml" 1615 48660 48682 "src/cryptokit.ml" 1615 48660 48693
type(
  bool
)
"src/cryptokit.ml" 1615 48660 48669 "src/cryptokit.ml" 1615 48660 48693
type(
  bool
)
"src/cryptokit.ml" 1616 48705 48713 "src/cryptokit.ml" 1616 48705 48717
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1547 46329 46338 "src/cryptokit.ml" 1547 46329 46344
)
"src/cryptokit.ml" 1616 48705 48713 "src/cryptokit.ml" 1616 48705 48733
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1616 48705 48734 "src/cryptokit.ml" 1616 48705 48735
type(
  int
)
"src/cryptokit.ml" 1616 48705 48713 "src/cryptokit.ml" 1616 48705 48735
type(
  unit
)
"src/cryptokit.ml" 1617 48737 48745 "src/cryptokit.ml" 1617 48737 48754
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1617 48737 48755 "src/cryptokit.ml" 1617 48737 48759
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1617 48737 48760 "src/cryptokit.ml" 1617 48737 48764
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1617 48737 48765 "src/cryptokit.ml" 1617 48737 48769
type(
  char
)
"src/cryptokit.ml" 1617 48737 48745 "src/cryptokit.ml" 1617 48737 48769
type(
  unit
)
"src/cryptokit.ml" 1618 48771 48787 "src/cryptokit.ml" 1618 48771 48791
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1618 48771 48792 "src/cryptokit.ml" 1618 48771 48793
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1618 48771 48794 "src/cryptokit.ml" 1618 48771 48795
type(
  int
)
"src/cryptokit.ml" 1618 48771 48787 "src/cryptokit.ml" 1618 48771 48795
type(
  int
)
"src/cryptokit.ml" 1618 48771 48779 "src/cryptokit.ml" 1618 48771 48795
type(
  unit
)
"src/cryptokit.ml" 1617 48737 48745 "src/cryptokit.ml" 1618 48771 48795
type(
  unit
)
"src/cryptokit.ml" 1615 48660 48699 "src/cryptokit.ml" 1619 48796 48805
type(
  unit
)
"src/cryptokit.ml" 1615 48660 48666 "src/cryptokit.ml" 1619 48796 48805
type(
  unit
)
"src/cryptokit.ml" 1620 48807 48824 "src/cryptokit.ml" 1620 48807 48825
type(
  int
)
"src/cryptokit.ml" 1620 48807 48813 "src/cryptokit.ml" 1620 48807 48825
type(
  unit
)
"src/cryptokit.ml" 1615 48660 48666 "src/cryptokit.ml" 1620 48807 48825
type(
  unit
)
"src/cryptokit.ml" 1608 48409 48415 "src/cryptokit.ml" 1620 48807 48825
type(
  unit
)
"src/cryptokit.ml" 1591 47693 47699 "src/cryptokit.ml" 1620 48807 48825
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1623 48845 48851 "src/cryptokit.ml" 1623 48845 48861
type(
  bytes -> unit
)
ident(
  int_ref wipe_bytes "src/cryptokit.ml" 16 901 905 "src/cryptokit.ml" 16 901 915
)
"src/cryptokit.ml" 1623 48845 48862 "src/cryptokit.ml" 1623 48845 48866
type(
  bytes
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1623 48845 48851 "src/cryptokit.ml" 1623 48845 48866
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1623 48845 48868 "src/cryptokit.ml" 1623 48845 48881
type(
  'a
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 1551 46411 46423 "src/cryptokit.ml" 1551 46411 46442
)
"src/cryptokit.ml" 1623 48845 48868 "src/cryptokit.ml" 1623 48845 48886
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1623 48845 48851 "src/cryptokit.ml" 1623 48845 48886
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1626 48894 48898 "src/cryptokit.ml" 1626 48894 48914
type(
  unit -> encode
)
ident(
  def encode_multiline "src/cryptokit.ml" 1627 48941 48941 "src/cryptokit.ml" 1700 51097 51100
)
"src/cryptokit.ml" 1626 48894 48915 "src/cryptokit.ml" 1626 48894 48917
type(
  unit
)
"src/cryptokit.ml" 1626 48894 48920 "src/cryptokit.ml" 1626 48894 48930
type(
  bool -> bool -> encode
)
"src/cryptokit.ml" 1626 48894 48931 "src/cryptokit.ml" 1626 48894 48935
type(
  bool
)
"src/cryptokit.ml" 1626 48894 48936 "src/cryptokit.ml" 1626 48894 48940
type(
  bool
)
"src/cryptokit.ml" 1626 48894 48920 "src/cryptokit.ml" 1626 48894 48940
call(
  tail
)
type(
  encode
)
"src/cryptokit.ml" 1627 48941 48945 "src/cryptokit.ml" 1627 48941 48959
type(
  unit -> encode
)
ident(
  def encode_compact "src/cryptokit.ml" 1628 48989 48989 "src/cryptokit.ml" 1700 51097 51100
)
"src/cryptokit.ml" 1627 48941 48960 "src/cryptokit.ml" 1627 48941 48962
type(
  unit
)
"src/cryptokit.ml" 1627 48941 48965 "src/cryptokit.ml" 1627 48941 48976
type(
  bool -> bool -> encode
)
"src/cryptokit.ml" 1627 48941 48977 "src/cryptokit.ml" 1627 48941 48982
type(
  bool
)
"src/cryptokit.ml" 1627 48941 48983 "src/cryptokit.ml" 1627 48941 48988
type(
  bool
)
"src/cryptokit.ml" 1627 48941 48965 "src/cryptokit.ml" 1627 48941 48988
call(
  tail
)
type(
  encode
)
"src/cryptokit.ml" 1628 48989 48993 "src/cryptokit.ml" 1628 48989 49011
type(
  unit -> encode
)
ident(
  def encode_compact_pad "src/cryptokit.ml" 1630 49040 49040 "src/cryptokit.ml" 1700 51097 51100
)
"src/cryptokit.ml" 1628 48989 49012 "src/cryptokit.ml" 1628 48989 49014
type(
  unit
)
"src/cryptokit.ml" 1628 48989 49017 "src/cryptokit.ml" 1628 48989 49027
type(
  bool -> bool -> encode
)
"src/cryptokit.ml" 1628 48989 49028 "src/cryptokit.ml" 1628 48989 49033
type(
  bool
)
"src/cryptokit.ml" 1628 48989 49034 "src/cryptokit.ml" 1628 48989 49038
type(
  bool
)
"src/cryptokit.ml" 1628 48989 49017 "src/cryptokit.ml" 1628 48989 49038
call(
  tail
)
type(
  encode
)
"src/cryptokit.ml" 1630 49040 49044 "src/cryptokit.ml" 1630 49040 49062
type(
  char -> int
)
ident(
  def base64_decode_char "src/cryptokit.ml" 1640 49293 49293 "src/cryptokit.ml" 1700 51097 51100
)
"src/cryptokit.ml" 1630 49040 49063 "src/cryptokit.ml" 1630 49040 49064
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1631 49067 49069 "src/cryptokit.ml" 1638 49254 49291
)
"src/cryptokit.ml" 1631 49067 49075 "src/cryptokit.ml" 1631 49067 49076
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1630 49040 49063 "src/cryptokit.ml" 1630 49040 49064
)
"src/cryptokit.ml" 1632 49082 49086 "src/cryptokit.ml" 1632 49082 49096
type(
  char
)
"src/cryptokit.ml" 1632 49082 49100 "src/cryptokit.ml" 1632 49082 49109
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1632 49082 49110 "src/cryptokit.ml" 1632 49082 49111
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1630 49040 49063 "src/cryptokit.ml" 1630 49040 49064
)
"src/cryptokit.ml" 1632 49082 49100 "src/cryptokit.ml" 1632 49082 49111
type(
  int
)
"src/cryptokit.ml" 1632 49082 49112 "src/cryptokit.ml" 1632 49082 49113
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1632 49082 49114 "src/cryptokit.ml" 1632 49082 49116
type(
  int
)
"src/cryptokit.ml" 1632 49082 49100 "src/cryptokit.ml" 1632 49082 49116
type(
  int
)
"src/cryptokit.ml" 1633 49117 49121 "src/cryptokit.ml" 1633 49117 49131
type(
  char
)
"src/cryptokit.ml" 1633 49117 49135 "src/cryptokit.ml" 1633 49117 49144
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1633 49117 49145 "src/cryptokit.ml" 1633 49117 49146
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1630 49040 49063 "src/cryptokit.ml" 1630 49040 49064
)
"src/cryptokit.ml" 1633 49117 49135 "src/cryptokit.ml" 1633 49117 49146
type(
  int
)
"src/cryptokit.ml" 1633 49117 49147 "src/cryptokit.ml" 1633 49117 49148
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1633 49117 49149 "src/cryptokit.ml" 1633 49117 49151
type(
  int
)
"src/cryptokit.ml" 1633 49117 49135 "src/cryptokit.ml" 1633 49117 49151
type(
  int
)
"src/cryptokit.ml" 1633 49117 49152 "src/cryptokit.ml" 1633 49117 49153
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1633 49117 49154 "src/cryptokit.ml" 1633 49117 49156
type(
  int
)
"src/cryptokit.ml" 1633 49117 49135 "src/cryptokit.ml" 1633 49117 49156
type(
  int
)
"src/cryptokit.ml" 1634 49157 49161 "src/cryptokit.ml" 1634 49157 49171
type(
  char
)
"src/cryptokit.ml" 1634 49157 49175 "src/cryptokit.ml" 1634 49157 49184
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1634 49157 49185 "src/cryptokit.ml" 1634 49157 49186
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1630 49040 49063 "src/cryptokit.ml" 1630 49040 49064
)
"src/cryptokit.ml" 1634 49157 49175 "src/cryptokit.ml" 1634 49157 49186
type(
  int
)
"src/cryptokit.ml" 1634 49157 49187 "src/cryptokit.ml" 1634 49157 49188
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1634 49157 49189 "src/cryptokit.ml" 1634 49157 49191
type(
  int
)
"src/cryptokit.ml" 1634 49157 49175 "src/cryptokit.ml" 1634 49157 49191
type(
  int
)
"src/cryptokit.ml" 1634 49157 49192 "src/cryptokit.ml" 1634 49157 49193
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1634 49157 49194 "src/cryptokit.ml" 1634 49157 49196
type(
  int
)
"src/cryptokit.ml" 1634 49157 49175 "src/cryptokit.ml" 1634 49157 49196
type(
  int
)
"src/cryptokit.ml" 1635 49197 49201 "src/cryptokit.ml" 1635 49197 49204
type(
  char
)
"src/cryptokit.ml" 1635 49197 49208 "src/cryptokit.ml" 1635 49197 49210
type(
  int
)
"src/cryptokit.ml" 1636 49211 49215 "src/cryptokit.ml" 1636 49211 49218
type(
  char
)
"src/cryptokit.ml" 1636 49211 49222 "src/cryptokit.ml" 1636 49211 49224
type(
  int
)
"src/cryptokit.ml" 1637 49225 49229 "src/cryptokit.ml" 1637 49225 49232
type(
  char
)
"src/cryptokit.ml" 1637 49225 49233 "src/cryptokit.ml" 1637 49225 49237
type(
  char
)
"src/cryptokit.ml" 1637 49225 49229 "src/cryptokit.ml" 1637 49225 49237
type(
  char
)
"src/cryptokit.ml" 1637 49225 49238 "src/cryptokit.ml" 1637 49225 49242
type(
  char
)
"src/cryptokit.ml" 1637 49225 49229 "src/cryptokit.ml" 1637 49225 49242
type(
  char
)
"src/cryptokit.ml" 1637 49225 49243 "src/cryptokit.ml" 1637 49225 49247
type(
  char
)
"src/cryptokit.ml" 1637 49225 49229 "src/cryptokit.ml" 1637 49225 49247
type(
  char
)
"src/cryptokit.ml" 1637 49225 49251 "src/cryptokit.ml" 1637 49225 49253
type(
  int
)
"src/cryptokit.ml" 1638 49254 49258 "src/cryptokit.ml" 1638 49254 49259
type(
  char
)
"src/cryptokit.ml" 1638 49254 49265 "src/cryptokit.ml" 1638 49254 49270
type(
  exn -> int
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1638 49254 49278 "src/cryptokit.ml" 1638 49254 49290
type(
  error
)
"src/cryptokit.ml" 1638 49254 49271 "src/cryptokit.ml" 1638 49254 49291
type(
  exn
)
"src/cryptokit.ml" 1638 49254 49265 "src/cryptokit.ml" 1638 49254 49291
type(
  int
)
"src/cryptokit.ml" 1631 49067 49069 "src/cryptokit.ml" 1638 49254 49291
type(
  int
)
"src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1642 49324 49352 "src/cryptokit.ml" 1642 49324 49355
type(
  int
)
"src/cryptokit.ml" 1644 49374 49404 "src/cryptokit.ml" 1644 49374 49405
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1645 49406 49437 "src/cryptokit.ml" 1645 49406 49438
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1647 49440 49455 "src/cryptokit.ml" 1647 49440 49465
type(
  int -> int -> int array
)
ident(
  ext_ref Array.make
)
"src/cryptokit.ml" 1647 49440 49466 "src/cryptokit.ml" 1647 49440 49467
type(
  int
)
"src/cryptokit.ml" 1647 49440 49468 "src/cryptokit.ml" 1647 49440 49469
type(
  int
)
"src/cryptokit.ml" 1647 49440 49455 "src/cryptokit.ml" 1647 49440 49469
type(
  int array
)
"src/cryptokit.ml" 1648 49470 49493 "src/cryptokit.ml" 1648 49470 49494
type(
  int
)
"src/cryptokit.ml" 1649 49495 49522 "src/cryptokit.ml" 1649 49495 49527
type(
  bool
)
"src/cryptokit.ml" 1651 49529 49549 "src/cryptokit.ml" 1651 49529 49550
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1652 49553 49559 "src/cryptokit.ml" 1667 50185 50194
)
"src/cryptokit.ml" 1652 49553 49562 "src/cryptokit.ml" 1652 49553 49563
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1651 49529 49549 "src/cryptokit.ml" 1651 49529 49550
)
"src/cryptokit.ml" 1652 49553 49564 "src/cryptokit.ml" 1652 49553 49565
type(
  char -> char -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1652 49553 49566 "src/cryptokit.ml" 1652 49553 49569
type(
  char
)
"src/cryptokit.ml" 1652 49553 49562 "src/cryptokit.ml" 1652 49553 49569
type(
  bool
)
"src/cryptokit.ml" 1652 49553 49587 "src/cryptokit.ml" 1652 49553 49591
type(
  bool
)
"src/cryptokit.ml" 1652 49553 49575 "src/cryptokit.ml" 1652 49553 49591
type(
  unit
)
"src/cryptokit.ml" 1653 49603 49615 "src/cryptokit.ml" 1653 49603 49616
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1654 49643 49651 "src/cryptokit.ml" 1666 50173 50184
)
"src/cryptokit.ml" 1653 49603 49619 "src/cryptokit.ml" 1653 49603 49637
type(
  char -> int
)
ident(
  int_ref base64_decode_char "src/cryptokit.ml" 1630 49040 49044 "src/cryptokit.ml" 1630 49040 49062
)
"src/cryptokit.ml" 1653 49603 49638 "src/cryptokit.ml" 1653 49603 49639
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1651 49529 49549 "src/cryptokit.ml" 1651 49529 49550
)
"src/cryptokit.ml" 1653 49603 49619 "src/cryptokit.ml" 1653 49603 49639
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1654 49643 49654 "src/cryptokit.ml" 1654 49643 49655
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1653 49603 49615 "src/cryptokit.ml" 1653 49603 49616
)
"src/cryptokit.ml" 1654 49643 49656 "src/cryptokit.ml" 1654 49643 49658
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1654 49643 49659 "src/cryptokit.ml" 1654 49643 49660
type(
  int
)
"src/cryptokit.ml" 1654 49643 49654 "src/cryptokit.ml" 1654 49643 49660
type(
  bool
)
"src/cryptokit.ml" 1655 49672 49685 "src/cryptokit.ml" 1655 49672 49693
type(
  bool
)
ident(
  ext_ref finished
)
"src/cryptokit.ml" 1655 49672 49699 "src/cryptokit.ml" 1655 49672 49704
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1655 49672 49711 "src/cryptokit.ml" 1655 49672 49723
type(
  error
)
"src/cryptokit.ml" 1655 49672 49704 "src/cryptokit.ml" 1655 49672 49724
type(
  exn
)
"src/cryptokit.ml" 1655 49672 49699 "src/cryptokit.ml" 1655 49672 49724
type(
  unit
)
"src/cryptokit.ml" 1655 49672 49682 "src/cryptokit.ml" 1655 49672 49724
type(
  unit
)
"src/cryptokit.ml" 1656 49726 49736 "src/cryptokit.ml" 1656 49726 49740
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1656 49726 49742 "src/cryptokit.ml" 1656 49726 49746
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1656 49726 49751 "src/cryptokit.ml" 1656 49726 49752
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1653 49603 49615 "src/cryptokit.ml" 1653 49603 49616
)
"src/cryptokit.ml" 1656 49726 49736 "src/cryptokit.ml" 1656 49726 49752
type(
  unit
)
"src/cryptokit.ml" 1657 49754 49772 "src/cryptokit.ml" 1657 49754 49776
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1657 49754 49777 "src/cryptokit.ml" 1657 49754 49778
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1657 49754 49779 "src/cryptokit.ml" 1657 49754 49780
type(
  int
)
"src/cryptokit.ml" 1657 49754 49772 "src/cryptokit.ml" 1657 49754 49780
type(
  int
)
"src/cryptokit.ml" 1657 49754 49764 "src/cryptokit.ml" 1657 49754 49780
type(
  unit
)
"src/cryptokit.ml" 1658 49782 49795 "src/cryptokit.ml" 1658 49782 49799
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1658 49782 49800 "src/cryptokit.ml" 1658 49782 49801
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1658 49782 49802 "src/cryptokit.ml" 1658 49782 49803
type(
  int
)
"src/cryptokit.ml" 1658 49782 49795 "src/cryptokit.ml" 1658 49782 49803
type(
  bool
)
"src/cryptokit.ml" 1659 49815 49827 "src/cryptokit.ml" 1659 49815 49831
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'b
)
ident(
  int_ref self "src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
)
"src/cryptokit.ml" 1659 49815 49827 "src/cryptokit.ml" 1659 49815 49847
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1659 49815 49848 "src/cryptokit.ml" 1659 49815 49849
type(
  int
)
"src/cryptokit.ml" 1659 49815 49827 "src/cryptokit.ml" 1659 49815 49849
type(
  unit
)
"src/cryptokit.ml" 1660 49851 49863 "src/cryptokit.ml" 1660 49851 49872
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1660 49851 49873 "src/cryptokit.ml" 1660 49851 49877
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1660 49851 49878 "src/cryptokit.ml" 1660 49851 49882
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1660 49851 49888 "src/cryptokit.ml" 1660 49851 49896
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1660 49851 49897 "src/cryptokit.ml" 1660 49851 49901
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1660 49851 49903 "src/cryptokit.ml" 1660 49851 49904
type(
  int
)
"src/cryptokit.ml" 1660 49851 49897 "src/cryptokit.ml" 1660 49851 49905
type(
  int
)
"src/cryptokit.ml" 1660 49851 49906 "src/cryptokit.ml" 1660 49851 49909
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1660 49851 49910 "src/cryptokit.ml" 1660 49851 49911
type(
  int
)
"src/cryptokit.ml" 1660 49851 49897 "src/cryptokit.ml" 1660 49851 49911
type(
  int
)
"src/cryptokit.ml" 1660 49851 49912 "src/cryptokit.ml" 1660 49851 49913
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1660 49851 49914 "src/cryptokit.ml" 1660 49851 49918
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1660 49851 49920 "src/cryptokit.ml" 1660 49851 49921
type(
  int
)
"src/cryptokit.ml" 1660 49851 49914 "src/cryptokit.ml" 1660 49851 49922
type(
  int
)
"src/cryptokit.ml" 1660 49851 49923 "src/cryptokit.ml" 1660 49851 49926
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1660 49851 49927 "src/cryptokit.ml" 1660 49851 49928
type(
  int
)
"src/cryptokit.ml" 1660 49851 49914 "src/cryptokit.ml" 1660 49851 49928
type(
  int
)
"src/cryptokit.ml" 1660 49851 49896 "src/cryptokit.ml" 1660 49851 49929
type(
  int
)
"src/cryptokit.ml" 1660 49851 49887 "src/cryptokit.ml" 1660 49851 49930
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1660 49851 49863 "src/cryptokit.ml" 1660 49851 49930
type(
  unit
)
"src/cryptokit.ml" 1661 49932 49944 "src/cryptokit.ml" 1661 49932 49953
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1661 49932 49954 "src/cryptokit.ml" 1661 49932 49958
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1661 49932 49960 "src/cryptokit.ml" 1661 49932 49964
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1661 49932 49964 "src/cryptokit.ml" 1661 49932 49965
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1661 49932 49965 "src/cryptokit.ml" 1661 49932 49966
type(
  int
)
"src/cryptokit.ml" 1661 49932 49959 "src/cryptokit.ml" 1661 49932 49967
type(
  int
)
"src/cryptokit.ml" 1661 49932 49969 "src/cryptokit.ml" 1661 49932 49977
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1661 49932 49979 "src/cryptokit.ml" 1661 49932 49983
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1661 49932 49985 "src/cryptokit.ml" 1661 49932 49986
type(
  int
)
"src/cryptokit.ml" 1661 49932 49979 "src/cryptokit.ml" 1661 49932 49987
type(
  int
)
"src/cryptokit.ml" 1661 49932 49988 "src/cryptokit.ml" 1661 49932 49992
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1661 49932 49993 "src/cryptokit.ml" 1661 49932 49995
type(
  int
)
"src/cryptokit.ml" 1661 49932 49978 "src/cryptokit.ml" 1661 49932 49996
type(
  int
)
"src/cryptokit.ml" 1661 49932 49997 "src/cryptokit.ml" 1661 49932 50000
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1661 49932 50001 "src/cryptokit.ml" 1661 49932 50002
type(
  int
)
"src/cryptokit.ml" 1661 49932 49978 "src/cryptokit.ml" 1661 49932 50002
type(
  int
)
"src/cryptokit.ml" 1661 49932 50003 "src/cryptokit.ml" 1661 49932 50004
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1661 49932 50005 "src/cryptokit.ml" 1661 49932 50009
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1661 49932 50011 "src/cryptokit.ml" 1661 49932 50012
type(
  int
)
"src/cryptokit.ml" 1661 49932 50005 "src/cryptokit.ml" 1661 49932 50013
type(
  int
)
"src/cryptokit.ml" 1661 49932 50014 "src/cryptokit.ml" 1661 49932 50017
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1661 49932 50018 "src/cryptokit.ml" 1661 49932 50019
type(
  int
)
"src/cryptokit.ml" 1661 49932 50005 "src/cryptokit.ml" 1661 49932 50019
type(
  int
)
"src/cryptokit.ml" 1661 49932 49977 "src/cryptokit.ml" 1661 49932 50020
type(
  int
)
"src/cryptokit.ml" 1661 49932 49968 "src/cryptokit.ml" 1661 49932 50021
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1661 49932 49944 "src/cryptokit.ml" 1661 49932 50021
type(
  unit
)
"src/cryptokit.ml" 1662 50023 50035 "src/cryptokit.ml" 1662 50023 50044
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1662 50023 50045 "src/cryptokit.ml" 1662 50023 50049
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1662 50023 50051 "src/cryptokit.ml" 1662 50023 50055
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1662 50023 50055 "src/cryptokit.ml" 1662 50023 50056
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1662 50023 50056 "src/cryptokit.ml" 1662 50023 50057
type(
  int
)
"src/cryptokit.ml" 1662 50023 50050 "src/cryptokit.ml" 1662 50023 50058
type(
  int
)
"src/cryptokit.ml" 1662 50023 50060 "src/cryptokit.ml" 1662 50023 50068
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1662 50023 50070 "src/cryptokit.ml" 1662 50023 50074
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1662 50023 50076 "src/cryptokit.ml" 1662 50023 50077
type(
  int
)
"src/cryptokit.ml" 1662 50023 50070 "src/cryptokit.ml" 1662 50023 50078
type(
  int
)
"src/cryptokit.ml" 1662 50023 50079 "src/cryptokit.ml" 1662 50023 50083
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1662 50023 50084 "src/cryptokit.ml" 1662 50023 50085
type(
  int
)
"src/cryptokit.ml" 1662 50023 50069 "src/cryptokit.ml" 1662 50023 50086
type(
  int
)
"src/cryptokit.ml" 1662 50023 50087 "src/cryptokit.ml" 1662 50023 50090
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1662 50023 50091 "src/cryptokit.ml" 1662 50023 50092
type(
  int
)
"src/cryptokit.ml" 1662 50023 50069 "src/cryptokit.ml" 1662 50023 50092
type(
  int
)
"src/cryptokit.ml" 1662 50023 50093 "src/cryptokit.ml" 1662 50023 50094
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1662 50023 50095 "src/cryptokit.ml" 1662 50023 50099
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1662 50023 50101 "src/cryptokit.ml" 1662 50023 50102
type(
  int
)
"src/cryptokit.ml" 1662 50023 50095 "src/cryptokit.ml" 1662 50023 50103
type(
  int
)
"src/cryptokit.ml" 1662 50023 50068 "src/cryptokit.ml" 1662 50023 50104
type(
  int
)
"src/cryptokit.ml" 1662 50023 50059 "src/cryptokit.ml" 1662 50023 50105
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1662 50023 50035 "src/cryptokit.ml" 1662 50023 50105
type(
  unit
)
"src/cryptokit.ml" 1663 50107 50127 "src/cryptokit.ml" 1663 50107 50131
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1663 50107 50132 "src/cryptokit.ml" 1663 50107 50133
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1663 50107 50134 "src/cryptokit.ml" 1663 50107 50135
type(
  int
)
"src/cryptokit.ml" 1663 50107 50127 "src/cryptokit.ml" 1663 50107 50135
type(
  int
)
"src/cryptokit.ml" 1663 50107 50119 "src/cryptokit.ml" 1663 50107 50135
type(
  unit
)
"src/cryptokit.ml" 1664 50137 50157 "src/cryptokit.ml" 1664 50137 50158
type(
  int
)
"src/cryptokit.ml" 1664 50137 50149 "src/cryptokit.ml" 1664 50137 50158
type(
  unit
)
"src/cryptokit.ml" 1663 50107 50119 "src/cryptokit.ml" 1664 50137 50158
type(
  unit
)
"src/cryptokit.ml" 1662 50023 50035 "src/cryptokit.ml" 1664 50137 50158
type(
  unit
)
"src/cryptokit.ml" 1661 49932 49944 "src/cryptokit.ml" 1664 50137 50158
type(
  unit
)
"src/cryptokit.ml" 1660 49851 49863 "src/cryptokit.ml" 1664 50137 50158
type(
  unit
)
"src/cryptokit.ml" 1658 49782 49809 "src/cryptokit.ml" 1665 50159 50172
type(
  unit
)
"src/cryptokit.ml" 1658 49782 49792 "src/cryptokit.ml" 1665 50159 50172
type(
  unit
)
"src/cryptokit.ml" 1657 49754 49764 "src/cryptokit.ml" 1665 50159 50172
type(
  unit
)
"src/cryptokit.ml" 1656 49726 49736 "src/cryptokit.ml" 1665 50159 50172
type(
  unit
)
"src/cryptokit.ml" 1654 49643 49666 "src/cryptokit.ml" 1666 50173 50184
type(
  unit
)
"src/cryptokit.ml" 1654 49643 49651 "src/cryptokit.ml" 1666 50173 50184
type(
  unit
)
"src/cryptokit.ml" 1652 49553 49597 "src/cryptokit.ml" 1667 50185 50194
type(
  unit
)
"src/cryptokit.ml" 1652 49553 49559 "src/cryptokit.ml" 1667 50185 50194
type(
  unit
)
"src/cryptokit.ml" 1669 50196 50221 "src/cryptokit.ml" 1669 50196 50222
type(
  bytes
)
ident(
  def s "src/cryptokit.ml" 1669 50196 50223 "src/cryptokit.ml" 1670 50233 50305
)
"src/cryptokit.ml" 1669 50196 50223 "src/cryptokit.ml" 1669 50196 50226
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1669 50196 50227 "src/cryptokit.ml" 1670 50233 50305
)
"src/cryptokit.ml" 1669 50196 50227 "src/cryptokit.ml" 1669 50196 50230
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1670 50233 50239 "src/cryptokit.ml" 1670 50233 50305
)
"src/cryptokit.ml" 1670 50233 50247 "src/cryptokit.ml" 1670 50233 50250
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1669 50196 50223 "src/cryptokit.ml" 1669 50196 50226
)
"src/cryptokit.ml" 1670 50233 50254 "src/cryptokit.ml" 1670 50233 50257
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1669 50196 50223 "src/cryptokit.ml" 1669 50196 50226
)
"src/cryptokit.ml" 1670 50233 50258 "src/cryptokit.ml" 1670 50233 50259
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1670 50233 50260 "src/cryptokit.ml" 1670 50233 50263
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1669 50196 50227 "src/cryptokit.ml" 1669 50196 50230
)
"src/cryptokit.ml" 1670 50233 50254 "src/cryptokit.ml" 1670 50233 50263
type(
  int
)
"src/cryptokit.ml" 1670 50233 50264 "src/cryptokit.ml" 1670 50233 50265
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1670 50233 50266 "src/cryptokit.ml" 1670 50233 50267
type(
  int
)
"src/cryptokit.ml" 1670 50233 50254 "src/cryptokit.ml" 1670 50233 50267
type(
  int
)
"src/cryptokit.ml" 1670 50233 50271 "src/cryptokit.ml" 1670 50233 50275
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
)
"src/cryptokit.ml" 1670 50233 50271 "src/cryptokit.ml" 1670 50233 50284
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1670 50233 50286 "src/cryptokit.ml" 1670 50233 50295
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1670 50233 50296 "src/cryptokit.ml" 1670 50233 50297
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 1669 50196 50221 "src/cryptokit.ml" 1669 50196 50222
)
"src/cryptokit.ml" 1670 50233 50298 "src/cryptokit.ml" 1670 50233 50299
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1670 50233 50239 "src/cryptokit.ml" 1670 50233 50305
)
"src/cryptokit.ml" 1670 50233 50285 "src/cryptokit.ml" 1670 50233 50300
type(
  char
)
"src/cryptokit.ml" 1670 50233 50271 "src/cryptokit.ml" 1670 50233 50300
type(
  unit
)
"src/cryptokit.ml" 1670 50233 50239 "src/cryptokit.ml" 1670 50233 50305
type(
  unit
)
"src/cryptokit.ml" 1672 50307 50329 "src/cryptokit.ml" 1672 50307 50330
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1673 50333 50339 "src/cryptokit.ml" 1673 50333 50366
)
"src/cryptokit.ml" 1673 50333 50339 "src/cryptokit.ml" 1673 50333 50350
type(
  (char -> unit) -> string -> unit
)
ident(
  ext_ref String.iter
)
"src/cryptokit.ml" 1673 50333 50351 "src/cryptokit.ml" 1673 50333 50355
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
)
"src/cryptokit.ml" 1673 50333 50351 "src/cryptokit.ml" 1673 50333 50364
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1673 50333 50365 "src/cryptokit.ml" 1673 50333 50366
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1672 50307 50329 "src/cryptokit.ml" 1672 50307 50330
)
"src/cryptokit.ml" 1673 50333 50339 "src/cryptokit.ml" 1673 50333 50366
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1675 50368 50388 "src/cryptokit.ml" 1675 50368 50389
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1675 50368 50392 "src/cryptokit.ml" 1675 50368 50418
)
"src/cryptokit.ml" 1675 50368 50392 "src/cryptokit.ml" 1675 50368 50396
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
)
"src/cryptokit.ml" 1675 50368 50392 "src/cryptokit.ml" 1675 50368 50405
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1675 50368 50407 "src/cryptokit.ml" 1675 50368 50415
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1675 50368 50416 "src/cryptokit.ml" 1675 50368 50417
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1675 50368 50388 "src/cryptokit.ml" 1675 50368 50389
)
"src/cryptokit.ml" 1675 50368 50406 "src/cryptokit.ml" 1675 50368 50418
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1675 50368 50392 "src/cryptokit.ml" 1675 50368 50418
type(
  unit
)
"src/cryptokit.ml" 1677 50420 50446 "src/cryptokit.ml" 1677 50420 50451
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1677 50420 50459 "src/cryptokit.ml" 1677 50420 50476
type(
  error
)
"src/cryptokit.ml" 1677 50420 50452 "src/cryptokit.ml" 1677 50420 50477
type(
  exn
)
"src/cryptokit.ml" 1677 50420 50446 "src/cryptokit.ml" 1677 50420 50477
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1680 50499 50517 "src/cryptokit.ml" 1680 50499 50521
type(
  bool
)
"src/cryptokit.ml" 1680 50499 50505 "src/cryptokit.ml" 1680 50499 50521
type(
  unit
)
"src/cryptokit.ml" 1681 50523 50535 "src/cryptokit.ml" 1681 50523 50539
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1682 50545 50553 "src/cryptokit.ml" 1682 50545 50554
type(
  int
)
"src/cryptokit.ml" 1682 50545 50558 "src/cryptokit.ml" 1682 50545 50563
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1682 50545 50570 "src/cryptokit.ml" 1682 50545 50582
type(
  error
)
"src/cryptokit.ml" 1682 50545 50563 "src/cryptokit.ml" 1682 50545 50583
type(
  exn
)
"src/cryptokit.ml" 1682 50545 50558 "src/cryptokit.ml" 1682 50545 50583
type(
  unit
)
"src/cryptokit.ml" 1683 50584 50592 "src/cryptokit.ml" 1683 50584 50593
type(
  int
)
"src/cryptokit.ml" 1684 50597 50607 "src/cryptokit.ml" 1684 50597 50611
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
)
"src/cryptokit.ml" 1684 50597 50607 "src/cryptokit.ml" 1684 50597 50627
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1684 50597 50628 "src/cryptokit.ml" 1684 50597 50629
type(
  int
)
"src/cryptokit.ml" 1684 50597 50607 "src/cryptokit.ml" 1684 50597 50629
type(
  unit
)
"src/cryptokit.ml" 1685 50631 50641 "src/cryptokit.ml" 1685 50631 50650
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1685 50631 50651 "src/cryptokit.ml" 1685 50631 50655
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1685 50631 50656 "src/cryptokit.ml" 1685 50631 50660
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1685 50631 50666 "src/cryptokit.ml" 1685 50631 50674
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1685 50631 50675 "src/cryptokit.ml" 1685 50631 50679
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1685 50631 50681 "src/cryptokit.ml" 1685 50631 50682
type(
  int
)
"src/cryptokit.ml" 1685 50631 50675 "src/cryptokit.ml" 1685 50631 50683
type(
  int
)
"src/cryptokit.ml" 1685 50631 50684 "src/cryptokit.ml" 1685 50631 50687
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1685 50631 50688 "src/cryptokit.ml" 1685 50631 50689
type(
  int
)
"src/cryptokit.ml" 1685 50631 50675 "src/cryptokit.ml" 1685 50631 50689
type(
  int
)
"src/cryptokit.ml" 1685 50631 50690 "src/cryptokit.ml" 1685 50631 50691
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1685 50631 50692 "src/cryptokit.ml" 1685 50631 50696
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1685 50631 50698 "src/cryptokit.ml" 1685 50631 50699
type(
  int
)
"src/cryptokit.ml" 1685 50631 50692 "src/cryptokit.ml" 1685 50631 50700
type(
  int
)
"src/cryptokit.ml" 1685 50631 50701 "src/cryptokit.ml" 1685 50631 50704
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1685 50631 50705 "src/cryptokit.ml" 1685 50631 50706
type(
  int
)
"src/cryptokit.ml" 1685 50631 50692 "src/cryptokit.ml" 1685 50631 50706
type(
  int
)
"src/cryptokit.ml" 1685 50631 50674 "src/cryptokit.ml" 1685 50631 50707
type(
  int
)
"src/cryptokit.ml" 1685 50631 50665 "src/cryptokit.ml" 1685 50631 50708
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1685 50631 50641 "src/cryptokit.ml" 1685 50631 50708
type(
  unit
)
"src/cryptokit.ml" 1686 50710 50728 "src/cryptokit.ml" 1686 50710 50732
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1686 50710 50733 "src/cryptokit.ml" 1686 50710 50734
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1686 50710 50735 "src/cryptokit.ml" 1686 50710 50736
type(
  int
)
"src/cryptokit.ml" 1686 50710 50728 "src/cryptokit.ml" 1686 50710 50736
type(
  int
)
"src/cryptokit.ml" 1686 50710 50720 "src/cryptokit.ml" 1686 50710 50736
type(
  unit
)
"src/cryptokit.ml" 1685 50631 50641 "src/cryptokit.ml" 1686 50710 50736
type(
  unit
)
"src/cryptokit.ml" 1684 50597 50607 "src/cryptokit.ml" 1686 50710 50736
type(
  unit
)
"src/cryptokit.ml" 1687 50737 50745 "src/cryptokit.ml" 1687 50737 50746
type(
  int
)
"src/cryptokit.ml" 1688 50750 50760 "src/cryptokit.ml" 1688 50750 50764
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1641 49308 49317 "src/cryptokit.ml" 1641 49308 49323
)
"src/cryptokit.ml" 1688 50750 50760 "src/cryptokit.ml" 1688 50750 50780
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1688 50750 50781 "src/cryptokit.ml" 1688 50750 50782
type(
  int
)
"src/cryptokit.ml" 1688 50750 50760 "src/cryptokit.ml" 1688 50750 50782
type(
  unit
)
"src/cryptokit.ml" 1689 50784 50794 "src/cryptokit.ml" 1689 50784 50803
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1689 50784 50804 "src/cryptokit.ml" 1689 50784 50808
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1689 50784 50809 "src/cryptokit.ml" 1689 50784 50813
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1689 50784 50819 "src/cryptokit.ml" 1689 50784 50827
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1689 50784 50828 "src/cryptokit.ml" 1689 50784 50832
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1689 50784 50834 "src/cryptokit.ml" 1689 50784 50835
type(
  int
)
"src/cryptokit.ml" 1689 50784 50828 "src/cryptokit.ml" 1689 50784 50836
type(
  int
)
"src/cryptokit.ml" 1689 50784 50837 "src/cryptokit.ml" 1689 50784 50840
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1689 50784 50841 "src/cryptokit.ml" 1689 50784 50842
type(
  int
)
"src/cryptokit.ml" 1689 50784 50828 "src/cryptokit.ml" 1689 50784 50842
type(
  int
)
"src/cryptokit.ml" 1689 50784 50843 "src/cryptokit.ml" 1689 50784 50844
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1689 50784 50845 "src/cryptokit.ml" 1689 50784 50849
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1689 50784 50851 "src/cryptokit.ml" 1689 50784 50852
type(
  int
)
"src/cryptokit.ml" 1689 50784 50845 "src/cryptokit.ml" 1689 50784 50853
type(
  int
)
"src/cryptokit.ml" 1689 50784 50854 "src/cryptokit.ml" 1689 50784 50857
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1689 50784 50858 "src/cryptokit.ml" 1689 50784 50859
type(
  int
)
"src/cryptokit.ml" 1689 50784 50845 "src/cryptokit.ml" 1689 50784 50859
type(
  int
)
"src/cryptokit.ml" 1689 50784 50827 "src/cryptokit.ml" 1689 50784 50860
type(
  int
)
"src/cryptokit.ml" 1689 50784 50818 "src/cryptokit.ml" 1689 50784 50861
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1689 50784 50794 "src/cryptokit.ml" 1689 50784 50861
type(
  unit
)
"src/cryptokit.ml" 1690 50863 50873 "src/cryptokit.ml" 1690 50863 50882
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1690 50863 50883 "src/cryptokit.ml" 1690 50863 50887
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1690 50863 50889 "src/cryptokit.ml" 1690 50863 50893
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1690 50863 50893 "src/cryptokit.ml" 1690 50863 50894
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1690 50863 50894 "src/cryptokit.ml" 1690 50863 50895
type(
  int
)
"src/cryptokit.ml" 1690 50863 50888 "src/cryptokit.ml" 1690 50863 50896
type(
  int
)
"src/cryptokit.ml" 1690 50863 50898 "src/cryptokit.ml" 1690 50863 50906
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1690 50863 50908 "src/cryptokit.ml" 1690 50863 50912
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1690 50863 50914 "src/cryptokit.ml" 1690 50863 50915
type(
  int
)
"src/cryptokit.ml" 1690 50863 50908 "src/cryptokit.ml" 1690 50863 50916
type(
  int
)
"src/cryptokit.ml" 1690 50863 50917 "src/cryptokit.ml" 1690 50863 50921
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1690 50863 50922 "src/cryptokit.ml" 1690 50863 50924
type(
  int
)
"src/cryptokit.ml" 1690 50863 50907 "src/cryptokit.ml" 1690 50863 50925
type(
  int
)
"src/cryptokit.ml" 1690 50863 50926 "src/cryptokit.ml" 1690 50863 50929
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1690 50863 50930 "src/cryptokit.ml" 1690 50863 50931
type(
  int
)
"src/cryptokit.ml" 1690 50863 50907 "src/cryptokit.ml" 1690 50863 50931
type(
  int
)
"src/cryptokit.ml" 1690 50863 50932 "src/cryptokit.ml" 1690 50863 50933
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1690 50863 50934 "src/cryptokit.ml" 1690 50863 50938
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1690 50863 50940 "src/cryptokit.ml" 1690 50863 50941
type(
  int
)
"src/cryptokit.ml" 1690 50863 50934 "src/cryptokit.ml" 1690 50863 50942
type(
  int
)
"src/cryptokit.ml" 1690 50863 50943 "src/cryptokit.ml" 1690 50863 50946
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1690 50863 50947 "src/cryptokit.ml" 1690 50863 50948
type(
  int
)
"src/cryptokit.ml" 1690 50863 50934 "src/cryptokit.ml" 1690 50863 50948
type(
  int
)
"src/cryptokit.ml" 1690 50863 50906 "src/cryptokit.ml" 1690 50863 50949
type(
  int
)
"src/cryptokit.ml" 1690 50863 50897 "src/cryptokit.ml" 1690 50863 50950
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1690 50863 50873 "src/cryptokit.ml" 1690 50863 50950
type(
  unit
)
"src/cryptokit.ml" 1691 50952 50970 "src/cryptokit.ml" 1691 50952 50974
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1691 50952 50975 "src/cryptokit.ml" 1691 50952 50976
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1691 50952 50977 "src/cryptokit.ml" 1691 50952 50978
type(
  int
)
"src/cryptokit.ml" 1691 50952 50970 "src/cryptokit.ml" 1691 50952 50978
type(
  int
)
"src/cryptokit.ml" 1691 50952 50962 "src/cryptokit.ml" 1691 50952 50978
type(
  unit
)
"src/cryptokit.ml" 1690 50863 50873 "src/cryptokit.ml" 1691 50952 50978
type(
  unit
)
"src/cryptokit.ml" 1689 50784 50794 "src/cryptokit.ml" 1691 50952 50978
type(
  unit
)
"src/cryptokit.ml" 1688 50750 50760 "src/cryptokit.ml" 1691 50952 50978
type(
  unit
)
"src/cryptokit.ml" 1692 50979 50987 "src/cryptokit.ml" 1692 50979 50988
type(
  int
)
"src/cryptokit.ml" 1692 50979 50992 "src/cryptokit.ml" 1692 50979 50994
type(
  unit
)
"src/cryptokit.ml" 1681 50523 50529 "src/cryptokit.ml" 1692 50979 50994
type(
  unit
)
"src/cryptokit.ml" 1680 50499 50505 "src/cryptokit.ml" 1692 50979 50994
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1695 51014 51020 "src/cryptokit.ml" 1695 51014 51030
type(
  int array -> int -> int -> int -> unit
)
ident(
  ext_ref Array.fill
)
"src/cryptokit.ml" 1695 51014 51031 "src/cryptokit.ml" 1695 51014 51035
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1695 51014 51036 "src/cryptokit.ml" 1695 51014 51037
type(
  int
)
"src/cryptokit.ml" 1695 51014 51038 "src/cryptokit.ml" 1695 51014 51039
type(
  int
)
"src/cryptokit.ml" 1695 51014 51040 "src/cryptokit.ml" 1695 51014 51041
type(
  int
)
"src/cryptokit.ml" 1695 51014 51020 "src/cryptokit.ml" 1695 51014 51041
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1695 51014 51043 "src/cryptokit.ml" 1695 51014 51056
type(
  'b
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 1642 49324 49336 "src/cryptokit.ml" 1642 49324 49355
)
"src/cryptokit.ml" 1695 51014 51043 "src/cryptokit.ml" 1695 51014 51061
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1695 51014 51020 "src/cryptokit.ml" 1695 51014 51061
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1698 51069 51073 "src/cryptokit.ml" 1698 51069 51079
type(
  unit -> decode
)
ident(
  def decode "src/cryptokit.ml" 1698 51069 51095 "src/cryptokit.ml" 1700 51097 51100
)
"src/cryptokit.ml" 1698 51069 51080 "src/cryptokit.ml" 1698 51069 51082
type(
  unit
)
"src/cryptokit.ml" 1698 51069 51089 "src/cryptokit.ml" 1698 51069 51095
call(
  tail
)
"src/cryptokit.ml" 1698 51069 51085 "src/cryptokit.ml" 1698 51069 51095
type(
  decode
)
"src/cryptokit.ml" 1706 51152 51156 "src/cryptokit.ml" 1706 51152 51170
type(
  string
)
ident(
  def hex_conv_table "src/cryptokit.ml" 1708 51193 51193 "src/cryptokit.ml" 1788 53121 53124
)
"src/cryptokit.ml" 1706 51152 51173 "src/cryptokit.ml" 1706 51152 51191
type(
  string
)
"src/cryptokit.ml" 1709 51208 51217 "src/cryptokit.ml" 1709 51208 51223
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1710 51224 51254 "src/cryptokit.ml" 1710 51224 51255
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1711 51256 51287 "src/cryptokit.ml" 1711 51256 51288
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1713 51290 51318 "src/cryptokit.ml" 1713 51290 51321
type(
  int
)
"src/cryptokit.ml" 1715 51340 51360 "src/cryptokit.ml" 1715 51340 51361
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1716 51364 51370 "src/cryptokit.ml" 1719 51513 51535
)
"src/cryptokit.ml" 1716 51364 51370 "src/cryptokit.ml" 1716 51364 51374
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 1709 51208 51217 "src/cryptokit.ml" 1709 51208 51223
)
"src/cryptokit.ml" 1716 51364 51370 "src/cryptokit.ml" 1716 51364 51390
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1716 51364 51391 "src/cryptokit.ml" 1716 51364 51392
type(
  int
)
"src/cryptokit.ml" 1716 51364 51370 "src/cryptokit.ml" 1716 51364 51392
type(
  unit
)
"src/cryptokit.ml" 1717 51394 51400 "src/cryptokit.ml" 1717 51394 51409
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1717 51394 51410 "src/cryptokit.ml" 1717 51394 51414
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1717 51394 51415 "src/cryptokit.ml" 1717 51394 51419
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1717 51394 51425 "src/cryptokit.ml" 1717 51394 51439
type(
  string
)
ident(
  int_ref hex_conv_table "src/cryptokit.ml" 1706 51152 51156 "src/cryptokit.ml" 1706 51152 51170
)
"src/cryptokit.ml" 1717 51394 51441 "src/cryptokit.ml" 1717 51394 51442
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1715 51340 51360 "src/cryptokit.ml" 1715 51340 51361
)
"src/cryptokit.ml" 1717 51394 51443 "src/cryptokit.ml" 1717 51394 51446
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/cryptokit.ml" 1717 51394 51447 "src/cryptokit.ml" 1717 51394 51448
type(
  int
)
"src/cryptokit.ml" 1717 51394 51441 "src/cryptokit.ml" 1717 51394 51448
type(
  int
)
"src/cryptokit.ml" 1717 51394 51424 "src/cryptokit.ml" 1717 51394 51450
type(
  char
)
"src/cryptokit.ml" 1717 51394 51400 "src/cryptokit.ml" 1717 51394 51450
type(
  unit
)
"src/cryptokit.ml" 1718 51452 51458 "src/cryptokit.ml" 1718 51452 51467
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1718 51452 51468 "src/cryptokit.ml" 1718 51452 51472
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1718 51452 51474 "src/cryptokit.ml" 1718 51452 51478
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1718 51452 51478 "src/cryptokit.ml" 1718 51452 51479
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1718 51452 51479 "src/cryptokit.ml" 1718 51452 51480
type(
  int
)
"src/cryptokit.ml" 1718 51452 51473 "src/cryptokit.ml" 1718 51452 51481
type(
  int
)
"src/cryptokit.ml" 1718 51452 51483 "src/cryptokit.ml" 1718 51452 51497
type(
  string
)
ident(
  int_ref hex_conv_table "src/cryptokit.ml" 1706 51152 51156 "src/cryptokit.ml" 1706 51152 51170
)
"src/cryptokit.ml" 1718 51452 51499 "src/cryptokit.ml" 1718 51452 51500
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1715 51340 51360 "src/cryptokit.ml" 1715 51340 51361
)
"src/cryptokit.ml" 1718 51452 51501 "src/cryptokit.ml" 1718 51452 51505
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/cryptokit.ml" 1718 51452 51506 "src/cryptokit.ml" 1718 51452 51509
type(
  int
)
"src/cryptokit.ml" 1718 51452 51499 "src/cryptokit.ml" 1718 51452 51509
type(
  int
)
"src/cryptokit.ml" 1718 51452 51482 "src/cryptokit.ml" 1718 51452 51511
type(
  char
)
"src/cryptokit.ml" 1718 51452 51458 "src/cryptokit.ml" 1718 51452 51511
type(
  unit
)
"src/cryptokit.ml" 1719 51513 51527 "src/cryptokit.ml" 1719 51513 51531
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1719 51513 51532 "src/cryptokit.ml" 1719 51513 51533
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1719 51513 51534 "src/cryptokit.ml" 1719 51513 51535
type(
  int
)
"src/cryptokit.ml" 1719 51513 51527 "src/cryptokit.ml" 1719 51513 51535
type(
  int
)
"src/cryptokit.ml" 1719 51513 51519 "src/cryptokit.ml" 1719 51513 51535
type(
  unit
)
"src/cryptokit.ml" 1718 51452 51458 "src/cryptokit.ml" 1719 51513 51535
type(
  unit
)
"src/cryptokit.ml" 1717 51394 51400 "src/cryptokit.ml" 1719 51513 51535
type(
  unit
)
"src/cryptokit.ml" 1716 51364 51370 "src/cryptokit.ml" 1719 51513 51535
type(
  unit
)
"src/cryptokit.ml" 1721 51537 51557 "src/cryptokit.ml" 1721 51537 51558
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1721 51537 51561 "src/cryptokit.ml" 1721 51537 51588
)
"src/cryptokit.ml" 1721 51537 51561 "src/cryptokit.ml" 1721 51537 51565
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1709 51208 51217 "src/cryptokit.ml" 1709 51208 51223
)
"src/cryptokit.ml" 1721 51537 51561 "src/cryptokit.ml" 1721 51537 51574
call(
  tail
)
type(
  int -> unit
)
"src/cryptokit.ml" 1721 51537 51576 "src/cryptokit.ml" 1721 51537 51585
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1721 51537 51586 "src/cryptokit.ml" 1721 51537 51587
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1721 51537 51557 "src/cryptokit.ml" 1721 51537 51558
)
"src/cryptokit.ml" 1721 51537 51575 "src/cryptokit.ml" 1721 51537 51588
type(
  int
)
"src/cryptokit.ml" 1721 51537 51561 "src/cryptokit.ml" 1721 51537 51588
type(
  unit
)
"src/cryptokit.ml" 1723 51590 51615 "src/cryptokit.ml" 1723 51590 51616
type(
  bytes
)
ident(
  def s "src/cryptokit.ml" 1723 51590 51617 "src/cryptokit.ml" 1724 51627 51699
)
"src/cryptokit.ml" 1723 51590 51617 "src/cryptokit.ml" 1723 51590 51620
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1723 51590 51621 "src/cryptokit.ml" 1724 51627 51699
)
"src/cryptokit.ml" 1723 51590 51621 "src/cryptokit.ml" 1723 51590 51624
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1724 51627 51633 "src/cryptokit.ml" 1724 51627 51699
)
"src/cryptokit.ml" 1724 51627 51641 "src/cryptokit.ml" 1724 51627 51644
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1723 51590 51617 "src/cryptokit.ml" 1723 51590 51620
)
"src/cryptokit.ml" 1724 51627 51648 "src/cryptokit.ml" 1724 51627 51651
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1723 51590 51617 "src/cryptokit.ml" 1723 51590 51620
)
"src/cryptokit.ml" 1724 51627 51652 "src/cryptokit.ml" 1724 51627 51653
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1724 51627 51654 "src/cryptokit.ml" 1724 51627 51657
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1723 51590 51621 "src/cryptokit.ml" 1723 51590 51624
)
"src/cryptokit.ml" 1724 51627 51648 "src/cryptokit.ml" 1724 51627 51657
type(
  int
)
"src/cryptokit.ml" 1724 51627 51658 "src/cryptokit.ml" 1724 51627 51659
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1724 51627 51660 "src/cryptokit.ml" 1724 51627 51661
type(
  int
)
"src/cryptokit.ml" 1724 51627 51648 "src/cryptokit.ml" 1724 51627 51661
type(
  int
)
"src/cryptokit.ml" 1724 51627 51665 "src/cryptokit.ml" 1724 51627 51669
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1709 51208 51217 "src/cryptokit.ml" 1709 51208 51223
)
"src/cryptokit.ml" 1724 51627 51665 "src/cryptokit.ml" 1724 51627 51678
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1724 51627 51680 "src/cryptokit.ml" 1724 51627 51689
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1724 51627 51690 "src/cryptokit.ml" 1724 51627 51691
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 1723 51590 51615 "src/cryptokit.ml" 1723 51590 51616
)
"src/cryptokit.ml" 1724 51627 51692 "src/cryptokit.ml" 1724 51627 51693
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1724 51627 51633 "src/cryptokit.ml" 1724 51627 51699
)
"src/cryptokit.ml" 1724 51627 51679 "src/cryptokit.ml" 1724 51627 51694
type(
  char
)
"src/cryptokit.ml" 1724 51627 51665 "src/cryptokit.ml" 1724 51627 51694
type(
  unit
)
"src/cryptokit.ml" 1724 51627 51633 "src/cryptokit.ml" 1724 51627 51699
type(
  unit
)
"src/cryptokit.ml" 1726 51701 51723 "src/cryptokit.ml" 1726 51701 51724
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1727 51727 51733 "src/cryptokit.ml" 1727 51727 51760
)
"src/cryptokit.ml" 1727 51727 51733 "src/cryptokit.ml" 1727 51727 51744
type(
  (char -> unit) -> string -> unit
)
ident(
  ext_ref String.iter
)
"src/cryptokit.ml" 1727 51727 51745 "src/cryptokit.ml" 1727 51727 51749
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1709 51208 51217 "src/cryptokit.ml" 1709 51208 51223
)
"src/cryptokit.ml" 1727 51727 51745 "src/cryptokit.ml" 1727 51727 51758
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1727 51727 51759 "src/cryptokit.ml" 1727 51727 51760
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1726 51701 51723 "src/cryptokit.ml" 1726 51701 51724
)
"src/cryptokit.ml" 1727 51727 51733 "src/cryptokit.ml" 1727 51727 51760
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1729 51762 51781 "src/cryptokit.ml" 1729 51762 51783
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1730 51784 51804 "src/cryptokit.ml" 1730 51784 51806
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1732 51808 51826 "src/cryptokit.ml" 1732 51808 51839
type(
  'a
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 1713 51290 51302 "src/cryptokit.ml" 1713 51290 51321
)
"src/cryptokit.ml" 1732 51808 51826 "src/cryptokit.ml" 1732 51808 51844
call(
  tail
)
type(
  unit
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1735 51852 51856 "src/cryptokit.ml" 1735 51852 51862
type(
  unit -> encode
)
ident(
  def encode "src/cryptokit.ml" 1737 51880 51880 "src/cryptokit.ml" 1788 53121 53124
)
"src/cryptokit.ml" 1735 51852 51863 "src/cryptokit.ml" 1735 51852 51865
type(
  unit
)
"src/cryptokit.ml" 1735 51852 51872 "src/cryptokit.ml" 1735 51852 51878
call(
  tail
)
"src/cryptokit.ml" 1735 51852 51868 "src/cryptokit.ml" 1735 51852 51878
type(
  encode
)
"src/cryptokit.ml" 1737 51880 51884 "src/cryptokit.ml" 1737 51880 51899
type(
  char -> int
)
ident(
  def hex_decode_char "src/cryptokit.ml" 1745 52102 52102 "src/cryptokit.ml" 1788 53121 53124
)
"src/cryptokit.ml" 1737 51880 51900 "src/cryptokit.ml" 1737 51880 51901
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1738 51904 51906 "src/cryptokit.ml" 1743 52063 52100
)
"src/cryptokit.ml" 1738 51904 51912 "src/cryptokit.ml" 1738 51904 51913
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1737 51880 51900 "src/cryptokit.ml" 1737 51880 51901
)
"src/cryptokit.ml" 1739 51919 51923 "src/cryptokit.ml" 1739 51919 51933
type(
  char
)
"src/cryptokit.ml" 1739 51919 51937 "src/cryptokit.ml" 1739 51919 51946
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1739 51919 51947 "src/cryptokit.ml" 1739 51919 51948
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1737 51880 51900 "src/cryptokit.ml" 1737 51880 51901
)
"src/cryptokit.ml" 1739 51919 51937 "src/cryptokit.ml" 1739 51919 51948
type(
  int
)
"src/cryptokit.ml" 1739 51919 51949 "src/cryptokit.ml" 1739 51919 51950
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1739 51919 51951 "src/cryptokit.ml" 1739 51919 51953
type(
  int
)
"src/cryptokit.ml" 1739 51919 51937 "src/cryptokit.ml" 1739 51919 51953
type(
  int
)
"src/cryptokit.ml" 1740 51954 51958 "src/cryptokit.ml" 1740 51954 51968
type(
  char
)
"src/cryptokit.ml" 1740 51954 51972 "src/cryptokit.ml" 1740 51954 51981
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1740 51954 51982 "src/cryptokit.ml" 1740 51954 51983
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1737 51880 51900 "src/cryptokit.ml" 1737 51880 51901
)
"src/cryptokit.ml" 1740 51954 51972 "src/cryptokit.ml" 1740 51954 51983
type(
  int
)
"src/cryptokit.ml" 1740 51954 51984 "src/cryptokit.ml" 1740 51954 51985
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1740 51954 51986 "src/cryptokit.ml" 1740 51954 51988
type(
  int
)
"src/cryptokit.ml" 1740 51954 51972 "src/cryptokit.ml" 1740 51954 51988
type(
  int
)
"src/cryptokit.ml" 1740 51954 51989 "src/cryptokit.ml" 1740 51954 51990
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1740 51954 51991 "src/cryptokit.ml" 1740 51954 51993
type(
  int
)
"src/cryptokit.ml" 1740 51954 51972 "src/cryptokit.ml" 1740 51954 51993
type(
  int
)
"src/cryptokit.ml" 1741 51994 51998 "src/cryptokit.ml" 1741 51994 52008
type(
  char
)
"src/cryptokit.ml" 1741 51994 52012 "src/cryptokit.ml" 1741 51994 52021
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/cryptokit.ml" 1741 51994 52022 "src/cryptokit.ml" 1741 51994 52023
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1737 51880 51900 "src/cryptokit.ml" 1737 51880 51901
)
"src/cryptokit.ml" 1741 51994 52012 "src/cryptokit.ml" 1741 51994 52023
type(
  int
)
"src/cryptokit.ml" 1741 51994 52024 "src/cryptokit.ml" 1741 51994 52025
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1741 51994 52026 "src/cryptokit.ml" 1741 51994 52028
type(
  int
)
"src/cryptokit.ml" 1741 51994 52012 "src/cryptokit.ml" 1741 51994 52028
type(
  int
)
"src/cryptokit.ml" 1741 51994 52029 "src/cryptokit.ml" 1741 51994 52030
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1741 51994 52031 "src/cryptokit.ml" 1741 51994 52033
type(
  int
)
"src/cryptokit.ml" 1741 51994 52012 "src/cryptokit.ml" 1741 51994 52033
type(
  int
)
"src/cryptokit.ml" 1742 52034 52038 "src/cryptokit.ml" 1742 52034 52041
type(
  char
)
"src/cryptokit.ml" 1742 52034 52042 "src/cryptokit.ml" 1742 52034 52046
type(
  char
)
"src/cryptokit.ml" 1742 52034 52038 "src/cryptokit.ml" 1742 52034 52046
type(
  char
)
"src/cryptokit.ml" 1742 52034 52047 "src/cryptokit.ml" 1742 52034 52051
type(
  char
)
"src/cryptokit.ml" 1742 52034 52038 "src/cryptokit.ml" 1742 52034 52051
type(
  char
)
"src/cryptokit.ml" 1742 52034 52052 "src/cryptokit.ml" 1742 52034 52056
type(
  char
)
"src/cryptokit.ml" 1742 52034 52038 "src/cryptokit.ml" 1742 52034 52056
type(
  char
)
"src/cryptokit.ml" 1742 52034 52060 "src/cryptokit.ml" 1742 52034 52062
type(
  int
)
"src/cryptokit.ml" 1743 52063 52067 "src/cryptokit.ml" 1743 52063 52068
type(
  char
)
"src/cryptokit.ml" 1743 52063 52074 "src/cryptokit.ml" 1743 52063 52079
type(
  exn -> int
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1743 52063 52087 "src/cryptokit.ml" 1743 52063 52099
type(
  error
)
"src/cryptokit.ml" 1743 52063 52080 "src/cryptokit.ml" 1743 52063 52100
type(
  exn
)
"src/cryptokit.ml" 1743 52063 52074 "src/cryptokit.ml" 1743 52063 52100
type(
  int
)
"src/cryptokit.ml" 1738 51904 51906 "src/cryptokit.ml" 1743 52063 52100
type(
  int
)
"src/cryptokit.ml" 1746 52117 52126 "src/cryptokit.ml" 1746 52117 52132
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1747 52133 52161 "src/cryptokit.ml" 1747 52133 52164
type(
  int
)
"src/cryptokit.ml" 1749 52183 52213 "src/cryptokit.ml" 1749 52183 52214
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1750 52215 52246 "src/cryptokit.ml" 1750 52215 52247
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1752 52249 52264 "src/cryptokit.ml" 1752 52249 52274
type(
  int -> int -> int array
)
ident(
  ext_ref Array.make
)
"src/cryptokit.ml" 1752 52249 52275 "src/cryptokit.ml" 1752 52249 52276
type(
  int
)
"src/cryptokit.ml" 1752 52249 52277 "src/cryptokit.ml" 1752 52249 52278
type(
  int
)
"src/cryptokit.ml" 1752 52249 52264 "src/cryptokit.ml" 1752 52249 52278
type(
  int array
)
"src/cryptokit.ml" 1753 52279 52302 "src/cryptokit.ml" 1753 52279 52303
type(
  int
)
"src/cryptokit.ml" 1755 52305 52325 "src/cryptokit.ml" 1755 52305 52326
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1756 52329 52335 "src/cryptokit.ml" 1766 52639 52648
)
"src/cryptokit.ml" 1756 52329 52339 "src/cryptokit.ml" 1756 52329 52340
type(
  int
)
ident(
  def n "src/cryptokit.ml" 1757 52364 52370 "src/cryptokit.ml" 1766 52639 52648
)
"src/cryptokit.ml" 1756 52329 52343 "src/cryptokit.ml" 1756 52329 52358
type(
  char -> int
)
ident(
  int_ref hex_decode_char "src/cryptokit.ml" 1737 51880 51884 "src/cryptokit.ml" 1737 51880 51899
)
"src/cryptokit.ml" 1756 52329 52359 "src/cryptokit.ml" 1756 52329 52360
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1755 52305 52325 "src/cryptokit.ml" 1755 52305 52326
)
"src/cryptokit.ml" 1756 52329 52343 "src/cryptokit.ml" 1756 52329 52360
call(
  stack
)
type(
  int
)
"src/cryptokit.ml" 1757 52364 52373 "src/cryptokit.ml" 1757 52364 52374
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1756 52329 52339 "src/cryptokit.ml" 1756 52329 52340
)
"src/cryptokit.ml" 1757 52364 52375 "src/cryptokit.ml" 1757 52364 52377
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/cryptokit.ml" 1757 52364 52378 "src/cryptokit.ml" 1757 52364 52379
type(
  int
)
"src/cryptokit.ml" 1757 52364 52373 "src/cryptokit.ml" 1757 52364 52379
type(
  bool
)
"src/cryptokit.ml" 1758 52391 52399 "src/cryptokit.ml" 1758 52391 52403
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1758 52391 52405 "src/cryptokit.ml" 1758 52391 52409
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1758 52391 52414 "src/cryptokit.ml" 1758 52391 52415
type(
  int
)
ident(
  int_ref n "src/cryptokit.ml" 1756 52329 52339 "src/cryptokit.ml" 1756 52329 52340
)
"src/cryptokit.ml" 1758 52391 52399 "src/cryptokit.ml" 1758 52391 52415
type(
  unit
)
"src/cryptokit.ml" 1759 52417 52433 "src/cryptokit.ml" 1759 52417 52437
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1759 52417 52438 "src/cryptokit.ml" 1759 52417 52439
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1759 52417 52440 "src/cryptokit.ml" 1759 52417 52441
type(
  int
)
"src/cryptokit.ml" 1759 52417 52433 "src/cryptokit.ml" 1759 52417 52441
type(
  int
)
"src/cryptokit.ml" 1759 52417 52425 "src/cryptokit.ml" 1759 52417 52441
type(
  unit
)
"src/cryptokit.ml" 1760 52443 52454 "src/cryptokit.ml" 1760 52443 52458
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1760 52443 52459 "src/cryptokit.ml" 1760 52443 52460
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1760 52443 52461 "src/cryptokit.ml" 1760 52443 52462
type(
  int
)
"src/cryptokit.ml" 1760 52443 52454 "src/cryptokit.ml" 1760 52443 52462
type(
  bool
)
"src/cryptokit.ml" 1761 52474 52484 "src/cryptokit.ml" 1761 52474 52488
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'b
)
ident(
  int_ref self "src/cryptokit.ml" 1746 52117 52126 "src/cryptokit.ml" 1746 52117 52132
)
"src/cryptokit.ml" 1761 52474 52484 "src/cryptokit.ml" 1761 52474 52504
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1761 52474 52505 "src/cryptokit.ml" 1761 52474 52506
type(
  int
)
"src/cryptokit.ml" 1761 52474 52484 "src/cryptokit.ml" 1761 52474 52506
type(
  unit
)
"src/cryptokit.ml" 1762 52508 52518 "src/cryptokit.ml" 1762 52508 52527
type(
  bytes -> int -> char -> unit
)
ident(
  ext_ref Bytes.set
)
"src/cryptokit.ml" 1762 52508 52528 "src/cryptokit.ml" 1762 52508 52532
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1762 52508 52533 "src/cryptokit.ml" 1762 52508 52537
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1762 52508 52539 "src/cryptokit.ml" 1762 52508 52547
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1762 52508 52548 "src/cryptokit.ml" 1762 52508 52552
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1762 52508 52554 "src/cryptokit.ml" 1762 52508 52555
type(
  int
)
"src/cryptokit.ml" 1762 52508 52548 "src/cryptokit.ml" 1762 52508 52556
type(
  int
)
"src/cryptokit.ml" 1762 52508 52557 "src/cryptokit.ml" 1762 52508 52560
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/cryptokit.ml" 1762 52508 52561 "src/cryptokit.ml" 1762 52508 52562
type(
  int
)
"src/cryptokit.ml" 1762 52508 52548 "src/cryptokit.ml" 1762 52508 52562
type(
  int
)
"src/cryptokit.ml" 1762 52508 52563 "src/cryptokit.ml" 1762 52508 52566
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lor )
)
"src/cryptokit.ml" 1762 52508 52567 "src/cryptokit.ml" 1762 52508 52571
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1762 52508 52573 "src/cryptokit.ml" 1762 52508 52574
type(
  int
)
"src/cryptokit.ml" 1762 52508 52567 "src/cryptokit.ml" 1762 52508 52575
type(
  int
)
"src/cryptokit.ml" 1762 52508 52547 "src/cryptokit.ml" 1762 52508 52576
type(
  int
)
"src/cryptokit.ml" 1762 52508 52538 "src/cryptokit.ml" 1762 52508 52577
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1762 52508 52518 "src/cryptokit.ml" 1762 52508 52577
type(
  unit
)
"src/cryptokit.ml" 1763 52579 52597 "src/cryptokit.ml" 1763 52579 52601
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1763 52579 52602 "src/cryptokit.ml" 1763 52579 52603
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1763 52579 52604 "src/cryptokit.ml" 1763 52579 52605
type(
  int
)
"src/cryptokit.ml" 1763 52579 52597 "src/cryptokit.ml" 1763 52579 52605
type(
  int
)
"src/cryptokit.ml" 1763 52579 52589 "src/cryptokit.ml" 1763 52579 52605
type(
  unit
)
"src/cryptokit.ml" 1764 52607 52625 "src/cryptokit.ml" 1764 52607 52626
type(
  int
)
"src/cryptokit.ml" 1764 52607 52617 "src/cryptokit.ml" 1764 52607 52626
type(
  unit
)
"src/cryptokit.ml" 1763 52579 52589 "src/cryptokit.ml" 1764 52607 52626
type(
  unit
)
"src/cryptokit.ml" 1762 52508 52518 "src/cryptokit.ml" 1764 52607 52626
type(
  unit
)
"src/cryptokit.ml" 1760 52443 52468 "src/cryptokit.ml" 1765 52627 52638
type(
  unit
)
"src/cryptokit.ml" 1760 52443 52451 "src/cryptokit.ml" 1765 52627 52638
type(
  unit
)
"src/cryptokit.ml" 1759 52417 52425 "src/cryptokit.ml" 1765 52627 52638
type(
  unit
)
"src/cryptokit.ml" 1757 52364 52385 "src/cryptokit.ml" 1766 52639 52648
type(
  unit
)
"src/cryptokit.ml" 1757 52364 52370 "src/cryptokit.ml" 1766 52639 52648
type(
  unit
)
"src/cryptokit.ml" 1756 52329 52335 "src/cryptokit.ml" 1766 52639 52648
type(
  unit
)
"src/cryptokit.ml" 1768 52650 52675 "src/cryptokit.ml" 1768 52650 52676
type(
  bytes
)
ident(
  def s "src/cryptokit.ml" 1768 52650 52677 "src/cryptokit.ml" 1769 52687 52759
)
"src/cryptokit.ml" 1768 52650 52677 "src/cryptokit.ml" 1768 52650 52680
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1768 52650 52681 "src/cryptokit.ml" 1769 52687 52759
)
"src/cryptokit.ml" 1768 52650 52681 "src/cryptokit.ml" 1768 52650 52684
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1769 52687 52693 "src/cryptokit.ml" 1769 52687 52759
)
"src/cryptokit.ml" 1769 52687 52701 "src/cryptokit.ml" 1769 52687 52704
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1768 52650 52677 "src/cryptokit.ml" 1768 52650 52680
)
"src/cryptokit.ml" 1769 52687 52708 "src/cryptokit.ml" 1769 52687 52711
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1768 52650 52677 "src/cryptokit.ml" 1768 52650 52680
)
"src/cryptokit.ml" 1769 52687 52712 "src/cryptokit.ml" 1769 52687 52713
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1769 52687 52714 "src/cryptokit.ml" 1769 52687 52717
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1768 52650 52681 "src/cryptokit.ml" 1768 52650 52684
)
"src/cryptokit.ml" 1769 52687 52708 "src/cryptokit.ml" 1769 52687 52717
type(
  int
)
"src/cryptokit.ml" 1769 52687 52718 "src/cryptokit.ml" 1769 52687 52719
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1769 52687 52720 "src/cryptokit.ml" 1769 52687 52721
type(
  int
)
"src/cryptokit.ml" 1769 52687 52708 "src/cryptokit.ml" 1769 52687 52721
type(
  int
)
"src/cryptokit.ml" 1769 52687 52725 "src/cryptokit.ml" 1769 52687 52729
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1746 52117 52126 "src/cryptokit.ml" 1746 52117 52132
)
"src/cryptokit.ml" 1769 52687 52725 "src/cryptokit.ml" 1769 52687 52738
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1769 52687 52740 "src/cryptokit.ml" 1769 52687 52749
type(
  bytes -> int -> char
)
ident(
  ext_ref Bytes.get
)
"src/cryptokit.ml" 1769 52687 52750 "src/cryptokit.ml" 1769 52687 52751
type(
  bytes
)
ident(
  int_ref s "src/cryptokit.ml" 1768 52650 52675 "src/cryptokit.ml" 1768 52650 52676
)
"src/cryptokit.ml" 1769 52687 52752 "src/cryptokit.ml" 1769 52687 52753
type(
  int
)
ident(
  int_ref i "src/cryptokit.ml" 1769 52687 52693 "src/cryptokit.ml" 1769 52687 52759
)
"src/cryptokit.ml" 1769 52687 52739 "src/cryptokit.ml" 1769 52687 52754
type(
  char
)
"src/cryptokit.ml" 1769 52687 52725 "src/cryptokit.ml" 1769 52687 52754
type(
  unit
)
"src/cryptokit.ml" 1769 52687 52693 "src/cryptokit.ml" 1769 52687 52759
type(
  unit
)
"src/cryptokit.ml" 1771 52761 52783 "src/cryptokit.ml" 1771 52761 52784
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1772 52787 52793 "src/cryptokit.ml" 1772 52787 52820
)
"src/cryptokit.ml" 1772 52787 52793 "src/cryptokit.ml" 1772 52787 52804
type(
  (char -> unit) -> string -> unit
)
ident(
  ext_ref String.iter
)
"src/cryptokit.ml" 1772 52787 52805 "src/cryptokit.ml" 1772 52787 52809
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1746 52117 52126 "src/cryptokit.ml" 1746 52117 52132
)
"src/cryptokit.ml" 1772 52787 52805 "src/cryptokit.ml" 1772 52787 52818
call(
  stack
)
type(
  char -> unit
)
"src/cryptokit.ml" 1772 52787 52819 "src/cryptokit.ml" 1772 52787 52820
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1771 52761 52783 "src/cryptokit.ml" 1771 52761 52784
)
"src/cryptokit.ml" 1772 52787 52793 "src/cryptokit.ml" 1772 52787 52820
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1774 52822 52842 "src/cryptokit.ml" 1774 52822 52843
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1774 52822 52846 "src/cryptokit.ml" 1774 52822 52872
)
"src/cryptokit.ml" 1774 52822 52846 "src/cryptokit.ml" 1774 52822 52850
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1746 52117 52126 "src/cryptokit.ml" 1746 52117 52132
)
"src/cryptokit.ml" 1774 52822 52846 "src/cryptokit.ml" 1774 52822 52859
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1774 52822 52861 "src/cryptokit.ml" 1774 52822 52869
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1774 52822 52870 "src/cryptokit.ml" 1774 52822 52871
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1774 52822 52842 "src/cryptokit.ml" 1774 52822 52843
)
"src/cryptokit.ml" 1774 52822 52860 "src/cryptokit.ml" 1774 52822 52872
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1774 52822 52846 "src/cryptokit.ml" 1774 52822 52872
type(
  unit
)
"src/cryptokit.ml" 1777 52893 52902 "src/cryptokit.ml" 1777 52893 52906
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1777 52893 52907 "src/cryptokit.ml" 1777 52893 52909
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 1777 52893 52910 "src/cryptokit.ml" 1777 52893 52911
type(
  int
)
"src/cryptokit.ml" 1777 52893 52902 "src/cryptokit.ml" 1777 52893 52911
type(
  bool
)
"src/cryptokit.ml" 1777 52893 52917 "src/cryptokit.ml" 1777 52893 52922
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1777 52893 52929 "src/cryptokit.ml" 1777 52893 52946
type(
  error
)
"src/cryptokit.ml" 1777 52893 52922 "src/cryptokit.ml" 1777 52893 52947
type(
  exn
)
"src/cryptokit.ml" 1777 52893 52917 "src/cryptokit.ml" 1777 52893 52947
type(
  unit
)
"src/cryptokit.ml" 1777 52893 52899 "src/cryptokit.ml" 1777 52893 52947
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1780 52969 52978 "src/cryptokit.ml" 1780 52969 52982
type(
  int
)
ident(
  ext_ref ipos
)
"src/cryptokit.ml" 1780 52969 52983 "src/cryptokit.ml" 1780 52969 52985
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/cryptokit.ml" 1780 52969 52986 "src/cryptokit.ml" 1780 52969 52987
type(
  int
)
"src/cryptokit.ml" 1780 52969 52978 "src/cryptokit.ml" 1780 52969 52987
type(
  bool
)
"src/cryptokit.ml" 1780 52969 52993 "src/cryptokit.ml" 1780 52969 52998
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1780 52969 53005 "src/cryptokit.ml" 1780 52969 53017
type(
  error
)
"src/cryptokit.ml" 1780 52969 52998 "src/cryptokit.ml" 1780 52969 53018
type(
  exn
)
"src/cryptokit.ml" 1780 52969 52993 "src/cryptokit.ml" 1780 52969 53018
type(
  unit
)
"src/cryptokit.ml" 1780 52969 52975 "src/cryptokit.ml" 1780 52969 53018
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1783 53038 53044 "src/cryptokit.ml" 1783 53038 53054
type(
  int array -> int -> int -> int -> unit
)
ident(
  ext_ref Array.fill
)
"src/cryptokit.ml" 1783 53038 53055 "src/cryptokit.ml" 1783 53038 53059
type(
  int array
)
ident(
  ext_ref ibuf
)
"src/cryptokit.ml" 1783 53038 53060 "src/cryptokit.ml" 1783 53038 53061
type(
  int
)
"src/cryptokit.ml" 1783 53038 53062 "src/cryptokit.ml" 1783 53038 53063
type(
  int
)
"src/cryptokit.ml" 1783 53038 53064 "src/cryptokit.ml" 1783 53038 53065
type(
  int
)
"src/cryptokit.ml" 1783 53038 53044 "src/cryptokit.ml" 1783 53038 53065
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1783 53038 53067 "src/cryptokit.ml" 1783 53038 53080
type(
  'b
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 1747 52133 52145 "src/cryptokit.ml" 1747 52133 52164
)
"src/cryptokit.ml" 1783 53038 53067 "src/cryptokit.ml" 1783 53038 53085
call(
  tail
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1783 53038 53044 "src/cryptokit.ml" 1783 53038 53085
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1786 53093 53097 "src/cryptokit.ml" 1786 53093 53103
type(
  unit -> decode
)
ident(
  def decode "src/cryptokit.ml" 1786 53093 53119 "src/cryptokit.ml" 1788 53121 53124
)
"src/cryptokit.ml" 1786 53093 53104 "src/cryptokit.ml" 1786 53093 53106
type(
  unit
)
"src/cryptokit.ml" 1786 53093 53113 "src/cryptokit.ml" 1786 53093 53119
call(
  tail
)
"src/cryptokit.ml" 1786 53093 53109 "src/cryptokit.ml" 1786 53093 53119
type(
  decode
)
"src/cryptokit.ml" 1816 53869 53884 "src/cryptokit.ml" 1816 53869 53889
type(
  int
)
"src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1818 53907 53920 "src/cryptokit.ml" 1818 53907 53932
type(
  int -> bool -> stream
)
ident(
  int_ref deflate_init "src/cryptokit.ml" 1802 53264 53264 "src/cryptokit.ml" 1802 53264 53334
)
"src/cryptokit.ml" 1818 53907 53933 "src/cryptokit.ml" 1818 53907 53938
type(
  int
)
ident(
  int_ref level "src/cryptokit.ml" 1816 53869 53884 "src/cryptokit.ml" 1816 53869 53889
)
"src/cryptokit.ml" 1818 53907 53939 "src/cryptokit.ml" 1818 53907 53944
type(
  bool
)
"src/cryptokit.ml" 1818 53907 53920 "src/cryptokit.ml" 1818 53907 53944
type(
  stream
)
"src/cryptokit.ml" 1820 53950 53978 "src/cryptokit.ml" 1820 53950 53981
type(
  int
)
"src/cryptokit.ml" 1822 54000 54030 "src/cryptokit.ml" 1822 54000 54031
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1823 54032 54063 "src/cryptokit.ml" 1823 54032 54064
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1825 54066 54091 "src/cryptokit.ml" 1825 54066 54094
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 1825 54066 54095 "src/cryptokit.ml" 1836 54468 54477
)
"src/cryptokit.ml" 1825 54066 54095 "src/cryptokit.ml" 1825 54066 54098
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1825 54066 54099 "src/cryptokit.ml" 1836 54468 54477
)
"src/cryptokit.ml" 1825 54066 54099 "src/cryptokit.ml" 1825 54066 54102
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1826 54105 54111 "src/cryptokit.ml" 1836 54468 54477
)
"src/cryptokit.ml" 1826 54105 54114 "src/cryptokit.ml" 1826 54105 54117
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1825 54066 54099 "src/cryptokit.ml" 1825 54066 54102
)
"src/cryptokit.ml" 1826 54105 54118 "src/cryptokit.ml" 1826 54105 54119
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1826 54105 54120 "src/cryptokit.ml" 1826 54105 54121
type(
  int
)
"src/cryptokit.ml" 1826 54105 54114 "src/cryptokit.ml" 1826 54105 54121
type(
  bool
)
"src/cryptokit.ml" 1827 54133 54141 "src/cryptokit.ml" 1827 54133 54145
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1827 54133 54141 "src/cryptokit.ml" 1827 54133 54161
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1827 54133 54162 "src/cryptokit.ml" 1827 54133 54165
type(
  int
)
"src/cryptokit.ml" 1827 54133 54141 "src/cryptokit.ml" 1827 54133 54165
type(
  unit
)
"src/cryptokit.ml" 1828 54167 54180 "src/cryptokit.ml" 1828 54167 54181
type(
  bool
)
"src/cryptokit.ml" 1828 54167 54183 "src/cryptokit.ml" 1828 54167 54190
type(
  int
)
ident(
  def used_in "src/cryptokit.ml" 1833 54342 54350 "src/cryptokit.ml" 1835 54400 54467
)
"src/cryptokit.ml" 1828 54167 54192 "src/cryptokit.ml" 1828 54167 54200
type(
  int
)
ident(
  def used_out "src/cryptokit.ml" 1833 54342 54350 "src/cryptokit.ml" 1835 54400 54467
)
"src/cryptokit.ml" 1828 54167 54179 "src/cryptokit.ml" 1828 54167 54201
type(
  bool * int * int
)
"src/cryptokit.ml" 1829 54204 54214 "src/cryptokit.ml" 1829 54204 54221
type(
  stream ->
  bytes ->
  int -> int -> bytes -> int -> int -> flush_command -> bool * int * int
)
ident(
  int_ref deflate "src/cryptokit.ml" 1803 53335 53335 "src/cryptokit.ml" 1806 53454 53506
)
"src/cryptokit.ml" 1829 54204 54222 "src/cryptokit.ml" 1829 54204 54224
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1830 54225 54243 "src/cryptokit.ml" 1830 54225 54246
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1825 54066 54091 "src/cryptokit.ml" 1825 54066 54094
)
"src/cryptokit.ml" 1830 54225 54247 "src/cryptokit.ml" 1830 54225 54250
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1825 54066 54095 "src/cryptokit.ml" 1825 54066 54098
)
"src/cryptokit.ml" 1830 54225 54251 "src/cryptokit.ml" 1830 54225 54254
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1825 54066 54099 "src/cryptokit.ml" 1825 54066 54102
)
"src/cryptokit.ml" 1831 54255 54273 "src/cryptokit.ml" 1831 54255 54277
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1831 54255 54278 "src/cryptokit.ml" 1831 54255 54282
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1831 54255 54284 "src/cryptokit.ml" 1831 54255 54296
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1831 54255 54297 "src/cryptokit.ml" 1831 54255 54301
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1831 54255 54284 "src/cryptokit.ml" 1831 54255 54301
type(
  int
)
"src/cryptokit.ml" 1831 54255 54302 "src/cryptokit.ml" 1831 54255 54303
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1831 54255 54304 "src/cryptokit.ml" 1831 54255 54308
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1831 54255 54283 "src/cryptokit.ml" 1831 54255 54309
type(
  int
)
"src/cryptokit.ml" 1832 54310 54328 "src/cryptokit.ml" 1832 54310 54338
type(
  flush_command
)
"src/cryptokit.ml" 1829 54204 54214 "src/cryptokit.ml" 1832 54310 54338
type(
  bool * int * int
)
"src/cryptokit.ml" 1833 54342 54358 "src/cryptokit.ml" 1833 54342 54362
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1833 54342 54363 "src/cryptokit.ml" 1833 54342 54364
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1833 54342 54365 "src/cryptokit.ml" 1833 54342 54373
type(
  int
)
ident(
  int_ref used_out "src/cryptokit.ml" 1828 54167 54192 "src/cryptokit.ml" 1828 54167 54200
)
"src/cryptokit.ml" 1833 54342 54358 "src/cryptokit.ml" 1833 54342 54373
type(
  int
)
"src/cryptokit.ml" 1833 54342 54350 "src/cryptokit.ml" 1833 54342 54373
type(
  unit
)
"src/cryptokit.ml" 1834 54375 54386 "src/cryptokit.ml" 1834 54375 54393
type(
  int
)
ident(
  int_ref used_in "src/cryptokit.ml" 1828 54167 54183 "src/cryptokit.ml" 1828 54167 54190
)
"src/cryptokit.ml" 1834 54375 54394 "src/cryptokit.ml" 1834 54375 54395
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1834 54375 54396 "src/cryptokit.ml" 1834 54375 54399
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1825 54066 54099 "src/cryptokit.ml" 1825 54066 54102
)
"src/cryptokit.ml" 1834 54375 54386 "src/cryptokit.ml" 1834 54375 54399
type(
  bool
)
"src/cryptokit.ml" 1835 54400 54413 "src/cryptokit.ml" 1835 54400 54417
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1835 54400 54413 "src/cryptokit.ml" 1835 54400 54431
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1835 54400 54432 "src/cryptokit.ml" 1835 54400 54435
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1825 54066 54091 "src/cryptokit.ml" 1825 54066 54094
)
"src/cryptokit.ml" 1835 54400 54437 "src/cryptokit.ml" 1835 54400 54440
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1825 54066 54095 "src/cryptokit.ml" 1825 54066 54098
)
"src/cryptokit.ml" 1835 54400 54441 "src/cryptokit.ml" 1835 54400 54442
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1835 54400 54443 "src/cryptokit.ml" 1835 54400 54450
type(
  int
)
ident(
  int_ref used_in "src/cryptokit.ml" 1828 54167 54183 "src/cryptokit.ml" 1828 54167 54190
)
"src/cryptokit.ml" 1835 54400 54436 "src/cryptokit.ml" 1835 54400 54451
type(
  int
)
"src/cryptokit.ml" 1835 54400 54453 "src/cryptokit.ml" 1835 54400 54456
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1825 54066 54099 "src/cryptokit.ml" 1825 54066 54102
)
"src/cryptokit.ml" 1835 54400 54457 "src/cryptokit.ml" 1835 54400 54458
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1835 54400 54459 "src/cryptokit.ml" 1835 54400 54466
type(
  int
)
ident(
  int_ref used_in "src/cryptokit.ml" 1828 54167 54183 "src/cryptokit.ml" 1828 54167 54190
)
"src/cryptokit.ml" 1835 54400 54452 "src/cryptokit.ml" 1835 54400 54467
type(
  int
)
"src/cryptokit.ml" 1835 54400 54413 "src/cryptokit.ml" 1835 54400 54467
type(
  unit
)
"src/cryptokit.ml" 1834 54375 54383 "src/cryptokit.ml" 1835 54400 54467
type(
  unit
)
"src/cryptokit.ml" 1833 54342 54350 "src/cryptokit.ml" 1835 54400 54467
type(
  unit
)
"src/cryptokit.ml" 1828 54167 54175 "src/cryptokit.ml" 1835 54400 54467
type(
  unit
)
"src/cryptokit.ml" 1826 54105 54127 "src/cryptokit.ml" 1836 54468 54477
type(
  unit
)
"src/cryptokit.ml" 1826 54105 54111 "src/cryptokit.ml" 1836 54468 54477
type(
  unit
)
"src/cryptokit.ml" 1838 54479 54501 "src/cryptokit.ml" 1838 54479 54502
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1839 54505 54511 "src/cryptokit.ml" 1839 54505 54576
)
"src/cryptokit.ml" 1839 54505 54511 "src/cryptokit.ml" 1839 54505 54515
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1839 54505 54511 "src/cryptokit.ml" 1839 54505 54529
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1839 54505 54531 "src/cryptokit.ml" 1839 54505 54553
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1839 54505 54554 "src/cryptokit.ml" 1839 54505 54555
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1838 54479 54501 "src/cryptokit.ml" 1838 54479 54502
)
"src/cryptokit.ml" 1839 54505 54530 "src/cryptokit.ml" 1839 54505 54556
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1839 54505 54557 "src/cryptokit.ml" 1839 54505 54558
type(
  int
)
"src/cryptokit.ml" 1839 54505 54560 "src/cryptokit.ml" 1839 54505 54573
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1839 54505 54574 "src/cryptokit.ml" 1839 54505 54575
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1838 54479 54501 "src/cryptokit.ml" 1838 54479 54502
)
"src/cryptokit.ml" 1839 54505 54559 "src/cryptokit.ml" 1839 54505 54576
type(
  int
)
"src/cryptokit.ml" 1839 54505 54511 "src/cryptokit.ml" 1839 54505 54576
type(
  unit
)
"src/cryptokit.ml" 1841 54578 54598 "src/cryptokit.ml" 1841 54578 54599
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1841 54578 54602 "src/cryptokit.ml" 1841 54578 54635
)
"src/cryptokit.ml" 1841 54578 54602 "src/cryptokit.ml" 1841 54578 54606
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1841 54578 54602 "src/cryptokit.ml" 1841 54578 54617
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 1841 54578 54619 "src/cryptokit.ml" 1841 54578 54630
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 1841 54578 54631 "src/cryptokit.ml" 1841 54578 54632
type(
  int
)
"src/cryptokit.ml" 1841 54578 54633 "src/cryptokit.ml" 1841 54578 54634
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1841 54578 54598 "src/cryptokit.ml" 1841 54578 54599
)
"src/cryptokit.ml" 1841 54578 54618 "src/cryptokit.ml" 1841 54578 54635
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1841 54578 54602 "src/cryptokit.ml" 1841 54578 54635
type(
  unit
)
"src/cryptokit.ml" 1843 54637 54657 "src/cryptokit.ml" 1843 54637 54658
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1843 54637 54661 "src/cryptokit.ml" 1843 54637 54687
)
"src/cryptokit.ml" 1843 54637 54661 "src/cryptokit.ml" 1843 54637 54665
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1843 54637 54661 "src/cryptokit.ml" 1843 54637 54674
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1843 54637 54676 "src/cryptokit.ml" 1843 54637 54684
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1843 54637 54685 "src/cryptokit.ml" 1843 54637 54686
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1843 54637 54657 "src/cryptokit.ml" 1843 54637 54658
)
"src/cryptokit.ml" 1843 54637 54675 "src/cryptokit.ml" 1843 54637 54687
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1843 54637 54661 "src/cryptokit.ml" 1843 54637 54687
type(
  unit
)
"src/cryptokit.ml" 1846 54708 54714 "src/cryptokit.ml" 1846 54708 54718
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1846 54708 54714 "src/cryptokit.ml" 1846 54708 54734
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1846 54708 54735 "src/cryptokit.ml" 1846 54708 54738
type(
  int
)
"src/cryptokit.ml" 1846 54708 54714 "src/cryptokit.ml" 1846 54708 54738
type(
  unit
)
"src/cryptokit.ml" 1847 54740 54751 "src/cryptokit.ml" 1847 54740 54752
type(
  bool
)
"src/cryptokit.ml" 1847 54740 54754 "src/cryptokit.ml" 1847 54740 54755
type(
  int
)
"src/cryptokit.ml" 1847 54740 54757 "src/cryptokit.ml" 1847 54740 54765
type(
  int
)
ident(
  def used_out "src/cryptokit.ml" 1852 54925 54931 "src/cryptokit.ml" 1853 54956 55005
)
"src/cryptokit.ml" 1847 54740 54750 "src/cryptokit.ml" 1847 54740 54766
type(
  bool * int * int
)
"src/cryptokit.ml" 1848 54769 54778 "src/cryptokit.ml" 1848 54769 54785
type(
  stream ->
  bytes ->
  int -> int -> bytes -> int -> int -> flush_command -> bool * int * int
)
ident(
  int_ref deflate "src/cryptokit.ml" 1803 53335 53335 "src/cryptokit.ml" 1806 53454 53506
)
"src/cryptokit.ml" 1848 54769 54786 "src/cryptokit.ml" 1848 54769 54788
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1849 54789 54807 "src/cryptokit.ml" 1849 54789 54829
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1849 54789 54830 "src/cryptokit.ml" 1849 54789 54832
type(
  string
)
"src/cryptokit.ml" 1849 54789 54806 "src/cryptokit.ml" 1849 54789 54833
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1849 54789 54834 "src/cryptokit.ml" 1849 54789 54835
type(
  int
)
"src/cryptokit.ml" 1849 54789 54836 "src/cryptokit.ml" 1849 54789 54837
type(
  int
)
"src/cryptokit.ml" 1850 54838 54855 "src/cryptokit.ml" 1850 54838 54859
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1850 54838 54860 "src/cryptokit.ml" 1850 54838 54864
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1850 54838 54866 "src/cryptokit.ml" 1850 54838 54878
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1850 54838 54879 "src/cryptokit.ml" 1850 54838 54883
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1850 54838 54866 "src/cryptokit.ml" 1850 54838 54883
type(
  int
)
"src/cryptokit.ml" 1850 54838 54884 "src/cryptokit.ml" 1850 54838 54885
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1850 54838 54886 "src/cryptokit.ml" 1850 54838 54890
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1850 54838 54865 "src/cryptokit.ml" 1850 54838 54891
type(
  int
)
"src/cryptokit.ml" 1851 54892 54909 "src/cryptokit.ml" 1851 54892 54921
type(
  flush_command
)
"src/cryptokit.ml" 1848 54769 54778 "src/cryptokit.ml" 1851 54892 54921
type(
  bool * int * int
)
"src/cryptokit.ml" 1852 54925 54939 "src/cryptokit.ml" 1852 54925 54943
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1852 54925 54944 "src/cryptokit.ml" 1852 54925 54945
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1852 54925 54946 "src/cryptokit.ml" 1852 54925 54954
type(
  int
)
ident(
  int_ref used_out "src/cryptokit.ml" 1847 54740 54757 "src/cryptokit.ml" 1847 54740 54765
)
"src/cryptokit.ml" 1852 54925 54939 "src/cryptokit.ml" 1852 54925 54954
type(
  int
)
"src/cryptokit.ml" 1852 54925 54931 "src/cryptokit.ml" 1852 54925 54954
type(
  unit
)
"src/cryptokit.ml" 1853 54956 54965 "src/cryptokit.ml" 1853 54956 54969
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1853 54956 54970 "src/cryptokit.ml" 1853 54956 54971
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/cryptokit.ml" 1853 54956 54972 "src/cryptokit.ml" 1853 54956 54984
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1853 54956 54985 "src/cryptokit.ml" 1853 54956 54989
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1853 54956 54972 "src/cryptokit.ml" 1853 54956 54989
type(
  int
)
"src/cryptokit.ml" 1853 54956 54965 "src/cryptokit.ml" 1853 54956 54989
type(
  bool
)
"src/cryptokit.ml" 1853 54956 54995 "src/cryptokit.ml" 1853 54956 54999
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1853 54956 54995 "src/cryptokit.ml" 1853 54956 55005
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1853 54956 54962 "src/cryptokit.ml" 1853 54956 55005
type(
  unit
)
"src/cryptokit.ml" 1852 54925 54931 "src/cryptokit.ml" 1853 54956 55005
type(
  unit
)
"src/cryptokit.ml" 1847 54740 54746 "src/cryptokit.ml" 1853 54956 55005
type(
  unit
)
"src/cryptokit.ml" 1846 54708 54714 "src/cryptokit.ml" 1853 54956 55005
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1856 55027 55033 "src/cryptokit.ml" 1856 55027 55037
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1856 55027 55033 "src/cryptokit.ml" 1856 55027 55053
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1856 55027 55054 "src/cryptokit.ml" 1856 55027 55057
type(
  int
)
"src/cryptokit.ml" 1856 55027 55033 "src/cryptokit.ml" 1856 55027 55057
type(
  unit
)
"src/cryptokit.ml" 1857 55059 55070 "src/cryptokit.ml" 1857 55059 55078
type(
  bool
)
ident(
  def finished "src/cryptokit.ml" 1862 55247 55253 "src/cryptokit.ml" 1863 55278 55332
)
"src/cryptokit.ml" 1857 55059 55080 "src/cryptokit.ml" 1857 55059 55081
type(
  int
)
"src/cryptokit.ml" 1857 55059 55083 "src/cryptokit.ml" 1857 55059 55091
type(
  int
)
ident(
  def used_out "src/cryptokit.ml" 1862 55247 55253 "src/cryptokit.ml" 1863 55278 55332
)
"src/cryptokit.ml" 1857 55059 55069 "src/cryptokit.ml" 1857 55059 55092
type(
  bool * int * int
)
"src/cryptokit.ml" 1858 55095 55104 "src/cryptokit.ml" 1858 55095 55111
type(
  stream ->
  bytes ->
  int -> int -> bytes -> int -> int -> flush_command -> bool * int * int
)
ident(
  int_ref deflate "src/cryptokit.ml" 1803 53335 53335 "src/cryptokit.ml" 1806 53454 53506
)
"src/cryptokit.ml" 1858 55095 55112 "src/cryptokit.ml" 1858 55095 55114
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1859 55115 55133 "src/cryptokit.ml" 1859 55115 55155
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1859 55115 55156 "src/cryptokit.ml" 1859 55115 55158
type(
  string
)
"src/cryptokit.ml" 1859 55115 55132 "src/cryptokit.ml" 1859 55115 55159
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1859 55115 55160 "src/cryptokit.ml" 1859 55115 55161
type(
  int
)
"src/cryptokit.ml" 1859 55115 55162 "src/cryptokit.ml" 1859 55115 55163
type(
  int
)
"src/cryptokit.ml" 1860 55164 55181 "src/cryptokit.ml" 1860 55164 55185
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1860 55164 55186 "src/cryptokit.ml" 1860 55164 55190
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1860 55164 55192 "src/cryptokit.ml" 1860 55164 55204
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1860 55164 55205 "src/cryptokit.ml" 1860 55164 55209
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1860 55164 55192 "src/cryptokit.ml" 1860 55164 55209
type(
  int
)
"src/cryptokit.ml" 1860 55164 55210 "src/cryptokit.ml" 1860 55164 55211
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1860 55164 55212 "src/cryptokit.ml" 1860 55164 55216
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1860 55164 55191 "src/cryptokit.ml" 1860 55164 55217
type(
  int
)
"src/cryptokit.ml" 1861 55218 55235 "src/cryptokit.ml" 1861 55218 55243
type(
  flush_command
)
"src/cryptokit.ml" 1858 55095 55104 "src/cryptokit.ml" 1861 55218 55243
type(
  bool * int * int
)
"src/cryptokit.ml" 1862 55247 55261 "src/cryptokit.ml" 1862 55247 55265
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1862 55247 55266 "src/cryptokit.ml" 1862 55247 55267
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1862 55247 55268 "src/cryptokit.ml" 1862 55247 55276
type(
  int
)
ident(
  int_ref used_out "src/cryptokit.ml" 1857 55059 55083 "src/cryptokit.ml" 1857 55059 55091
)
"src/cryptokit.ml" 1862 55247 55261 "src/cryptokit.ml" 1862 55247 55276
type(
  int
)
"src/cryptokit.ml" 1862 55247 55253 "src/cryptokit.ml" 1862 55247 55276
type(
  unit
)
"src/cryptokit.ml" 1863 55278 55287 "src/cryptokit.ml" 1863 55278 55295
type(
  bool
)
ident(
  int_ref finished "src/cryptokit.ml" 1857 55059 55070 "src/cryptokit.ml" 1857 55059 55078
)
"src/cryptokit.ml" 1863 55278 55301 "src/cryptokit.ml" 1863 55278 55312
type(
  stream -> unit
)
ident(
  int_ref deflate_end "src/cryptokit.ml" 1807 53507 53507 "src/cryptokit.ml" 1807 53507 53568
)
"src/cryptokit.ml" 1863 55278 55313 "src/cryptokit.ml" 1863 55278 55315
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1863 55278 55301 "src/cryptokit.ml" 1863 55278 55315
type(
  unit
)
"src/cryptokit.ml" 1863 55278 55321 "src/cryptokit.ml" 1863 55278 55325
type(
  'a
)
ident(
  int_ref self "src/cryptokit.ml" 1817 53892 53900 "src/cryptokit.ml" 1817 53892 53906
)
"src/cryptokit.ml" 1863 55278 55321 "src/cryptokit.ml" 1863 55278 55332
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1863 55278 55284 "src/cryptokit.ml" 1863 55278 55332
type(
  unit
)
"src/cryptokit.ml" 1862 55247 55253 "src/cryptokit.ml" 1863 55278 55332
type(
  unit
)
"src/cryptokit.ml" 1857 55059 55065 "src/cryptokit.ml" 1863 55278 55332
type(
  unit
)
"src/cryptokit.ml" 1856 55027 55033 "src/cryptokit.ml" 1863 55278 55332
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1866 55352 55358 "src/cryptokit.ml" 1866 55352 55371
type(
  'a
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 1820 53950 53962 "src/cryptokit.ml" 1820 53950 53981
)
"src/cryptokit.ml" 1866 55352 55358 "src/cryptokit.ml" 1866 55352 55376
call(
  tail
)
type(
  unit
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1869 55382 55386 "src/cryptokit.ml" 1869 55382 55394
type(
  ?level:int -> unit -> compress
)
ident(
  def compress "src/cryptokit.ml" 1871 55433 55433 "src/cryptokit.ml" 1924 56967 56970
)
"src/cryptokit.ml" 1869 55382 55397 "src/cryptokit.ml" 1869 55382 55402
type(
  int
)
"src/cryptokit.ml" 1869 55382 55405 "src/cryptokit.ml" 1869 55382 55406
type(
  int
)
type(
  int
)
ident(
  int_ref *sth* "src/cryptokit.ml" 1869 55382 55405 "src/cryptokit.ml" 1869 55382 55406
)
type(
  int option
)
type(
  int option
)
type(
  int
)
"src/cryptokit.ml" 1869 55382 55408 "src/cryptokit.ml" 1869 55382 55410
type(
  unit
)
"src/cryptokit.ml" 1869 55382 55413 "src/cryptokit.ml" 1869 55382 55425
type(
  int -> compress
)
"src/cryptokit.ml" 1869 55382 55426 "src/cryptokit.ml" 1869 55382 55431
type(
  int
)
ident(
  int_ref level "src/cryptokit.ml" 1869 55382 55397 "src/cryptokit.ml" 1869 55382 55402
)
"src/cryptokit.ml" 1869 55382 55413 "src/cryptokit.ml" 1869 55382 55431
call(
  tail
)
type(
  compress
)
"src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
)
"src/cryptokit.ml" 1873 55467 55480 "src/cryptokit.ml" 1873 55467 55492
type(
  bool -> stream
)
ident(
  int_ref inflate_init "src/cryptokit.ml" 1809 53570 53570 "src/cryptokit.ml" 1809 53570 53633
)
"src/cryptokit.ml" 1873 55467 55493 "src/cryptokit.ml" 1873 55467 55498
type(
  bool
)
"src/cryptokit.ml" 1873 55467 55480 "src/cryptokit.ml" 1873 55467 55498
type(
  stream
)
"src/cryptokit.ml" 1875 55504 55532 "src/cryptokit.ml" 1875 55504 55535
type(
  int
)
"src/cryptokit.ml" 1877 55554 55584 "src/cryptokit.ml" 1877 55554 55585
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1878 55586 55617 "src/cryptokit.ml" 1878 55586 55618
type(
  int
)
type(
  int
)
"src/cryptokit.ml" 1880 55620 55645 "src/cryptokit.ml" 1880 55620 55648
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 1880 55620 55649 "src/cryptokit.ml" 1895 56194 56203
)
"src/cryptokit.ml" 1880 55620 55649 "src/cryptokit.ml" 1880 55620 55652
type(
  int
)
ident(
  def ofs "src/cryptokit.ml" 1880 55620 55653 "src/cryptokit.ml" 1895 56194 56203
)
"src/cryptokit.ml" 1880 55620 55653 "src/cryptokit.ml" 1880 55620 55656
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1881 55659 55665 "src/cryptokit.ml" 1895 56194 56203
)
"src/cryptokit.ml" 1881 55659 55668 "src/cryptokit.ml" 1881 55659 55671
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1880 55620 55653 "src/cryptokit.ml" 1880 55620 55656
)
"src/cryptokit.ml" 1881 55659 55672 "src/cryptokit.ml" 1881 55659 55673
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1881 55659 55674 "src/cryptokit.ml" 1881 55659 55675
type(
  int
)
"src/cryptokit.ml" 1881 55659 55668 "src/cryptokit.ml" 1881 55659 55675
type(
  bool
)
"src/cryptokit.ml" 1882 55687 55695 "src/cryptokit.ml" 1882 55687 55699
type(
  < available_output : int; finish : unit; flush : unit; get_byte : int;
    get_char : char; get_string : string; get_substring : bytes * int * int;
    input_block_size : int; output_block_size : int; put_byte : int -> unit;
    put_char : char -> unit; put_string : string -> unit;
    put_substring : bytes -> int -> int -> unit; wipe : unit; .. >
  as 'b
)
ident(
  int_ref self "src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
)
"src/cryptokit.ml" 1882 55687 55695 "src/cryptokit.ml" 1882 55687 55715
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1882 55687 55716 "src/cryptokit.ml" 1882 55687 55719
type(
  int
)
"src/cryptokit.ml" 1882 55687 55695 "src/cryptokit.ml" 1882 55687 55719
type(
  unit
)
"src/cryptokit.ml" 1883 55721 55734 "src/cryptokit.ml" 1883 55721 55742
type(
  bool
)
ident(
  def finished "src/cryptokit.ml" 1888 55905 55913 "src/cryptokit.ml" 1894 56182 56193
)
"src/cryptokit.ml" 1883 55721 55744 "src/cryptokit.ml" 1883 55721 55751
type(
  int
)
ident(
  def used_in "src/cryptokit.ml" 1888 55905 55913 "src/cryptokit.ml" 1894 56182 56193
)
"src/cryptokit.ml" 1883 55721 55753 "src/cryptokit.ml" 1883 55721 55761
type(
  int
)
ident(
  def used_out "src/cryptokit.ml" 1888 55905 55913 "src/cryptokit.ml" 1894 56182 56193
)
"src/cryptokit.ml" 1883 55721 55733 "src/cryptokit.ml" 1883 55721 55762
type(
  bool * int * int
)
"src/cryptokit.ml" 1884 55765 55775 "src/cryptokit.ml" 1884 55765 55782
type(
  stream ->
  bytes ->
  int -> int -> bytes -> int -> int -> flush_command -> bool * int * int
)
ident(
  int_ref inflate "src/cryptokit.ml" 1810 53634 53634 "src/cryptokit.ml" 1813 53753 53805
)
"src/cryptokit.ml" 1884 55765 55783 "src/cryptokit.ml" 1884 55765 55785
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1885 55786 55804 "src/cryptokit.ml" 1885 55786 55807
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1880 55620 55645 "src/cryptokit.ml" 1880 55620 55648
)
"src/cryptokit.ml" 1885 55786 55808 "src/cryptokit.ml" 1885 55786 55811
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1880 55620 55649 "src/cryptokit.ml" 1880 55620 55652
)
"src/cryptokit.ml" 1885 55786 55812 "src/cryptokit.ml" 1885 55786 55815
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1880 55620 55653 "src/cryptokit.ml" 1880 55620 55656
)
"src/cryptokit.ml" 1886 55816 55834 "src/cryptokit.ml" 1886 55816 55838
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1886 55816 55839 "src/cryptokit.ml" 1886 55816 55843
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1886 55816 55845 "src/cryptokit.ml" 1886 55816 55857
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1886 55816 55858 "src/cryptokit.ml" 1886 55816 55862
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1886 55816 55845 "src/cryptokit.ml" 1886 55816 55862
type(
  int
)
"src/cryptokit.ml" 1886 55816 55863 "src/cryptokit.ml" 1886 55816 55864
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1886 55816 55865 "src/cryptokit.ml" 1886 55816 55869
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1886 55816 55844 "src/cryptokit.ml" 1886 55816 55870
type(
  int
)
"src/cryptokit.ml" 1887 55871 55889 "src/cryptokit.ml" 1887 55871 55901
type(
  flush_command
)
"src/cryptokit.ml" 1884 55765 55775 "src/cryptokit.ml" 1887 55871 55901
type(
  bool * int * int
)
"src/cryptokit.ml" 1888 55905 55921 "src/cryptokit.ml" 1888 55905 55925
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1888 55905 55926 "src/cryptokit.ml" 1888 55905 55927
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1888 55905 55928 "src/cryptokit.ml" 1888 55905 55936
type(
  int
)
ident(
  int_ref used_out "src/cryptokit.ml" 1883 55721 55753 "src/cryptokit.ml" 1883 55721 55761
)
"src/cryptokit.ml" 1888 55905 55921 "src/cryptokit.ml" 1888 55905 55936
type(
  int
)
"src/cryptokit.ml" 1888 55905 55913 "src/cryptokit.ml" 1888 55905 55936
type(
  unit
)
"src/cryptokit.ml" 1889 55938 55949 "src/cryptokit.ml" 1889 55938 55956
type(
  int
)
ident(
  int_ref used_in "src/cryptokit.ml" 1883 55721 55744 "src/cryptokit.ml" 1883 55721 55751
)
"src/cryptokit.ml" 1889 55938 55957 "src/cryptokit.ml" 1889 55938 55958
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1889 55938 55959 "src/cryptokit.ml" 1889 55938 55962
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1880 55620 55653 "src/cryptokit.ml" 1880 55620 55656
)
"src/cryptokit.ml" 1889 55938 55949 "src/cryptokit.ml" 1889 55938 55962
type(
  bool
)
"src/cryptokit.ml" 1890 55974 55987 "src/cryptokit.ml" 1890 55974 55995
type(
  bool
)
ident(
  int_ref finished "src/cryptokit.ml" 1883 55721 55734 "src/cryptokit.ml" 1883 55721 55742
)
"src/cryptokit.ml" 1891 56001 56013 "src/cryptokit.ml" 1891 56001 56018
type(
  exn -> unit
)
ident(
  ext_ref Pervasives.raise
)
"src/cryptokit.ml" 1891 56001 56043 "src/cryptokit.ml" 1891 56001 56060
type(
  string
)
"src/cryptokit.ml" 1892 56062 56077 "src/cryptokit.ml" 1892 56062 56112
type(
  string
)
"src/cryptokit.ml" 1891 56001 56024 "src/cryptokit.ml" 1892 56062 56114
type(
  error
)
"src/cryptokit.ml" 1891 56001 56018 "src/cryptokit.ml" 1892 56062 56115
type(
  exn
)
"src/cryptokit.ml" 1891 56001 56013 "src/cryptokit.ml" 1892 56062 56115
type(
  unit
)
"src/cryptokit.ml" 1890 55974 55984 "src/cryptokit.ml" 1892 56062 56115
type(
  unit
)
"src/cryptokit.ml" 1893 56117 56127 "src/cryptokit.ml" 1893 56117 56131
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
)
"src/cryptokit.ml" 1893 56117 56127 "src/cryptokit.ml" 1893 56117 56145
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1893 56117 56146 "src/cryptokit.ml" 1893 56117 56149
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1880 55620 55645 "src/cryptokit.ml" 1880 55620 55648
)
"src/cryptokit.ml" 1893 56117 56151 "src/cryptokit.ml" 1893 56117 56154
type(
  int
)
ident(
  int_ref ofs "src/cryptokit.ml" 1880 55620 55649 "src/cryptokit.ml" 1880 55620 55652
)
"src/cryptokit.ml" 1893 56117 56155 "src/cryptokit.ml" 1893 56117 56156
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1893 56117 56157 "src/cryptokit.ml" 1893 56117 56164
type(
  int
)
ident(
  int_ref used_in "src/cryptokit.ml" 1883 55721 55744 "src/cryptokit.ml" 1883 55721 55751
)
"src/cryptokit.ml" 1893 56117 56150 "src/cryptokit.ml" 1893 56117 56165
type(
  int
)
"src/cryptokit.ml" 1893 56117 56167 "src/cryptokit.ml" 1893 56117 56170
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1880 55620 55653 "src/cryptokit.ml" 1880 55620 55656
)
"src/cryptokit.ml" 1893 56117 56171 "src/cryptokit.ml" 1893 56117 56172
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1893 56117 56173 "src/cryptokit.ml" 1893 56117 56180
type(
  int
)
ident(
  int_ref used_in "src/cryptokit.ml" 1883 55721 55744 "src/cryptokit.ml" 1883 55721 55751
)
"src/cryptokit.ml" 1893 56117 56166 "src/cryptokit.ml" 1893 56117 56181
type(
  int
)
"src/cryptokit.ml" 1893 56117 56127 "src/cryptokit.ml" 1893 56117 56181
type(
  unit
)
"src/cryptokit.ml" 1889 55938 55968 "src/cryptokit.ml" 1894 56182 56193
type(
  unit
)
"src/cryptokit.ml" 1889 55938 55946 "src/cryptokit.ml" 1894 56182 56193
type(
  unit
)
"src/cryptokit.ml" 1888 55905 55913 "src/cryptokit.ml" 1894 56182 56193
type(
  unit
)
"src/cryptokit.ml" 1883 55721 55729 "src/cryptokit.ml" 1894 56182 56193
type(
  unit
)
"src/cryptokit.ml" 1881 55659 55681 "src/cryptokit.ml" 1895 56194 56203
type(
  unit
)
"src/cryptokit.ml" 1881 55659 55665 "src/cryptokit.ml" 1895 56194 56203
type(
  unit
)
"src/cryptokit.ml" 1897 56205 56227 "src/cryptokit.ml" 1897 56205 56228
type(
  string
)
ident(
  def s "src/cryptokit.ml" 1898 56231 56237 "src/cryptokit.ml" 1898 56231 56302
)
"src/cryptokit.ml" 1898 56231 56237 "src/cryptokit.ml" 1898 56231 56241
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
)
"src/cryptokit.ml" 1898 56231 56237 "src/cryptokit.ml" 1898 56231 56255
call(
  tail
)
type(
  bytes -> int -> int -> unit
)
"src/cryptokit.ml" 1898 56231 56257 "src/cryptokit.ml" 1898 56231 56279
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1898 56231 56280 "src/cryptokit.ml" 1898 56231 56281
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1897 56205 56227 "src/cryptokit.ml" 1897 56205 56228
)
"src/cryptokit.ml" 1898 56231 56256 "src/cryptokit.ml" 1898 56231 56282
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1898 56231 56283 "src/cryptokit.ml" 1898 56231 56284
type(
  int
)
"src/cryptokit.ml" 1898 56231 56286 "src/cryptokit.ml" 1898 56231 56299
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1898 56231 56300 "src/cryptokit.ml" 1898 56231 56301
type(
  string
)
ident(
  int_ref s "src/cryptokit.ml" 1897 56205 56227 "src/cryptokit.ml" 1897 56205 56228
)
"src/cryptokit.ml" 1898 56231 56285 "src/cryptokit.ml" 1898 56231 56302
type(
  int
)
"src/cryptokit.ml" 1898 56231 56237 "src/cryptokit.ml" 1898 56231 56302
type(
  unit
)
"src/cryptokit.ml" 1900 56304 56324 "src/cryptokit.ml" 1900 56304 56325
type(
  char
)
ident(
  def c "src/cryptokit.ml" 1900 56304 56328 "src/cryptokit.ml" 1900 56304 56361
)
"src/cryptokit.ml" 1900 56304 56328 "src/cryptokit.ml" 1900 56304 56332
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
)
"src/cryptokit.ml" 1900 56304 56328 "src/cryptokit.ml" 1900 56304 56343
call(
  tail
)
type(
  string -> unit
)
"src/cryptokit.ml" 1900 56304 56345 "src/cryptokit.ml" 1900 56304 56356
type(
  int -> char -> string
)
ident(
  ext_ref String.make
)
"src/cryptokit.ml" 1900 56304 56357 "src/cryptokit.ml" 1900 56304 56358
type(
  int
)
"src/cryptokit.ml" 1900 56304 56359 "src/cryptokit.ml" 1900 56304 56360
type(
  char
)
ident(
  int_ref c "src/cryptokit.ml" 1900 56304 56324 "src/cryptokit.ml" 1900 56304 56325
)
"src/cryptokit.ml" 1900 56304 56344 "src/cryptokit.ml" 1900 56304 56361
call(
  stack
)
type(
  string
)
"src/cryptokit.ml" 1900 56304 56328 "src/cryptokit.ml" 1900 56304 56361
type(
  unit
)
"src/cryptokit.ml" 1902 56363 56383 "src/cryptokit.ml" 1902 56363 56384
type(
  int
)
ident(
  def b "src/cryptokit.ml" 1902 56363 56387 "src/cryptokit.ml" 1902 56363 56413
)
"src/cryptokit.ml" 1902 56363 56387 "src/cryptokit.ml" 1902 56363 56391
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
)
"src/cryptokit.ml" 1902 56363 56387 "src/cryptokit.ml" 1902 56363 56400
call(
  tail
)
type(
  char -> unit
)
"src/cryptokit.ml" 1902 56363 56402 "src/cryptokit.ml" 1902 56363 56410
type(
  int -> char
)
ident(
  ext_ref Char.chr
)
"src/cryptokit.ml" 1902 56363 56411 "src/cryptokit.ml" 1902 56363 56412
type(
  int
)
ident(
  int_ref b "src/cryptokit.ml" 1902 56363 56383 "src/cryptokit.ml" 1902 56363 56384
)
"src/cryptokit.ml" 1902 56363 56401 "src/cryptokit.ml" 1902 56363 56413
call(
  stack
)
type(
  char
)
"src/cryptokit.ml" 1902 56363 56387 "src/cryptokit.ml" 1902 56363 56413
type(
  unit
)
"src/cryptokit.ml" 1904 56415 56434 "src/cryptokit.ml" 1904 56415 56436
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1907 56458 56472 "src/cryptokit.ml" 1907 56458 56481
type(
  bool -> unit
)
ident(
  def do_finish "src/cryptokit.ml" 1907 56458 56464 "src/cryptokit.ml" 1916 56845 56881
)
"src/cryptokit.ml" 1907 56458 56482 "src/cryptokit.ml" 1907 56458 56494
type(
  bool
)
ident(
  def first_finish "src/cryptokit.ml" 1908 56497 56505 "src/cryptokit.ml" 1915 56797 56841
)
"src/cryptokit.ml" 1908 56497 56505 "src/cryptokit.ml" 1908 56497 56509
type(
  'b
)
ident(
  int_ref self "src/cryptokit.ml" 1872 55452 55460 "src/cryptokit.ml" 1872 55452 55466
)
"src/cryptokit.ml" 1908 56497 56505 "src/cryptokit.ml" 1908 56497 56525
call(
  stack
)
type(
  int -> unit
)
"src/cryptokit.ml" 1908 56497 56526 "src/cryptokit.ml" 1908 56497 56529
type(
  int
)
"src/cryptokit.ml" 1908 56497 56505 "src/cryptokit.ml" 1908 56497 56529
type(
  unit
)
"src/cryptokit.ml" 1909 56531 56544 "src/cryptokit.ml" 1909 56531 56552
type(
  bool
)
ident(
  def finished "src/cryptokit.ml" 1914 56764 56772 "src/cryptokit.ml" 1915 56797 56841
)
"src/cryptokit.ml" 1909 56531 56554 "src/cryptokit.ml" 1909 56531 56555
type(
  int
)
"src/cryptokit.ml" 1909 56531 56557 "src/cryptokit.ml" 1909 56531 56565
type(
  int
)
ident(
  def used_out "src/cryptokit.ml" 1914 56764 56772 "src/cryptokit.ml" 1915 56797 56841
)
"src/cryptokit.ml" 1909 56531 56543 "src/cryptokit.ml" 1909 56531 56566
type(
  bool * int * int
)
"src/cryptokit.ml" 1910 56569 56580 "src/cryptokit.ml" 1910 56569 56587
type(
  stream ->
  bytes ->
  int -> int -> bytes -> int -> int -> flush_command -> bool * int * int
)
ident(
  int_ref inflate "src/cryptokit.ml" 1810 53634 53634 "src/cryptokit.ml" 1813 53753 53805
)
"src/cryptokit.ml" 1910 56569 56588 "src/cryptokit.ml" 1910 56569 56590
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1911 56591 56611 "src/cryptokit.ml" 1911 56591 56633
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/cryptokit.ml" 1911 56591 56634 "src/cryptokit.ml" 1911 56591 56637
type(
  string
)
"src/cryptokit.ml" 1911 56591 56610 "src/cryptokit.ml" 1911 56591 56638
call(
  stack
)
type(
  bytes
)
"src/cryptokit.ml" 1911 56591 56639 "src/cryptokit.ml" 1911 56591 56640
type(
  int
)
"src/cryptokit.ml" 1911 56591 56645 "src/cryptokit.ml" 1911 56591 56657
type(
  bool
)
ident(
  int_ref first_finish "src/cryptokit.ml" 1907 56458 56482 "src/cryptokit.ml" 1907 56458 56494
)
"src/cryptokit.ml" 1911 56591 56663 "src/cryptokit.ml" 1911 56591 56664
type(
  int
)
"src/cryptokit.ml" 1911 56591 56670 "src/cryptokit.ml" 1911 56591 56671
type(
  int
)
"src/cryptokit.ml" 1911 56591 56641 "src/cryptokit.ml" 1911 56591 56672
type(
  int
)
"src/cryptokit.ml" 1912 56673 56692 "src/cryptokit.ml" 1912 56673 56696
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1912 56673 56697 "src/cryptokit.ml" 1912 56673 56701
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1912 56673 56703 "src/cryptokit.ml" 1912 56673 56715
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1912 56673 56716 "src/cryptokit.ml" 1912 56673 56720
type(
  bytes
)
ident(
  ext_ref obuf
)
"src/cryptokit.ml" 1912 56673 56703 "src/cryptokit.ml" 1912 56673 56720
type(
  int
)
"src/cryptokit.ml" 1912 56673 56721 "src/cryptokit.ml" 1912 56673 56722
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1912 56673 56723 "src/cryptokit.ml" 1912 56673 56727
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1912 56673 56702 "src/cryptokit.ml" 1912 56673 56728
type(
  int
)
"src/cryptokit.ml" 1913 56729 56748 "src/cryptokit.ml" 1913 56729 56760
type(
  flush_command
)
"src/cryptokit.ml" 1910 56569 56580 "src/cryptokit.ml" 1913 56729 56760
type(
  bool * int * int
)
"src/cryptokit.ml" 1914 56764 56780 "src/cryptokit.ml" 1914 56764 56784
type(
  int
)
ident(
  ext_ref oend
)
"src/cryptokit.ml" 1914 56764 56785 "src/cryptokit.ml" 1914 56764 56786
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/cryptokit.ml" 1914 56764 56787 "src/cryptokit.ml" 1914 56764 56795
type(
  int
)
ident(
  int_ref used_out "src/cryptokit.ml" 1909 56531 56557 "src/cryptokit.ml" 1909 56531 56565
)
"src/cryptokit.ml" 1914 56764 56780 "src/cryptokit.ml" 1914 56764 56795
type(
  int
)
"src/cryptokit.ml" 1914 56764 56772 "src/cryptokit.ml" 1914 56764 56795
type(
  unit
)
"src/cryptokit.ml" 1915 56797 56808 "src/cryptokit.ml" 1915 56797 56811
type(
  bool -> bool
)
ident(
  ext_ref Pervasives.not
)
"src/cryptokit.ml" 1915 56797 56812 "src/cryptokit.ml" 1915 56797 56820
type(
  bool
)
ident(
  int_ref finished "src/cryptokit.ml" 1909 56531 56544 "src/cryptokit.ml" 1909 56531 56552
)
"src/cryptokit.ml" 1915 56797 56808 "src/cryptokit.ml" 1915 56797 56820
type(
  bool
)
"src/cryptokit.ml" 1915 56797 56826 "src/cryptokit.ml" 1915 56797 56835
type(
  bool -> unit
)
ident(
  int_ref do_finish "src/cryptokit.ml" 1907 56458 56472 "src/cryptokit.ml" 1907 56458 56481
)
"src/cryptokit.ml" 1915 56797 56836 "src/cryptokit.ml" 1915 56797 56841
type(
  bool
)
"src/cryptokit.ml" 1915 56797 56826 "src/cryptokit.ml" 1915 56797 56841
call(
  tail
)
type(
  unit
)
"src/cryptokit.ml" 1915 56797 56805 "src/cryptokit.ml" 1915 56797 56841
type(
  unit
)
"src/cryptokit.ml" 1914 56764 56772 "src/cryptokit.ml" 1915 56797 56841
type(
  unit
)
"src/cryptokit.ml" 1909 56531 56539 "src/cryptokit.ml" 1915 56797 56841
type(
  unit
)
"src/cryptokit.ml" 1908 56497 56505 "src/cryptokit.ml" 1915 56797 56841
type(
  unit
)
"src/cryptokit.ml" 1916 56845 56851 "src/cryptokit.ml" 1916 56845 56860
type(
  bool -> unit
)
ident(
  int_ref do_finish "src/cryptokit.ml" 1907 56458 56472 "src/cryptokit.ml" 1907 56458 56481
)
"src/cryptokit.ml" 1916 56845 56861 "src/cryptokit.ml" 1916 56845 56865
type(
  bool
)
"src/cryptokit.ml" 1916 56845 56851 "src/cryptokit.ml" 1916 56845 56865
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1916 56845 56867 "src/cryptokit.ml" 1916 56845 56878
type(
  stream -> unit
)
ident(
  int_ref inflate_end "src/cryptokit.ml" 1814 53806 53806 "src/cryptokit.ml" 1814 53806 53867
)
"src/cryptokit.ml" 1916 56845 56879 "src/cryptokit.ml" 1916 56845 56881
type(
  stream
)
ident(
  ext_ref zs
)
"src/cryptokit.ml" 1916 56845 56867 "src/cryptokit.ml" 1916 56845 56881
type(
  unit
)
"src/cryptokit.ml" 1916 56845 56851 "src/cryptokit.ml" 1916 56845 56881
type(
  unit
)
"src/cryptokit.ml" 1907 56458 56464 "src/cryptokit.ml" 1916 56845 56881
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1919 56901 56907 "src/cryptokit.ml" 1919 56901 56920
type(
  'b
)
ident(
  int_ref output_buffer "src/cryptokit.ml" 1875 55504 55516 "src/cryptokit.ml" 1875 55504 55535
)
"src/cryptokit.ml" 1919 56901 56907 "src/cryptokit.ml" 1919 56901 56925
call(
  tail
)
type(
  unit
)
type(
  unit
)
type(
  unit
)
"src/cryptokit.ml" 1922 56931 56935 "src/cryptokit.ml" 1922 56931 56945
type(
  unit -> uncompress
)
ident(
  def uncompress "src/cryptokit.ml" 1922 56931 56965 "src/cryptokit.ml" 1924 56967 56970
)
"src/cryptokit.ml" 1922 56931 56946 "src/cryptokit.ml" 1922 56931 56948
type(
  unit
)
"src/cryptokit.ml" 1922 56931 56955 "src/cryptokit.ml" 1922 56931 56965
call(
  tail
)
"src/cryptokit.ml" 1922 56931 56951 "src/cryptokit.ml" 1922 56931 56965
type(
  uncompress
)
"src/cryptokit.ml" 1928 56989 56993 "src/cryptokit.ml" 1928 56989 57002
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  def xor_bytes "src/cryptokit.ml" 1935 57227 57227 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 1928 56989 57003 "src/cryptokit.ml" 1928 56989 57006
type(
  bytes
)
ident(
  def src "src/cryptokit.ml" 1928 56989 57007 "src/cryptokit.ml" 1933 57184 57223
)
"src/cryptokit.ml" 1928 56989 57007 "src/cryptokit.ml" 1928 56989 57014
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 1928 56989 57015 "src/cryptokit.ml" 1933 57184 57223
)
"src/cryptokit.ml" 1928 56989 57015 "src/cryptokit.ml" 1928 56989 57018
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 1928 56989 57019 "src/cryptokit.ml" 1933 57184 57223
)
"src/cryptokit.ml" 1928 56989 57019 "src/cryptokit.ml" 1928 56989 57026
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 1928 56989 57027 "src/cryptokit.ml" 1933 57184 57223
)
"src/cryptokit.ml" 1928 56989 57027 "src/cryptokit.ml" 1928 56989 57030
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1929 57033 57035 "src/cryptokit.ml" 1933 57184 57223
)
"src/cryptokit.ml" 1929 57033 57038 "src/cryptokit.ml" 1929 57033 57041
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1928 56989 57027 "src/cryptokit.ml" 1928 56989 57030
)
"src/cryptokit.ml" 1929 57033 57042 "src/cryptokit.ml" 1929 57033 57043
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1929 57033 57044 "src/cryptokit.ml" 1929 57033 57045
type(
  int
)
"src/cryptokit.ml" 1929 57033 57038 "src/cryptokit.ml" 1929 57033 57045
type(
  bool
)
"src/cryptokit.ml" 1930 57046 57048 "src/cryptokit.ml" 1930 57046 57050
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1930 57046 57051 "src/cryptokit.ml" 1930 57046 57058
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 1928 56989 57007 "src/cryptokit.ml" 1928 56989 57014
)
"src/cryptokit.ml" 1930 57046 57059 "src/cryptokit.ml" 1930 57046 57060
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1930 57046 57061 "src/cryptokit.ml" 1930 57046 57062
type(
  int
)
"src/cryptokit.ml" 1930 57046 57051 "src/cryptokit.ml" 1930 57046 57062
type(
  bool
)
"src/cryptokit.ml" 1930 57046 57063 "src/cryptokit.ml" 1930 57046 57065
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1930 57046 57066 "src/cryptokit.ml" 1930 57046 57073
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 1928 56989 57007 "src/cryptokit.ml" 1928 56989 57014
)
"src/cryptokit.ml" 1930 57046 57074 "src/cryptokit.ml" 1930 57046 57075
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1930 57046 57076 "src/cryptokit.ml" 1930 57046 57088
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1930 57046 57089 "src/cryptokit.ml" 1930 57046 57092
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1928 56989 57003 "src/cryptokit.ml" 1928 56989 57006
)
"src/cryptokit.ml" 1930 57046 57076 "src/cryptokit.ml" 1930 57046 57092
type(
  int
)
"src/cryptokit.ml" 1930 57046 57093 "src/cryptokit.ml" 1930 57046 57094
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1930 57046 57095 "src/cryptokit.ml" 1930 57046 57098
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1928 56989 57027 "src/cryptokit.ml" 1928 56989 57030
)
"src/cryptokit.ml" 1930 57046 57076 "src/cryptokit.ml" 1930 57046 57098
type(
  int
)
"src/cryptokit.ml" 1930 57046 57066 "src/cryptokit.ml" 1930 57046 57098
type(
  bool
)
"src/cryptokit.ml" 1931 57099 57101 "src/cryptokit.ml" 1931 57099 57103
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1931 57099 57104 "src/cryptokit.ml" 1931 57099 57111
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 1928 56989 57019 "src/cryptokit.ml" 1928 56989 57026
)
"src/cryptokit.ml" 1931 57099 57112 "src/cryptokit.ml" 1931 57099 57113
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1931 57099 57114 "src/cryptokit.ml" 1931 57099 57115
type(
  int
)
"src/cryptokit.ml" 1931 57099 57104 "src/cryptokit.ml" 1931 57099 57115
type(
  bool
)
"src/cryptokit.ml" 1931 57099 57116 "src/cryptokit.ml" 1931 57099 57118
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1931 57099 57119 "src/cryptokit.ml" 1931 57099 57126
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 1928 56989 57019 "src/cryptokit.ml" 1928 56989 57026
)
"src/cryptokit.ml" 1931 57099 57127 "src/cryptokit.ml" 1931 57099 57128
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1931 57099 57129 "src/cryptokit.ml" 1931 57099 57141
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1931 57099 57142 "src/cryptokit.ml" 1931 57099 57145
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 1928 56989 57015 "src/cryptokit.ml" 1928 56989 57018
)
"src/cryptokit.ml" 1931 57099 57129 "src/cryptokit.ml" 1931 57099 57145
type(
  int
)
"src/cryptokit.ml" 1931 57099 57146 "src/cryptokit.ml" 1931 57099 57147
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1931 57099 57148 "src/cryptokit.ml" 1931 57099 57151
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1928 56989 57027 "src/cryptokit.ml" 1928 56989 57030
)
"src/cryptokit.ml" 1931 57099 57129 "src/cryptokit.ml" 1931 57099 57151
type(
  int
)
"src/cryptokit.ml" 1931 57099 57119 "src/cryptokit.ml" 1931 57099 57151
type(
  bool
)
"src/cryptokit.ml" 1931 57099 57104 "src/cryptokit.ml" 1931 57099 57151
type(
  bool
)
"src/cryptokit.ml" 1930 57046 57066 "src/cryptokit.ml" 1931 57099 57151
type(
  bool
)
"src/cryptokit.ml" 1930 57046 57051 "src/cryptokit.ml" 1931 57099 57151
type(
  bool
)
"src/cryptokit.ml" 1929 57033 57038 "src/cryptokit.ml" 1931 57099 57151
type(
  bool
)
"src/cryptokit.ml" 1932 57152 57159 "src/cryptokit.ml" 1932 57152 57170
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 1932 57152 57171 "src/cryptokit.ml" 1932 57152 57182
type(
  string
)
"src/cryptokit.ml" 1932 57152 57159 "src/cryptokit.ml" 1932 57152 57182
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1929 57033 57035 "src/cryptokit.ml" 1932 57152 57182
type(
  unit
)
"src/cryptokit.ml" 1933 57184 57186 "src/cryptokit.ml" 1933 57184 57195
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_bytes "src/cryptokit.ml" 43 1516 1516 "src/cryptokit.ml" 43 1516 1599
)
"src/cryptokit.ml" 1933 57184 57196 "src/cryptokit.ml" 1933 57184 57199
type(
  bytes
)
ident(
  int_ref src "src/cryptokit.ml" 1928 56989 57003 "src/cryptokit.ml" 1928 56989 57006
)
"src/cryptokit.ml" 1933 57184 57200 "src/cryptokit.ml" 1933 57184 57207
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 1928 56989 57007 "src/cryptokit.ml" 1928 56989 57014
)
"src/cryptokit.ml" 1933 57184 57208 "src/cryptokit.ml" 1933 57184 57211
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 1928 56989 57015 "src/cryptokit.ml" 1928 56989 57018
)
"src/cryptokit.ml" 1933 57184 57212 "src/cryptokit.ml" 1933 57184 57219
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 1928 56989 57019 "src/cryptokit.ml" 1928 56989 57026
)
"src/cryptokit.ml" 1933 57184 57220 "src/cryptokit.ml" 1933 57184 57223
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1928 56989 57027 "src/cryptokit.ml" 1928 56989 57030
)
"src/cryptokit.ml" 1933 57184 57186 "src/cryptokit.ml" 1933 57184 57223
type(
  unit
)
"src/cryptokit.ml" 1929 57033 57035 "src/cryptokit.ml" 1933 57184 57223
type(
  unit
)
"src/cryptokit.ml" 1935 57227 57231 "src/cryptokit.ml" 1935 57227 57241
type(
  string -> int -> bytes -> int -> int -> unit
)
ident(
  def xor_string "src/cryptokit.ml" 1942 57469 57469 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 1935 57227 57242 "src/cryptokit.ml" 1935 57227 57245
type(
  string
)
ident(
  def src "src/cryptokit.ml" 1935 57227 57246 "src/cryptokit.ml" 1940 57425 57465
)
"src/cryptokit.ml" 1935 57227 57246 "src/cryptokit.ml" 1935 57227 57253
type(
  int
)
ident(
  def src_ofs "src/cryptokit.ml" 1935 57227 57254 "src/cryptokit.ml" 1940 57425 57465
)
"src/cryptokit.ml" 1935 57227 57254 "src/cryptokit.ml" 1935 57227 57257
type(
  bytes
)
ident(
  def dst "src/cryptokit.ml" 1935 57227 57258 "src/cryptokit.ml" 1940 57425 57465
)
"src/cryptokit.ml" 1935 57227 57258 "src/cryptokit.ml" 1935 57227 57265
type(
  int
)
ident(
  def dst_ofs "src/cryptokit.ml" 1935 57227 57266 "src/cryptokit.ml" 1940 57425 57465
)
"src/cryptokit.ml" 1935 57227 57266 "src/cryptokit.ml" 1935 57227 57269
type(
  int
)
ident(
  def len "src/cryptokit.ml" 1936 57272 57274 "src/cryptokit.ml" 1940 57425 57465
)
"src/cryptokit.ml" 1936 57272 57277 "src/cryptokit.ml" 1936 57272 57280
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1935 57227 57266 "src/cryptokit.ml" 1935 57227 57269
)
"src/cryptokit.ml" 1936 57272 57281 "src/cryptokit.ml" 1936 57272 57282
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1936 57272 57283 "src/cryptokit.ml" 1936 57272 57284
type(
  int
)
"src/cryptokit.ml" 1936 57272 57277 "src/cryptokit.ml" 1936 57272 57284
type(
  bool
)
"src/cryptokit.ml" 1937 57285 57287 "src/cryptokit.ml" 1937 57285 57289
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1937 57285 57290 "src/cryptokit.ml" 1937 57285 57297
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 1935 57227 57246 "src/cryptokit.ml" 1935 57227 57253
)
"src/cryptokit.ml" 1937 57285 57298 "src/cryptokit.ml" 1937 57285 57299
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1937 57285 57300 "src/cryptokit.ml" 1937 57285 57301
type(
  int
)
"src/cryptokit.ml" 1937 57285 57290 "src/cryptokit.ml" 1937 57285 57301
type(
  bool
)
"src/cryptokit.ml" 1937 57285 57302 "src/cryptokit.ml" 1937 57285 57304
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1937 57285 57305 "src/cryptokit.ml" 1937 57285 57312
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 1935 57227 57246 "src/cryptokit.ml" 1935 57227 57253
)
"src/cryptokit.ml" 1937 57285 57313 "src/cryptokit.ml" 1937 57285 57314
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1937 57285 57315 "src/cryptokit.ml" 1937 57285 57328
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1937 57285 57329 "src/cryptokit.ml" 1937 57285 57332
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 1935 57227 57242 "src/cryptokit.ml" 1935 57227 57245
)
"src/cryptokit.ml" 1937 57285 57315 "src/cryptokit.ml" 1937 57285 57332
type(
  int
)
"src/cryptokit.ml" 1937 57285 57333 "src/cryptokit.ml" 1937 57285 57334
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1937 57285 57335 "src/cryptokit.ml" 1937 57285 57338
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1935 57227 57266 "src/cryptokit.ml" 1935 57227 57269
)
"src/cryptokit.ml" 1937 57285 57315 "src/cryptokit.ml" 1937 57285 57338
type(
  int
)
"src/cryptokit.ml" 1937 57285 57305 "src/cryptokit.ml" 1937 57285 57338
type(
  bool
)
"src/cryptokit.ml" 1938 57339 57341 "src/cryptokit.ml" 1938 57339 57343
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1938 57339 57344 "src/cryptokit.ml" 1938 57339 57351
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 1935 57227 57258 "src/cryptokit.ml" 1935 57227 57265
)
"src/cryptokit.ml" 1938 57339 57352 "src/cryptokit.ml" 1938 57339 57353
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/cryptokit.ml" 1938 57339 57354 "src/cryptokit.ml" 1938 57339 57355
type(
  int
)
"src/cryptokit.ml" 1938 57339 57344 "src/cryptokit.ml" 1938 57339 57355
type(
  bool
)
"src/cryptokit.ml" 1938 57339 57356 "src/cryptokit.ml" 1938 57339 57358
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/cryptokit.ml" 1938 57339 57359 "src/cryptokit.ml" 1938 57339 57366
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 1935 57227 57258 "src/cryptokit.ml" 1935 57227 57265
)
"src/cryptokit.ml" 1938 57339 57367 "src/cryptokit.ml" 1938 57339 57368
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/cryptokit.ml" 1938 57339 57369 "src/cryptokit.ml" 1938 57339 57381
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/cryptokit.ml" 1938 57339 57382 "src/cryptokit.ml" 1938 57339 57385
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 1935 57227 57254 "src/cryptokit.ml" 1935 57227 57257
)
"src/cryptokit.ml" 1938 57339 57369 "src/cryptokit.ml" 1938 57339 57385
type(
  int
)
"src/cryptokit.ml" 1938 57339 57386 "src/cryptokit.ml" 1938 57339 57387
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/cryptokit.ml" 1938 57339 57388 "src/cryptokit.ml" 1938 57339 57391
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1935 57227 57266 "src/cryptokit.ml" 1935 57227 57269
)
"src/cryptokit.ml" 1938 57339 57369 "src/cryptokit.ml" 1938 57339 57391
type(
  int
)
"src/cryptokit.ml" 1938 57339 57359 "src/cryptokit.ml" 1938 57339 57391
type(
  bool
)
"src/cryptokit.ml" 1938 57339 57344 "src/cryptokit.ml" 1938 57339 57391
type(
  bool
)
"src/cryptokit.ml" 1937 57285 57305 "src/cryptokit.ml" 1938 57339 57391
type(
  bool
)
"src/cryptokit.ml" 1937 57285 57290 "src/cryptokit.ml" 1938 57339 57391
type(
  bool
)
"src/cryptokit.ml" 1936 57272 57277 "src/cryptokit.ml" 1938 57339 57391
type(
  bool
)
"src/cryptokit.ml" 1939 57392 57399 "src/cryptokit.ml" 1939 57392 57410
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/cryptokit.ml" 1939 57392 57411 "src/cryptokit.ml" 1939 57392 57423
type(
  string
)
"src/cryptokit.ml" 1939 57392 57399 "src/cryptokit.ml" 1939 57392 57423
call(
  stack
)
type(
  unit
)
"src/cryptokit.ml" 1936 57272 57274 "src/cryptokit.ml" 1939 57392 57423
type(
  unit
)
"src/cryptokit.ml" 1940 57425 57427 "src/cryptokit.ml" 1940 57425 57437
type(
  string -> int -> bytes -> int -> int -> unit
)
ident(
  int_ref xor_string "src/cryptokit.ml" 44 1600 1600 "src/cryptokit.ml" 44 1600 1685
)
"src/cryptokit.ml" 1940 57425 57438 "src/cryptokit.ml" 1940 57425 57441
type(
  string
)
ident(
  int_ref src "src/cryptokit.ml" 1935 57227 57242 "src/cryptokit.ml" 1935 57227 57245
)
"src/cryptokit.ml" 1940 57425 57442 "src/cryptokit.ml" 1940 57425 57449
type(
  int
)
ident(
  int_ref src_ofs "src/cryptokit.ml" 1935 57227 57246 "src/cryptokit.ml" 1935 57227 57253
)
"src/cryptokit.ml" 1940 57425 57450 "src/cryptokit.ml" 1940 57425 57453
type(
  bytes
)
ident(
  int_ref dst "src/cryptokit.ml" 1935 57227 57254 "src/cryptokit.ml" 1935 57227 57257
)
"src/cryptokit.ml" 1940 57425 57454 "src/cryptokit.ml" 1940 57425 57461
type(
  int
)
ident(
  int_ref dst_ofs "src/cryptokit.ml" 1935 57227 57258 "src/cryptokit.ml" 1935 57227 57265
)
"src/cryptokit.ml" 1940 57425 57462 "src/cryptokit.ml" 1940 57425 57465
type(
  int
)
ident(
  int_ref len "src/cryptokit.ml" 1935 57227 57266 "src/cryptokit.ml" 1935 57227 57269
)
"src/cryptokit.ml" 1940 57425 57427 "src/cryptokit.ml" 1940 57425 57465
type(
  unit
)
"src/cryptokit.ml" 1936 57272 57274 "src/cryptokit.ml" 1940 57425 57465
type(
  unit
)
"src/cryptokit.ml" 1942 57469 57473 "src/cryptokit.ml" 1942 57469 57482
type(
  string -> string -> string -> string
)
ident(
  def mod_power "src/cryptokit.ml" 1945 57603 57603 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 1942 57469 57483 "src/cryptokit.ml" 1942 57469 57484
type(
  string
)
ident(
  def a "src/cryptokit.ml" 1942 57469 57485 "src/cryptokit.ml" 1944 57536 57602
)
"src/cryptokit.ml" 1942 57469 57485 "src/cryptokit.ml" 1942 57469 57486
type(
  string
)
ident(
  def b "src/cryptokit.ml" 1942 57469 57487 "src/cryptokit.ml" 1944 57536 57602
)
"src/cryptokit.ml" 1942 57469 57487 "src/cryptokit.ml" 1942 57469 57488
type(
  string
)
ident(
  def c "src/cryptokit.ml" 1943 57491 57493 "src/cryptokit.ml" 1944 57536 57602
)
"src/cryptokit.ml" 1943 57491 57493 "src/cryptokit.ml" 1943 57491 57504
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1943 57491 57515 "src/cryptokit.ml" 1943 57491 57528
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1943 57491 57529 "src/cryptokit.ml" 1943 57491 57530
type(
  string
)
ident(
  int_ref c "src/cryptokit.ml" 1942 57469 57487 "src/cryptokit.ml" 1942 57469 57488
)
"src/cryptokit.ml" 1943 57491 57515 "src/cryptokit.ml" 1943 57491 57530
type(
  int
)
"src/cryptokit.ml" 1943 57491 57531 "src/cryptokit.ml" 1943 57491 57532
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 1943 57491 57533 "src/cryptokit.ml" 1943 57491 57534
type(
  int
)
"src/cryptokit.ml" 1943 57491 57514 "src/cryptokit.ml" 1943 57491 57535
type(
  int
)
"src/cryptokit.ml" 1944 57536 57541 "src/cryptokit.ml" 1944 57536 57553
type(
  Bn.t -> Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_power
)
"src/cryptokit.ml" 1944 57536 57555 "src/cryptokit.ml" 1944 57536 57566
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1944 57536 57567 "src/cryptokit.ml" 1944 57536 57568
type(
  string
)
ident(
  int_ref a "src/cryptokit.ml" 1942 57469 57483 "src/cryptokit.ml" 1942 57469 57484
)
"src/cryptokit.ml" 1944 57536 57554 "src/cryptokit.ml" 1944 57536 57569
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1944 57536 57571 "src/cryptokit.ml" 1944 57536 57582
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1944 57536 57583 "src/cryptokit.ml" 1944 57536 57584
type(
  string
)
ident(
  int_ref b "src/cryptokit.ml" 1942 57469 57485 "src/cryptokit.ml" 1942 57469 57486
)
"src/cryptokit.ml" 1944 57536 57570 "src/cryptokit.ml" 1944 57536 57585
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1944 57536 57587 "src/cryptokit.ml" 1944 57536 57598
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1944 57536 57599 "src/cryptokit.ml" 1944 57536 57600
type(
  string
)
ident(
  int_ref c "src/cryptokit.ml" 1942 57469 57487 "src/cryptokit.ml" 1942 57469 57488
)
"src/cryptokit.ml" 1944 57536 57586 "src/cryptokit.ml" 1944 57536 57601
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1944 57536 57540 "src/cryptokit.ml" 1944 57536 57602
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1943 57491 57493 "src/cryptokit.ml" 1944 57536 57602
call(
  tail
)
type(
  string
)
"src/cryptokit.ml" 1945 57603 57607 "src/cryptokit.ml" 1945 57603 57615
type(
  string -> string -> string -> string
)
ident(
  def mod_mult "src/cryptokit.ml" 1948 57724 57753 "src/cryptokit.ml" 1 0 -1
)
"src/cryptokit.ml" 1945 57603 57616 "src/cryptokit.ml" 1945 57603 57617
type(
  string
)
ident(
  def a "src/cryptokit.ml" 1945 57603 57618 "src/cryptokit.ml" 1948 57724 57753
)
"src/cryptokit.ml" 1945 57603 57618 "src/cryptokit.ml" 1945 57603 57619
type(
  string
)
ident(
  def b "src/cryptokit.ml" 1945 57603 57620 "src/cryptokit.ml" 1948 57724 57753
)
"src/cryptokit.ml" 1945 57603 57620 "src/cryptokit.ml" 1945 57603 57621
type(
  string
)
ident(
  def c "src/cryptokit.ml" 1946 57624 57626 "src/cryptokit.ml" 1948 57724 57753
)
"src/cryptokit.ml" 1946 57624 57626 "src/cryptokit.ml" 1946 57624 57637
type(
  ?numbits:int -> Bn.t -> string
)
ident(
  ext_ref Bn.to_bytes
)
"src/cryptokit.ml" 1946 57624 57648 "src/cryptokit.ml" 1946 57624 57661
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/cryptokit.ml" 1946 57624 57662 "src/cryptokit.ml" 1946 57624 57663
type(
  string
)
ident(
  int_ref c "src/cryptokit.ml" 1945 57603 57620 "src/cryptokit.ml" 1945 57603 57621
)
"src/cryptokit.ml" 1946 57624 57648 "src/cryptokit.ml" 1946 57624 57663
type(
  int
)
"src/cryptokit.ml" 1946 57624 57664 "src/cryptokit.ml" 1946 57624 57665
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( * )
)
"src/cryptokit.ml" 1946 57624 57666 "src/cryptokit.ml" 1946 57624 57667
type(
  int
)
"src/cryptokit.ml" 1946 57624 57647 "src/cryptokit.ml" 1946 57624 57668
type(
  int
)
"src/cryptokit.ml" 1947 57669 57674 "src/cryptokit.ml" 1947 57669 57681
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mod_
)
"src/cryptokit.ml" 1947 57669 57683 "src/cryptokit.ml" 1947 57669 57690
type(
  Bn.t -> Bn.t -> Bn.t
)
ident(
  ext_ref Bn.mult
)
"src/cryptokit.ml" 1947 57669 57692 "src/cryptokit.ml" 1947 57669 57703
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1947 57669 57704 "src/cryptokit.ml" 1947 57669 57705
type(
  string
)
ident(
  int_ref a "src/cryptokit.ml" 1945 57603 57616 "src/cryptokit.ml" 1945 57603 57617
)
"src/cryptokit.ml" 1947 57669 57691 "src/cryptokit.ml" 1947 57669 57706
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1947 57669 57708 "src/cryptokit.ml" 1947 57669 57719
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1947 57669 57720 "src/cryptokit.ml" 1947 57669 57721
type(
  string
)
ident(
  int_ref b "src/cryptokit.ml" 1945 57603 57618 "src/cryptokit.ml" 1945 57603 57619
)
"src/cryptokit.ml" 1947 57669 57707 "src/cryptokit.ml" 1947 57669 57722
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1947 57669 57682 "src/cryptokit.ml" 1947 57669 57723
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1948 57724 57738 "src/cryptokit.ml" 1948 57724 57749
type(
  string -> Bn.t
)
ident(
  ext_ref Bn.of_bytes
)
"src/cryptokit.ml" 1948 57724 57750 "src/cryptokit.ml" 1948 57724 57751
type(
  string
)
ident(
  int_ref c "src/cryptokit.ml" 1945 57603 57620 "src/cryptokit.ml" 1945 57603 57621
)
"src/cryptokit.ml" 1948 57724 57737 "src/cryptokit.ml" 1948 57724 57752
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1947 57669 57673 "src/cryptokit.ml" 1948 57724 57753
call(
  stack
)
type(
  Bn.t
)
"src/cryptokit.ml" 1946 57624 57626 "src/cryptokit.ml" 1948 57724 57753
call(
  tail
)
type(
  string
)