liblwt-ocaml-dev 2.7.1-4build1 / usr / lib / ocaml / lwt / lwt_io.annot

"src/unix/lwt_io.ml" 28 1016 1020 "src/unix/lwt_io.ml" 28 1016 1035
type(
  int
)
ident(
  def min_buffer_size "src/unix/lwt_io.ml" 30 1042 1042 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 28 1016 1038 "src/unix/lwt_io.ml" 28 1016 1040
type(
  int
)
"src/unix/lwt_io.ml" 30 1042 1046 "src/unix/lwt_io.ml" 30 1042 1063
type(
  string -> int -> unit
)
ident(
  def check_buffer_size "src/unix/lwt_io.ml" 38 1377 1377 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 30 1042 1064 "src/unix/lwt_io.ml" 30 1042 1072
type(
  string
)
ident(
  def fun_name "src/unix/lwt_io.ml" 30 1042 1073 "src/unix/lwt_io.ml" 36 1369 1375
)
"src/unix/lwt_io.ml" 30 1042 1073 "src/unix/lwt_io.ml" 30 1042 1084
type(
  int
)
ident(
  def buffer_size "src/unix/lwt_io.ml" 31 1087 1089 "src/unix/lwt_io.ml" 36 1369 1375
)
"src/unix/lwt_io.ml" 31 1087 1092 "src/unix/lwt_io.ml" 31 1087 1103
type(
  int
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 30 1042 1073 "src/unix/lwt_io.ml" 30 1042 1084
)
"src/unix/lwt_io.ml" 31 1087 1104 "src/unix/lwt_io.ml" 31 1087 1105
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 31 1087 1106 "src/unix/lwt_io.ml" 31 1087 1121
type(
  int
)
ident(
  int_ref min_buffer_size "src/unix/lwt_io.ml" 28 1016 1020 "src/unix/lwt_io.ml" 28 1016 1035
)
"src/unix/lwt_io.ml" 31 1087 1092 "src/unix/lwt_io.ml" 31 1087 1121
type(
  bool
)
"src/unix/lwt_io.ml" 32 1127 1131 "src/unix/lwt_io.ml" 32 1127 1146
type(
  (string -> unit) ->
  (string -> int -> unit, unit, string, unit) format4 ->
  string -> int -> unit
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 32 1127 1147 "src/unix/lwt_io.ml" 32 1127 1158
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/unix/lwt_io.ml" 32 1127 1159 "src/unix/lwt_io.ml" 32 1127 1198
type(
  (string -> int -> unit, unit, string, unit) format4
)
"src/unix/lwt_io.ml" 32 1127 1199 "src/unix/lwt_io.ml" 32 1127 1207
type(
  string
)
ident(
  int_ref fun_name "src/unix/lwt_io.ml" 30 1042 1064 "src/unix/lwt_io.ml" 30 1042 1072
)
"src/unix/lwt_io.ml" 32 1127 1208 "src/unix/lwt_io.ml" 32 1127 1219
type(
  int
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 30 1042 1073 "src/unix/lwt_io.ml" 30 1042 1084
)
"src/unix/lwt_io.ml" 32 1127 1131 "src/unix/lwt_io.ml" 32 1127 1219
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 33 1220 1230 "src/unix/lwt_io.ml" 33 1220 1241
type(
  int
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 30 1042 1073 "src/unix/lwt_io.ml" 30 1042 1084
)
"src/unix/lwt_io.ml" 33 1220 1242 "src/unix/lwt_io.ml" 33 1220 1243
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 33 1220 1244 "src/unix/lwt_io.ml" 33 1220 1265
type(
  int
)
ident(
  ext_ref Sys.max_string_length
)
"src/unix/lwt_io.ml" 33 1220 1230 "src/unix/lwt_io.ml" 33 1220 1265
type(
  bool
)
"src/unix/lwt_io.ml" 34 1271 1275 "src/unix/lwt_io.ml" 34 1271 1290
type(
  (string -> unit) ->
  (string -> int -> unit, unit, string, unit) format4 ->
  string -> int -> unit
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 34 1271 1291 "src/unix/lwt_io.ml" 34 1271 1302
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/unix/lwt_io.ml" 34 1271 1303 "src/unix/lwt_io.ml" 34 1271 1340
type(
  (string -> int -> unit, unit, string, unit) format4
)
"src/unix/lwt_io.ml" 34 1271 1341 "src/unix/lwt_io.ml" 34 1271 1349
type(
  string
)
ident(
  int_ref fun_name "src/unix/lwt_io.ml" 30 1042 1064 "src/unix/lwt_io.ml" 30 1042 1072
)
"src/unix/lwt_io.ml" 34 1271 1350 "src/unix/lwt_io.ml" 34 1271 1361
type(
  int
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 30 1042 1073 "src/unix/lwt_io.ml" 30 1042 1084
)
"src/unix/lwt_io.ml" 34 1271 1275 "src/unix/lwt_io.ml" 34 1271 1361
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 36 1369 1373 "src/unix/lwt_io.ml" 36 1369 1375
type(
  unit
)
"src/unix/lwt_io.ml" 33 1220 1227 "src/unix/lwt_io.ml" 36 1369 1375
type(
  unit
)
"src/unix/lwt_io.ml" 31 1087 1089 "src/unix/lwt_io.ml" 36 1369 1375
type(
  unit
)
"src/unix/lwt_io.ml" 38 1377 1381 "src/unix/lwt_io.ml" 38 1377 1393
type(
  string -> Lwt_bytes.t -> unit
)
ident(
  def check_buffer "src/unix/lwt_io.ml" 41 1468 1468 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 38 1377 1394 "src/unix/lwt_io.ml" 38 1377 1402
type(
  string
)
ident(
  def fun_name "src/unix/lwt_io.ml" 38 1377 1403 "src/unix/lwt_io.ml" 39 1412 1466
)
"src/unix/lwt_io.ml" 38 1377 1403 "src/unix/lwt_io.ml" 38 1377 1409
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 39 1412 1414 "src/unix/lwt_io.ml" 39 1412 1466
)
"src/unix/lwt_io.ml" 39 1412 1414 "src/unix/lwt_io.ml" 39 1412 1431
type(
  string -> int -> unit
)
ident(
  int_ref check_buffer_size "src/unix/lwt_io.ml" 30 1042 1046 "src/unix/lwt_io.ml" 30 1042 1063
)
"src/unix/lwt_io.ml" 39 1412 1432 "src/unix/lwt_io.ml" 39 1412 1440
type(
  string
)
ident(
  int_ref fun_name "src/unix/lwt_io.ml" 38 1377 1394 "src/unix/lwt_io.ml" 38 1377 1402
)
"src/unix/lwt_io.ml" 39 1412 1442 "src/unix/lwt_io.ml" 39 1412 1458
type(
  Lwt_bytes.t -> int
)
ident(
  ext_ref Lwt_bytes.length
)
"src/unix/lwt_io.ml" 39 1412 1459 "src/unix/lwt_io.ml" 39 1412 1465
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 38 1377 1403 "src/unix/lwt_io.ml" 38 1377 1409
)
"src/unix/lwt_io.ml" 39 1412 1441 "src/unix/lwt_io.ml" 39 1412 1466
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 39 1412 1414 "src/unix/lwt_io.ml" 39 1412 1466
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 41 1468 1472 "src/unix/lwt_io.ml" 41 1468 1491
type(
  int ref
)
ident(
  def default_buffer_size "src/unix/lwt_io.ml" 47 1721 1721 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 41 1468 1494 "src/unix/lwt_io.ml" 41 1468 1497
type(
  int -> int ref
)
ident(
  ext_ref Pervasives.ref
)
"src/unix/lwt_io.ml" 41 1468 1498 "src/unix/lwt_io.ml" 41 1468 1502
type(
  int
)
"src/unix/lwt_io.ml" 41 1468 1494 "src/unix/lwt_io.ml" 41 1468 1502
type(
  int ref
)
"src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
type(
  input mode
)
ident(
  def input "src/unix/lwt_io.ml" 55 1840 1840 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 54 1809 1834 "src/unix/lwt_io.ml" 54 1809 1839
type(
  input mode
)
type(
  input mode
)
"src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
type(
  output mode
)
ident(
  def output "src/unix/lwt_io.ml" 58 1897 1897 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 55 1840 1867 "src/unix/lwt_io.ml" 55 1840 1873
type(
  output mode
)
type(
  output mode
)
"src/unix/lwt_io.ml" 143 3986 3990 "src/unix/lwt_io.ml" 143 3986 3994
type(
  'a channel -> 'a mode
)
ident(
  def mode "src/unix/lwt_io.ml" 157 4661 4661 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 143 3986 3995 "src/unix/lwt_io.ml" 143 3986 4002
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 143 3986 4005 "src/unix/lwt_io.ml" 143 3986 4025
)
"src/unix/lwt_io.ml" 143 3986 4005 "src/unix/lwt_io.ml" 143 3986 4012
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 143 3986 3995 "src/unix/lwt_io.ml" 143 3986 4002
)
"src/unix/lwt_io.ml" 143 3986 4005 "src/unix/lwt_io.ml" 143 3986 4020
type(
  'a _channel
)
"src/unix/lwt_io.ml" 143 3986 4005 "src/unix/lwt_io.ml" 143 3986 4025
type(
  'a mode
)
"src/unix/lwt_io.ml" 157 4661 4665 "src/unix/lwt_io.ml" 157 4661 4684
type(
  unit -> int
)
ident(
  def hash_output_channel "src/unix/lwt_io.ml" 163 4759 4759 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 158 4687 4693 "src/unix/lwt_io.ml" 158 4687 4698
type(
  int ref
)
ident(
  def index "src/unix/lwt_io.ml" 159 4710 4712 "src/unix/lwt_io.ml" 161 4747 4757
)
"src/unix/lwt_io.ml" 158 4687 4701 "src/unix/lwt_io.ml" 158 4687 4704
type(
  int -> int ref
)
ident(
  ext_ref Pervasives.ref
)
"src/unix/lwt_io.ml" 158 4687 4705 "src/unix/lwt_io.ml" 158 4687 4706
type(
  int
)
"src/unix/lwt_io.ml" 158 4687 4701 "src/unix/lwt_io.ml" 158 4687 4706
type(
  int ref
)
"src/unix/lwt_io.ml" 159 4710 4716 "src/unix/lwt_io.ml" 159 4710 4718
type(
  unit
)
"src/unix/lwt_io.ml" 160 4722 4726 "src/unix/lwt_io.ml" 160 4722 4731
type(
  int ref
)
ident(
  int_ref index "src/unix/lwt_io.ml" 158 4687 4693 "src/unix/lwt_io.ml" 158 4687 4698
)
"src/unix/lwt_io.ml" 160 4722 4732 "src/unix/lwt_io.ml" 160 4722 4734
type(
  int ref -> int -> unit
)
ident(
  ext_ref Pervasives.( := )
)
"src/unix/lwt_io.ml" 160 4722 4735 "src/unix/lwt_io.ml" 160 4722 4736
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 160 4722 4736 "src/unix/lwt_io.ml" 160 4722 4741
type(
  int ref
)
ident(
  int_ref index "src/unix/lwt_io.ml" 158 4687 4693 "src/unix/lwt_io.ml" 158 4687 4698
)
"src/unix/lwt_io.ml" 160 4722 4735 "src/unix/lwt_io.ml" 160 4722 4741
type(
  int
)
"src/unix/lwt_io.ml" 160 4722 4742 "src/unix/lwt_io.ml" 160 4722 4743
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 160 4722 4744 "src/unix/lwt_io.ml" 160 4722 4745
type(
  int
)
"src/unix/lwt_io.ml" 160 4722 4735 "src/unix/lwt_io.ml" 160 4722 4745
type(
  int
)
"src/unix/lwt_io.ml" 160 4722 4726 "src/unix/lwt_io.ml" 160 4722 4745
type(
  unit
)
"src/unix/lwt_io.ml" 161 4747 4751 "src/unix/lwt_io.ml" 161 4747 4752
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 161 4747 4752 "src/unix/lwt_io.ml" 161 4747 4757
type(
  int ref
)
ident(
  int_ref index "src/unix/lwt_io.ml" 158 4687 4693 "src/unix/lwt_io.ml" 158 4687 4698
)
"src/unix/lwt_io.ml" 161 4747 4751 "src/unix/lwt_io.ml" 161 4747 4757
type(
  int
)
"src/unix/lwt_io.ml" 160 4722 4726 "src/unix/lwt_io.ml" 161 4747 4757
type(
  int
)
"src/unix/lwt_io.ml" 159 4710 4712 "src/unix/lwt_io.ml" 161 4747 4757
type(
  unit -> int
)
"src/unix/lwt_io.ml" 158 4687 4689 "src/unix/lwt_io.ml" 161 4747 4757
type(
  unit -> int
)
"src/unix/lwt_io.ml" 165 4846 4879 "src/unix/lwt_io.ml" 165 4846 4883
type(
  'a -> int
)
ident(
  def hash "src/unix/lwt_io.ml" 166 4911 4940 "src/unix/lwt_io.ml" 167 4959 4989
)
"src/unix/lwt_io.ml" 165 4846 4884 "src/unix/lwt_io.ml" 165 4846 4885
type(
  'a
)
"src/unix/lwt_io.ml" 165 4846 4888 "src/unix/lwt_io.ml" 165 4846 4907
type(
  unit -> int
)
ident(
  int_ref hash_output_channel "src/unix/lwt_io.ml" 157 4661 4665 "src/unix/lwt_io.ml" 157 4661 4684
)
"src/unix/lwt_io.ml" 165 4846 4908 "src/unix/lwt_io.ml" 165 4846 4910
type(
  unit
)
"src/unix/lwt_io.ml" 165 4846 4888 "src/unix/lwt_io.ml" 165 4846 4910
call(
  tail
)
type(
  int
)
"src/unix/lwt_io.ml" 166 4911 4944 "src/unix/lwt_io.ml" 166 4911 4949
type(
  'b -> 'b -> bool
)
ident(
  def equal "src/unix/lwt_io.ml" 166 4911 4958 "src/unix/lwt_io.ml" 167 4959 4989
)
"src/unix/lwt_io.ml" 166 4911 4952 "src/unix/lwt_io.ml" 166 4911 4958
type(
  'b -> 'b -> bool
)
ident(
  ext_ref Pervasives.( == )
)
"src/unix/lwt_io.ml" 163 4759 4776 "src/unix/lwt_io.ml" 167 4959 4990
call(
  stack
)
"src/unix/lwt_io.ml" 171 5068 5072 "src/unix/lwt_io.ml" 171 5068 5079
type(
  Outputs.t
)
ident(
  def outputs "src/unix/lwt_io.ml" 173 5101 5101 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 171 5068 5082 "src/unix/lwt_io.ml" 171 5068 5096
type(
  int -> Outputs.t
)
ident(
  ext_ref Outputs.create
)
"src/unix/lwt_io.ml" 171 5068 5097 "src/unix/lwt_io.ml" 171 5068 5099
type(
  int
)
"src/unix/lwt_io.ml" 171 5068 5082 "src/unix/lwt_io.ml" 171 5068 5099
call(
  stack
)
type(
  Outputs.t
)
"src/unix/lwt_io.ml" 173 5101 5105 "src/unix/lwt_io.ml" 173 5101 5113
type(
  'mode. 'mode channel -> int64
)
ident(
  def position "src/unix/lwt_io.ml" 181 5360 5360 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 173 5101 5155 "src/unix/lwt_io.ml" 173 5101 5162
type(
  mode channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 174 5166 5168 "src/unix/lwt_io.ml" 179 5309 5358
)
"src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
type(
  mode _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 175 5196 5198 "src/unix/lwt_io.ml" 179 5309 5358
)
"src/unix/lwt_io.ml" 174 5166 5177 "src/unix/lwt_io.ml" 174 5166 5184
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 173 5101 5155 "src/unix/lwt_io.ml" 173 5101 5162
)
"src/unix/lwt_io.ml" 174 5166 5177 "src/unix/lwt_io.ml" 174 5166 5192
type(
  mode _channel
)
"src/unix/lwt_io.ml" 175 5196 5204 "src/unix/lwt_io.ml" 175 5196 5206
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
)
"src/unix/lwt_io.ml" 175 5196 5204 "src/unix/lwt_io.ml" 175 5196 5211
type(
  mode mode
)
"src/unix/lwt_io.ml" 176 5217 5223 "src/unix/lwt_io.ml" 176 5217 5228
type(
  mode mode
)
"src/unix/lwt_io.ml" 177 5232 5240 "src/unix/lwt_io.ml" 177 5232 5249
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.sub
)
"src/unix/lwt_io.ml" 177 5232 5250 "src/unix/lwt_io.ml" 177 5232 5252
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
)
"src/unix/lwt_io.ml" 177 5232 5250 "src/unix/lwt_io.ml" 177 5232 5259
type(
  int64
)
"src/unix/lwt_io.ml" 177 5232 5261 "src/unix/lwt_io.ml" 177 5232 5273
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 177 5232 5275 "src/unix/lwt_io.ml" 177 5232 5277
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
)
"src/unix/lwt_io.ml" 177 5232 5275 "src/unix/lwt_io.ml" 177 5232 5281
type(
  int
)
"src/unix/lwt_io.ml" 177 5232 5282 "src/unix/lwt_io.ml" 177 5232 5283
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 177 5232 5284 "src/unix/lwt_io.ml" 177 5232 5286
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
)
"src/unix/lwt_io.ml" 177 5232 5284 "src/unix/lwt_io.ml" 177 5232 5290
type(
  int
)
"src/unix/lwt_io.ml" 177 5232 5274 "src/unix/lwt_io.ml" 177 5232 5291
type(
  int
)
"src/unix/lwt_io.ml" 177 5232 5260 "src/unix/lwt_io.ml" 177 5232 5292
type(
  int64
)
"src/unix/lwt_io.ml" 177 5232 5240 "src/unix/lwt_io.ml" 177 5232 5292
type(
  int64
)
"src/unix/lwt_io.ml" 178 5293 5299 "src/unix/lwt_io.ml" 178 5293 5305
type(
  mode mode
)
"src/unix/lwt_io.ml" 179 5309 5317 "src/unix/lwt_io.ml" 179 5309 5326
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.add
)
"src/unix/lwt_io.ml" 179 5309 5327 "src/unix/lwt_io.ml" 179 5309 5329
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
)
"src/unix/lwt_io.ml" 179 5309 5327 "src/unix/lwt_io.ml" 179 5309 5336
type(
  int64
)
"src/unix/lwt_io.ml" 179 5309 5338 "src/unix/lwt_io.ml" 179 5309 5350
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 179 5309 5351 "src/unix/lwt_io.ml" 179 5309 5353
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 174 5166 5172 "src/unix/lwt_io.ml" 174 5166 5174
)
"src/unix/lwt_io.ml" 179 5309 5351 "src/unix/lwt_io.ml" 179 5309 5357
type(
  int
)
"src/unix/lwt_io.ml" 179 5309 5337 "src/unix/lwt_io.ml" 179 5309 5358
type(
  int64
)
"src/unix/lwt_io.ml" 179 5309 5317 "src/unix/lwt_io.ml" 179 5309 5358
type(
  int64
)
"src/unix/lwt_io.ml" 175 5196 5198 "src/unix/lwt_io.ml" 179 5309 5358
type(
  int64
)
"src/unix/lwt_io.ml" 174 5166 5168 "src/unix/lwt_io.ml" 179 5309 5358
type(
  int64
)
"src/unix/lwt_io.ml" 173 5101 5151 "src/unix/lwt_io.ml" 179 5309 5358
type(
  mode channel -> int64
)
type(
  mode channel -> int64
)
"src/unix/lwt_io.ml" 173 5101 5105 "src/unix/lwt_io.ml" 179 5309 5358
type(
  'mode channel -> int64
)
"src/unix/lwt_io.ml" 181 5360 5364 "src/unix/lwt_io.ml" 181 5360 5368
type(
  'mode. 'mode _channel -> string
)
ident(
  def name "src/unix/lwt_io.ml" 186 5488 5488 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 181 5360 5412 "src/unix/lwt_io.ml" 181 5360 5414
type(
  mode _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 182 5418 5420 "src/unix/lwt_io.ml" 184 5462 5486
)
"src/unix/lwt_io.ml" 182 5418 5426 "src/unix/lwt_io.ml" 182 5418 5428
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 181 5360 5412 "src/unix/lwt_io.ml" 181 5360 5414
)
"src/unix/lwt_io.ml" 182 5418 5426 "src/unix/lwt_io.ml" 182 5418 5433
type(
  mode mode
)
"src/unix/lwt_io.ml" 183 5439 5445 "src/unix/lwt_io.ml" 183 5439 5450
type(
  mode mode
)
"src/unix/lwt_io.ml" 183 5439 5454 "src/unix/lwt_io.ml" 183 5439 5461
type(
  string
)
"src/unix/lwt_io.ml" 184 5462 5468 "src/unix/lwt_io.ml" 184 5462 5474
type(
  mode mode
)
"src/unix/lwt_io.ml" 184 5462 5478 "src/unix/lwt_io.ml" 184 5462 5486
type(
  string
)
"src/unix/lwt_io.ml" 182 5418 5420 "src/unix/lwt_io.ml" 184 5462 5486
type(
  string
)
"src/unix/lwt_io.ml" 181 5360 5408 "src/unix/lwt_io.ml" 184 5462 5486
type(
  mode _channel -> string
)
type(
  mode _channel -> string
)
"src/unix/lwt_io.ml" 181 5360 5364 "src/unix/lwt_io.ml" 184 5462 5486
type(
  'mode _channel -> string
)
"src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
type(
  'a _channel -> exn
)
ident(
  def closed_channel "src/unix/lwt_io.ml" 187 5536 5536 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 186 5488 5507 "src/unix/lwt_io.ml" 186 5488 5509
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 186 5488 5512 "src/unix/lwt_io.ml" 186 5488 5535
)
"src/unix/lwt_io.ml" 186 5488 5527 "src/unix/lwt_io.ml" 186 5488 5531
type(
  'a _channel -> string
)
ident(
  int_ref name "src/unix/lwt_io.ml" 181 5360 5364 "src/unix/lwt_io.ml" 181 5360 5368
)
"src/unix/lwt_io.ml" 186 5488 5532 "src/unix/lwt_io.ml" 186 5488 5534
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 186 5488 5507 "src/unix/lwt_io.ml" 186 5488 5509
)
"src/unix/lwt_io.ml" 186 5488 5526 "src/unix/lwt_io.ml" 186 5488 5535
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 186 5488 5512 "src/unix/lwt_io.ml" 186 5488 5535
type(
  exn
)
"src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
type(
  'a _channel -> exn
)
ident(
  def invalid_channel "src/unix/lwt_io.ml" 189 5640 5640 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 187 5536 5556 "src/unix/lwt_io.ml" 187 5536 5558
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 187 5536 5561 "src/unix/lwt_io.ml" 187 5536 5638
)
"src/unix/lwt_io.ml" 187 5536 5569 "src/unix/lwt_io.ml" 187 5536 5583
type(
  (string -> string, unit, string) format -> string -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 187 5536 5584 "src/unix/lwt_io.ml" 187 5536 5627
type(
  (string -> string, unit, string) format
)
"src/unix/lwt_io.ml" 187 5536 5629 "src/unix/lwt_io.ml" 187 5536 5633
type(
  'a _channel -> string
)
ident(
  int_ref name "src/unix/lwt_io.ml" 181 5360 5364 "src/unix/lwt_io.ml" 181 5360 5368
)
"src/unix/lwt_io.ml" 187 5536 5634 "src/unix/lwt_io.ml" 187 5536 5636
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 187 5536 5556 "src/unix/lwt_io.ml" 187 5536 5558
)
"src/unix/lwt_io.ml" 187 5536 5628 "src/unix/lwt_io.ml" 187 5536 5637
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 187 5536 5568 "src/unix/lwt_io.ml" 187 5536 5638
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 187 5536 5561 "src/unix/lwt_io.ml" 187 5536 5638
type(
  exn
)
"src/unix/lwt_io.ml" 189 5640 5644 "src/unix/lwt_io.ml" 189 5640 5651
type(
  'a channel -> bool
)
ident(
  def is_busy "src/unix/lwt_io.ml" 200 5965 5965 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 189 5640 5652 "src/unix/lwt_io.ml" 189 5640 5654
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 190 5657 5659 "src/unix/lwt_io.ml" 196 5835 5847
)
"src/unix/lwt_io.ml" 190 5657 5665 "src/unix/lwt_io.ml" 190 5657 5667
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 189 5640 5652 "src/unix/lwt_io.ml" 189 5640 5654
)
"src/unix/lwt_io.ml" 190 5657 5665 "src/unix/lwt_io.ml" 190 5657 5673
type(
  'a state
)
"src/unix/lwt_io.ml" 191 5679 5685 "src/unix/lwt_io.ml" 191 5679 5692
type(
  'a state
)
"src/unix/lwt_io.ml" 192 5696 5704 "src/unix/lwt_io.ml" 192 5696 5709
type(
  exn -> bool
)
ident(
  ext_ref Pervasives.raise
)
"src/unix/lwt_io.ml" 192 5696 5711 "src/unix/lwt_io.ml" 192 5696 5726
type(
  'a _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 192 5696 5727 "src/unix/lwt_io.ml" 192 5696 5729
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 189 5640 5652 "src/unix/lwt_io.ml" 189 5640 5654
)
"src/unix/lwt_io.ml" 192 5696 5727 "src/unix/lwt_io.ml" 192 5696 5737
type(
  'a _channel
)
"src/unix/lwt_io.ml" 192 5696 5710 "src/unix/lwt_io.ml" 192 5696 5738
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 192 5696 5704 "src/unix/lwt_io.ml" 192 5696 5738
type(
  bool
)
"src/unix/lwt_io.ml" 193 5739 5745 "src/unix/lwt_io.ml" 193 5739 5749
type(
  'a state
)
"src/unix/lwt_io.ml" 193 5739 5752 "src/unix/lwt_io.ml" 193 5739 5758
type(
  'a state
)
"src/unix/lwt_io.ml" 193 5739 5745 "src/unix/lwt_io.ml" 193 5739 5758
type(
  'a state
)
"src/unix/lwt_io.ml" 194 5762 5770 "src/unix/lwt_io.ml" 194 5762 5775
type(
  bool
)
"src/unix/lwt_io.ml" 195 5776 5782 "src/unix/lwt_io.ml" 195 5776 5796
type(
  'a state
)
"src/unix/lwt_io.ml" 195 5776 5811 "src/unix/lwt_io.ml" 195 5776 5812
type(
  'a channel
)
"src/unix/lwt_io.ml" 195 5776 5799 "src/unix/lwt_io.ml" 195 5776 5812
type(
  'a state
)
"src/unix/lwt_io.ml" 195 5776 5782 "src/unix/lwt_io.ml" 195 5776 5812
type(
  'a state
)
"src/unix/lwt_io.ml" 195 5776 5815 "src/unix/lwt_io.ml" 195 5776 5831
type(
  'a state
)
"src/unix/lwt_io.ml" 195 5776 5782 "src/unix/lwt_io.ml" 195 5776 5831
type(
  'a state
)
"src/unix/lwt_io.ml" 196 5835 5843 "src/unix/lwt_io.ml" 196 5835 5847
type(
  bool
)
"src/unix/lwt_io.ml" 190 5657 5659 "src/unix/lwt_io.ml" 196 5835 5847
type(
  bool
)
"src/unix/lwt_io.ml" 200 5965 5969 "src/unix/lwt_io.ml" 200 5965 5979
type(
  'mode. 'mode _channel -> int Lwt.t
)
ident(
  def perform_io "src/unix/lwt_io.ml" 265 8504 8504 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
type(
  mode _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 200 5965 6032 "src/unix/lwt_io.ml" 263 8484 8502
)
"src/unix/lwt_io.ml" 200 5965 6038 "src/unix/lwt_io.ml" 200 5965 6040
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 200 5965 6038 "src/unix/lwt_io.ml" 200 5965 6045
type(
  mode channel
)
"src/unix/lwt_io.ml" 200 5965 6038 "src/unix/lwt_io.ml" 200 5965 6051
type(
  mode state
)
"src/unix/lwt_io.ml" 201 6057 6061 "src/unix/lwt_io.ml" 201 6057 6075
type(
  mode state
)
"src/unix/lwt_io.ml" 201 6057 6090 "src/unix/lwt_io.ml" 201 6057 6091
type(
  mode channel
)
"src/unix/lwt_io.ml" 201 6057 6078 "src/unix/lwt_io.ml" 201 6057 6091
type(
  mode state
)
"src/unix/lwt_io.ml" 201 6057 6061 "src/unix/lwt_io.ml" 201 6057 6091
type(
  mode state
)
"src/unix/lwt_io.ml" 202 6101 6113 "src/unix/lwt_io.ml" 202 6101 6115
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 202 6101 6113 "src/unix/lwt_io.ml" 202 6101 6119
type(
  typ
)
"src/unix/lwt_io.ml" 203 6125 6147 "src/unix/lwt_io.ml" 203 6125 6157
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  def perform_io "src/unix/lwt_io.ml" 204 6165 6177 "src/unix/lwt_io.ml" 245 8076 8091
)
"src/unix/lwt_io.ml" 203 6125 6159 "src/unix/lwt_io.ml" 203 6125 6160
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 203 6125 6135 "src/unix/lwt_io.ml" 203 6125 6161
type(
  typ
)
"src/unix/lwt_io.ml" 204 6165 6181 "src/unix/lwt_io.ml" 204 6165 6184
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 216 6710 6722 "src/unix/lwt_io.ml" 245 8076 8091
)
"src/unix/lwt_io.ml" 204 6165 6186 "src/unix/lwt_io.ml" 204 6165 6189
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 216 6710 6722 "src/unix/lwt_io.ml" 245 8076 8091
)
"src/unix/lwt_io.ml" 204 6165 6181 "src/unix/lwt_io.ml" 204 6165 6189
type(
  int * int
)
"src/unix/lwt_io.ml" 204 6165 6198 "src/unix/lwt_io.ml" 204 6165 6200
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 204 6165 6198 "src/unix/lwt_io.ml" 204 6165 6205
type(
  mode mode
)
"src/unix/lwt_io.ml" 205 6211 6227 "src/unix/lwt_io.ml" 205 6211 6232
type(
  mode mode
)
"src/unix/lwt_io.ml" 207 6287 6309 "src/unix/lwt_io.ml" 207 6287 6313
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 209 6409 6427 "src/unix/lwt_io.ml" 213 6608 6650
)
"src/unix/lwt_io.ml" 207 6287 6316 "src/unix/lwt_io.ml" 207 6287 6318
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 207 6287 6316 "src/unix/lwt_io.ml" 207 6287 6322
type(
  int
)
"src/unix/lwt_io.ml" 207 6287 6323 "src/unix/lwt_io.ml" 207 6287 6324
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 207 6287 6325 "src/unix/lwt_io.ml" 207 6287 6327
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 207 6287 6325 "src/unix/lwt_io.ml" 207 6287 6331
type(
  int
)
"src/unix/lwt_io.ml" 207 6287 6316 "src/unix/lwt_io.ml" 207 6287 6331
type(
  int
)
"src/unix/lwt_io.ml" 209 6409 6430 "src/unix/lwt_io.ml" 209 6409 6434
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 207 6287 6309 "src/unix/lwt_io.ml" 207 6287 6313
)
"src/unix/lwt_io.ml" 209 6409 6435 "src/unix/lwt_io.ml" 209 6409 6436
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 209 6409 6437 "src/unix/lwt_io.ml" 209 6409 6438
type(
  int
)
"src/unix/lwt_io.ml" 209 6409 6430 "src/unix/lwt_io.ml" 209 6409 6438
type(
  bool
)
"src/unix/lwt_io.ml" 209 6409 6444 "src/unix/lwt_io.ml" 209 6409 6465
type(
  Lwt_bytes.t -> int -> Lwt_bytes.t -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit
)
"src/unix/lwt_io.ml" 209 6409 6466 "src/unix/lwt_io.ml" 209 6409 6468
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 209 6409 6466 "src/unix/lwt_io.ml" 209 6409 6475
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 209 6409 6476 "src/unix/lwt_io.ml" 209 6409 6478
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 209 6409 6476 "src/unix/lwt_io.ml" 209 6409 6482
type(
  int
)
"src/unix/lwt_io.ml" 209 6409 6483 "src/unix/lwt_io.ml" 209 6409 6485
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 209 6409 6483 "src/unix/lwt_io.ml" 209 6409 6492
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 209 6409 6493 "src/unix/lwt_io.ml" 209 6409 6494
type(
  int
)
"src/unix/lwt_io.ml" 209 6409 6495 "src/unix/lwt_io.ml" 209 6409 6499
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 207 6287 6309 "src/unix/lwt_io.ml" 207 6287 6313
)
"src/unix/lwt_io.ml" 209 6409 6444 "src/unix/lwt_io.ml" 209 6409 6499
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 209 6409 6427 "src/unix/lwt_io.ml" 209 6409 6499
type(
  unit
)
"src/unix/lwt_io.ml" 211 6543 6561 "src/unix/lwt_io.ml" 211 6543 6563
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 211 6543 6571 "src/unix/lwt_io.ml" 211 6543 6572
type(
  int
)
"src/unix/lwt_io.ml" 211 6543 6561 "src/unix/lwt_io.ml" 211 6543 6572
type(
  unit
)
"src/unix/lwt_io.ml" 212 6574 6592 "src/unix/lwt_io.ml" 212 6574 6594
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 212 6574 6602 "src/unix/lwt_io.ml" 212 6574 6606
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 207 6287 6309 "src/unix/lwt_io.ml" 207 6287 6313
)
"src/unix/lwt_io.ml" 212 6574 6592 "src/unix/lwt_io.ml" 212 6574 6606
type(
  unit
)
"src/unix/lwt_io.ml" 213 6608 6627 "src/unix/lwt_io.ml" 213 6608 6631
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 207 6287 6309 "src/unix/lwt_io.ml" 207 6287 6313
)
"src/unix/lwt_io.ml" 213 6608 6633 "src/unix/lwt_io.ml" 213 6608 6635
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 213 6608 6633 "src/unix/lwt_io.ml" 213 6608 6642
type(
  int
)
"src/unix/lwt_io.ml" 213 6608 6643 "src/unix/lwt_io.ml" 213 6608 6644
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 213 6608 6645 "src/unix/lwt_io.ml" 213 6608 6649
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 207 6287 6309 "src/unix/lwt_io.ml" 207 6287 6313
)
"src/unix/lwt_io.ml" 213 6608 6633 "src/unix/lwt_io.ml" 213 6608 6649
type(
  int
)
"src/unix/lwt_io.ml" 213 6608 6626 "src/unix/lwt_io.ml" 213 6608 6650
type(
  int * int
)
"src/unix/lwt_io.ml" 212 6574 6592 "src/unix/lwt_io.ml" 213 6608 6650
type(
  int * int
)
"src/unix/lwt_io.ml" 211 6543 6561 "src/unix/lwt_io.ml" 213 6608 6650
type(
  int * int
)
"src/unix/lwt_io.ml" 209 6409 6427 "src/unix/lwt_io.ml" 213 6608 6650
type(
  int * int
)
"src/unix/lwt_io.ml" 207 6287 6305 "src/unix/lwt_io.ml" 213 6608 6650
type(
  int * int
)
"src/unix/lwt_io.ml" 214 6651 6667 "src/unix/lwt_io.ml" 214 6651 6673
type(
  mode mode
)
"src/unix/lwt_io.ml" 215 6677 6696 "src/unix/lwt_io.ml" 215 6677 6697
type(
  int
)
"src/unix/lwt_io.ml" 215 6677 6699 "src/unix/lwt_io.ml" 215 6677 6701
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 215 6677 6699 "src/unix/lwt_io.ml" 215 6677 6705
type(
  int
)
"src/unix/lwt_io.ml" 215 6677 6695 "src/unix/lwt_io.ml" 215 6677 6706
type(
  int * int
)
"src/unix/lwt_io.ml" 204 6165 6192 "src/unix/lwt_io.ml" 215 6677 6706
type(
  int * int
)
"src/unix/lwt_io.ml" 216 6710 6722 "src/unix/lwt_io.ml" 216 6710 6730
type(
  int Lwt.t list -> int Lwt.t
)
ident(
  ext_ref Lwt.pick
)
"src/unix/lwt_io.ml" 216 6710 6732 "src/unix/lwt_io.ml" 216 6710 6734
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 216 6710 6732 "src/unix/lwt_io.ml" 216 6710 6747
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 217 6749 6774 "src/unix/lwt_io.ml" 217 6749 6783
type(
  bool
)
ident(
  ext_ref Sys.win32
)
"src/unix/lwt_io.ml" 218 6789 6813 "src/unix/lwt_io.ml" 218 6789 6822
type(
  (unit -> int Lwt.t) -> (exn -> int Lwt.t) -> int Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 219 6823 6854 "src/unix/lwt_io.ml" 219 6823 6856
type(
  unit
)
"src/unix/lwt_io.ml" 219 6823 6860 "src/unix/lwt_io.ml" 219 6823 6870
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 203 6125 6147 "src/unix/lwt_io.ml" 203 6125 6157
)
"src/unix/lwt_io.ml" 219 6823 6871 "src/unix/lwt_io.ml" 219 6823 6873
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 219 6823 6871 "src/unix/lwt_io.ml" 219 6823 6880
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 219 6823 6881 "src/unix/lwt_io.ml" 219 6823 6884
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 204 6165 6181 "src/unix/lwt_io.ml" 204 6165 6184
)
"src/unix/lwt_io.ml" 219 6823 6885 "src/unix/lwt_io.ml" 219 6823 6888
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 204 6165 6186 "src/unix/lwt_io.ml" 204 6165 6189
)
"src/unix/lwt_io.ml" 219 6823 6860 "src/unix/lwt_io.ml" 219 6823 6888
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 219 6823 6849 "src/unix/lwt_io.ml" 219 6823 6889
type(
  unit -> int Lwt.t
)
"src/unix/lwt_io.ml" 221 6926 6971 "src/unix/lwt_io.ml" 221 6926 6981
type(
  Unix.error
)
"src/unix/lwt_io.ml" 221 6926 6983 "src/unix/lwt_io.ml" 221 6926 6984
type(
  string
)
"src/unix/lwt_io.ml" 221 6926 6986 "src/unix/lwt_io.ml" 221 6926 6987
type(
  string
)
"src/unix/lwt_io.ml" 221 6926 6954 "src/unix/lwt_io.ml" 221 6926 6988
type(
  exn
)
"src/unix/lwt_io.ml" 222 6992 7020 "src/unix/lwt_io.ml" 222 6992 7030
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 222 6992 7031 "src/unix/lwt_io.ml" 222 6992 7032
type(
  int
)
"src/unix/lwt_io.ml" 222 6992 7020 "src/unix/lwt_io.ml" 222 6992 7032
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 223 7033 7061 "src/unix/lwt_io.ml" 223 7033 7064
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 223 7033 7068 "src/unix/lwt_io.ml" 223 7033 7080
)
"src/unix/lwt_io.ml" 223 7033 7068 "src/unix/lwt_io.ml" 223 7033 7076
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 223 7033 7077 "src/unix/lwt_io.ml" 223 7033 7080
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 223 7033 7061 "src/unix/lwt_io.ml" 223 7033 7064
)
"src/unix/lwt_io.ml" 223 7033 7068 "src/unix/lwt_io.ml" 223 7033 7080
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 220 6890 6916 "src/unix/lwt_io.ml" 223 7033 7081
type(
  exn -> int Lwt.t
)
"src/unix/lwt_io.ml" 218 6789 6813 "src/unix/lwt_io.ml" 223 7033 7081
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 225 7131 7155 "src/unix/lwt_io.ml" 225 7131 7165
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 203 6125 6147 "src/unix/lwt_io.ml" 203 6125 6157
)
"src/unix/lwt_io.ml" 225 7131 7166 "src/unix/lwt_io.ml" 225 7131 7168
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 225 7131 7166 "src/unix/lwt_io.ml" 225 7131 7175
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 225 7131 7176 "src/unix/lwt_io.ml" 225 7131 7179
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 204 6165 6181 "src/unix/lwt_io.ml" 204 6165 6184
)
"src/unix/lwt_io.ml" 225 7131 7180 "src/unix/lwt_io.ml" 225 7131 7183
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 204 6165 6186 "src/unix/lwt_io.ml" 204 6165 6189
)
"src/unix/lwt_io.ml" 225 7131 7155 "src/unix/lwt_io.ml" 225 7131 7183
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 217 6749 6771 "src/unix/lwt_io.ml" 225 7131 7183
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 216 6710 6731 "src/unix/lwt_io.ml" 226 7184 7206
type(
  int Lwt.t list
)
"src/unix/lwt_io.ml" 216 6710 6722 "src/unix/lwt_io.ml" 226 7184 7206
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 226 7184 7207 "src/unix/lwt_io.ml" 226 7184 7210
type(
  int Lwt.t -> (int -> int Lwt.t) -> int Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
type(
  int
)
ident(
  def n "src/unix/lwt_io.ml" 228 7268 7280 "src/unix/lwt_io.ml" 245 8076 8091
)
"src/unix/lwt_io.ml" 228 7268 7283 "src/unix/lwt_io.ml" 228 7268 7284
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 228 7268 7285 "src/unix/lwt_io.ml" 228 7268 7286
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 228 7268 7287 "src/unix/lwt_io.ml" 228 7268 7288
type(
  int
)
"src/unix/lwt_io.ml" 228 7268 7283 "src/unix/lwt_io.ml" 228 7268 7288
type(
  bool
)
"src/unix/lwt_io.ml" 228 7268 7289 "src/unix/lwt_io.ml" 228 7268 7291
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 228 7268 7292 "src/unix/lwt_io.ml" 228 7268 7293
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 228 7268 7294 "src/unix/lwt_io.ml" 228 7268 7295
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 228 7268 7296 "src/unix/lwt_io.ml" 228 7268 7299
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 204 6165 6186 "src/unix/lwt_io.ml" 204 6165 6189
)
"src/unix/lwt_io.ml" 228 7268 7292 "src/unix/lwt_io.ml" 228 7268 7299
type(
  bool
)
"src/unix/lwt_io.ml" 228 7268 7283 "src/unix/lwt_io.ml" 228 7268 7299
type(
  bool
)
"src/unix/lwt_io.ml" 229 7305 7319 "src/unix/lwt_io.ml" 229 7305 7327
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 229 7305 7338 "src/unix/lwt_io.ml" 229 7305 7352
type(
  (string -> int -> int -> string, unit, string) format ->
  string -> int -> int -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 229 7305 7353 "src/unix/lwt_io.ml" 229 7305 7420
type(
  (string -> int -> int -> string, unit, string) format
)
"src/unix/lwt_io.ml" 230 7421 7464 "src/unix/lwt_io.ml" 230 7421 7466
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 230 7421 7464 "src/unix/lwt_io.ml" 230 7421 7471
type(
  mode mode
)
"src/unix/lwt_io.ml" 230 7421 7477 "src/unix/lwt_io.ml" 230 7421 7482
type(
  mode mode
)
"src/unix/lwt_io.ml" 230 7421 7486 "src/unix/lwt_io.ml" 230 7421 7492
type(
  string
)
"src/unix/lwt_io.ml" 230 7421 7495 "src/unix/lwt_io.ml" 230 7421 7501
type(
  mode mode
)
"src/unix/lwt_io.ml" 230 7421 7505 "src/unix/lwt_io.ml" 230 7421 7512
type(
  string
)
"src/unix/lwt_io.ml" 230 7421 7457 "src/unix/lwt_io.ml" 230 7421 7513
type(
  string
)
"src/unix/lwt_io.ml" 230 7421 7514 "src/unix/lwt_io.ml" 230 7421 7517
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 204 6165 6186 "src/unix/lwt_io.ml" 204 6165 6189
)
"src/unix/lwt_io.ml" 230 7421 7518 "src/unix/lwt_io.ml" 230 7421 7519
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 229 7305 7337 "src/unix/lwt_io.ml" 230 7421 7520
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 229 7305 7328 "src/unix/lwt_io.ml" 230 7421 7521
type(
  exn
)
"src/unix/lwt_io.ml" 229 7305 7319 "src/unix/lwt_io.ml" 230 7421 7521
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 233 7591 7605 "src/unix/lwt_io.ml" 233 7591 7607
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 233 7591 7618 "src/unix/lwt_io.ml" 233 7591 7627
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.add
)
"src/unix/lwt_io.ml" 233 7591 7628 "src/unix/lwt_io.ml" 233 7591 7630
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 233 7591 7628 "src/unix/lwt_io.ml" 233 7591 7637
type(
  int64
)
"src/unix/lwt_io.ml" 233 7591 7639 "src/unix/lwt_io.ml" 233 7591 7651
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 233 7591 7652 "src/unix/lwt_io.ml" 233 7591 7653
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 233 7591 7638 "src/unix/lwt_io.ml" 233 7591 7654
type(
  int64
)
"src/unix/lwt_io.ml" 233 7591 7618 "src/unix/lwt_io.ml" 233 7591 7654
type(
  int64
)
"src/unix/lwt_io.ml" 233 7591 7605 "src/unix/lwt_io.ml" 233 7591 7654
type(
  unit
)
"src/unix/lwt_io.ml" 235 7701 7727 "src/unix/lwt_io.ml" 235 7701 7729
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 235 7701 7727 "src/unix/lwt_io.ml" 235 7701 7734
type(
  mode mode
)
"src/unix/lwt_io.ml" 236 7740 7758 "src/unix/lwt_io.ml" 236 7740 7763
type(
  mode mode
)
"src/unix/lwt_io.ml" 237 7767 7787 "src/unix/lwt_io.ml" 237 7767 7789
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 237 7767 7797 "src/unix/lwt_io.ml" 237 7767 7799
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 237 7767 7797 "src/unix/lwt_io.ml" 237 7767 7803
type(
  int
)
"src/unix/lwt_io.ml" 237 7767 7804 "src/unix/lwt_io.ml" 237 7767 7805
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 237 7767 7806 "src/unix/lwt_io.ml" 237 7767 7807
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 237 7767 7797 "src/unix/lwt_io.ml" 237 7767 7807
type(
  int
)
"src/unix/lwt_io.ml" 237 7767 7787 "src/unix/lwt_io.ml" 237 7767 7807
type(
  unit
)
"src/unix/lwt_io.ml" 238 7808 7826 "src/unix/lwt_io.ml" 238 7808 7832
type(
  mode mode
)
"src/unix/lwt_io.ml" 240 7884 7908 "src/unix/lwt_io.ml" 240 7884 7911
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 241 7925 7945 "src/unix/lwt_io.ml" 242 7996 8029
)
"src/unix/lwt_io.ml" 240 7884 7914 "src/unix/lwt_io.ml" 240 7884 7917
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 204 6165 6186 "src/unix/lwt_io.ml" 204 6165 6189
)
"src/unix/lwt_io.ml" 240 7884 7918 "src/unix/lwt_io.ml" 240 7884 7919
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 240 7884 7920 "src/unix/lwt_io.ml" 240 7884 7921
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 240 7884 7914 "src/unix/lwt_io.ml" 240 7884 7921
type(
  int
)
"src/unix/lwt_io.ml" 241 7925 7945 "src/unix/lwt_io.ml" 241 7925 7966
type(
  Lwt_bytes.t -> int -> Lwt_bytes.t -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit
)
"src/unix/lwt_io.ml" 241 7925 7967 "src/unix/lwt_io.ml" 241 7925 7969
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 241 7925 7967 "src/unix/lwt_io.ml" 241 7925 7976
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 241 7925 7977 "src/unix/lwt_io.ml" 241 7925 7978
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 241 7925 7979 "src/unix/lwt_io.ml" 241 7925 7981
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 241 7925 7979 "src/unix/lwt_io.ml" 241 7925 7988
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 241 7925 7989 "src/unix/lwt_io.ml" 241 7925 7990
type(
  int
)
"src/unix/lwt_io.ml" 241 7925 7991 "src/unix/lwt_io.ml" 241 7925 7994
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 240 7884 7908 "src/unix/lwt_io.ml" 240 7884 7911
)
"src/unix/lwt_io.ml" 241 7925 7945 "src/unix/lwt_io.ml" 241 7925 7994
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 242 7996 8016 "src/unix/lwt_io.ml" 242 7996 8018
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 242 7996 8026 "src/unix/lwt_io.ml" 242 7996 8029
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 240 7884 7908 "src/unix/lwt_io.ml" 240 7884 7911
)
"src/unix/lwt_io.ml" 242 7996 8016 "src/unix/lwt_io.ml" 242 7996 8029
type(
  unit
)
"src/unix/lwt_io.ml" 241 7925 7945 "src/unix/lwt_io.ml" 242 7996 8029
type(
  unit
)
"src/unix/lwt_io.ml" 240 7884 7904 "src/unix/lwt_io.ml" 242 7996 8029
type(
  unit
)
"src/unix/lwt_io.ml" 235 7701 7715 "src/unix/lwt_io.ml" 243 8030 8047
type(
  unit
)
"src/unix/lwt_io.ml" 244 8049 8063 "src/unix/lwt_io.ml" 244 8049 8073
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 244 8049 8074 "src/unix/lwt_io.ml" 244 8049 8075
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 226 7184 7215 "src/unix/lwt_io.ml" 226 7184 7216
)
"src/unix/lwt_io.ml" 244 8049 8063 "src/unix/lwt_io.ml" 244 8049 8075
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 235 7701 7715 "src/unix/lwt_io.ml" 244 8049 8075
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 231 7522 7539 "src/unix/lwt_io.ml" 245 8076 8091
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 228 7268 7280 "src/unix/lwt_io.ml" 245 8076 8091
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 226 7184 7211 "src/unix/lwt_io.ml" 245 8076 8091
type(
  int -> int Lwt.t
)
"src/unix/lwt_io.ml" 216 6710 6722 "src/unix/lwt_io.ml" 245 8076 8091
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 204 6165 6177 "src/unix/lwt_io.ml" 245 8076 8091
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 247 8093 8103 "src/unix/lwt_io.ml" 247 8093 8113
type(
  typ
)
"src/unix/lwt_io.ml" 248 8123 8141 "src/unix/lwt_io.ml" 248 8123 8143
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 248 8123 8141 "src/unix/lwt_io.ml" 248 8123 8148
type(
  mode mode
)
"src/unix/lwt_io.ml" 249 8154 8170 "src/unix/lwt_io.ml" 249 8154 8175
type(
  mode mode
)
"src/unix/lwt_io.ml" 250 8179 8197 "src/unix/lwt_io.ml" 250 8179 8207
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 250 8179 8208 "src/unix/lwt_io.ml" 250 8179 8209
type(
  int
)
"src/unix/lwt_io.ml" 250 8179 8197 "src/unix/lwt_io.ml" 250 8179 8209
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 251 8210 8226 "src/unix/lwt_io.ml" 251 8210 8232
type(
  mode mode
)
"src/unix/lwt_io.ml" 252 8236 8254 "src/unix/lwt_io.ml" 252 8236 8262
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 252 8236 8272 "src/unix/lwt_io.ml" 252 8236 8326
type(
  string
)
"src/unix/lwt_io.ml" 252 8236 8263 "src/unix/lwt_io.ml" 252 8236 8327
type(
  exn
)
"src/unix/lwt_io.ml" 252 8236 8254 "src/unix/lwt_io.ml" 252 8236 8327
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 247 8093 8117 "src/unix/lwt_io.ml" 253 8328 8341
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 201 6057 6095 "src/unix/lwt_io.ml" 254 8342 8349
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 256 8351 8355 "src/unix/lwt_io.ml" 256 8351 8361
type(
  mode state
)
"src/unix/lwt_io.ml" 257 8365 8371 "src/unix/lwt_io.ml" 257 8365 8379
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 257 8365 8381 "src/unix/lwt_io.ml" 257 8365 8395
type(
  mode _channel -> exn
)
ident(
  int_ref closed_channel "src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
)
"src/unix/lwt_io.ml" 257 8365 8396 "src/unix/lwt_io.ml" 257 8365 8398
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 257 8365 8380 "src/unix/lwt_io.ml" 257 8365 8399
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 257 8365 8371 "src/unix/lwt_io.ml" 257 8365 8399
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 259 8401 8405 "src/unix/lwt_io.ml" 259 8401 8412
type(
  mode state
)
"src/unix/lwt_io.ml" 260 8416 8422 "src/unix/lwt_io.ml" 260 8416 8430
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 260 8416 8432 "src/unix/lwt_io.ml" 260 8416 8447
type(
  mode _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 260 8416 8448 "src/unix/lwt_io.ml" 260 8416 8450
type(
  mode _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 200 5965 6026 "src/unix/lwt_io.ml" 200 5965 6028
)
"src/unix/lwt_io.ml" 260 8416 8431 "src/unix/lwt_io.ml" 260 8416 8451
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 260 8416 8422 "src/unix/lwt_io.ml" 260 8416 8451
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 262 8453 8457 "src/unix/lwt_io.ml" 262 8453 8461
type(
  mode state
)
"src/unix/lwt_io.ml" 262 8453 8464 "src/unix/lwt_io.ml" 262 8453 8480
type(
  mode state
)
"src/unix/lwt_io.ml" 262 8453 8457 "src/unix/lwt_io.ml" 262 8453 8480
type(
  mode state
)
"src/unix/lwt_io.ml" 263 8484 8497 "src/unix/lwt_io.ml" 263 8484 8502
type(
  bool
)
"src/unix/lwt_io.ml" 263 8484 8490 "src/unix/lwt_io.ml" 263 8484 8502
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 200 5965 6032 "src/unix/lwt_io.ml" 263 8484 8502
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 200 5965 6022 "src/unix/lwt_io.ml" 263 8484 8502
type(
  mode _channel -> int Lwt.t
)
type(
  mode _channel -> int Lwt.t
)
"src/unix/lwt_io.ml" 200 5965 5969 "src/unix/lwt_io.ml" 263 8484 8502
type(
  'mode _channel -> int Lwt.t
)
"src/unix/lwt_io.ml" 265 8504 8508 "src/unix/lwt_io.ml" 265 8504 8514
type(
  'a _channel -> int Lwt.t
)
ident(
  def refill "src/unix/lwt_io.ml" 266 8528 8528 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 265 8504 8517 "src/unix/lwt_io.ml" 265 8504 8527
type(
  'a _channel -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 200 5965 5969 "src/unix/lwt_io.ml" 200 5965 5979
)
"src/unix/lwt_io.ml" 266 8528 8532 "src/unix/lwt_io.ml" 266 8528 8545
type(
  'a _channel -> int Lwt.t
)
ident(
  def flush_partial "src/unix/lwt_io.ml" 268 8560 8560 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 266 8528 8548 "src/unix/lwt_io.ml" 266 8528 8558
type(
  'a _channel -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 200 5965 5969 "src/unix/lwt_io.ml" 200 5965 5979
)
"src/unix/lwt_io.ml" 268 8560 8568 "src/unix/lwt_io.ml" 268 8560 8579
type(
  'a _channel -> unit Lwt.t
)
ident(
  def flush_total "src/unix/lwt_io.ml" 268 8560 8560 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 268 8560 8580 "src/unix/lwt_io.ml" 268 8560 8582
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 269 8585 8587 "src/unix/lwt_io.ml" 273 8666 8685
)
"src/unix/lwt_io.ml" 269 8585 8590 "src/unix/lwt_io.ml" 269 8585 8592
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 268 8560 8580 "src/unix/lwt_io.ml" 268 8560 8582
)
"src/unix/lwt_io.ml" 269 8585 8590 "src/unix/lwt_io.ml" 269 8585 8596
type(
  int
)
"src/unix/lwt_io.ml" 269 8585 8597 "src/unix/lwt_io.ml" 269 8585 8598
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 269 8585 8599 "src/unix/lwt_io.ml" 269 8585 8600
type(
  int
)
"src/unix/lwt_io.ml" 269 8585 8590 "src/unix/lwt_io.ml" 269 8585 8600
type(
  bool
)
"src/unix/lwt_io.ml" 270 8606 8610 "src/unix/lwt_io.ml" 270 8606 8623
type(
  'a _channel -> int Lwt.t
)
ident(
  int_ref flush_partial "src/unix/lwt_io.ml" 266 8528 8532 "src/unix/lwt_io.ml" 266 8528 8545
)
"src/unix/lwt_io.ml" 270 8606 8624 "src/unix/lwt_io.ml" 270 8606 8626
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 268 8560 8580 "src/unix/lwt_io.ml" 268 8560 8582
)
"src/unix/lwt_io.ml" 270 8606 8610 "src/unix/lwt_io.ml" 270 8606 8626
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 270 8606 8627 "src/unix/lwt_io.ml" 270 8606 8630
type(
  int Lwt.t -> (int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 270 8606 8635 "src/unix/lwt_io.ml" 270 8606 8636
type(
  int
)
"src/unix/lwt_io.ml" 271 8640 8644 "src/unix/lwt_io.ml" 271 8640 8655
type(
  'a _channel -> unit Lwt.t
)
ident(
  int_ref flush_total "src/unix/lwt_io.ml" 268 8560 8568 "src/unix/lwt_io.ml" 268 8560 8579
)
"src/unix/lwt_io.ml" 271 8640 8656 "src/unix/lwt_io.ml" 271 8640 8658
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 268 8560 8580 "src/unix/lwt_io.ml" 268 8560 8582
)
"src/unix/lwt_io.ml" 271 8640 8644 "src/unix/lwt_io.ml" 271 8640 8658
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 270 8606 8631 "src/unix/lwt_io.ml" 271 8640 8658
type(
  int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 270 8606 8610 "src/unix/lwt_io.ml" 271 8640 8658
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 273 8666 8670 "src/unix/lwt_io.ml" 273 8666 8685
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 269 8585 8587 "src/unix/lwt_io.ml" 273 8666 8685
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 275 8687 8691 "src/unix/lwt_io.ml" 275 8687 8707
type(
  'a _channel -> unit Lwt.t
)
ident(
  def safe_flush_total "src/unix/lwt_io.ml" 280 8789 8789 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 275 8687 8708 "src/unix/lwt_io.ml" 275 8687 8710
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 276 8713 8715 "src/unix/lwt_io.ml" 278 8756 8787
)
"src/unix/lwt_io.ml" 276 8713 8715 "src/unix/lwt_io.ml" 276 8713 8724
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 277 8725 8734 "src/unix/lwt_io.ml" 277 8725 8736
type(
  unit
)
"src/unix/lwt_io.ml" 277 8725 8740 "src/unix/lwt_io.ml" 277 8725 8751
type(
  'a _channel -> unit Lwt.t
)
ident(
  int_ref flush_total "src/unix/lwt_io.ml" 268 8560 8568 "src/unix/lwt_io.ml" 268 8560 8579
)
"src/unix/lwt_io.ml" 277 8725 8752 "src/unix/lwt_io.ml" 277 8725 8754
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 275 8687 8708 "src/unix/lwt_io.ml" 275 8687 8710
)
"src/unix/lwt_io.ml" 277 8725 8740 "src/unix/lwt_io.ml" 277 8725 8754
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 277 8725 8729 "src/unix/lwt_io.ml" 277 8725 8755
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 278 8756 8765 "src/unix/lwt_io.ml" 278 8756 8766
type(
  exn
)
"src/unix/lwt_io.ml" 278 8756 8771 "src/unix/lwt_io.ml" 278 8756 8786
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 278 8756 8760 "src/unix/lwt_io.ml" 278 8756 8787
type(
  exn -> unit Lwt.t
)
"src/unix/lwt_io.ml" 276 8713 8715 "src/unix/lwt_io.ml" 278 8756 8787
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 280 8789 8793 "src/unix/lwt_io.ml" 280 8789 8808
type(
  'a _channel -> 'a channel
)
ident(
  def deepest_wrapper "src/unix/lwt_io.ml" 290 9032 9032 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 280 8789 8809 "src/unix/lwt_io.ml" 280 8789 8811
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 281 8814 8816 "src/unix/lwt_io.ml" 288 9016 9030
)
"src/unix/lwt_io.ml" 281 8814 8824 "src/unix/lwt_io.ml" 281 8814 8828
type(
  'b channel -> 'b channel
)
ident(
  def loop "src/unix/lwt_io.ml" 281 8814 8816 "src/unix/lwt_io.ml" 288 9016 9030
)
"src/unix/lwt_io.ml" 281 8814 8829 "src/unix/lwt_io.ml" 281 8814 8836
type(
  'b channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 282 8839 8843 "src/unix/lwt_io.ml" 286 8993 9010
)
"src/unix/lwt_io.ml" 282 8839 8849 "src/unix/lwt_io.ml" 282 8839 8856
type(
  'b channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 281 8814 8829 "src/unix/lwt_io.ml" 281 8814 8836
)
"src/unix/lwt_io.ml" 282 8839 8849 "src/unix/lwt_io.ml" 282 8839 8862
type(
  'b state
)
"src/unix/lwt_io.ml" 283 8868 8888 "src/unix/lwt_io.ml" 283 8868 8895
type(
  'b channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 284 8899 8909 "src/unix/lwt_io.ml" 284 8899 8921
)
"src/unix/lwt_io.ml" 283 8868 8876 "src/unix/lwt_io.ml" 283 8868 8895
type(
  'b state
)
"src/unix/lwt_io.ml" 284 8899 8909 "src/unix/lwt_io.ml" 284 8899 8913
type(
  'b channel -> 'b channel
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 281 8814 8824 "src/unix/lwt_io.ml" 281 8814 8828
)
"src/unix/lwt_io.ml" 284 8899 8914 "src/unix/lwt_io.ml" 284 8899 8921
type(
  'b channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 283 8868 8888 "src/unix/lwt_io.ml" 283 8868 8895
)
"src/unix/lwt_io.ml" 284 8899 8909 "src/unix/lwt_io.ml" 284 8899 8921
call(
  tail
)
type(
  'b channel
)
"src/unix/lwt_io.ml" 285 8922 8930 "src/unix/lwt_io.ml" 285 8922 8944
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8947 "src/unix/lwt_io.ml" 285 8922 8963
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8930 "src/unix/lwt_io.ml" 285 8922 8963
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8966 "src/unix/lwt_io.ml" 285 8922 8970
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8930 "src/unix/lwt_io.ml" 285 8922 8970
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8973 "src/unix/lwt_io.ml" 285 8922 8979
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8930 "src/unix/lwt_io.ml" 285 8922 8979
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8982 "src/unix/lwt_io.ml" 285 8922 8989
type(
  'b state
)
"src/unix/lwt_io.ml" 285 8922 8930 "src/unix/lwt_io.ml" 285 8922 8989
type(
  'b state
)
"src/unix/lwt_io.ml" 286 8993 9003 "src/unix/lwt_io.ml" 286 8993 9010
type(
  'b channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 281 8814 8829 "src/unix/lwt_io.ml" 281 8814 8836
)
"src/unix/lwt_io.ml" 282 8839 8843 "src/unix/lwt_io.ml" 286 8993 9010
type(
  'b channel
)
"src/unix/lwt_io.ml" 288 9016 9018 "src/unix/lwt_io.ml" 288 9016 9022
type(
  'a channel -> 'a channel
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 281 8814 8824 "src/unix/lwt_io.ml" 281 8814 8828
)
"src/unix/lwt_io.ml" 288 9016 9023 "src/unix/lwt_io.ml" 288 9016 9025
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 280 8789 8809 "src/unix/lwt_io.ml" 280 8789 8811
)
"src/unix/lwt_io.ml" 288 9016 9023 "src/unix/lwt_io.ml" 288 9016 9030
type(
  'a channel
)
"src/unix/lwt_io.ml" 288 9016 9018 "src/unix/lwt_io.ml" 288 9016 9030
call(
  tail
)
type(
  'a channel
)
"src/unix/lwt_io.ml" 281 8814 8816 "src/unix/lwt_io.ml" 288 9016 9030
type(
  'a channel
)
"src/unix/lwt_io.ml" 290 9032 9036 "src/unix/lwt_io.ml" 290 9032 9046
type(
  'a _channel -> unit Lwt.t
)
ident(
  def auto_flush "src/unix/lwt_io.ml" 320 10002 10002 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 290 9032 9047 "src/unix/lwt_io.ml" 290 9032 9049
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 291 9052 9054 "src/unix/lwt_io.ml" 315 9886 9909
)
"src/unix/lwt_io.ml" 291 9052 9054 "src/unix/lwt_io.ml" 291 9052 9063
type(
  unit -> unit Lwt.t
)
ident(
  ext_ref Lwt.pause
)
"src/unix/lwt_io.ml" 291 9052 9064 "src/unix/lwt_io.ml" 291 9052 9066
type(
  unit
)
"src/unix/lwt_io.ml" 291 9052 9054 "src/unix/lwt_io.ml" 291 9052 9066
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 291 9052 9067 "src/unix/lwt_io.ml" 291 9052 9070
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 291 9052 9075 "src/unix/lwt_io.ml" 291 9052 9077
type(
  unit
)
"src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 293 9119 9121 "src/unix/lwt_io.ml" 315 9886 9909
)
"src/unix/lwt_io.ml" 292 9081 9097 "src/unix/lwt_io.ml" 292 9081 9112
type(
  'a _channel -> 'a channel
)
ident(
  int_ref deepest_wrapper "src/unix/lwt_io.ml" 280 8789 8793 "src/unix/lwt_io.ml" 280 8789 8808
)
"src/unix/lwt_io.ml" 292 9081 9113 "src/unix/lwt_io.ml" 292 9081 9115
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 290 9032 9047 "src/unix/lwt_io.ml" 290 9032 9049
)
"src/unix/lwt_io.ml" 292 9081 9097 "src/unix/lwt_io.ml" 292 9081 9115
call(
  stack
)
type(
  'a channel
)
"src/unix/lwt_io.ml" 293 9119 9127 "src/unix/lwt_io.ml" 293 9119 9134
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
)
"src/unix/lwt_io.ml" 293 9119 9127 "src/unix/lwt_io.ml" 293 9119 9140
type(
  'a state
)
"src/unix/lwt_io.ml" 294 9146 9152 "src/unix/lwt_io.ml" 294 9146 9166
type(
  'a state
)
"src/unix/lwt_io.ml" 294 9146 9169 "src/unix/lwt_io.ml" 294 9146 9185
type(
  'a state
)
"src/unix/lwt_io.ml" 294 9146 9152 "src/unix/lwt_io.ml" 294 9146 9185
type(
  'a state
)
"src/unix/lwt_io.ml" 297 9328 9336 "src/unix/lwt_io.ml" 297 9328 9338
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 290 9032 9047 "src/unix/lwt_io.ml" 290 9032 9049
)
"src/unix/lwt_io.ml" 297 9328 9356 "src/unix/lwt_io.ml" 297 9328 9361
type(
  bool
)
"src/unix/lwt_io.ml" 297 9328 9336 "src/unix/lwt_io.ml" 297 9328 9361
type(
  unit
)
"src/unix/lwt_io.ml" 298 9363 9371 "src/unix/lwt_io.ml" 298 9363 9386
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 297 9328 9336 "src/unix/lwt_io.ml" 298 9363 9386
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 300 9388 9406 "src/unix/lwt_io.ml" 300 9388 9407
type(
  'a channel
)
"src/unix/lwt_io.ml" 300 9388 9394 "src/unix/lwt_io.ml" 300 9388 9407
type(
  'a state
)
"src/unix/lwt_io.ml" 302 9474 9489 "src/unix/lwt_io.ml" 302 9474 9494
type(
  bool
)
"src/unix/lwt_io.ml" 302 9474 9482 "src/unix/lwt_io.ml" 302 9474 9494
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 304 9496 9502 "src/unix/lwt_io.ml" 304 9496 9506
type(
  'a state
)
"src/unix/lwt_io.ml" 305 9510 9518 "src/unix/lwt_io.ml" 305 9510 9520
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 290 9032 9047 "src/unix/lwt_io.ml" 290 9032 9049
)
"src/unix/lwt_io.ml" 305 9510 9538 "src/unix/lwt_io.ml" 305 9510 9543
type(
  bool
)
"src/unix/lwt_io.ml" 305 9510 9518 "src/unix/lwt_io.ml" 305 9510 9543
type(
  unit
)
"src/unix/lwt_io.ml" 306 9545 9553 "src/unix/lwt_io.ml" 306 9545 9560
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
)
"src/unix/lwt_io.ml" 306 9545 9570 "src/unix/lwt_io.ml" 306 9545 9584
type(
  'a state
)
"src/unix/lwt_io.ml" 306 9545 9553 "src/unix/lwt_io.ml" 306 9545 9584
type(
  unit
)
"src/unix/lwt_io.ml" 307 9586 9594 "src/unix/lwt_io.ml" 307 9586 9610
type(
  'a _channel -> unit Lwt.t
)
ident(
  int_ref safe_flush_total "src/unix/lwt_io.ml" 275 8687 8691 "src/unix/lwt_io.ml" 275 8687 8707
)
"src/unix/lwt_io.ml" 307 9586 9611 "src/unix/lwt_io.ml" 307 9586 9613
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 290 9032 9047 "src/unix/lwt_io.ml" 290 9032 9049
)
"src/unix/lwt_io.ml" 307 9586 9594 "src/unix/lwt_io.ml" 307 9586 9613
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 307 9586 9614 "src/unix/lwt_io.ml" 307 9586 9617
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 307 9586 9622 "src/unix/lwt_io.ml" 307 9586 9624
type(
  unit
)
"src/unix/lwt_io.ml" 308 9628 9639 "src/unix/lwt_io.ml" 308 9628 9646
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
)
"src/unix/lwt_io.ml" 308 9628 9639 "src/unix/lwt_io.ml" 308 9628 9652
type(
  'a state
)
"src/unix/lwt_io.ml" 308 9628 9653 "src/unix/lwt_io.ml" 308 9628 9654
type(
  'a state -> 'a state -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 308 9628 9655 "src/unix/lwt_io.ml" 308 9628 9669
type(
  'a state
)
"src/unix/lwt_io.ml" 308 9628 9639 "src/unix/lwt_io.ml" 308 9628 9669
type(
  bool
)
"src/unix/lwt_io.ml" 309 9675 9685 "src/unix/lwt_io.ml" 309 9675 9692
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
)
"src/unix/lwt_io.ml" 309 9675 9702 "src/unix/lwt_io.ml" 309 9675 9706
type(
  'a state
)
"src/unix/lwt_io.ml" 309 9675 9685 "src/unix/lwt_io.ml" 309 9675 9706
type(
  unit
)
"src/unix/lwt_io.ml" 308 9628 9636 "src/unix/lwt_io.ml" 309 9675 9706
type(
  unit
)
"src/unix/lwt_io.ml" 310 9708 9719 "src/unix/lwt_io.ml" 310 9708 9722
type(
  bool -> bool
)
ident(
  ext_ref Pervasives.not
)
"src/unix/lwt_io.ml" 310 9708 9724 "src/unix/lwt_io.ml" 310 9708 9745
type(
  unit Lwt.u Lwt_sequence.t -> bool
)
ident(
  ext_ref Lwt_sequence.is_empty
)
"src/unix/lwt_io.ml" 310 9708 9746 "src/unix/lwt_io.ml" 310 9708 9753
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
)
"src/unix/lwt_io.ml" 310 9708 9746 "src/unix/lwt_io.ml" 310 9708 9760
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 310 9708 9723 "src/unix/lwt_io.ml" 310 9708 9761
call(
  stack
)
type(
  bool
)
"src/unix/lwt_io.ml" 310 9708 9719 "src/unix/lwt_io.ml" 310 9708 9761
type(
  bool
)
"src/unix/lwt_io.ml" 311 9767 9777 "src/unix/lwt_io.ml" 311 9767 9793
type(
  unit Lwt.u -> unit -> unit
)
ident(
  ext_ref Lwt.wakeup_later
)
"src/unix/lwt_io.ml" 311 9767 9795 "src/unix/lwt_io.ml" 311 9767 9814
type(
  unit Lwt.u Lwt_sequence.t -> unit Lwt.u
)
ident(
  ext_ref Lwt_sequence.take_l
)
"src/unix/lwt_io.ml" 311 9767 9815 "src/unix/lwt_io.ml" 311 9767 9822
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 292 9081 9087 "src/unix/lwt_io.ml" 292 9081 9094
)
"src/unix/lwt_io.ml" 311 9767 9815 "src/unix/lwt_io.ml" 311 9767 9829
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 311 9767 9794 "src/unix/lwt_io.ml" 311 9767 9830
call(
  stack
)
type(
  unit Lwt.u
)
"src/unix/lwt_io.ml" 311 9767 9831 "src/unix/lwt_io.ml" 311 9767 9833
type(
  unit
)
"src/unix/lwt_io.ml" 311 9767 9777 "src/unix/lwt_io.ml" 311 9767 9833
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 310 9708 9716 "src/unix/lwt_io.ml" 311 9767 9833
type(
  unit
)
"src/unix/lwt_io.ml" 312 9835 9843 "src/unix/lwt_io.ml" 312 9835 9858
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 310 9708 9716 "src/unix/lwt_io.ml" 312 9835 9858
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 308 9628 9636 "src/unix/lwt_io.ml" 312 9835 9858
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 307 9586 9618 "src/unix/lwt_io.ml" 312 9835 9858
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 307 9586 9594 "src/unix/lwt_io.ml" 312 9835 9858
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 306 9545 9553 "src/unix/lwt_io.ml" 312 9835 9858
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 305 9510 9518 "src/unix/lwt_io.ml" 312 9835 9858
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 314 9860 9866 "src/unix/lwt_io.ml" 314 9860 9872
type(
  'a state
)
"src/unix/lwt_io.ml" 314 9860 9875 "src/unix/lwt_io.ml" 314 9860 9882
type(
  'a state
)
"src/unix/lwt_io.ml" 314 9860 9866 "src/unix/lwt_io.ml" 314 9860 9882
type(
  'a state
)
"src/unix/lwt_io.ml" 315 9886 9894 "src/unix/lwt_io.ml" 315 9886 9909
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 293 9119 9121 "src/unix/lwt_io.ml" 315 9886 9909
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 292 9081 9083 "src/unix/lwt_io.ml" 315 9886 9909
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 291 9052 9071 "src/unix/lwt_io.ml" 315 9886 9909
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 291 9052 9054 "src/unix/lwt_io.ml" 315 9886 9909
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
type(
  'm. 'm channel -> unit
)
ident(
  def unlock "src/unix/lwt_io.ml" 352 11320 11320 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
type(
  m channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 320 10002 10058 "src/unix/lwt_io.ml" 349 11251 11269
)
"src/unix/lwt_io.ml" 320 10002 10064 "src/unix/lwt_io.ml" 320 10002 10071
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 320 10002 10064 "src/unix/lwt_io.ml" 320 10002 10077
type(
  m state
)
"src/unix/lwt_io.ml" 321 10083 10087 "src/unix/lwt_io.ml" 321 10083 10101
type(
  m state
)
"src/unix/lwt_io.ml" 321 10083 10116 "src/unix/lwt_io.ml" 321 10083 10117
type(
  m channel
)
"src/unix/lwt_io.ml" 321 10083 10104 "src/unix/lwt_io.ml" 321 10083 10117
type(
  m state
)
"src/unix/lwt_io.ml" 321 10083 10087 "src/unix/lwt_io.ml" 321 10083 10117
type(
  m state
)
"src/unix/lwt_io.ml" 322 10121 10130 "src/unix/lwt_io.ml" 322 10121 10151
type(
  unit Lwt.u Lwt_sequence.t -> bool
)
ident(
  ext_ref Lwt_sequence.is_empty
)
"src/unix/lwt_io.ml" 322 10121 10152 "src/unix/lwt_io.ml" 322 10121 10159
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 322 10121 10152 "src/unix/lwt_io.ml" 322 10121 10166
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 322 10121 10130 "src/unix/lwt_io.ml" 322 10121 10166
call(
  stack
)
type(
  bool
)
"src/unix/lwt_io.ml" 323 10172 10180 "src/unix/lwt_io.ml" 323 10172 10187
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 323 10172 10197 "src/unix/lwt_io.ml" 323 10172 10201
type(
  m state
)
"src/unix/lwt_io.ml" 323 10172 10180 "src/unix/lwt_io.ml" 323 10172 10201
type(
  unit
)
"src/unix/lwt_io.ml" 325 10219 10227 "src/unix/lwt_io.ml" 325 10219 10234
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 325 10219 10244 "src/unix/lwt_io.ml" 325 10219 10260
type(
  m state
)
"src/unix/lwt_io.ml" 325 10219 10227 "src/unix/lwt_io.ml" 325 10219 10260
type(
  unit
)
"src/unix/lwt_io.ml" 326 10262 10270 "src/unix/lwt_io.ml" 326 10262 10286
type(
  unit Lwt.u -> unit -> unit
)
ident(
  ext_ref Lwt.wakeup_later
)
"src/unix/lwt_io.ml" 326 10262 10288 "src/unix/lwt_io.ml" 326 10262 10307
type(
  unit Lwt.u Lwt_sequence.t -> unit Lwt.u
)
ident(
  ext_ref Lwt_sequence.take_l
)
"src/unix/lwt_io.ml" 326 10262 10308 "src/unix/lwt_io.ml" 326 10262 10315
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 326 10262 10308 "src/unix/lwt_io.ml" 326 10262 10322
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 326 10262 10287 "src/unix/lwt_io.ml" 326 10262 10323
call(
  stack
)
type(
  unit Lwt.u
)
"src/unix/lwt_io.ml" 326 10262 10324 "src/unix/lwt_io.ml" 326 10262 10326
type(
  unit
)
"src/unix/lwt_io.ml" 326 10262 10270 "src/unix/lwt_io.ml" 326 10262 10326
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 324 10202 10213 "src/unix/lwt_io.ml" 327 10327 10336
type(
  unit
)
"src/unix/lwt_io.ml" 322 10121 10127 "src/unix/lwt_io.ml" 327 10327 10336
type(
  unit
)
"src/unix/lwt_io.ml" 329 10377 10387 "src/unix/lwt_io.ml" 329 10377 10389
type(
  m _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 330 10411 10417 "src/unix/lwt_io.ml" 340 10938 10947
)
"src/unix/lwt_io.ml" 329 10377 10392 "src/unix/lwt_io.ml" 329 10377 10399
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 329 10377 10392 "src/unix/lwt_io.ml" 329 10377 10407
type(
  m _channel
)
"src/unix/lwt_io.ml" 331 10483 10492 "src/unix/lwt_io.ml" 331 10483 10499
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 331 10483 10492 "src/unix/lwt_io.ml" 331 10483 10505
type(
  m state
)
"src/unix/lwt_io.ml" 331 10483 10506 "src/unix/lwt_io.ml" 331 10483 10507
type(
  m state -> m state -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 331 10483 10508 "src/unix/lwt_io.ml" 331 10483 10512
type(
  m state
)
"src/unix/lwt_io.ml" 331 10483 10492 "src/unix/lwt_io.ml" 331 10483 10512
type(
  bool
)
"src/unix/lwt_io.ml" 331 10483 10513 "src/unix/lwt_io.ml" 331 10483 10515
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 333 10583 10602 "src/unix/lwt_io.ml" 333 10583 10604
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 329 10377 10387 "src/unix/lwt_io.ml" 329 10377 10389
)
"src/unix/lwt_io.ml" 333 10583 10602 "src/unix/lwt_io.ml" 333 10583 10609
type(
  m mode
)
"src/unix/lwt_io.ml" 333 10583 10615 "src/unix/lwt_io.ml" 333 10583 10620
type(
  m mode
)
"src/unix/lwt_io.ml" 333 10583 10624 "src/unix/lwt_io.ml" 333 10583 10629
type(
  bool
)
"src/unix/lwt_io.ml" 333 10583 10632 "src/unix/lwt_io.ml" 333 10583 10638
type(
  m mode
)
"src/unix/lwt_io.ml" 333 10583 10642 "src/unix/lwt_io.ml" 333 10583 10646
type(
  bool
)
"src/unix/lwt_io.ml" 333 10583 10595 "src/unix/lwt_io.ml" 333 10583 10647
type(
  bool
)
"src/unix/lwt_io.ml" 333 10583 10648 "src/unix/lwt_io.ml" 333 10583 10650
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 335 10701 10713 "src/unix/lwt_io.ml" 335 10701 10716
type(
  bool -> bool
)
ident(
  ext_ref Pervasives.not
)
"src/unix/lwt_io.ml" 335 10701 10717 "src/unix/lwt_io.ml" 335 10701 10719
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 329 10377 10387 "src/unix/lwt_io.ml" 329 10377 10389
)
"src/unix/lwt_io.ml" 335 10701 10717 "src/unix/lwt_io.ml" 335 10701 10733
type(
  bool
)
"src/unix/lwt_io.ml" 335 10701 10713 "src/unix/lwt_io.ml" 335 10701 10733
type(
  bool
)
"src/unix/lwt_io.ml" 335 10701 10734 "src/unix/lwt_io.ml" 335 10701 10736
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 337 10812 10824 "src/unix/lwt_io.ml" 337 10812 10845
type(
  unit Lwt.u Lwt_sequence.t -> bool
)
ident(
  ext_ref Lwt_sequence.is_empty
)
"src/unix/lwt_io.ml" 337 10812 10846 "src/unix/lwt_io.ml" 337 10812 10853
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 337 10812 10846 "src/unix/lwt_io.ml" 337 10812 10860
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 337 10812 10824 "src/unix/lwt_io.ml" 337 10812 10860
call(
  stack
)
type(
  bool
)
"src/unix/lwt_io.ml" 335 10701 10713 "src/unix/lwt_io.ml" 337 10812 10860
type(
  bool
)
"src/unix/lwt_io.ml" 333 10583 10595 "src/unix/lwt_io.ml" 337 10812 10860
type(
  bool
)
"src/unix/lwt_io.ml" 331 10483 10491 "src/unix/lwt_io.ml" 337 10812 10861
type(
  bool
)
"src/unix/lwt_io.ml" 338 10873 10881 "src/unix/lwt_io.ml" 338 10873 10883
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 329 10377 10387 "src/unix/lwt_io.ml" 329 10377 10389
)
"src/unix/lwt_io.ml" 338 10873 10901 "src/unix/lwt_io.ml" 338 10873 10905
type(
  bool
)
"src/unix/lwt_io.ml" 338 10873 10881 "src/unix/lwt_io.ml" 338 10873 10905
type(
  unit
)
"src/unix/lwt_io.ml" 339 10907 10915 "src/unix/lwt_io.ml" 339 10907 10921
type(
  unit Lwt.t -> unit
)
ident(
  ext_ref Pervasives.ignore
)
"src/unix/lwt_io.ml" 339 10907 10923 "src/unix/lwt_io.ml" 339 10907 10933
type(
  m _channel -> unit Lwt.t
)
ident(
  int_ref auto_flush "src/unix/lwt_io.ml" 290 9032 9036 "src/unix/lwt_io.ml" 290 9032 9046
)
"src/unix/lwt_io.ml" 339 10907 10934 "src/unix/lwt_io.ml" 339 10907 10936
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 329 10377 10387 "src/unix/lwt_io.ml" 329 10377 10389
)
"src/unix/lwt_io.ml" 339 10907 10922 "src/unix/lwt_io.ml" 339 10907 10937
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 339 10907 10915 "src/unix/lwt_io.ml" 339 10907 10937
type(
  unit
)
"src/unix/lwt_io.ml" 337 10812 10867 "src/unix/lwt_io.ml" 340 10938 10947
type(
  unit
)
"src/unix/lwt_io.ml" 330 10411 10417 "src/unix/lwt_io.ml" 340 10938 10947
type(
  unit
)
"src/unix/lwt_io.ml" 329 10377 10383 "src/unix/lwt_io.ml" 340 10938 10947
type(
  unit
)
"src/unix/lwt_io.ml" 322 10121 10127 "src/unix/lwt_io.ml" 340 10938 10947
type(
  unit
)
"src/unix/lwt_io.ml" 342 10949 10953 "src/unix/lwt_io.ml" 342 10949 10959
type(
  m state
)
"src/unix/lwt_io.ml" 342 10949 10962 "src/unix/lwt_io.ml" 342 10949 10969
type(
  m state
)
"src/unix/lwt_io.ml" 342 10949 10953 "src/unix/lwt_io.ml" 342 10949 10969
type(
  m state
)
"src/unix/lwt_io.ml" 344 11044 11053 "src/unix/lwt_io.ml" 344 11044 11056
type(
  bool -> bool
)
ident(
  ext_ref Pervasives.not
)
"src/unix/lwt_io.ml" 344 11044 11058 "src/unix/lwt_io.ml" 344 11044 11079
type(
  unit Lwt.u Lwt_sequence.t -> bool
)
ident(
  ext_ref Lwt_sequence.is_empty
)
"src/unix/lwt_io.ml" 344 11044 11080 "src/unix/lwt_io.ml" 344 11044 11087
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 344 11044 11080 "src/unix/lwt_io.ml" 344 11044 11094
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 344 11044 11057 "src/unix/lwt_io.ml" 344 11044 11095
call(
  stack
)
type(
  bool
)
"src/unix/lwt_io.ml" 344 11044 11053 "src/unix/lwt_io.ml" 344 11044 11095
type(
  bool
)
"src/unix/lwt_io.ml" 345 11101 11109 "src/unix/lwt_io.ml" 345 11101 11125
type(
  unit Lwt.u -> unit -> unit
)
ident(
  ext_ref Lwt.wakeup_later
)
"src/unix/lwt_io.ml" 345 11101 11127 "src/unix/lwt_io.ml" 345 11101 11146
type(
  unit Lwt.u Lwt_sequence.t -> unit Lwt.u
)
ident(
  ext_ref Lwt_sequence.take_l
)
"src/unix/lwt_io.ml" 345 11101 11147 "src/unix/lwt_io.ml" 345 11101 11154
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 320 10002 10047 "src/unix/lwt_io.ml" 320 10002 10054
)
"src/unix/lwt_io.ml" 345 11101 11147 "src/unix/lwt_io.ml" 345 11101 11161
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 345 11101 11126 "src/unix/lwt_io.ml" 345 11101 11162
call(
  stack
)
type(
  unit Lwt.u
)
"src/unix/lwt_io.ml" 345 11101 11163 "src/unix/lwt_io.ml" 345 11101 11165
type(
  unit
)
"src/unix/lwt_io.ml" 345 11101 11109 "src/unix/lwt_io.ml" 345 11101 11165
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 344 11044 11050 "src/unix/lwt_io.ml" 345 11101 11165
type(
  unit
)
"src/unix/lwt_io.ml" 347 11167 11171 "src/unix/lwt_io.ml" 347 11167 11175
type(
  m state
)
"src/unix/lwt_io.ml" 347 11167 11178 "src/unix/lwt_io.ml" 347 11167 11194
type(
  m state
)
"src/unix/lwt_io.ml" 347 11167 11171 "src/unix/lwt_io.ml" 347 11167 11194
type(
  m state
)
"src/unix/lwt_io.ml" 349 11251 11264 "src/unix/lwt_io.ml" 349 11251 11269
type(
  bool
)
"src/unix/lwt_io.ml" 349 11251 11257 "src/unix/lwt_io.ml" 349 11251 11269
type(
  unit
)
"src/unix/lwt_io.ml" 320 10002 10058 "src/unix/lwt_io.ml" 349 11251 11269
type(
  unit
)
"src/unix/lwt_io.ml" 320 10002 10043 "src/unix/lwt_io.ml" 349 11251 11269
type(
  m channel -> unit
)
type(
  m channel -> unit
)
"src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 349 11251 11269
type(
  'm channel -> unit
)
"src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
type(
  ('a _channel -> 'b Lwt.t) -> 'a channel -> 'b Lwt.t
)
ident(
  def primitive "src/unix/lwt_io.ml" 391 12459 12459 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 352 11320 11334 "src/unix/lwt_io.ml" 352 11320 11335
type(
  'a _channel -> 'b Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 388 12344 12392
)
"src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 352 11320 11346 "src/unix/lwt_io.ml" 388 12344 12392
)
"src/unix/lwt_io.ml" 352 11320 11352 "src/unix/lwt_io.ml" 352 11320 11359
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 352 11320 11352 "src/unix/lwt_io.ml" 352 11320 11365
type(
  'a state
)
"src/unix/lwt_io.ml" 353 11371 11375 "src/unix/lwt_io.ml" 353 11371 11379
type(
  'a state
)
"src/unix/lwt_io.ml" 354 11383 11389 "src/unix/lwt_io.ml" 354 11383 11396
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 354 11383 11406 "src/unix/lwt_io.ml" 354 11383 11420
type(
  'a state
)
"src/unix/lwt_io.ml" 354 11383 11389 "src/unix/lwt_io.ml" 354 11383 11420
type(
  unit
)
"src/unix/lwt_io.ml" 355 11422 11428 "src/unix/lwt_io.ml" 355 11422 11440
type(
  (unit -> 'b Lwt.t) -> (unit -> unit Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 356 11441 11454 "src/unix/lwt_io.ml" 356 11441 11456
type(
  unit
)
"src/unix/lwt_io.ml" 356 11441 11460 "src/unix/lwt_io.ml" 356 11441 11461
type(
  'a _channel -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 352 11320 11334 "src/unix/lwt_io.ml" 352 11320 11335
)
"src/unix/lwt_io.ml" 356 11441 11462 "src/unix/lwt_io.ml" 356 11441 11469
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 356 11441 11462 "src/unix/lwt_io.ml" 356 11441 11477
type(
  'a _channel
)
"src/unix/lwt_io.ml" 356 11441 11460 "src/unix/lwt_io.ml" 356 11441 11477
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 356 11441 11449 "src/unix/lwt_io.ml" 356 11441 11478
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 357 11479 11492 "src/unix/lwt_io.ml" 357 11479 11494
type(
  unit
)
"src/unix/lwt_io.ml" 358 11498 11508 "src/unix/lwt_io.ml" 358 11498 11514
type(
  'a channel -> unit
)
ident(
  int_ref unlock "src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
)
"src/unix/lwt_io.ml" 358 11498 11515 "src/unix/lwt_io.ml" 358 11498 11522
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 358 11498 11508 "src/unix/lwt_io.ml" 358 11498 11522
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 359 11524 11534 "src/unix/lwt_io.ml" 359 11524 11549
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 358 11498 11508 "src/unix/lwt_io.ml" 359 11524 11549
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 357 11479 11487 "src/unix/lwt_io.ml" 359 11524 11550
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 355 11422 11428 "src/unix/lwt_io.ml" 359 11524 11550
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 354 11383 11389 "src/unix/lwt_io.ml" 359 11524 11550
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 361 11552 11556 "src/unix/lwt_io.ml" 361 11552 11570
type(
  'a state
)
"src/unix/lwt_io.ml" 361 11552 11585 "src/unix/lwt_io.ml" 361 11552 11586
type(
  'a channel
)
"src/unix/lwt_io.ml" 361 11552 11573 "src/unix/lwt_io.ml" 361 11552 11586
type(
  'a state
)
"src/unix/lwt_io.ml" 361 11552 11556 "src/unix/lwt_io.ml" 361 11552 11586
type(
  'a state
)
"src/unix/lwt_io.ml" 361 11552 11589 "src/unix/lwt_io.ml" 361 11552 11605
type(
  'a state
)
"src/unix/lwt_io.ml" 361 11552 11556 "src/unix/lwt_io.ml" 361 11552 11605
type(
  'a state
)
"src/unix/lwt_io.ml" 362 11609 11615 "src/unix/lwt_io.ml" 362 11609 11629
type(
  unit Lwt.u Lwt_sequence.t -> unit Lwt.t
)
ident(
  ext_ref Lwt.add_task_r
)
"src/unix/lwt_io.ml" 362 11609 11630 "src/unix/lwt_io.ml" 362 11609 11637
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 362 11609 11630 "src/unix/lwt_io.ml" 362 11609 11644
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 362 11609 11615 "src/unix/lwt_io.ml" 362 11609 11644
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 362 11609 11645 "src/unix/lwt_io.ml" 362 11609 11648
type(
  unit Lwt.t -> (unit -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 362 11609 11653 "src/unix/lwt_io.ml" 362 11609 11655
type(
  unit
)
"src/unix/lwt_io.ml" 363 11659 11677 "src/unix/lwt_io.ml" 363 11659 11684
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 363 11659 11677 "src/unix/lwt_io.ml" 363 11659 11690
type(
  'a state
)
"src/unix/lwt_io.ml" 364 11696 11706 "src/unix/lwt_io.ml" 364 11696 11712
type(
  'a state
)
"src/unix/lwt_io.ml" 366 11784 11796 "src/unix/lwt_io.ml" 366 11784 11802
type(
  'a channel -> unit
)
ident(
  int_ref unlock "src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
)
"src/unix/lwt_io.ml" 366 11784 11803 "src/unix/lwt_io.ml" 366 11784 11810
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 366 11784 11796 "src/unix/lwt_io.ml" 366 11784 11810
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 367 11812 11824 "src/unix/lwt_io.ml" 367 11812 11832
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 367 11812 11834 "src/unix/lwt_io.ml" 367 11812 11848
type(
  'a _channel -> exn
)
ident(
  int_ref closed_channel "src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
)
"src/unix/lwt_io.ml" 367 11812 11849 "src/unix/lwt_io.ml" 367 11812 11856
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 367 11812 11849 "src/unix/lwt_io.ml" 367 11812 11864
type(
  'a _channel
)
"src/unix/lwt_io.ml" 367 11812 11833 "src/unix/lwt_io.ml" 367 11812 11865
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 367 11812 11824 "src/unix/lwt_io.ml" 367 11812 11865
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 366 11784 11796 "src/unix/lwt_io.ml" 367 11812 11865
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 369 11867 11877 "src/unix/lwt_io.ml" 369 11867 11881
type(
  'a state
)
"src/unix/lwt_io.ml" 369 11867 11884 "src/unix/lwt_io.ml" 369 11867 11900
type(
  'a state
)
"src/unix/lwt_io.ml" 369 11867 11877 "src/unix/lwt_io.ml" 369 11867 11900
type(
  'a state
)
"src/unix/lwt_io.ml" 370 11904 11916 "src/unix/lwt_io.ml" 370 11904 11923
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 370 11904 11933 "src/unix/lwt_io.ml" 370 11904 11947
type(
  'a state
)
"src/unix/lwt_io.ml" 370 11904 11916 "src/unix/lwt_io.ml" 370 11904 11947
type(
  unit
)
"src/unix/lwt_io.ml" 371 11949 11961 "src/unix/lwt_io.ml" 371 11949 11973
type(
  (unit -> 'b Lwt.t) -> (unit -> unit Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 372 11974 11993 "src/unix/lwt_io.ml" 372 11974 11995
type(
  unit
)
"src/unix/lwt_io.ml" 372 11974 11999 "src/unix/lwt_io.ml" 372 11974 12000
type(
  'a _channel -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 352 11320 11334 "src/unix/lwt_io.ml" 352 11320 11335
)
"src/unix/lwt_io.ml" 372 11974 12001 "src/unix/lwt_io.ml" 372 11974 12008
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 372 11974 12001 "src/unix/lwt_io.ml" 372 11974 12016
type(
  'a _channel
)
"src/unix/lwt_io.ml" 372 11974 11999 "src/unix/lwt_io.ml" 372 11974 12016
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 372 11974 11988 "src/unix/lwt_io.ml" 372 11974 12017
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 373 12018 12037 "src/unix/lwt_io.ml" 373 12018 12039
type(
  unit
)
"src/unix/lwt_io.ml" 374 12043 12059 "src/unix/lwt_io.ml" 374 12043 12065
type(
  'a channel -> unit
)
ident(
  int_ref unlock "src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
)
"src/unix/lwt_io.ml" 374 12043 12066 "src/unix/lwt_io.ml" 374 12043 12073
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 374 12043 12059 "src/unix/lwt_io.ml" 374 12043 12073
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 375 12075 12091 "src/unix/lwt_io.ml" 375 12075 12106
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 374 12043 12059 "src/unix/lwt_io.ml" 375 12075 12106
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 373 12018 12032 "src/unix/lwt_io.ml" 375 12075 12107
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 371 11949 11961 "src/unix/lwt_io.ml" 375 12075 12107
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 370 11904 11916 "src/unix/lwt_io.ml" 375 12075 12107
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 377 12109 12119 "src/unix/lwt_io.ml" 377 12109 12126
type(
  'a state
)
"src/unix/lwt_io.ml" 378 12130 12142 "src/unix/lwt_io.ml" 378 12130 12150
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 378 12130 12152 "src/unix/lwt_io.ml" 378 12130 12167
type(
  'a _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 378 12130 12168 "src/unix/lwt_io.ml" 378 12130 12175
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 378 12130 12168 "src/unix/lwt_io.ml" 378 12130 12183
type(
  'a _channel
)
"src/unix/lwt_io.ml" 378 12130 12151 "src/unix/lwt_io.ml" 378 12130 12184
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 378 12130 12142 "src/unix/lwt_io.ml" 378 12130 12184
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 380 12186 12196 "src/unix/lwt_io.ml" 380 12186 12210
type(
  'a state
)
"src/unix/lwt_io.ml" 380 12186 12225 "src/unix/lwt_io.ml" 380 12186 12226
type(
  'a channel
)
"src/unix/lwt_io.ml" 380 12186 12213 "src/unix/lwt_io.ml" 380 12186 12226
type(
  'a state
)
"src/unix/lwt_io.ml" 380 12186 12196 "src/unix/lwt_io.ml" 380 12186 12226
type(
  'a state
)
"src/unix/lwt_io.ml" 381 12230 12249 "src/unix/lwt_io.ml" 381 12230 12254
type(
  bool
)
"src/unix/lwt_io.ml" 381 12230 12242 "src/unix/lwt_io.ml" 381 12230 12254
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 363 11659 11665 "src/unix/lwt_io.ml" 382 12255 12264
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 362 11609 11649 "src/unix/lwt_io.ml" 382 12255 12264
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 362 11609 11615 "src/unix/lwt_io.ml" 382 12255 12264
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 384 12266 12270 "src/unix/lwt_io.ml" 384 12266 12276
type(
  'a state
)
"src/unix/lwt_io.ml" 385 12280 12286 "src/unix/lwt_io.ml" 385 12280 12294
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 385 12280 12296 "src/unix/lwt_io.ml" 385 12280 12310
type(
  'a _channel -> exn
)
ident(
  int_ref closed_channel "src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
)
"src/unix/lwt_io.ml" 385 12280 12311 "src/unix/lwt_io.ml" 385 12280 12318
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 385 12280 12311 "src/unix/lwt_io.ml" 385 12280 12326
type(
  'a _channel
)
"src/unix/lwt_io.ml" 385 12280 12295 "src/unix/lwt_io.ml" 385 12280 12327
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 385 12280 12286 "src/unix/lwt_io.ml" 385 12280 12327
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 387 12329 12333 "src/unix/lwt_io.ml" 387 12329 12340
type(
  'a state
)
"src/unix/lwt_io.ml" 388 12344 12350 "src/unix/lwt_io.ml" 388 12344 12358
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 388 12344 12360 "src/unix/lwt_io.ml" 388 12344 12375
type(
  'a _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 388 12344 12376 "src/unix/lwt_io.ml" 388 12344 12383
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 352 11320 11336 "src/unix/lwt_io.ml" 352 11320 11343
)
"src/unix/lwt_io.ml" 388 12344 12376 "src/unix/lwt_io.ml" 388 12344 12391
type(
  'a _channel
)
"src/unix/lwt_io.ml" 388 12344 12359 "src/unix/lwt_io.ml" 388 12344 12392
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 388 12344 12350 "src/unix/lwt_io.ml" 388 12344 12392
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 352 11320 11346 "src/unix/lwt_io.ml" 388 12344 12392
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 391 12459 12463 "src/unix/lwt_io.ml" 391 12459 12469
type(
  ('a channel -> 'b Lwt.t) -> 'a channel -> 'b Lwt.t
)
ident(
  def atomic "src/unix/lwt_io.ml" 438 14012 14012 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 391 12459 12470 "src/unix/lwt_io.ml" 391 12459 12471
type(
  'a channel -> 'b Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 436 13962 14010
)
"src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 391 12459 12482 "src/unix/lwt_io.ml" 436 13962 14010
)
"src/unix/lwt_io.ml" 391 12459 12488 "src/unix/lwt_io.ml" 391 12459 12495
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 391 12459 12488 "src/unix/lwt_io.ml" 391 12459 12501
type(
  'a state
)
"src/unix/lwt_io.ml" 392 12507 12511 "src/unix/lwt_io.ml" 392 12507 12515
type(
  'a state
)
"src/unix/lwt_io.ml" 393 12519 12529 "src/unix/lwt_io.ml" 393 12519 12540
type(
  'a channel
)
ident(
  def tmp_wrapper "src/unix/lwt_io.ml" 396 12675 12681 "src/unix/lwt_io.ml" 403 12917 12943
)
"src/unix/lwt_io.ml" 393 12519 12553 "src/unix/lwt_io.ml" 393 12519 12557
type(
  'a state
)
"src/unix/lwt_io.ml" 394 12559 12595 "src/unix/lwt_io.ml" 394 12559 12602
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 394 12559 12595 "src/unix/lwt_io.ml" 394 12559 12610
type(
  'a _channel
)
"src/unix/lwt_io.ml" 395 12612 12647 "src/unix/lwt_io.ml" 395 12612 12666
type(
  unit -> unit Lwt.u Lwt_sequence.t
)
ident(
  ext_ref Lwt_sequence.create
)
"src/unix/lwt_io.ml" 395 12612 12667 "src/unix/lwt_io.ml" 395 12612 12669
type(
  unit
)
"src/unix/lwt_io.ml" 395 12612 12647 "src/unix/lwt_io.ml" 395 12612 12669
call(
  stack
)
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 393 12519 12543 "src/unix/lwt_io.ml" 395 12612 12671
type(
  'a channel
)
"src/unix/lwt_io.ml" 396 12675 12681 "src/unix/lwt_io.ml" 396 12675 12688
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 396 12675 12710 "src/unix/lwt_io.ml" 396 12675 12721
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 393 12519 12529 "src/unix/lwt_io.ml" 393 12519 12540
)
"src/unix/lwt_io.ml" 396 12675 12698 "src/unix/lwt_io.ml" 396 12675 12721
type(
  'a state
)
"src/unix/lwt_io.ml" 396 12675 12681 "src/unix/lwt_io.ml" 396 12675 12721
type(
  unit
)
"src/unix/lwt_io.ml" 397 12723 12729 "src/unix/lwt_io.ml" 397 12723 12741
type(
  (unit -> 'b Lwt.t) -> (unit -> unit Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 398 12742 12755 "src/unix/lwt_io.ml" 398 12742 12757
type(
  unit
)
"src/unix/lwt_io.ml" 398 12742 12761 "src/unix/lwt_io.ml" 398 12742 12762
type(
  'a channel -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 391 12459 12470 "src/unix/lwt_io.ml" 391 12459 12471
)
"src/unix/lwt_io.ml" 398 12742 12763 "src/unix/lwt_io.ml" 398 12742 12774
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 393 12519 12529 "src/unix/lwt_io.ml" 393 12519 12540
)
"src/unix/lwt_io.ml" 398 12742 12761 "src/unix/lwt_io.ml" 398 12742 12774
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 398 12742 12750 "src/unix/lwt_io.ml" 398 12742 12775
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 399 12776 12789 "src/unix/lwt_io.ml" 399 12776 12791
type(
  unit
)
"src/unix/lwt_io.ml" 401 12851 12861 "src/unix/lwt_io.ml" 401 12851 12872
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 393 12519 12529 "src/unix/lwt_io.ml" 393 12519 12540
)
"src/unix/lwt_io.ml" 401 12851 12882 "src/unix/lwt_io.ml" 401 12851 12889
type(
  'a state
)
"src/unix/lwt_io.ml" 401 12851 12861 "src/unix/lwt_io.ml" 401 12851 12889
type(
  unit
)
"src/unix/lwt_io.ml" 402 12891 12901 "src/unix/lwt_io.ml" 402 12891 12907
type(
  'a channel -> unit
)
ident(
  int_ref unlock "src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
)
"src/unix/lwt_io.ml" 402 12891 12908 "src/unix/lwt_io.ml" 402 12891 12915
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 402 12891 12901 "src/unix/lwt_io.ml" 402 12891 12915
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 403 12917 12927 "src/unix/lwt_io.ml" 403 12917 12942
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 402 12891 12901 "src/unix/lwt_io.ml" 403 12917 12942
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 401 12851 12861 "src/unix/lwt_io.ml" 403 12917 12942
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 399 12776 12784 "src/unix/lwt_io.ml" 403 12917 12943
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 397 12723 12729 "src/unix/lwt_io.ml" 403 12917 12943
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 396 12675 12681 "src/unix/lwt_io.ml" 403 12917 12943
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 393 12519 12525 "src/unix/lwt_io.ml" 403 12917 12943
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 405 12945 12949 "src/unix/lwt_io.ml" 405 12945 12963
type(
  'a state
)
"src/unix/lwt_io.ml" 405 12945 12978 "src/unix/lwt_io.ml" 405 12945 12979
type(
  'a channel
)
"src/unix/lwt_io.ml" 405 12945 12966 "src/unix/lwt_io.ml" 405 12945 12979
type(
  'a state
)
"src/unix/lwt_io.ml" 405 12945 12949 "src/unix/lwt_io.ml" 405 12945 12979
type(
  'a state
)
"src/unix/lwt_io.ml" 405 12945 12982 "src/unix/lwt_io.ml" 405 12945 12998
type(
  'a state
)
"src/unix/lwt_io.ml" 405 12945 12949 "src/unix/lwt_io.ml" 405 12945 12998
type(
  'a state
)
"src/unix/lwt_io.ml" 406 13002 13008 "src/unix/lwt_io.ml" 406 13002 13022
type(
  unit Lwt.u Lwt_sequence.t -> unit Lwt.t
)
ident(
  ext_ref Lwt.add_task_r
)
"src/unix/lwt_io.ml" 406 13002 13023 "src/unix/lwt_io.ml" 406 13002 13030
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 406 13002 13023 "src/unix/lwt_io.ml" 406 13002 13037
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 406 13002 13008 "src/unix/lwt_io.ml" 406 13002 13037
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 406 13002 13038 "src/unix/lwt_io.ml" 406 13002 13041
type(
  unit Lwt.t -> (unit -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 406 13002 13046 "src/unix/lwt_io.ml" 406 13002 13048
type(
  unit
)
"src/unix/lwt_io.ml" 407 13052 13070 "src/unix/lwt_io.ml" 407 13052 13077
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 407 13052 13070 "src/unix/lwt_io.ml" 407 13052 13083
type(
  'a state
)
"src/unix/lwt_io.ml" 408 13089 13099 "src/unix/lwt_io.ml" 408 13089 13105
type(
  'a state
)
"src/unix/lwt_io.ml" 410 13177 13189 "src/unix/lwt_io.ml" 410 13177 13195
type(
  'a channel -> unit
)
ident(
  int_ref unlock "src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
)
"src/unix/lwt_io.ml" 410 13177 13196 "src/unix/lwt_io.ml" 410 13177 13203
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 410 13177 13189 "src/unix/lwt_io.ml" 410 13177 13203
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 411 13205 13217 "src/unix/lwt_io.ml" 411 13205 13225
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 411 13205 13227 "src/unix/lwt_io.ml" 411 13205 13241
type(
  'a _channel -> exn
)
ident(
  int_ref closed_channel "src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
)
"src/unix/lwt_io.ml" 411 13205 13242 "src/unix/lwt_io.ml" 411 13205 13249
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 411 13205 13242 "src/unix/lwt_io.ml" 411 13205 13257
type(
  'a _channel
)
"src/unix/lwt_io.ml" 411 13205 13226 "src/unix/lwt_io.ml" 411 13205 13258
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 411 13205 13217 "src/unix/lwt_io.ml" 411 13205 13258
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 410 13177 13189 "src/unix/lwt_io.ml" 411 13205 13258
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 413 13260 13270 "src/unix/lwt_io.ml" 413 13260 13274
type(
  'a state
)
"src/unix/lwt_io.ml" 413 13260 13277 "src/unix/lwt_io.ml" 413 13260 13293
type(
  'a state
)
"src/unix/lwt_io.ml" 413 13260 13270 "src/unix/lwt_io.ml" 413 13260 13293
type(
  'a state
)
"src/unix/lwt_io.ml" 414 13297 13313 "src/unix/lwt_io.ml" 414 13297 13324
type(
  'a channel
)
ident(
  def tmp_wrapper "src/unix/lwt_io.ml" 417 13471 13483 "src/unix/lwt_io.ml" 423 13693 13725
)
"src/unix/lwt_io.ml" 414 13297 13337 "src/unix/lwt_io.ml" 414 13297 13341
type(
  'a state
)
"src/unix/lwt_io.ml" 415 13343 13385 "src/unix/lwt_io.ml" 415 13343 13392
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 415 13343 13385 "src/unix/lwt_io.ml" 415 13343 13400
type(
  'a _channel
)
"src/unix/lwt_io.ml" 416 13402 13443 "src/unix/lwt_io.ml" 416 13402 13462
type(
  unit -> unit Lwt.u Lwt_sequence.t
)
ident(
  ext_ref Lwt_sequence.create
)
"src/unix/lwt_io.ml" 416 13402 13463 "src/unix/lwt_io.ml" 416 13402 13465
type(
  unit
)
"src/unix/lwt_io.ml" 416 13402 13443 "src/unix/lwt_io.ml" 416 13402 13465
call(
  stack
)
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 414 13297 13327 "src/unix/lwt_io.ml" 416 13402 13467
type(
  'a channel
)
"src/unix/lwt_io.ml" 417 13471 13483 "src/unix/lwt_io.ml" 417 13471 13490
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 417 13471 13512 "src/unix/lwt_io.ml" 417 13471 13523
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 414 13297 13313 "src/unix/lwt_io.ml" 414 13297 13324
)
"src/unix/lwt_io.ml" 417 13471 13500 "src/unix/lwt_io.ml" 417 13471 13523
type(
  'a state
)
"src/unix/lwt_io.ml" 417 13471 13483 "src/unix/lwt_io.ml" 417 13471 13523
type(
  unit
)
"src/unix/lwt_io.ml" 418 13525 13537 "src/unix/lwt_io.ml" 418 13525 13549
type(
  (unit -> 'b Lwt.t) -> (unit -> unit Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 419 13550 13569 "src/unix/lwt_io.ml" 419 13550 13571
type(
  unit
)
"src/unix/lwt_io.ml" 419 13550 13575 "src/unix/lwt_io.ml" 419 13550 13576
type(
  'a channel -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 391 12459 12470 "src/unix/lwt_io.ml" 391 12459 12471
)
"src/unix/lwt_io.ml" 419 13550 13577 "src/unix/lwt_io.ml" 419 13550 13588
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 414 13297 13313 "src/unix/lwt_io.ml" 414 13297 13324
)
"src/unix/lwt_io.ml" 419 13550 13575 "src/unix/lwt_io.ml" 419 13550 13588
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 419 13550 13564 "src/unix/lwt_io.ml" 419 13550 13589
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 420 13590 13609 "src/unix/lwt_io.ml" 420 13590 13611
type(
  unit
)
"src/unix/lwt_io.ml" 421 13615 13631 "src/unix/lwt_io.ml" 421 13615 13642
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 414 13297 13313 "src/unix/lwt_io.ml" 414 13297 13324
)
"src/unix/lwt_io.ml" 421 13615 13652 "src/unix/lwt_io.ml" 421 13615 13659
type(
  'a state
)
"src/unix/lwt_io.ml" 421 13615 13631 "src/unix/lwt_io.ml" 421 13615 13659
type(
  unit
)
"src/unix/lwt_io.ml" 422 13661 13677 "src/unix/lwt_io.ml" 422 13661 13683
type(
  'a channel -> unit
)
ident(
  int_ref unlock "src/unix/lwt_io.ml" 320 10002 10006 "src/unix/lwt_io.ml" 320 10002 10012
)
"src/unix/lwt_io.ml" 422 13661 13684 "src/unix/lwt_io.ml" 422 13661 13691
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 422 13661 13677 "src/unix/lwt_io.ml" 422 13661 13691
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 423 13693 13709 "src/unix/lwt_io.ml" 423 13693 13724
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 422 13661 13677 "src/unix/lwt_io.ml" 423 13693 13724
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 421 13615 13631 "src/unix/lwt_io.ml" 423 13693 13724
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 420 13590 13604 "src/unix/lwt_io.ml" 423 13693 13725
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 418 13525 13537 "src/unix/lwt_io.ml" 423 13693 13725
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 417 13471 13483 "src/unix/lwt_io.ml" 423 13693 13725
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 414 13297 13309 "src/unix/lwt_io.ml" 423 13693 13725
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 425 13727 13737 "src/unix/lwt_io.ml" 425 13727 13744
type(
  'a state
)
"src/unix/lwt_io.ml" 426 13748 13760 "src/unix/lwt_io.ml" 426 13748 13768
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 426 13748 13770 "src/unix/lwt_io.ml" 426 13748 13785
type(
  'a _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 426 13748 13786 "src/unix/lwt_io.ml" 426 13748 13793
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 426 13748 13786 "src/unix/lwt_io.ml" 426 13748 13801
type(
  'a _channel
)
"src/unix/lwt_io.ml" 426 13748 13769 "src/unix/lwt_io.ml" 426 13748 13802
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 426 13748 13760 "src/unix/lwt_io.ml" 426 13748 13802
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 428 13804 13814 "src/unix/lwt_io.ml" 428 13804 13828
type(
  'a state
)
"src/unix/lwt_io.ml" 428 13804 13843 "src/unix/lwt_io.ml" 428 13804 13844
type(
  'a channel
)
"src/unix/lwt_io.ml" 428 13804 13831 "src/unix/lwt_io.ml" 428 13804 13844
type(
  'a state
)
"src/unix/lwt_io.ml" 428 13804 13814 "src/unix/lwt_io.ml" 428 13804 13844
type(
  'a state
)
"src/unix/lwt_io.ml" 429 13848 13867 "src/unix/lwt_io.ml" 429 13848 13872
type(
  bool
)
"src/unix/lwt_io.ml" 429 13848 13860 "src/unix/lwt_io.ml" 429 13848 13872
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 407 13052 13058 "src/unix/lwt_io.ml" 430 13873 13882
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 406 13002 13042 "src/unix/lwt_io.ml" 430 13873 13882
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 406 13002 13008 "src/unix/lwt_io.ml" 430 13873 13882
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 432 13884 13888 "src/unix/lwt_io.ml" 432 13884 13894
type(
  'a state
)
"src/unix/lwt_io.ml" 433 13898 13904 "src/unix/lwt_io.ml" 433 13898 13912
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 433 13898 13914 "src/unix/lwt_io.ml" 433 13898 13928
type(
  'a _channel -> exn
)
ident(
  int_ref closed_channel "src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
)
"src/unix/lwt_io.ml" 433 13898 13929 "src/unix/lwt_io.ml" 433 13898 13936
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 433 13898 13929 "src/unix/lwt_io.ml" 433 13898 13944
type(
  'a _channel
)
"src/unix/lwt_io.ml" 433 13898 13913 "src/unix/lwt_io.ml" 433 13898 13945
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 433 13898 13904 "src/unix/lwt_io.ml" 433 13898 13945
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 435 13947 13951 "src/unix/lwt_io.ml" 435 13947 13958
type(
  'a state
)
"src/unix/lwt_io.ml" 436 13962 13968 "src/unix/lwt_io.ml" 436 13962 13976
type(
  exn -> 'b Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 436 13962 13978 "src/unix/lwt_io.ml" 436 13962 13993
type(
  'a _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 436 13962 13994 "src/unix/lwt_io.ml" 436 13962 14001
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 391 12459 12472 "src/unix/lwt_io.ml" 391 12459 12479
)
"src/unix/lwt_io.ml" 436 13962 13994 "src/unix/lwt_io.ml" 436 13962 14009
type(
  'a _channel
)
"src/unix/lwt_io.ml" 436 13962 13977 "src/unix/lwt_io.ml" 436 13962 14010
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 436 13962 13968 "src/unix/lwt_io.ml" 436 13962 14010
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 391 12459 12482 "src/unix/lwt_io.ml" 436 13962 14010
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 438 14012 14020 "src/unix/lwt_io.ml" 438 14012 14025
type(
  'a channel -> unit Lwt.t
)
ident(
  def abort "src/unix/lwt_io.ml" 438 14012 14012 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 438 14012 14036 "src/unix/lwt_io.ml" 452 14592 14630
)
"src/unix/lwt_io.ml" 438 14012 14042 "src/unix/lwt_io.ml" 438 14012 14049
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 438 14012 14042 "src/unix/lwt_io.ml" 438 14012 14055
type(
  'a state
)
"src/unix/lwt_io.ml" 439 14061 14077 "src/unix/lwt_io.ml" 439 14061 14088
type(
  'a channel
)
ident(
  def tmp_wrapper "src/unix/lwt_io.ml" 441 14137 14143 "src/unix/lwt_io.ml" 441 14137 14160
)
"src/unix/lwt_io.ml" 439 14061 14065 "src/unix/lwt_io.ml" 439 14061 14088
type(
  'a state
)
"src/unix/lwt_io.ml" 441 14137 14143 "src/unix/lwt_io.ml" 441 14137 14148
type(
  'a channel -> unit Lwt.t
)
ident(
  int_ref abort "src/unix/lwt_io.ml" 438 14012 14020 "src/unix/lwt_io.ml" 438 14012 14025
)
"src/unix/lwt_io.ml" 441 14137 14149 "src/unix/lwt_io.ml" 441 14137 14160
type(
  'a channel
)
ident(
  int_ref tmp_wrapper "src/unix/lwt_io.ml" 439 14061 14077 "src/unix/lwt_io.ml" 439 14061 14088
)
"src/unix/lwt_io.ml" 441 14137 14143 "src/unix/lwt_io.ml" 441 14137 14160
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 442 14161 14165 "src/unix/lwt_io.ml" 442 14161 14171
type(
  'a state
)
"src/unix/lwt_io.ml" 444 14239 14245 "src/unix/lwt_io.ml" 444 14239 14255
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 444 14239 14256 "src/unix/lwt_io.ml" 444 14239 14263
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 444 14239 14256 "src/unix/lwt_io.ml" 444 14239 14271
type(
  'a _channel
)
"src/unix/lwt_io.ml" 444 14239 14256 "src/unix/lwt_io.ml" 444 14239 14277
type(
  unit Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 444 14239 14245 "src/unix/lwt_io.ml" 444 14239 14277
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 445 14278 14282 "src/unix/lwt_io.ml" 445 14278 14289
type(
  'a state
)
"src/unix/lwt_io.ml" 446 14293 14299 "src/unix/lwt_io.ml" 446 14293 14307
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 446 14293 14309 "src/unix/lwt_io.ml" 446 14293 14324
type(
  'a _channel -> exn
)
ident(
  int_ref invalid_channel "src/unix/lwt_io.ml" 187 5536 5540 "src/unix/lwt_io.ml" 187 5536 5555
)
"src/unix/lwt_io.ml" 446 14293 14325 "src/unix/lwt_io.ml" 446 14293 14332
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 446 14293 14325 "src/unix/lwt_io.ml" 446 14293 14340
type(
  'a _channel
)
"src/unix/lwt_io.ml" 446 14293 14308 "src/unix/lwt_io.ml" 446 14293 14341
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 446 14293 14299 "src/unix/lwt_io.ml" 446 14293 14341
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 447 14342 14346 "src/unix/lwt_io.ml" 447 14342 14350
type(
  'a state
)
"src/unix/lwt_io.ml" 447 14342 14353 "src/unix/lwt_io.ml" 447 14342 14367
type(
  'a state
)
"src/unix/lwt_io.ml" 447 14342 14346 "src/unix/lwt_io.ml" 447 14342 14367
type(
  'a state
)
"src/unix/lwt_io.ml" 447 14342 14370 "src/unix/lwt_io.ml" 447 14342 14386
type(
  'a state
)
"src/unix/lwt_io.ml" 447 14342 14346 "src/unix/lwt_io.ml" 447 14342 14386
type(
  'a state
)
"src/unix/lwt_io.ml" 448 14390 14396 "src/unix/lwt_io.ml" 448 14390 14403
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 448 14390 14413 "src/unix/lwt_io.ml" 448 14390 14419
type(
  'a state
)
"src/unix/lwt_io.ml" 448 14390 14396 "src/unix/lwt_io.ml" 448 14390 14419
type(
  unit
)
"src/unix/lwt_io.ml" 451 14507 14513 "src/unix/lwt_io.ml" 451 14507 14527
type(
  int Lwt.u -> exn -> unit
)
ident(
  ext_ref Lwt.wakeup_exn
)
"src/unix/lwt_io.ml" 451 14507 14528 "src/unix/lwt_io.ml" 451 14507 14535
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 451 14507 14528 "src/unix/lwt_io.ml" 451 14507 14543
type(
  'a _channel
)
"src/unix/lwt_io.ml" 451 14507 14528 "src/unix/lwt_io.ml" 451 14507 14557
type(
  int Lwt.u
)
"src/unix/lwt_io.ml" 451 14507 14559 "src/unix/lwt_io.ml" 451 14507 14573
type(
  'a _channel -> exn
)
ident(
  int_ref closed_channel "src/unix/lwt_io.ml" 186 5488 5492 "src/unix/lwt_io.ml" 186 5488 5506
)
"src/unix/lwt_io.ml" 451 14507 14574 "src/unix/lwt_io.ml" 451 14507 14581
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 451 14507 14574 "src/unix/lwt_io.ml" 451 14507 14589
type(
  'a _channel
)
"src/unix/lwt_io.ml" 451 14507 14558 "src/unix/lwt_io.ml" 451 14507 14590
call(
  stack
)
type(
  exn
)
"src/unix/lwt_io.ml" 451 14507 14513 "src/unix/lwt_io.ml" 451 14507 14590
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 452 14592 14598 "src/unix/lwt_io.ml" 452 14592 14608
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 452 14592 14609 "src/unix/lwt_io.ml" 452 14592 14616
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 438 14012 14026 "src/unix/lwt_io.ml" 438 14012 14033
)
"src/unix/lwt_io.ml" 452 14592 14609 "src/unix/lwt_io.ml" 452 14592 14624
type(
  'a _channel
)
"src/unix/lwt_io.ml" 452 14592 14609 "src/unix/lwt_io.ml" 452 14592 14630
type(
  unit Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 452 14592 14598 "src/unix/lwt_io.ml" 452 14592 14630
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 451 14507 14513 "src/unix/lwt_io.ml" 452 14592 14630
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 448 14390 14396 "src/unix/lwt_io.ml" 452 14592 14630
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 438 14012 14036 "src/unix/lwt_io.ml" 452 14592 14630
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 454 14632 14641
type(
  'mode. 'mode channel -> unit Lwt.t
)
ident(
  def close "src/unix/lwt_io.ml" 472 15283 15283 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
type(
  mode channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 455 14699 14701 "src/unix/lwt_io.ml" 470 15253 15281
)
"src/unix/lwt_io.ml" 455 14699 14705 "src/unix/lwt_io.ml" 455 14699 14712
type(
  mode _channel
)
ident(
  def channel "src/unix/lwt_io.ml" 456 14734 14736 "src/unix/lwt_io.ml" 470 15253 15281
)
"src/unix/lwt_io.ml" 455 14699 14715 "src/unix/lwt_io.ml" 455 14699 14722
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
)
"src/unix/lwt_io.ml" 455 14699 14715 "src/unix/lwt_io.ml" 455 14699 14730
type(
  mode _channel
)
"src/unix/lwt_io.ml" 456 14734 14739 "src/unix/lwt_io.ml" 456 14734 14746
type(
  mode _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 455 14699 14705 "src/unix/lwt_io.ml" 455 14699 14712
)
"src/unix/lwt_io.ml" 456 14734 14739 "src/unix/lwt_io.ml" 456 14734 14751
type(
  mode channel
)
"src/unix/lwt_io.ml" 456 14734 14752 "src/unix/lwt_io.ml" 456 14734 14754
type(
  mode channel -> mode channel -> bool
)
ident(
  ext_ref Pervasives.( != )
)
"src/unix/lwt_io.ml" 456 14734 14755 "src/unix/lwt_io.ml" 456 14734 14762
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
)
"src/unix/lwt_io.ml" 456 14734 14739 "src/unix/lwt_io.ml" 456 14734 14762
type(
  bool
)
"src/unix/lwt_io.ml" 457 14768 14772 "src/unix/lwt_io.ml" 457 14768 14780
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 457 14768 14790 "src/unix/lwt_io.ml" 457 14768 14855
type(
  string
)
"src/unix/lwt_io.ml" 457 14768 14781 "src/unix/lwt_io.ml" 457 14768 14856
type(
  exn
)
"src/unix/lwt_io.ml" 457 14768 14772 "src/unix/lwt_io.ml" 457 14768 14856
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 459 14864 14874 "src/unix/lwt_io.ml" 459 14864 14881
type(
  mode _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 455 14699 14705 "src/unix/lwt_io.ml" 455 14699 14712
)
"src/unix/lwt_io.ml" 459 14864 14874 "src/unix/lwt_io.ml" 459 14864 14886
type(
  mode mode
)
"src/unix/lwt_io.ml" 460 14892 14900 "src/unix/lwt_io.ml" 460 14892 14905
type(
  mode mode
)
"src/unix/lwt_io.ml" 462 14944 14954 "src/unix/lwt_io.ml" 462 14944 14959
type(
  mode channel -> unit Lwt.t
)
ident(
  int_ref abort "src/unix/lwt_io.ml" 438 14012 14020 "src/unix/lwt_io.ml" 438 14012 14025
)
"src/unix/lwt_io.ml" 462 14944 14960 "src/unix/lwt_io.ml" 462 14944 14967
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
)
"src/unix/lwt_io.ml" 462 14944 14954 "src/unix/lwt_io.ml" 462 14944 14967
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 463 14968 14976 "src/unix/lwt_io.ml" 463 14968 14982
type(
  mode mode
)
"src/unix/lwt_io.ml" 464 14986 14996 "src/unix/lwt_io.ml" 464 14986 15005
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 465 15006 15023 "src/unix/lwt_io.ml" 465 15006 15025
type(
  unit
)
"src/unix/lwt_io.ml" 467 15112 15126 "src/unix/lwt_io.ml" 467 15112 15135
type(
  (mode _channel -> unit Lwt.t) -> mode channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 467 15112 15141 "src/unix/lwt_io.ml" 467 15112 15148
type(
  mode _channel
)
ident(
  def channel "src/unix/lwt_io.ml" 468 15152 15168 "src/unix/lwt_io.ml" 468 15152 15220
)
"src/unix/lwt_io.ml" 468 15152 15168 "src/unix/lwt_io.ml" 468 15152 15184
type(
  mode _channel -> unit Lwt.t
)
ident(
  int_ref safe_flush_total "src/unix/lwt_io.ml" 275 8687 8691 "src/unix/lwt_io.ml" 275 8687 8707
)
"src/unix/lwt_io.ml" 468 15152 15185 "src/unix/lwt_io.ml" 468 15152 15192
type(
  mode _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 467 15112 15141 "src/unix/lwt_io.ml" 467 15112 15148
)
"src/unix/lwt_io.ml" 468 15152 15168 "src/unix/lwt_io.ml" 468 15152 15192
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 468 15152 15193 "src/unix/lwt_io.ml" 468 15152 15196
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 468 15152 15201 "src/unix/lwt_io.ml" 468 15152 15203
type(
  unit
)
"src/unix/lwt_io.ml" 468 15152 15207 "src/unix/lwt_io.ml" 468 15152 15212
type(
  mode channel -> unit Lwt.t
)
ident(
  int_ref abort "src/unix/lwt_io.ml" 438 14012 14020 "src/unix/lwt_io.ml" 438 14012 14025
)
"src/unix/lwt_io.ml" 468 15152 15213 "src/unix/lwt_io.ml" 468 15152 15220
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
)
"src/unix/lwt_io.ml" 468 15152 15207 "src/unix/lwt_io.ml" 468 15152 15220
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 468 15152 15197 "src/unix/lwt_io.ml" 468 15152 15220
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 468 15152 15168 "src/unix/lwt_io.ml" 468 15152 15220
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 467 15112 15136 "src/unix/lwt_io.ml" 468 15152 15221
type(
  mode _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 468 15152 15222 "src/unix/lwt_io.ml" 468 15152 15229
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
)
"src/unix/lwt_io.ml" 467 15112 15126 "src/unix/lwt_io.ml" 468 15152 15229
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 465 15006 15018 "src/unix/lwt_io.ml" 468 15152 15230
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 469 15231 15248 "src/unix/lwt_io.ml" 469 15231 15249
type(
  exn
)
"src/unix/lwt_io.ml" 470 15253 15267 "src/unix/lwt_io.ml" 470 15253 15272
type(
  mode channel -> unit Lwt.t
)
ident(
  int_ref abort "src/unix/lwt_io.ml" 438 14012 14020 "src/unix/lwt_io.ml" 438 14012 14025
)
"src/unix/lwt_io.ml" 470 15253 15273 "src/unix/lwt_io.ml" 470 15253 15280
type(
  mode channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 454 14632 14688 "src/unix/lwt_io.ml" 454 14632 14695
)
"src/unix/lwt_io.ml" 470 15253 15267 "src/unix/lwt_io.ml" 470 15253 15280
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 469 15231 15243 "src/unix/lwt_io.ml" 470 15253 15281
type(
  exn -> unit Lwt.t
)
"src/unix/lwt_io.ml" 464 14986 14996 "src/unix/lwt_io.ml" 470 15253 15281
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 459 14864 14868 "src/unix/lwt_io.ml" 470 15253 15281
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 456 14734 14736 "src/unix/lwt_io.ml" 470 15253 15281
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 455 14699 14701 "src/unix/lwt_io.ml" 470 15253 15281
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 454 14632 14684 "src/unix/lwt_io.ml" 470 15253 15281
type(
  mode channel -> unit Lwt.t
)
type(
  mode channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 470 15253 15281
type(
  'mode channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 472 15283 15287 "src/unix/lwt_io.ml" 472 15283 15296
type(
  'a channel -> bool
)
ident(
  def is_closed "src/unix/lwt_io.ml" 477 15434 15434 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 472 15283 15297 "src/unix/lwt_io.ml" 472 15283 15304
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 473 15307 15309 "src/unix/lwt_io.ml" 475 15353 15432
)
"src/unix/lwt_io.ml" 473 15307 15315 "src/unix/lwt_io.ml" 473 15307 15322
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 472 15283 15297 "src/unix/lwt_io.ml" 472 15283 15304
)
"src/unix/lwt_io.ml" 473 15307 15315 "src/unix/lwt_io.ml" 473 15307 15328
type(
  'a state
)
"src/unix/lwt_io.ml" 474 15334 15338 "src/unix/lwt_io.ml" 474 15334 15344
type(
  'a state
)
"src/unix/lwt_io.ml" 474 15334 15348 "src/unix/lwt_io.ml" 474 15334 15352
type(
  bool
)
"src/unix/lwt_io.ml" 475 15353 15357 "src/unix/lwt_io.ml" 475 15353 15371
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15386 "src/unix/lwt_io.ml" 475 15353 15387
type(
  'a channel
)
"src/unix/lwt_io.ml" 475 15353 15374 "src/unix/lwt_io.ml" 475 15353 15387
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15357 "src/unix/lwt_io.ml" 475 15353 15387
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15390 "src/unix/lwt_io.ml" 475 15353 15406
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15357 "src/unix/lwt_io.ml" 475 15353 15406
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15409 "src/unix/lwt_io.ml" 475 15353 15413
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15357 "src/unix/lwt_io.ml" 475 15353 15413
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15416 "src/unix/lwt_io.ml" 475 15353 15423
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15357 "src/unix/lwt_io.ml" 475 15353 15423
type(
  'a state
)
"src/unix/lwt_io.ml" 475 15353 15427 "src/unix/lwt_io.ml" 475 15353 15432
type(
  bool
)
"src/unix/lwt_io.ml" 473 15307 15309 "src/unix/lwt_io.ml" 475 15353 15432
type(
  bool
)
"src/unix/lwt_io.ml" 477 15434 15438 "src/unix/lwt_io.ml" 477 15434 15447
type(
  unit -> unit Lwt.t
)
ident(
  def flush_all "src/unix/lwt_io.ml" 486 15682 15682 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 477 15434 15448 "src/unix/lwt_io.ml" 477 15434 15450
type(
  unit
)
"src/unix/lwt_io.ml" 478 15453 15459 "src/unix/lwt_io.ml" 478 15453 15467
type(
  Outputs.data list
)
ident(
  def wrappers "src/unix/lwt_io.ml" 479 15517 15519 "src/unix/lwt_io.ml" 484 15668 15680
)
"src/unix/lwt_io.ml" 478 15453 15470 "src/unix/lwt_io.ml" 478 15453 15482
type(
  (Outputs.data -> Outputs.data list -> Outputs.data list) ->
  Outputs.t -> Outputs.data list -> Outputs.data list
)
ident(
  ext_ref Outputs.fold
)
"src/unix/lwt_io.ml" 478 15453 15488 "src/unix/lwt_io.ml" 478 15453 15489
type(
  Outputs.data
)
ident(
  def x "src/unix/lwt_io.ml" 478 15453 15490 "src/unix/lwt_io.ml" 478 15453 15501
)
"src/unix/lwt_io.ml" 478 15453 15490 "src/unix/lwt_io.ml" 478 15453 15491
type(
  Outputs.data list
)
ident(
  def l "src/unix/lwt_io.ml" 478 15453 15495 "src/unix/lwt_io.ml" 478 15453 15501
)
"src/unix/lwt_io.ml" 478 15453 15495 "src/unix/lwt_io.ml" 478 15453 15496
type(
  Outputs.data
)
ident(
  int_ref x "src/unix/lwt_io.ml" 478 15453 15488 "src/unix/lwt_io.ml" 478 15453 15489
)
"src/unix/lwt_io.ml" 478 15453 15500 "src/unix/lwt_io.ml" 478 15453 15501
type(
  Outputs.data list
)
ident(
  int_ref l "src/unix/lwt_io.ml" 478 15453 15490 "src/unix/lwt_io.ml" 478 15453 15491
)
"src/unix/lwt_io.ml" 478 15453 15495 "src/unix/lwt_io.ml" 478 15453 15501
type(
  Outputs.data list
)
"src/unix/lwt_io.ml" 478 15453 15483 "src/unix/lwt_io.ml" 478 15453 15502
type(
  Outputs.data -> Outputs.data list -> Outputs.data list
)
"src/unix/lwt_io.ml" 478 15453 15503 "src/unix/lwt_io.ml" 478 15453 15510
type(
  Outputs.t
)
ident(
  int_ref outputs "src/unix/lwt_io.ml" 171 5068 5072 "src/unix/lwt_io.ml" 171 5068 5079
)
"src/unix/lwt_io.ml" 478 15453 15511 "src/unix/lwt_io.ml" 478 15453 15513
type(
  Outputs.data list
)
"src/unix/lwt_io.ml" 478 15453 15470 "src/unix/lwt_io.ml" 478 15453 15513
call(
  stack
)
type(
  Outputs.data list
)
"src/unix/lwt_io.ml" 479 15517 15519 "src/unix/lwt_io.ml" 479 15517 15534
type(
  (Outputs.data -> unit Lwt.t) -> Outputs.data list -> unit Lwt.t
)
ident(
  ext_ref Lwt_list.iter_p
)
"src/unix/lwt_io.ml" 480 15535 15544 "src/unix/lwt_io.ml" 480 15535 15551
type(
  Outputs.data
)
ident(
  def wrapper "src/unix/lwt_io.ml" 481 15555 15562 "src/unix/lwt_io.ml" 483 15629 15666
)
"src/unix/lwt_io.ml" 481 15555 15562 "src/unix/lwt_io.ml" 481 15555 15571
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 482 15572 15587 "src/unix/lwt_io.ml" 482 15572 15589
type(
  unit
)
"src/unix/lwt_io.ml" 482 15572 15593 "src/unix/lwt_io.ml" 482 15572 15602
type(
  (output _channel -> unit Lwt.t) -> Outputs.data -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 482 15572 15603 "src/unix/lwt_io.ml" 482 15572 15619
type(
  output _channel -> unit Lwt.t
)
ident(
  int_ref safe_flush_total "src/unix/lwt_io.ml" 275 8687 8691 "src/unix/lwt_io.ml" 275 8687 8707
)
"src/unix/lwt_io.ml" 482 15572 15620 "src/unix/lwt_io.ml" 482 15572 15627
type(
  Outputs.data
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 480 15535 15544 "src/unix/lwt_io.ml" 480 15535 15551
)
"src/unix/lwt_io.ml" 482 15572 15593 "src/unix/lwt_io.ml" 482 15572 15627
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 482 15572 15582 "src/unix/lwt_io.ml" 482 15572 15628
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 483 15629 15644 "src/unix/lwt_io.ml" 483 15629 15645
type(
  exn
)
"src/unix/lwt_io.ml" 483 15629 15650 "src/unix/lwt_io.ml" 483 15629 15665
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 483 15629 15639 "src/unix/lwt_io.ml" 483 15629 15666
type(
  exn -> unit Lwt.t
)
"src/unix/lwt_io.ml" 481 15555 15562 "src/unix/lwt_io.ml" 483 15629 15666
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 480 15535 15539 "src/unix/lwt_io.ml" 483 15629 15667
type(
  Outputs.data -> unit Lwt.t
)
"src/unix/lwt_io.ml" 484 15668 15672 "src/unix/lwt_io.ml" 484 15668 15680
type(
  Outputs.data list
)
ident(
  int_ref wrappers "src/unix/lwt_io.ml" 478 15453 15459 "src/unix/lwt_io.ml" 478 15453 15467
)
"src/unix/lwt_io.ml" 479 15517 15519 "src/unix/lwt_io.ml" 484 15668 15680
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 478 15453 15455 "src/unix/lwt_io.ml" 484 15668 15680
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 486 15682 15686 "src/unix/lwt_io.ml" 486 15682 15688
type(
  unit
)
"src/unix/lwt_io.ml" 488 15740 15742 "src/unix/lwt_io.ml" 488 15740 15758
type(
  (unit -> unit Lwt.t) -> unit
)
ident(
  ext_ref Lwt_main.at_exit
)
"src/unix/lwt_io.ml" 488 15740 15759 "src/unix/lwt_io.ml" 488 15740 15768
type(
  unit -> unit Lwt.t
)
ident(
  int_ref flush_all "src/unix/lwt_io.ml" 477 15434 15438 "src/unix/lwt_io.ml" 477 15434 15447
)
"src/unix/lwt_io.ml" 488 15740 15742 "src/unix/lwt_io.ml" 488 15740 15768
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 490 15770 15774 "src/unix/lwt_io.ml" 490 15770 15781
type(
  'a -> 'b -> 'c Lwt.t
)
ident(
  def no_seek "src/unix/lwt_io.ml" 493 15866 15866 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 490 15770 15782 "src/unix/lwt_io.ml" 490 15770 15786
type(
  'a
)
ident(
  def _pos "src/unix/lwt_io.ml" 490 15770 15787 "src/unix/lwt_io.ml" 491 15794 15864
)
"src/unix/lwt_io.ml" 490 15770 15787 "src/unix/lwt_io.ml" 490 15770 15791
type(
  'b
)
ident(
  def _cmd "src/unix/lwt_io.ml" 491 15794 15796 "src/unix/lwt_io.ml" 491 15794 15864
)
"src/unix/lwt_io.ml" 491 15794 15796 "src/unix/lwt_io.ml" 491 15794 15804
type(
  exn -> 'c Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 491 15794 15814 "src/unix/lwt_io.ml" 491 15794 15863
type(
  string
)
"src/unix/lwt_io.ml" 491 15794 15805 "src/unix/lwt_io.ml" 491 15794 15864
type(
  exn
)
"src/unix/lwt_io.ml" 491 15794 15796 "src/unix/lwt_io.ml" 491 15794 15864
call(
  tail
)
type(
  'c Lwt.t
)
"src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 493 15866 15874
type(
  'm.
    ?buffer:Lwt_bytes.t ->
    ?close:(unit -> unit Lwt.t) ->
    ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
    mode:'m mode -> (Lwt_bytes.t -> int -> int -> int Lwt.t) -> 'm channel
)
ident(
  def make "src/unix/lwt_io.ml" 536 17112 17112 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 500 16081 16102 "src/unix/lwt_io.ml" 500 16081 16108
type(
  Lwt_bytes.t option
)
ident(
  def buffer "src/unix/lwt_io.ml" 500 16081 16109 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 500 16081 16111 "src/unix/lwt_io.ml" 500 16081 16116
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 500 16081 16117 "src/unix/lwt_io.ml" 500 16081 16127
type(
  unit -> unit Lwt.t
)
ident(
  ext_ref Lwt.return
)
type(
  unit -> unit Lwt.t
)
ident(
  int_ref *sth* "src/unix/lwt_io.ml" 500 16081 16117 "src/unix/lwt_io.ml" 500 16081 16127
)
type(
  (unit -> unit Lwt.t) option
)
type(
  (unit -> unit Lwt.t) option
)
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 500 16081 16131 "src/unix/lwt_io.ml" 500 16081 16135
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 500 16081 16136 "src/unix/lwt_io.ml" 500 16081 16143
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref no_seek "src/unix/lwt_io.ml" 490 15770 15774 "src/unix/lwt_io.ml" 490 15770 15781
)
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref *sth* "src/unix/lwt_io.ml" 500 16081 16136 "src/unix/lwt_io.ml" 500 16081 16143
)
type(
  (int64 -> Unix.seek_command -> int64 Lwt.t) option
)
type(
  (int64 -> Unix.seek_command -> int64 Lwt.t) option
)
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 500 16081 16146 "src/unix/lwt_io.ml" 500 16081 16150
type(
  m mode
)
ident(
  def mode "src/unix/lwt_io.ml" 500 16081 16151 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 500 16081 16151 "src/unix/lwt_io.ml" 500 16081 16161
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  def perform_io "src/unix/lwt_io.ml" 501 16165 16167 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 501 16165 16172 "src/unix/lwt_io.ml" 501 16165 16178
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 510 16428 16430 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 501 16165 16180 "src/unix/lwt_io.ml" 501 16165 16184
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 510 16428 16430 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 501 16165 16171 "src/unix/lwt_io.ml" 501 16165 16185
type(
  Lwt_bytes.t * int
)
"src/unix/lwt_io.ml" 502 16188 16198 "src/unix/lwt_io.ml" 502 16188 16204
type(
  Lwt_bytes.t option
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 500 16081 16102 "src/unix/lwt_io.ml" 500 16081 16108
)
"src/unix/lwt_io.ml" 503 16210 16223 "src/unix/lwt_io.ml" 503 16210 16229
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 504 16233 16243 "src/unix/lwt_io.ml" 505 16278 16321
)
"src/unix/lwt_io.ml" 503 16210 16218 "src/unix/lwt_io.ml" 503 16210 16229
type(
  Lwt_bytes.t option
)
"src/unix/lwt_io.ml" 504 16233 16243 "src/unix/lwt_io.ml" 504 16233 16255
type(
  string -> Lwt_bytes.t -> unit
)
ident(
  int_ref check_buffer "src/unix/lwt_io.ml" 38 1377 1381 "src/unix/lwt_io.ml" 38 1377 1393
)
"src/unix/lwt_io.ml" 504 16233 16256 "src/unix/lwt_io.ml" 504 16233 16269
type(
  string
)
"src/unix/lwt_io.ml" 504 16233 16270 "src/unix/lwt_io.ml" 504 16233 16276
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 503 16210 16223 "src/unix/lwt_io.ml" 503 16210 16229
)
"src/unix/lwt_io.ml" 504 16233 16243 "src/unix/lwt_io.ml" 504 16233 16276
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 505 16278 16289 "src/unix/lwt_io.ml" 505 16278 16295
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 503 16210 16223 "src/unix/lwt_io.ml" 503 16210 16229
)
"src/unix/lwt_io.ml" 505 16278 16297 "src/unix/lwt_io.ml" 505 16278 16313
type(
  Lwt_bytes.t -> int
)
ident(
  ext_ref Lwt_bytes.length
)
"src/unix/lwt_io.ml" 505 16278 16314 "src/unix/lwt_io.ml" 505 16278 16320
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 503 16210 16223 "src/unix/lwt_io.ml" 503 16210 16229
)
"src/unix/lwt_io.ml" 505 16278 16297 "src/unix/lwt_io.ml" 505 16278 16320
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 505 16278 16288 "src/unix/lwt_io.ml" 505 16278 16321
type(
  Lwt_bytes.t * int
)
"src/unix/lwt_io.ml" 504 16233 16243 "src/unix/lwt_io.ml" 505 16278 16321
type(
  Lwt_bytes.t * int
)
"src/unix/lwt_io.ml" 506 16322 16330 "src/unix/lwt_io.ml" 506 16322 16334
type(
  Lwt_bytes.t option
)
"src/unix/lwt_io.ml" 507 16338 16352 "src/unix/lwt_io.ml" 507 16338 16356
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 508 16383 16393 "src/unix/lwt_io.ml" 508 16383 16422
)
"src/unix/lwt_io.ml" 507 16338 16359 "src/unix/lwt_io.ml" 507 16338 16360
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 507 16338 16360 "src/unix/lwt_io.ml" 507 16338 16379
type(
  int ref
)
ident(
  int_ref default_buffer_size "src/unix/lwt_io.ml" 41 1468 1472 "src/unix/lwt_io.ml" 41 1468 1491
)
"src/unix/lwt_io.ml" 507 16338 16359 "src/unix/lwt_io.ml" 507 16338 16379
type(
  int
)
"src/unix/lwt_io.ml" 508 16383 16394 "src/unix/lwt_io.ml" 508 16383 16410
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 508 16383 16411 "src/unix/lwt_io.ml" 508 16383 16415
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 507 16338 16352 "src/unix/lwt_io.ml" 507 16338 16356
)
"src/unix/lwt_io.ml" 508 16383 16394 "src/unix/lwt_io.ml" 508 16383 16415
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 508 16383 16417 "src/unix/lwt_io.ml" 508 16383 16421
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 507 16338 16352 "src/unix/lwt_io.ml" 507 16338 16356
)
"src/unix/lwt_io.ml" 508 16383 16393 "src/unix/lwt_io.ml" 508 16383 16422
type(
  Lwt_bytes.t * int
)
"src/unix/lwt_io.ml" 507 16338 16348 "src/unix/lwt_io.ml" 508 16383 16422
type(
  Lwt_bytes.t * int
)
"src/unix/lwt_io.ml" 502 16188 16192 "src/unix/lwt_io.ml" 508 16383 16422
type(
  Lwt_bytes.t * int
)
"src/unix/lwt_io.ml" 510 16428 16434 "src/unix/lwt_io.ml" 510 16428 16446
type(
  int Lwt.t
)
ident(
  def abort_waiter "src/unix/lwt_io.ml" 511 16479 16481 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 510 16428 16448 "src/unix/lwt_io.ml" 510 16428 16461
type(
  int Lwt.u
)
ident(
  def abort_wakener "src/unix/lwt_io.ml" 511 16479 16481 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 510 16428 16434 "src/unix/lwt_io.ml" 510 16428 16461
type(
  int Lwt.t * int Lwt.u
)
"src/unix/lwt_io.ml" 510 16428 16464 "src/unix/lwt_io.ml" 510 16428 16472
type(
  unit -> int Lwt.t * int Lwt.u
)
ident(
  ext_ref Lwt.wait
)
"src/unix/lwt_io.ml" 510 16428 16473 "src/unix/lwt_io.ml" 510 16428 16475
type(
  unit
)
"src/unix/lwt_io.ml" 510 16428 16464 "src/unix/lwt_io.ml" 510 16428 16475
call(
  stack
)
type(
  int Lwt.t * int Lwt.u
)
"src/unix/lwt_io.ml" 511 16479 16489 "src/unix/lwt_io.ml" 511 16479 16491
type(
  m _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 511 16479 16481 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 512 16496 16509 "src/unix/lwt_io.ml" 512 16496 16515
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 501 16165 16172 "src/unix/lwt_io.ml" 501 16165 16178
)
"src/unix/lwt_io.ml" 513 16517 16530 "src/unix/lwt_io.ml" 513 16517 16534
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 501 16165 16180 "src/unix/lwt_io.ml" 501 16165 16184
)
"src/unix/lwt_io.ml" 514 16536 16546 "src/unix/lwt_io.ml" 514 16536 16547
type(
  int
)
"src/unix/lwt_io.ml" 515 16549 16566 "src/unix/lwt_io.ml" 515 16549 16570
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 500 16081 16146 "src/unix/lwt_io.ml" 500 16081 16150
)
"src/unix/lwt_io.ml" 516 16576 16591 "src/unix/lwt_io.ml" 516 16576 16596
type(
  m mode
)
"src/unix/lwt_io.ml" 516 16576 16600 "src/unix/lwt_io.ml" 516 16576 16601
type(
  int
)
"src/unix/lwt_io.ml" 517 16602 16617 "src/unix/lwt_io.ml" 517 16602 16623
type(
  m mode
)
"src/unix/lwt_io.ml" 517 16602 16627 "src/unix/lwt_io.ml" 517 16602 16631
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 501 16165 16180 "src/unix/lwt_io.ml" 501 16165 16184
)
"src/unix/lwt_io.ml" 515 16549 16559 "src/unix/lwt_io.ml" 517 16602 16632
type(
  int
)
"src/unix/lwt_io.ml" 518 16634 16651 "src/unix/lwt_io.ml" 518 16634 16660
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 518 16634 16661 "src/unix/lwt_io.ml" 518 16634 16666
type(
  unit -> unit Lwt.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 500 16081 16111 "src/unix/lwt_io.ml" 500 16081 16116
)
"src/unix/lwt_io.ml" 518 16634 16667 "src/unix/lwt_io.ml" 518 16634 16675
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 518 16634 16650 "src/unix/lwt_io.ml" 518 16634 16676
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 518 16634 16646 "src/unix/lwt_io.ml" 518 16634 16676
type(
  unit Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 519 16678 16697 "src/unix/lwt_io.ml" 519 16678 16709
type(
  int Lwt.t
)
ident(
  int_ref abort_waiter "src/unix/lwt_io.ml" 510 16428 16434 "src/unix/lwt_io.ml" 510 16428 16446
)
"src/unix/lwt_io.ml" 520 16711 16731 "src/unix/lwt_io.ml" 520 16711 16744
type(
  int Lwt.u
)
ident(
  int_ref abort_wakener "src/unix/lwt_io.ml" 510 16428 16448 "src/unix/lwt_io.ml" 510 16428 16461
)
"src/unix/lwt_io.ml" 521 16746 16757 "src/unix/lwt_io.ml" 521 16746 16764
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 526 16916 16924 "src/unix/lwt_io.ml" 526 16916 16931
)
"src/unix/lwt_io.ml" 522 16766 16786 "src/unix/lwt_io.ml" 522 16766 16791
type(
  bool
)
"src/unix/lwt_io.ml" 523 16793 16804 "src/unix/lwt_io.ml" 523 16793 16808
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 500 16081 16146 "src/unix/lwt_io.ml" 500 16081 16150
)
"src/unix/lwt_io.ml" 524 16810 16823 "src/unix/lwt_io.ml" 524 16810 16825
type(
  int64
)
"src/unix/lwt_io.ml" 525 16827 16849 "src/unix/lwt_io.ml" 525 16827 16859
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 500 16081 16151 "src/unix/lwt_io.ml" 500 16081 16161
)
"src/unix/lwt_io.ml" 525 16827 16865 "src/unix/lwt_io.ml" 525 16827 16868
type(
  int64
)
ident(
  def pos "src/unix/lwt_io.ml" 525 16827 16869 "src/unix/lwt_io.ml" 525 16827 16913
)
"src/unix/lwt_io.ml" 525 16827 16869 "src/unix/lwt_io.ml" 525 16827 16872
type(
  Unix.seek_command
)
ident(
  def cmd "src/unix/lwt_io.ml" 525 16827 16876 "src/unix/lwt_io.ml" 525 16827 16913
)
"src/unix/lwt_io.ml" 525 16827 16880 "src/unix/lwt_io.ml" 525 16827 16884
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref seek "src/unix/lwt_io.ml" 500 16081 16131 "src/unix/lwt_io.ml" 500 16081 16135
)
"src/unix/lwt_io.ml" 525 16827 16885 "src/unix/lwt_io.ml" 525 16827 16888
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 525 16827 16865 "src/unix/lwt_io.ml" 525 16827 16868
)
"src/unix/lwt_io.ml" 525 16827 16889 "src/unix/lwt_io.ml" 525 16827 16892
type(
  Unix.seek_command
)
ident(
  int_ref cmd "src/unix/lwt_io.ml" 525 16827 16869 "src/unix/lwt_io.ml" 525 16827 16872
)
"src/unix/lwt_io.ml" 525 16827 16880 "src/unix/lwt_io.ml" 525 16827 16892
call(
  stack
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 525 16827 16898 "src/unix/lwt_io.ml" 525 16827 16899
type(
  exn
)
ident(
  def e "src/unix/lwt_io.ml" 525 16827 16903 "src/unix/lwt_io.ml" 525 16827 16913
)
"src/unix/lwt_io.ml" 525 16827 16903 "src/unix/lwt_io.ml" 525 16827 16911
type(
  exn -> int64 Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 525 16827 16912 "src/unix/lwt_io.ml" 525 16827 16913
type(
  exn
)
ident(
  int_ref e "src/unix/lwt_io.ml" 525 16827 16898 "src/unix/lwt_io.ml" 525 16827 16899
)
"src/unix/lwt_io.ml" 525 16827 16903 "src/unix/lwt_io.ml" 525 16827 16913
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 525 16827 16876 "src/unix/lwt_io.ml" 525 16827 16913
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 525 16827 16861 "src/unix/lwt_io.ml" 525 16827 16913
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 525 16827 16837 "src/unix/lwt_io.ml" 525 16827 16914
type(
  typ
)
"src/unix/lwt_io.ml" 511 16479 16494 "src/unix/lwt_io.ml" 526 16916 16919
type(
  m _channel
)
"src/unix/lwt_io.ml" 526 16916 16924 "src/unix/lwt_io.ml" 526 16916 16931
type(
  m channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 511 16479 16481 "src/unix/lwt_io.ml" 534 17101 17110
)
"src/unix/lwt_io.ml" 527 16936 16948 "src/unix/lwt_io.ml" 527 16936 16952
type(
  m state
)
"src/unix/lwt_io.ml" 528 16954 16968 "src/unix/lwt_io.ml" 528 16954 16970
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 511 16479 16489 "src/unix/lwt_io.ml" 511 16479 16491
)
"src/unix/lwt_io.ml" 529 16972 16985 "src/unix/lwt_io.ml" 529 16972 17004
type(
  unit -> unit Lwt.u Lwt_sequence.t
)
ident(
  ext_ref Lwt_sequence.create
)
"src/unix/lwt_io.ml" 529 16972 17005 "src/unix/lwt_io.ml" 529 16972 17007
type(
  unit
)
"src/unix/lwt_io.ml" 529 16972 16985 "src/unix/lwt_io.ml" 529 16972 17007
call(
  stack
)
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 526 16916 16934 "src/unix/lwt_io.ml" 530 17009 17012
type(
  m channel
)
"src/unix/lwt_io.ml" 531 17016 17025 "src/unix/lwt_io.ml" 531 17016 17029
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 500 16081 16146 "src/unix/lwt_io.ml" 500 16081 16150
)
"src/unix/lwt_io.ml" 532 17035 17042 "src/unix/lwt_io.ml" 532 17035 17047
type(
  m mode
)
"src/unix/lwt_io.ml" 532 17035 17051 "src/unix/lwt_io.ml" 532 17035 17053
type(
  unit
)
"src/unix/lwt_io.ml" 533 17054 17061 "src/unix/lwt_io.ml" 533 17054 17067
type(
  m mode
)
"src/unix/lwt_io.ml" 533 17054 17071 "src/unix/lwt_io.ml" 533 17054 17082
type(
  Outputs.t -> Outputs.data -> unit
)
ident(
  ext_ref Outputs.add
)
"src/unix/lwt_io.ml" 533 17054 17083 "src/unix/lwt_io.ml" 533 17054 17090
type(
  Outputs.t
)
ident(
  int_ref outputs "src/unix/lwt_io.ml" 171 5068 5072 "src/unix/lwt_io.ml" 171 5068 5079
)
"src/unix/lwt_io.ml" 533 17054 17091 "src/unix/lwt_io.ml" 533 17054 17098
type(
  Outputs.data
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 526 16916 16924 "src/unix/lwt_io.ml" 526 16916 16931
)
"src/unix/lwt_io.ml" 533 17054 17071 "src/unix/lwt_io.ml" 533 17054 17098
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 531 17016 17018 "src/unix/lwt_io.ml" 533 17054 17099
type(
  unit
)
"src/unix/lwt_io.ml" 534 17101 17103 "src/unix/lwt_io.ml" 534 17101 17110
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 526 16916 16924 "src/unix/lwt_io.ml" 526 16916 16931
)
"src/unix/lwt_io.ml" 531 17016 17018 "src/unix/lwt_io.ml" 534 17101 17110
type(
  m channel
)
"src/unix/lwt_io.ml" 511 16479 16481 "src/unix/lwt_io.ml" 534 17101 17110
type(
  m channel
)
"src/unix/lwt_io.ml" 510 16428 16430 "src/unix/lwt_io.ml" 534 17101 17110
type(
  m channel
)
"src/unix/lwt_io.ml" 501 16165 16167 "src/unix/lwt_io.ml" 534 17101 17110
type(
  m channel
)
"src/unix/lwt_io.ml" 500 16081 16097 "src/unix/lwt_io.ml" 534 17101 17110
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:m mode -> (Lwt_bytes.t -> int -> int -> int Lwt.t) -> m channel
)
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:m mode -> (Lwt_bytes.t -> int -> int -> int Lwt.t) -> m channel
)
"src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 534 17101 17110
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:'m mode -> (Lwt_bytes.t -> int -> int -> int Lwt.t) -> 'm channel
)
"src/unix/lwt_io.ml" 536 17112 17116 "src/unix/lwt_io.ml" 536 17112 17124
type(
  mode:'a mode -> Lwt_bytes.t -> 'a channel
)
ident(
  def of_bytes "src/unix/lwt_io.ml" 561 17751 17751 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 536 17112 17126 "src/unix/lwt_io.ml" 536 17112 17130
type(
  'a mode
)
ident(
  def mode "src/unix/lwt_io.ml" 536 17112 17131 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 536 17112 17131 "src/unix/lwt_io.ml" 536 17112 17136
type(
  Lwt_bytes.t
)
ident(
  def bytes "src/unix/lwt_io.ml" 537 17139 17141 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 537 17139 17145 "src/unix/lwt_io.ml" 537 17139 17151
type(
  int
)
ident(
  def length "src/unix/lwt_io.ml" 538 17180 17182 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 537 17139 17154 "src/unix/lwt_io.ml" 537 17139 17170
type(
  Lwt_bytes.t -> int
)
ident(
  ext_ref Lwt_bytes.length
)
"src/unix/lwt_io.ml" 537 17139 17171 "src/unix/lwt_io.ml" 537 17139 17176
type(
  Lwt_bytes.t
)
ident(
  int_ref bytes "src/unix/lwt_io.ml" 536 17112 17131 "src/unix/lwt_io.ml" 536 17112 17136
)
"src/unix/lwt_io.ml" 537 17139 17154 "src/unix/lwt_io.ml" 537 17139 17176
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 538 17180 17186 "src/unix/lwt_io.ml" 538 17180 17198
type(
  int Lwt.t
)
ident(
  def abort_waiter "src/unix/lwt_io.ml" 539 17231 17233 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 538 17180 17200 "src/unix/lwt_io.ml" 538 17180 17213
type(
  int Lwt.u
)
ident(
  def abort_wakener "src/unix/lwt_io.ml" 539 17231 17233 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 538 17180 17186 "src/unix/lwt_io.ml" 538 17180 17213
type(
  int Lwt.t * int Lwt.u
)
"src/unix/lwt_io.ml" 538 17180 17216 "src/unix/lwt_io.ml" 538 17180 17224
type(
  unit -> int Lwt.t * int Lwt.u
)
ident(
  ext_ref Lwt.wait
)
"src/unix/lwt_io.ml" 538 17180 17225 "src/unix/lwt_io.ml" 538 17180 17227
type(
  unit
)
"src/unix/lwt_io.ml" 538 17180 17216 "src/unix/lwt_io.ml" 538 17180 17227
call(
  stack
)
type(
  int Lwt.t * int Lwt.u
)
"src/unix/lwt_io.ml" 539 17231 17241 "src/unix/lwt_io.ml" 539 17231 17243
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 539 17231 17233 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 540 17248 17261 "src/unix/lwt_io.ml" 540 17248 17266
type(
  Lwt_bytes.t
)
ident(
  int_ref bytes "src/unix/lwt_io.ml" 536 17112 17131 "src/unix/lwt_io.ml" 536 17112 17136
)
"src/unix/lwt_io.ml" 541 17268 17281 "src/unix/lwt_io.ml" 541 17268 17287
type(
  int
)
ident(
  int_ref length "src/unix/lwt_io.ml" 537 17139 17145 "src/unix/lwt_io.ml" 537 17139 17151
)
"src/unix/lwt_io.ml" 542 17289 17299 "src/unix/lwt_io.ml" 542 17289 17300
type(
  int
)
"src/unix/lwt_io.ml" 543 17302 17312 "src/unix/lwt_io.ml" 543 17302 17318
type(
  int
)
ident(
  int_ref length "src/unix/lwt_io.ml" 537 17139 17145 "src/unix/lwt_io.ml" 537 17139 17151
)
"src/unix/lwt_io.ml" 544 17320 17336 "src/unix/lwt_io.ml" 544 17320 17353
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 544 17320 17332 "src/unix/lwt_io.ml" 544 17320 17353
type(
  unit Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 545 17355 17374 "src/unix/lwt_io.ml" 545 17355 17386
type(
  int Lwt.t
)
ident(
  int_ref abort_waiter "src/unix/lwt_io.ml" 538 17180 17186 "src/unix/lwt_io.ml" 538 17180 17198
)
"src/unix/lwt_io.ml" 546 17388 17408 "src/unix/lwt_io.ml" 546 17388 17421
type(
  int Lwt.u
)
ident(
  int_ref abort_wakener "src/unix/lwt_io.ml" 538 17180 17200 "src/unix/lwt_io.ml" 538 17180 17213
)
"src/unix/lwt_io.ml" 547 17423 17434 "src/unix/lwt_io.ml" 547 17423 17441
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 554 17640 17648 "src/unix/lwt_io.ml" 554 17640 17655
)
"src/unix/lwt_io.ml" 550 17558 17578 "src/unix/lwt_io.ml" 550 17558 17582
type(
  bool
)
"src/unix/lwt_io.ml" 551 17584 17595 "src/unix/lwt_io.ml" 551 17584 17599
type(
  'a mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 536 17112 17126 "src/unix/lwt_io.ml" 536 17112 17130
)
"src/unix/lwt_io.ml" 552 17601 17614 "src/unix/lwt_io.ml" 552 17601 17616
type(
  int64
)
"src/unix/lwt_io.ml" 553 17618 17628 "src/unix/lwt_io.ml" 553 17618 17638
type(
  typ
)
"src/unix/lwt_io.ml" 539 17231 17246 "src/unix/lwt_io.ml" 554 17640 17643
type(
  'a _channel
)
"src/unix/lwt_io.ml" 554 17640 17648 "src/unix/lwt_io.ml" 554 17640 17655
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 539 17231 17233 "src/unix/lwt_io.ml" 559 17740 17749
)
"src/unix/lwt_io.ml" 555 17660 17672 "src/unix/lwt_io.ml" 555 17660 17676
type(
  'a state
)
"src/unix/lwt_io.ml" 556 17678 17692 "src/unix/lwt_io.ml" 556 17678 17694
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 539 17231 17241 "src/unix/lwt_io.ml" 539 17231 17243
)
"src/unix/lwt_io.ml" 557 17696 17709 "src/unix/lwt_io.ml" 557 17696 17728
type(
  unit -> unit Lwt.u Lwt_sequence.t
)
ident(
  ext_ref Lwt_sequence.create
)
"src/unix/lwt_io.ml" 557 17696 17729 "src/unix/lwt_io.ml" 557 17696 17731
type(
  unit
)
"src/unix/lwt_io.ml" 557 17696 17709 "src/unix/lwt_io.ml" 557 17696 17731
call(
  stack
)
type(
  unit Lwt.u Lwt_sequence.t
)
"src/unix/lwt_io.ml" 554 17640 17658 "src/unix/lwt_io.ml" 558 17733 17736
type(
  'a channel
)
"src/unix/lwt_io.ml" 559 17740 17742 "src/unix/lwt_io.ml" 559 17740 17749
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 554 17640 17648 "src/unix/lwt_io.ml" 554 17640 17655
)
"src/unix/lwt_io.ml" 539 17231 17233 "src/unix/lwt_io.ml" 559 17740 17749
type(
  'a channel
)
"src/unix/lwt_io.ml" 538 17180 17182 "src/unix/lwt_io.ml" 559 17740 17749
type(
  'a channel
)
"src/unix/lwt_io.ml" 537 17139 17141 "src/unix/lwt_io.ml" 559 17740 17749
type(
  'a channel
)
"src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
type(
  'm.
    ?buffer:Lwt_bytes.t ->
    ?close:(unit -> unit Lwt.t) ->
    mode:'m mode -> Lwt_unix.file_descr -> 'm channel
)
ident(
  def of_fd "src/unix/lwt_io.ml" 575 18240 18240 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 561 17751 17886 "src/unix/lwt_io.ml" 561 17751 17892
type(
  Lwt_bytes.t option
)
ident(
  def buffer "src/unix/lwt_io.ml" 561 17751 17893 "src/unix/lwt_io.ml" 573 18224 18238
)
"src/unix/lwt_io.ml" 561 17751 17894 "src/unix/lwt_io.ml" 561 17751 17899
type(
  (unit -> unit Lwt.t) option
)
ident(
  def close "src/unix/lwt_io.ml" 561 17751 17900 "src/unix/lwt_io.ml" 573 18224 18238
)
"src/unix/lwt_io.ml" 561 17751 17901 "src/unix/lwt_io.ml" 561 17751 17905
type(
  m mode
)
ident(
  def mode "src/unix/lwt_io.ml" 561 17751 17906 "src/unix/lwt_io.ml" 573 18224 18238
)
"src/unix/lwt_io.ml" 561 17751 17906 "src/unix/lwt_io.ml" 561 17751 17908
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 562 17912 17914 "src/unix/lwt_io.ml" 573 18224 18238
)
"src/unix/lwt_io.ml" 562 17912 17918 "src/unix/lwt_io.ml" 562 17912 17928
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  def perform_io "src/unix/lwt_io.ml" 566 18020 18022 "src/unix/lwt_io.ml" 573 18224 18238
)
"src/unix/lwt_io.ml" 562 17912 17937 "src/unix/lwt_io.ml" 562 17912 17941
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 561 17751 17901 "src/unix/lwt_io.ml" 561 17751 17905
)
"src/unix/lwt_io.ml" 563 17947 17953 "src/unix/lwt_io.ml" 563 17947 17958
type(
  m mode
)
"src/unix/lwt_io.ml" 563 17947 17962 "src/unix/lwt_io.ml" 563 17947 17976
type(
  Lwt_unix.file_descr -> Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  ext_ref Lwt_bytes.read
)
"src/unix/lwt_io.ml" 563 17947 17977 "src/unix/lwt_io.ml" 563 17947 17979
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 561 17751 17906 "src/unix/lwt_io.ml" 561 17751 17908
)
"src/unix/lwt_io.ml" 563 17947 17962 "src/unix/lwt_io.ml" 563 17947 17979
call(
  stack
)
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 564 17980 17986 "src/unix/lwt_io.ml" 564 17980 17992
type(
  m mode
)
"src/unix/lwt_io.ml" 564 17980 17996 "src/unix/lwt_io.ml" 564 17980 18011
type(
  Lwt_unix.file_descr -> Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  ext_ref Lwt_bytes.write
)
"src/unix/lwt_io.ml" 564 17980 18012 "src/unix/lwt_io.ml" 564 17980 18014
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 561 17751 17906 "src/unix/lwt_io.ml" 561 17751 17908
)
"src/unix/lwt_io.ml" 564 17980 17996 "src/unix/lwt_io.ml" 564 17980 18014
call(
  stack
)
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 562 17912 17931 "src/unix/lwt_io.ml" 564 17980 18014
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 566 18020 18022 "src/unix/lwt_io.ml" 566 18020 18026
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Lwt_unix.seek_command -> int64 Lwt.t) ->
  mode:m mode -> (Lwt_bytes.t -> int -> int -> int Lwt.t) -> m channel
)
ident(
  int_ref make "src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 493 15866 15874
)
"src/unix/lwt_io.ml" 567 18027 18032 "src/unix/lwt_io.ml" 567 18027 18038
type(
  Lwt_bytes.t option
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 561 17751 17886 "src/unix/lwt_io.ml" 561 17751 17892
)
"src/unix/lwt_io.ml" 568 18039 18057 "src/unix/lwt_io.ml" 568 18039 18062
type(
  (unit -> unit Lwt.t) option
)
ident(
  int_ref close "src/unix/lwt_io.ml" 561 17751 17894 "src/unix/lwt_io.ml" 561 17751 17899
)
"src/unix/lwt_io.ml" 569 18068 18089 "src/unix/lwt_io.ml" 569 18068 18090
type(
  unit -> unit Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 569 18068 18094 "src/unix/lwt_io.ml" 569 18068 18095
)
"src/unix/lwt_io.ml" 569 18068 18084 "src/unix/lwt_io.ml" 569 18068 18090
type(
  (unit -> unit Lwt.t) option
)
"src/unix/lwt_io.ml" 569 18068 18094 "src/unix/lwt_io.ml" 569 18068 18095
type(
  unit -> unit Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 569 18068 18089 "src/unix/lwt_io.ml" 569 18068 18090
)
"src/unix/lwt_io.ml" 570 18096 18112 "src/unix/lwt_io.ml" 570 18096 18116
type(
  (unit -> unit Lwt.t) option
)
"src/unix/lwt_io.ml" 570 18096 18125 "src/unix/lwt_io.ml" 570 18096 18127
type(
  unit
)
"src/unix/lwt_io.ml" 570 18096 18131 "src/unix/lwt_io.ml" 570 18096 18145
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  ext_ref Lwt_unix.close
)
"src/unix/lwt_io.ml" 570 18096 18146 "src/unix/lwt_io.ml" 570 18096 18148
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 561 17751 17906 "src/unix/lwt_io.ml" 561 17751 17908
)
"src/unix/lwt_io.ml" 570 18096 18131 "src/unix/lwt_io.ml" 570 18096 18148
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 570 18096 18120 "src/unix/lwt_io.ml" 570 18096 18149
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 568 18039 18050 "src/unix/lwt_io.ml" 570 18096 18150
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 571 18151 18166 "src/unix/lwt_io.ml" 571 18151 18169
type(
  int64
)
ident(
  def pos "src/unix/lwt_io.ml" 571 18151 18170 "src/unix/lwt_io.ml" 571 18151 18212
)
"src/unix/lwt_io.ml" 571 18151 18170 "src/unix/lwt_io.ml" 571 18151 18173
type(
  Lwt_unix.seek_command
)
ident(
  def cmd "src/unix/lwt_io.ml" 571 18151 18177 "src/unix/lwt_io.ml" 571 18151 18212
)
"src/unix/lwt_io.ml" 571 18151 18177 "src/unix/lwt_io.ml" 571 18151 18201
type(
  Lwt_unix.file_descr -> int64 -> Lwt_unix.seek_command -> int64 Lwt.t
)
ident(
  ext_ref Lwt_unix.LargeFile.lseek
)
"src/unix/lwt_io.ml" 571 18151 18202 "src/unix/lwt_io.ml" 571 18151 18204
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 561 17751 17906 "src/unix/lwt_io.ml" 561 17751 17908
)
"src/unix/lwt_io.ml" 571 18151 18205 "src/unix/lwt_io.ml" 571 18151 18208
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 571 18151 18166 "src/unix/lwt_io.ml" 571 18151 18169
)
"src/unix/lwt_io.ml" 571 18151 18209 "src/unix/lwt_io.ml" 571 18151 18212
type(
  Lwt_unix.seek_command
)
ident(
  int_ref cmd "src/unix/lwt_io.ml" 571 18151 18170 "src/unix/lwt_io.ml" 571 18151 18173
)
"src/unix/lwt_io.ml" 571 18151 18177 "src/unix/lwt_io.ml" 571 18151 18212
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 571 18151 18161 "src/unix/lwt_io.ml" 571 18151 18213
type(
  int64 -> Lwt_unix.seek_command -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 572 18214 18219 "src/unix/lwt_io.ml" 572 18214 18223
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 561 17751 17901 "src/unix/lwt_io.ml" 561 17751 17905
)
"src/unix/lwt_io.ml" 573 18224 18228 "src/unix/lwt_io.ml" 573 18224 18238
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 562 17912 17918 "src/unix/lwt_io.ml" 562 17912 17928
)
"src/unix/lwt_io.ml" 566 18020 18022 "src/unix/lwt_io.ml" 573 18224 18238
call(
  tail
)
type(
  m channel
)
"src/unix/lwt_io.ml" 562 17912 17914 "src/unix/lwt_io.ml" 573 18224 18238
type(
  m channel
)
"src/unix/lwt_io.ml" 561 17751 17881 "src/unix/lwt_io.ml" 573 18224 18238
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:m mode -> Lwt_unix.file_descr -> m channel
)
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:m mode -> Lwt_unix.file_descr -> m channel
)
"src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 573 18224 18238
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:'m mode -> Lwt_unix.file_descr -> 'm channel
)
"src/unix/lwt_io.ml" 575 18240 18244 "src/unix/lwt_io.ml" 575 18240 18254
type(
  'm.
    ?buffer:Lwt_bytes.t ->
    ?close:(unit -> unit Lwt.t) ->
    mode:'m mode -> Unix.file_descr -> 'm channel
)
ident(
  def of_unix_fd "src/unix/lwt_io.ml" 578 18465 18465 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 575 18240 18376 "src/unix/lwt_io.ml" 575 18240 18382
type(
  Lwt_bytes.t option
)
ident(
  def buffer "src/unix/lwt_io.ml" 575 18240 18383 "src/unix/lwt_io.ml" 576 18402 18463
)
"src/unix/lwt_io.ml" 575 18240 18384 "src/unix/lwt_io.ml" 575 18240 18389
type(
  (unit -> unit Lwt.t) option
)
ident(
  def close "src/unix/lwt_io.ml" 575 18240 18390 "src/unix/lwt_io.ml" 576 18402 18463
)
"src/unix/lwt_io.ml" 575 18240 18391 "src/unix/lwt_io.ml" 575 18240 18395
type(
  m mode
)
ident(
  def mode "src/unix/lwt_io.ml" 575 18240 18396 "src/unix/lwt_io.ml" 576 18402 18463
)
"src/unix/lwt_io.ml" 575 18240 18396 "src/unix/lwt_io.ml" 575 18240 18398
type(
  Unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 576 18402 18404 "src/unix/lwt_io.ml" 576 18402 18463
)
"src/unix/lwt_io.ml" 576 18402 18404 "src/unix/lwt_io.ml" 576 18402 18409
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:m mode -> Lwt_unix.file_descr -> m channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 576 18402 18411 "src/unix/lwt_io.ml" 576 18402 18417
type(
  Lwt_bytes.t option
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 575 18240 18376 "src/unix/lwt_io.ml" 575 18240 18382
)
"src/unix/lwt_io.ml" 576 18402 18419 "src/unix/lwt_io.ml" 576 18402 18424
type(
  (unit -> unit Lwt.t) option
)
ident(
  int_ref close "src/unix/lwt_io.ml" 575 18240 18384 "src/unix/lwt_io.ml" 575 18240 18389
)
"src/unix/lwt_io.ml" 576 18402 18426 "src/unix/lwt_io.ml" 576 18402 18430
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 575 18240 18391 "src/unix/lwt_io.ml" 575 18240 18395
)
"src/unix/lwt_io.ml" 576 18402 18432 "src/unix/lwt_io.ml" 576 18402 18459
type(
  ?blocking:bool -> ?set_flags:bool -> Unix.file_descr -> Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.of_unix_file_descr
)
"src/unix/lwt_io.ml" 576 18402 18460 "src/unix/lwt_io.ml" 576 18402 18462
type(
  Unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 575 18240 18396 "src/unix/lwt_io.ml" 575 18240 18398
)
"src/unix/lwt_io.ml" 576 18402 18431 "src/unix/lwt_io.ml" 576 18402 18463
call(
  stack
)
type(
  Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 576 18402 18404 "src/unix/lwt_io.ml" 576 18402 18463
call(
  tail
)
type(
  m channel
)
"src/unix/lwt_io.ml" 575 18240 18371 "src/unix/lwt_io.ml" 576 18402 18463
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) -> mode:m mode -> Unix.file_descr -> m channel
)
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) -> mode:m mode -> Unix.file_descr -> m channel
)
"src/unix/lwt_io.ml" 575 18240 18244 "src/unix/lwt_io.ml" 576 18402 18463
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:'m mode -> Unix.file_descr -> 'm channel
)
"src/unix/lwt_io.ml" 578 18465 18469 "src/unix/lwt_io.ml" 578 18465 18477
type(
  'm. 'm channel -> int
)
ident(
  def buffered "src/unix/lwt_io.ml" 583 18625 18625 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 578 18465 18511 "src/unix/lwt_io.ml" 578 18465 18513
type(
  m channel
)
ident(
  def ch "src/unix/lwt_io.ml" 579 18517 18519 "src/unix/lwt_io.ml" 581 18593 18623
)
"src/unix/lwt_io.ml" 579 18517 18525 "src/unix/lwt_io.ml" 579 18517 18527
type(
  m channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 578 18465 18511 "src/unix/lwt_io.ml" 578 18465 18513
)
"src/unix/lwt_io.ml" 579 18517 18525 "src/unix/lwt_io.ml" 579 18517 18535
type(
  m _channel
)
"src/unix/lwt_io.ml" 579 18517 18525 "src/unix/lwt_io.ml" 579 18517 18540
type(
  m mode
)
"src/unix/lwt_io.ml" 580 18546 18552 "src/unix/lwt_io.ml" 580 18546 18557
type(
  m mode
)
"src/unix/lwt_io.ml" 580 18546 18561 "src/unix/lwt_io.ml" 580 18546 18563
type(
  m channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 578 18465 18511 "src/unix/lwt_io.ml" 578 18465 18513
)
"src/unix/lwt_io.ml" 580 18546 18561 "src/unix/lwt_io.ml" 580 18546 18571
type(
  m _channel
)
"src/unix/lwt_io.ml" 580 18546 18561 "src/unix/lwt_io.ml" 580 18546 18575
type(
  int
)
"src/unix/lwt_io.ml" 580 18546 18576 "src/unix/lwt_io.ml" 580 18546 18577
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 580 18546 18578 "src/unix/lwt_io.ml" 580 18546 18580
type(
  m channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 578 18465 18511 "src/unix/lwt_io.ml" 578 18465 18513
)
"src/unix/lwt_io.ml" 580 18546 18578 "src/unix/lwt_io.ml" 580 18546 18588
type(
  m _channel
)
"src/unix/lwt_io.ml" 580 18546 18578 "src/unix/lwt_io.ml" 580 18546 18592
type(
  int
)
"src/unix/lwt_io.ml" 580 18546 18561 "src/unix/lwt_io.ml" 580 18546 18592
type(
  int
)
"src/unix/lwt_io.ml" 581 18593 18599 "src/unix/lwt_io.ml" 581 18593 18605
type(
  m mode
)
"src/unix/lwt_io.ml" 581 18593 18609 "src/unix/lwt_io.ml" 581 18593 18611
type(
  m channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 578 18465 18511 "src/unix/lwt_io.ml" 578 18465 18513
)
"src/unix/lwt_io.ml" 581 18593 18609 "src/unix/lwt_io.ml" 581 18593 18619
type(
  m _channel
)
"src/unix/lwt_io.ml" 581 18593 18609 "src/unix/lwt_io.ml" 581 18593 18623
type(
  int
)
"src/unix/lwt_io.ml" 579 18517 18519 "src/unix/lwt_io.ml" 581 18593 18623
type(
  int
)
"src/unix/lwt_io.ml" 578 18465 18507 "src/unix/lwt_io.ml" 581 18593 18623
type(
  m channel -> int
)
type(
  m channel -> int
)
"src/unix/lwt_io.ml" 578 18465 18469 "src/unix/lwt_io.ml" 581 18593 18623
type(
  'm channel -> int
)
"src/unix/lwt_io.ml" 583 18625 18629 "src/unix/lwt_io.ml" 583 18625 18640
type(
  'a channel -> int
)
ident(
  def buffer_size "src/unix/lwt_io.ml" 585 18665 18665 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 583 18625 18641 "src/unix/lwt_io.ml" 583 18625 18643
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 583 18625 18646 "src/unix/lwt_io.ml" 583 18625 18663
)
"src/unix/lwt_io.ml" 583 18625 18646 "src/unix/lwt_io.ml" 583 18625 18648
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 583 18625 18641 "src/unix/lwt_io.ml" 583 18625 18643
)
"src/unix/lwt_io.ml" 583 18625 18646 "src/unix/lwt_io.ml" 583 18625 18656
type(
  'a _channel
)
"src/unix/lwt_io.ml" 583 18625 18646 "src/unix/lwt_io.ml" 583 18625 18663
type(
  int
)
"src/unix/lwt_io.ml" 585 18665 18669 "src/unix/lwt_io.ml" 585 18665 18682
type(
  'm. 'm channel -> int -> unit Lwt.t
)
ident(
  def resize_buffer "src/unix/lwt_io.ml" 632 20758 20758 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 585 18665 18730 "src/unix/lwt_io.ml" 585 18665 18737
type(
  m channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 626 20512 20539
)
"src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 586 18745 18747 "src/unix/lwt_io.ml" 626 20512 20539
)
"src/unix/lwt_io.ml" 586 18745 18750 "src/unix/lwt_io.ml" 586 18745 18753
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 586 18745 18754 "src/unix/lwt_io.ml" 586 18745 18755
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 586 18745 18756 "src/unix/lwt_io.ml" 586 18745 18771
type(
  int
)
ident(
  int_ref min_buffer_size "src/unix/lwt_io.ml" 28 1016 1020 "src/unix/lwt_io.ml" 28 1016 1035
)
"src/unix/lwt_io.ml" 586 18745 18750 "src/unix/lwt_io.ml" 586 18745 18771
type(
  bool
)
"src/unix/lwt_io.ml" 586 18745 18777 "src/unix/lwt_io.ml" 586 18745 18788
type(
  string -> unit
)
ident(
  ext_ref Pervasives.invalid_arg
)
"src/unix/lwt_io.ml" 586 18745 18789 "src/unix/lwt_io.ml" 586 18745 18811
type(
  string
)
"src/unix/lwt_io.ml" 586 18745 18777 "src/unix/lwt_io.ml" 586 18745 18811
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 586 18745 18747 "src/unix/lwt_io.ml" 586 18745 18811
type(
  unit
)
"src/unix/lwt_io.ml" 587 18813 18821 "src/unix/lwt_io.ml" 587 18813 18828
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 585 18665 18730 "src/unix/lwt_io.ml" 585 18665 18737
)
"src/unix/lwt_io.ml" 587 18813 18821 "src/unix/lwt_io.ml" 587 18813 18836
type(
  m _channel
)
"src/unix/lwt_io.ml" 587 18813 18821 "src/unix/lwt_io.ml" 587 18813 18840
type(
  typ
)
"src/unix/lwt_io.ml" 588 18846 18852 "src/unix/lwt_io.ml" 588 18846 18862
type(
  typ
)
"src/unix/lwt_io.ml" 589 18866 18874 "src/unix/lwt_io.ml" 589 18866 18882
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 589 18866 18892 "src/unix/lwt_io.ml" 589 18866 18983
type(
  string
)
"src/unix/lwt_io.ml" 589 18866 18883 "src/unix/lwt_io.ml" 589 18866 18984
type(
  exn
)
"src/unix/lwt_io.ml" 589 18866 18874 "src/unix/lwt_io.ml" 589 18866 18984
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 590 18985 19003 "src/unix/lwt_io.ml" 590 18985 19004
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 590 18985 18991 "src/unix/lwt_io.ml" 590 18985 19004
type(
  typ
)
"src/unix/lwt_io.ml" 591 19008 19020 "src/unix/lwt_io.ml" 591 19008 19021
type(
  'm. 'm _channel -> unit Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 626 20512 20520 "src/unix/lwt_io.ml" 626 20512 20539
)
"src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
type(
  m _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 592 19069 19079 "src/unix/lwt_io.ml" 624 20469 20500
)
"src/unix/lwt_io.ml" 592 19069 19085 "src/unix/lwt_io.ml" 592 19069 19087
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 592 19069 19085 "src/unix/lwt_io.ml" 592 19069 19092
type(
  m mode
)
"src/unix/lwt_io.ml" 593 19098 19112 "src/unix/lwt_io.ml" 593 19098 19117
type(
  m mode
)
"src/unix/lwt_io.ml" 594 19121 19141 "src/unix/lwt_io.ml" 594 19121 19153
type(
  int
)
ident(
  def unread_count "src/unix/lwt_io.ml" 597 19309 19325 "src/unix/lwt_io.ml" 607 19785 19804
)
"src/unix/lwt_io.ml" 594 19121 19156 "src/unix/lwt_io.ml" 594 19121 19158
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 594 19121 19156 "src/unix/lwt_io.ml" 594 19121 19162
type(
  int
)
"src/unix/lwt_io.ml" 594 19121 19163 "src/unix/lwt_io.ml" 594 19121 19164
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 594 19121 19165 "src/unix/lwt_io.ml" 594 19121 19167
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 594 19121 19165 "src/unix/lwt_io.ml" 594 19121 19171
type(
  int
)
"src/unix/lwt_io.ml" 594 19121 19156 "src/unix/lwt_io.ml" 594 19121 19171
type(
  int
)
"src/unix/lwt_io.ml" 597 19309 19328 "src/unix/lwt_io.ml" 597 19309 19331
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 597 19309 19332 "src/unix/lwt_io.ml" 597 19309 19333
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 597 19309 19334 "src/unix/lwt_io.ml" 597 19309 19346
type(
  int
)
ident(
  int_ref unread_count "src/unix/lwt_io.ml" 594 19121 19141 "src/unix/lwt_io.ml" 594 19121 19153
)
"src/unix/lwt_io.ml" 597 19309 19328 "src/unix/lwt_io.ml" 597 19309 19346
type(
  bool
)
"src/unix/lwt_io.ml" 598 19352 19370 "src/unix/lwt_io.ml" 598 19352 19378
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 598 19352 19388 "src/unix/lwt_io.ml" 598 19352 19439
type(
  string
)
"src/unix/lwt_io.ml" 598 19352 19379 "src/unix/lwt_io.ml" 598 19352 19440
type(
  exn
)
"src/unix/lwt_io.ml" 598 19352 19370 "src/unix/lwt_io.ml" 598 19352 19440
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 600 19468 19490 "src/unix/lwt_io.ml" 600 19468 19496
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 601 19523 19541 "src/unix/lwt_io.ml" 606 19751 19784
)
"src/unix/lwt_io.ml" 600 19468 19499 "src/unix/lwt_io.ml" 600 19468 19515
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 600 19468 19516 "src/unix/lwt_io.ml" 600 19468 19519
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 600 19468 19499 "src/unix/lwt_io.ml" 600 19468 19519
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 601 19523 19541 "src/unix/lwt_io.ml" 601 19523 19562
type(
  Lwt_bytes.t -> int -> Lwt_bytes.t -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit
)
"src/unix/lwt_io.ml" 601 19523 19563 "src/unix/lwt_io.ml" 601 19523 19565
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 601 19523 19563 "src/unix/lwt_io.ml" 601 19523 19572
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 601 19523 19573 "src/unix/lwt_io.ml" 601 19523 19575
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 601 19523 19573 "src/unix/lwt_io.ml" 601 19523 19579
type(
  int
)
"src/unix/lwt_io.ml" 601 19523 19580 "src/unix/lwt_io.ml" 601 19523 19586
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 600 19468 19490 "src/unix/lwt_io.ml" 600 19468 19496
)
"src/unix/lwt_io.ml" 601 19523 19587 "src/unix/lwt_io.ml" 601 19523 19588
type(
  int
)
"src/unix/lwt_io.ml" 601 19523 19589 "src/unix/lwt_io.ml" 601 19523 19601
type(
  int
)
ident(
  int_ref unread_count "src/unix/lwt_io.ml" 594 19121 19141 "src/unix/lwt_io.ml" 594 19121 19153
)
"src/unix/lwt_io.ml" 601 19523 19541 "src/unix/lwt_io.ml" 601 19523 19601
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 602 19603 19621 "src/unix/lwt_io.ml" 602 19603 19623
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 602 19603 19634 "src/unix/lwt_io.ml" 602 19603 19640
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 600 19468 19490 "src/unix/lwt_io.ml" 600 19468 19496
)
"src/unix/lwt_io.ml" 602 19603 19621 "src/unix/lwt_io.ml" 602 19603 19640
type(
  unit
)
"src/unix/lwt_io.ml" 603 19642 19660 "src/unix/lwt_io.ml" 603 19642 19662
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 603 19642 19673 "src/unix/lwt_io.ml" 603 19642 19676
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 603 19642 19660 "src/unix/lwt_io.ml" 603 19642 19676
type(
  unit
)
"src/unix/lwt_io.ml" 604 19678 19696 "src/unix/lwt_io.ml" 604 19678 19698
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 604 19678 19706 "src/unix/lwt_io.ml" 604 19678 19707
type(
  int
)
"src/unix/lwt_io.ml" 604 19678 19696 "src/unix/lwt_io.ml" 604 19678 19707
type(
  unit
)
"src/unix/lwt_io.ml" 605 19709 19727 "src/unix/lwt_io.ml" 605 19709 19729
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 605 19709 19737 "src/unix/lwt_io.ml" 605 19709 19749
type(
  int
)
ident(
  int_ref unread_count "src/unix/lwt_io.ml" 594 19121 19141 "src/unix/lwt_io.ml" 594 19121 19153
)
"src/unix/lwt_io.ml" 605 19709 19727 "src/unix/lwt_io.ml" 605 19709 19749
type(
  unit
)
"src/unix/lwt_io.ml" 606 19751 19769 "src/unix/lwt_io.ml" 606 19751 19784
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 605 19709 19727 "src/unix/lwt_io.ml" 606 19751 19784
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 604 19678 19696 "src/unix/lwt_io.ml" 606 19751 19784
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 603 19642 19660 "src/unix/lwt_io.ml" 606 19751 19784
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 602 19603 19621 "src/unix/lwt_io.ml" 606 19751 19784
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 601 19523 19541 "src/unix/lwt_io.ml" 606 19751 19784
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 599 19441 19462 "src/unix/lwt_io.ml" 607 19785 19804
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 597 19309 19325 "src/unix/lwt_io.ml" 607 19785 19804
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 594 19121 19137 "src/unix/lwt_io.ml" 607 19785 19804
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 608 19805 19819 "src/unix/lwt_io.ml" 608 19805 19825
type(
  m mode
)
"src/unix/lwt_io.ml" 611 19980 20004 "src/unix/lwt_io.ml" 611 19980 20008
type(
  unit -> unit Lwt.t
)
ident(
  def loop "src/unix/lwt_io.ml" 611 19980 19996 "src/unix/lwt_io.ml" 624 20469 20500
)
"src/unix/lwt_io.ml" 611 19980 20009 "src/unix/lwt_io.ml" 611 19980 20011
type(
  unit
)
"src/unix/lwt_io.ml" 612 20014 20035 "src/unix/lwt_io.ml" 612 20014 20037
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 612 20014 20035 "src/unix/lwt_io.ml" 612 20014 20041
type(
  int
)
"src/unix/lwt_io.ml" 612 20014 20042 "src/unix/lwt_io.ml" 612 20014 20043
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 612 20014 20044 "src/unix/lwt_io.ml" 612 20014 20047
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 612 20014 20035 "src/unix/lwt_io.ml" 612 20014 20047
type(
  bool
)
"src/unix/lwt_io.ml" 613 20053 20073 "src/unix/lwt_io.ml" 613 20053 20086
type(
  m _channel -> int Lwt.t
)
ident(
  int_ref flush_partial "src/unix/lwt_io.ml" 266 8528 8532 "src/unix/lwt_io.ml" 266 8528 8545
)
"src/unix/lwt_io.ml" 613 20053 20087 "src/unix/lwt_io.ml" 613 20053 20089
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 613 20053 20073 "src/unix/lwt_io.ml" 613 20053 20089
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 613 20053 20090 "src/unix/lwt_io.ml" 613 20053 20093
type(
  int Lwt.t -> (int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 613 20053 20098 "src/unix/lwt_io.ml" 613 20053 20099
type(
  int
)
"src/unix/lwt_io.ml" 614 20103 20123 "src/unix/lwt_io.ml" 614 20103 20127
type(
  unit -> unit Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 611 19980 20004 "src/unix/lwt_io.ml" 611 19980 20008
)
"src/unix/lwt_io.ml" 614 20103 20128 "src/unix/lwt_io.ml" 614 20103 20130
type(
  unit
)
"src/unix/lwt_io.ml" 614 20103 20123 "src/unix/lwt_io.ml" 614 20103 20130
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 613 20053 20094 "src/unix/lwt_io.ml" 614 20103 20130
type(
  int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 613 20053 20073 "src/unix/lwt_io.ml" 614 20103 20130
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 616 20154 20174 "src/unix/lwt_io.ml" 616 20154 20189
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 612 20014 20032 "src/unix/lwt_io.ml" 616 20154 20189
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 618 20209 20225 "src/unix/lwt_io.ml" 618 20209 20229
type(
  unit -> unit Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 611 19980 20004 "src/unix/lwt_io.ml" 611 19980 20008
)
"src/unix/lwt_io.ml" 618 20209 20230 "src/unix/lwt_io.ml" 618 20209 20232
type(
  unit
)
"src/unix/lwt_io.ml" 618 20209 20225 "src/unix/lwt_io.ml" 618 20209 20232
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 618 20209 20233 "src/unix/lwt_io.ml" 618 20209 20236
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 618 20209 20241 "src/unix/lwt_io.ml" 618 20209 20243
type(
  unit
)
"src/unix/lwt_io.ml" 619 20247 20267 "src/unix/lwt_io.ml" 619 20247 20273
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 620 20300 20316 "src/unix/lwt_io.ml" 624 20469 20500
)
"src/unix/lwt_io.ml" 619 20247 20276 "src/unix/lwt_io.ml" 619 20247 20292
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 619 20247 20293 "src/unix/lwt_io.ml" 619 20247 20296
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 619 20247 20276 "src/unix/lwt_io.ml" 619 20247 20296
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 620 20300 20316 "src/unix/lwt_io.ml" 620 20300 20337
type(
  Lwt_bytes.t -> int -> Lwt_bytes.t -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit
)
"src/unix/lwt_io.ml" 620 20300 20338 "src/unix/lwt_io.ml" 620 20300 20340
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 620 20300 20338 "src/unix/lwt_io.ml" 620 20300 20347
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 620 20300 20348 "src/unix/lwt_io.ml" 620 20300 20349
type(
  int
)
"src/unix/lwt_io.ml" 620 20300 20350 "src/unix/lwt_io.ml" 620 20300 20356
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 619 20247 20267 "src/unix/lwt_io.ml" 619 20247 20273
)
"src/unix/lwt_io.ml" 620 20300 20357 "src/unix/lwt_io.ml" 620 20300 20358
type(
  int
)
"src/unix/lwt_io.ml" 620 20300 20359 "src/unix/lwt_io.ml" 620 20300 20361
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 620 20300 20359 "src/unix/lwt_io.ml" 620 20300 20365
type(
  int
)
"src/unix/lwt_io.ml" 620 20300 20316 "src/unix/lwt_io.ml" 620 20300 20365
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 621 20367 20383 "src/unix/lwt_io.ml" 621 20367 20385
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 621 20367 20396 "src/unix/lwt_io.ml" 621 20367 20402
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 619 20247 20267 "src/unix/lwt_io.ml" 619 20247 20273
)
"src/unix/lwt_io.ml" 621 20367 20383 "src/unix/lwt_io.ml" 621 20367 20402
type(
  unit
)
"src/unix/lwt_io.ml" 622 20404 20420 "src/unix/lwt_io.ml" 622 20404 20422
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 622 20404 20433 "src/unix/lwt_io.ml" 622 20404 20436
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 622 20404 20420 "src/unix/lwt_io.ml" 622 20404 20436
type(
  unit
)
"src/unix/lwt_io.ml" 623 20438 20454 "src/unix/lwt_io.ml" 623 20438 20456
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 591 19008 19063 "src/unix/lwt_io.ml" 591 19008 19065
)
"src/unix/lwt_io.ml" 623 20438 20464 "src/unix/lwt_io.ml" 623 20438 20467
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 585 18665 18738 "src/unix/lwt_io.ml" 585 18665 18741
)
"src/unix/lwt_io.ml" 623 20438 20454 "src/unix/lwt_io.ml" 623 20438 20467
type(
  unit
)
"src/unix/lwt_io.ml" 624 20469 20485 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 623 20438 20454 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 622 20404 20420 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 621 20367 20383 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 620 20300 20316 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 619 20247 20263 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 618 20209 20237 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 618 20209 20225 "src/unix/lwt_io.ml" 624 20469 20500
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 611 19980 19996 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 592 19069 19079 "src/unix/lwt_io.ml" 624 20469 20500
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 591 19008 19059 "src/unix/lwt_io.ml" 624 20469 20500
type(
  m _channel -> unit Lwt.t
)
type(
  m _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 591 19008 19020 "src/unix/lwt_io.ml" 624 20469 20500
type(
  'm _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 626 20512 20520 "src/unix/lwt_io.ml" 626 20512 20529
type(
  (m _channel -> unit Lwt.t) -> m channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 626 20512 20530 "src/unix/lwt_io.ml" 626 20512 20531
type(
  m _channel -> unit Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 591 19008 19020 "src/unix/lwt_io.ml" 591 19008 19021
)
"src/unix/lwt_io.ml" 626 20512 20532 "src/unix/lwt_io.ml" 626 20512 20539
type(
  m channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 585 18665 18730 "src/unix/lwt_io.ml" 585 18665 18737
)
"src/unix/lwt_io.ml" 626 20512 20520 "src/unix/lwt_io.ml" 626 20512 20539
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 591 19008 19016 "src/unix/lwt_io.ml" 626 20512 20539
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 587 18813 18815 "src/unix/lwt_io.ml" 626 20512 20539
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 586 18745 18747 "src/unix/lwt_io.ml" 626 20512 20539
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 585 18665 18726 "src/unix/lwt_io.ml" 626 20512 20539
type(
  m channel -> int -> unit Lwt.t
)
type(
  m channel -> int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 585 18665 18669 "src/unix/lwt_io.ml" 626 20512 20539
type(
  'm0 channel -> int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 653 21144 21152 "src/unix/lwt_io.ml" 653 21144 21159
type(
  int
)
ident(
  def pos16_0 "src/unix/lwt_io.ml" 654 21164 21168 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 653 21144 21162 "src/unix/lwt_io.ml" 653 21144 21163
type(
  int
)
"src/unix/lwt_io.ml" 654 21164 21172 "src/unix/lwt_io.ml" 654 21164 21179
type(
  int
)
ident(
  def pos16_1 "src/unix/lwt_io.ml" 655 21184 21188 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 654 21164 21182 "src/unix/lwt_io.ml" 654 21164 21183
type(
  int
)
"src/unix/lwt_io.ml" 655 21184 21192 "src/unix/lwt_io.ml" 655 21184 21199
type(
  int
)
ident(
  def pos32_0 "src/unix/lwt_io.ml" 656 21204 21208 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 655 21184 21202 "src/unix/lwt_io.ml" 655 21184 21203
type(
  int
)
"src/unix/lwt_io.ml" 656 21204 21212 "src/unix/lwt_io.ml" 656 21204 21219
type(
  int
)
ident(
  def pos32_1 "src/unix/lwt_io.ml" 657 21224 21228 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 656 21204 21222 "src/unix/lwt_io.ml" 656 21204 21223
type(
  int
)
"src/unix/lwt_io.ml" 657 21224 21232 "src/unix/lwt_io.ml" 657 21224 21239
type(
  int
)
ident(
  def pos32_2 "src/unix/lwt_io.ml" 658 21244 21248 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 657 21224 21242 "src/unix/lwt_io.ml" 657 21224 21243
type(
  int
)
"src/unix/lwt_io.ml" 658 21244 21252 "src/unix/lwt_io.ml" 658 21244 21259
type(
  int
)
ident(
  def pos32_3 "src/unix/lwt_io.ml" 659 21264 21268 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 658 21244 21262 "src/unix/lwt_io.ml" 658 21244 21263
type(
  int
)
"src/unix/lwt_io.ml" 659 21264 21272 "src/unix/lwt_io.ml" 659 21264 21279
type(
  int
)
ident(
  def pos64_0 "src/unix/lwt_io.ml" 660 21284 21288 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 659 21264 21282 "src/unix/lwt_io.ml" 659 21264 21283
type(
  int
)
"src/unix/lwt_io.ml" 660 21284 21292 "src/unix/lwt_io.ml" 660 21284 21299
type(
  int
)
ident(
  def pos64_1 "src/unix/lwt_io.ml" 661 21304 21308 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 660 21284 21302 "src/unix/lwt_io.ml" 660 21284 21303
type(
  int
)
"src/unix/lwt_io.ml" 661 21304 21312 "src/unix/lwt_io.ml" 661 21304 21319
type(
  int
)
ident(
  def pos64_2 "src/unix/lwt_io.ml" 662 21324 21328 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 661 21304 21322 "src/unix/lwt_io.ml" 661 21304 21323
type(
  int
)
"src/unix/lwt_io.ml" 662 21324 21332 "src/unix/lwt_io.ml" 662 21324 21339
type(
  int
)
ident(
  def pos64_3 "src/unix/lwt_io.ml" 663 21344 21348 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 662 21324 21342 "src/unix/lwt_io.ml" 662 21324 21343
type(
  int
)
"src/unix/lwt_io.ml" 663 21344 21352 "src/unix/lwt_io.ml" 663 21344 21359
type(
  int
)
ident(
  def pos64_4 "src/unix/lwt_io.ml" 664 21364 21368 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 663 21344 21362 "src/unix/lwt_io.ml" 663 21344 21363
type(
  int
)
"src/unix/lwt_io.ml" 664 21364 21372 "src/unix/lwt_io.ml" 664 21364 21379
type(
  int
)
ident(
  def pos64_5 "src/unix/lwt_io.ml" 665 21384 21388 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 664 21364 21382 "src/unix/lwt_io.ml" 664 21364 21383
type(
  int
)
"src/unix/lwt_io.ml" 665 21384 21392 "src/unix/lwt_io.ml" 665 21384 21399
type(
  int
)
ident(
  def pos64_6 "src/unix/lwt_io.ml" 666 21404 21408 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 665 21384 21402 "src/unix/lwt_io.ml" 665 21384 21403
type(
  int
)
"src/unix/lwt_io.ml" 666 21404 21412 "src/unix/lwt_io.ml" 666 21404 21419
type(
  int
)
ident(
  def pos64_7 "src/unix/lwt_io.ml" 666 21404 21423 "src/unix/lwt_io.ml" 667 21424 21429
)
"src/unix/lwt_io.ml" 666 21404 21422 "src/unix/lwt_io.ml" 666 21404 21423
type(
  int
)
"src/unix/lwt_io.ml" 671 21454 21462 "src/unix/lwt_io.ml" 671 21454 21469
type(
  int
)
ident(
  def pos16_0 "src/unix/lwt_io.ml" 672 21474 21478 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 671 21454 21472 "src/unix/lwt_io.ml" 671 21454 21473
type(
  int
)
"src/unix/lwt_io.ml" 672 21474 21482 "src/unix/lwt_io.ml" 672 21474 21489
type(
  int
)
ident(
  def pos16_1 "src/unix/lwt_io.ml" 673 21494 21498 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 672 21474 21492 "src/unix/lwt_io.ml" 672 21474 21493
type(
  int
)
"src/unix/lwt_io.ml" 673 21494 21502 "src/unix/lwt_io.ml" 673 21494 21509
type(
  int
)
ident(
  def pos32_0 "src/unix/lwt_io.ml" 674 21514 21518 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 673 21494 21512 "src/unix/lwt_io.ml" 673 21494 21513
type(
  int
)
"src/unix/lwt_io.ml" 674 21514 21522 "src/unix/lwt_io.ml" 674 21514 21529
type(
  int
)
ident(
  def pos32_1 "src/unix/lwt_io.ml" 675 21534 21538 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 674 21514 21532 "src/unix/lwt_io.ml" 674 21514 21533
type(
  int
)
"src/unix/lwt_io.ml" 675 21534 21542 "src/unix/lwt_io.ml" 675 21534 21549
type(
  int
)
ident(
  def pos32_2 "src/unix/lwt_io.ml" 676 21554 21558 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 675 21534 21552 "src/unix/lwt_io.ml" 675 21534 21553
type(
  int
)
"src/unix/lwt_io.ml" 676 21554 21562 "src/unix/lwt_io.ml" 676 21554 21569
type(
  int
)
ident(
  def pos32_3 "src/unix/lwt_io.ml" 677 21574 21578 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 676 21554 21572 "src/unix/lwt_io.ml" 676 21554 21573
type(
  int
)
"src/unix/lwt_io.ml" 677 21574 21582 "src/unix/lwt_io.ml" 677 21574 21589
type(
  int
)
ident(
  def pos64_0 "src/unix/lwt_io.ml" 678 21594 21598 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 677 21574 21592 "src/unix/lwt_io.ml" 677 21574 21593
type(
  int
)
"src/unix/lwt_io.ml" 678 21594 21602 "src/unix/lwt_io.ml" 678 21594 21609
type(
  int
)
ident(
  def pos64_1 "src/unix/lwt_io.ml" 679 21614 21618 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 678 21594 21612 "src/unix/lwt_io.ml" 678 21594 21613
type(
  int
)
"src/unix/lwt_io.ml" 679 21614 21622 "src/unix/lwt_io.ml" 679 21614 21629
type(
  int
)
ident(
  def pos64_2 "src/unix/lwt_io.ml" 680 21634 21638 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 679 21614 21632 "src/unix/lwt_io.ml" 679 21614 21633
type(
  int
)
"src/unix/lwt_io.ml" 680 21634 21642 "src/unix/lwt_io.ml" 680 21634 21649
type(
  int
)
ident(
  def pos64_3 "src/unix/lwt_io.ml" 681 21654 21658 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 680 21634 21652 "src/unix/lwt_io.ml" 680 21634 21653
type(
  int
)
"src/unix/lwt_io.ml" 681 21654 21662 "src/unix/lwt_io.ml" 681 21654 21669
type(
  int
)
ident(
  def pos64_4 "src/unix/lwt_io.ml" 682 21674 21678 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 681 21654 21672 "src/unix/lwt_io.ml" 681 21654 21673
type(
  int
)
"src/unix/lwt_io.ml" 682 21674 21682 "src/unix/lwt_io.ml" 682 21674 21689
type(
  int
)
ident(
  def pos64_5 "src/unix/lwt_io.ml" 683 21694 21698 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 682 21674 21692 "src/unix/lwt_io.ml" 682 21674 21693
type(
  int
)
"src/unix/lwt_io.ml" 683 21694 21702 "src/unix/lwt_io.ml" 683 21694 21709
type(
  int
)
ident(
  def pos64_6 "src/unix/lwt_io.ml" 684 21714 21718 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 683 21694 21712 "src/unix/lwt_io.ml" 683 21694 21713
type(
  int
)
"src/unix/lwt_io.ml" 684 21714 21722 "src/unix/lwt_io.ml" 684 21714 21729
type(
  int
)
ident(
  def pos64_7 "src/unix/lwt_io.ml" 684 21714 21733 "src/unix/lwt_io.ml" 685 21734 21739
)
"src/unix/lwt_io.ml" 684 21714 21732 "src/unix/lwt_io.ml" 684 21714 21733
type(
  int
)
"src/unix/lwt_io.ml" 699 22153 22163 "src/unix/lwt_io.ml" 699 22153 22172
type(
  'a _channel -> char Lwt.t
)
ident(
  def read_char "src/unix/lwt_io.ml" 699 22153 22155 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
type(
  'a _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 700 22178 22182 "src/unix/lwt_io.ml" 708 22414 22421
)
"src/unix/lwt_io.ml" 700 22178 22186 "src/unix/lwt_io.ml" 700 22178 22189
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 701 22202 22206 "src/unix/lwt_io.ml" 708 22414 22421
)
"src/unix/lwt_io.ml" 700 22178 22192 "src/unix/lwt_io.ml" 700 22178 22194
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
)
"src/unix/lwt_io.ml" 700 22178 22192 "src/unix/lwt_io.ml" 700 22178 22198
type(
  int
)
"src/unix/lwt_io.ml" 701 22202 22209 "src/unix/lwt_io.ml" 701 22202 22212
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 700 22178 22186 "src/unix/lwt_io.ml" 700 22178 22189
)
"src/unix/lwt_io.ml" 701 22202 22213 "src/unix/lwt_io.ml" 701 22202 22214
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 701 22202 22215 "src/unix/lwt_io.ml" 701 22202 22217
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
)
"src/unix/lwt_io.ml" 701 22202 22215 "src/unix/lwt_io.ml" 701 22202 22221
type(
  int
)
"src/unix/lwt_io.ml" 701 22202 22209 "src/unix/lwt_io.ml" 701 22202 22221
type(
  bool
)
"src/unix/lwt_io.ml" 702 22227 22233 "src/unix/lwt_io.ml" 702 22227 22239
type(
  'a _channel -> int Lwt.t
)
ident(
  int_ref refill "src/unix/lwt_io.ml" 265 8504 8508 "src/unix/lwt_io.ml" 265 8504 8514
)
"src/unix/lwt_io.ml" 702 22227 22240 "src/unix/lwt_io.ml" 702 22227 22242
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
)
"src/unix/lwt_io.ml" 702 22227 22233 "src/unix/lwt_io.ml" 702 22227 22242
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 702 22227 22243 "src/unix/lwt_io.ml" 702 22227 22246
type(
  int Lwt.t -> (int -> char Lwt.t) -> char Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 703 22256 22266 "src/unix/lwt_io.ml" 703 22256 22267
type(
  int
)
"src/unix/lwt_io.ml" 703 22256 22271 "src/unix/lwt_io.ml" 703 22256 22279
type(
  exn -> char Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 703 22256 22280 "src/unix/lwt_io.ml" 703 22256 22291
type(
  exn
)
"src/unix/lwt_io.ml" 703 22256 22271 "src/unix/lwt_io.ml" 703 22256 22291
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 704 22292 22302 "src/unix/lwt_io.ml" 704 22292 22303
type(
  int
)
"src/unix/lwt_io.ml" 704 22292 22307 "src/unix/lwt_io.ml" 704 22292 22316
type(
  'a _channel -> char Lwt.t
)
ident(
  int_ref read_char "src/unix/lwt_io.ml" 699 22153 22163 "src/unix/lwt_io.ml" 699 22153 22172
)
"src/unix/lwt_io.ml" 704 22292 22317 "src/unix/lwt_io.ml" 704 22292 22319
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
)
"src/unix/lwt_io.ml" 704 22292 22307 "src/unix/lwt_io.ml" 704 22292 22319
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 702 22227 22247 "src/unix/lwt_io.ml" 704 22292 22319
type(
  int -> char Lwt.t
)
"src/unix/lwt_io.ml" 702 22227 22233 "src/unix/lwt_io.ml" 704 22292 22319
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 706 22335 22341 "src/unix/lwt_io.ml" 706 22335 22343
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
)
"src/unix/lwt_io.ml" 706 22335 22351 "src/unix/lwt_io.ml" 706 22335 22354
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 700 22178 22186 "src/unix/lwt_io.ml" 700 22178 22189
)
"src/unix/lwt_io.ml" 706 22335 22355 "src/unix/lwt_io.ml" 706 22335 22356
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 706 22335 22357 "src/unix/lwt_io.ml" 706 22335 22358
type(
  int
)
"src/unix/lwt_io.ml" 706 22335 22351 "src/unix/lwt_io.ml" 706 22335 22358
type(
  int
)
"src/unix/lwt_io.ml" 706 22335 22341 "src/unix/lwt_io.ml" 706 22335 22358
type(
  unit
)
"src/unix/lwt_io.ml" 707 22360 22366 "src/unix/lwt_io.ml" 707 22360 22376
type(
  char -> char Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 707 22360 22378 "src/unix/lwt_io.ml" 707 22360 22398
type(
  Lwt_bytes.t -> int -> char
)
ident(
  ext_ref Lwt_bytes.unsafe_get
)
"src/unix/lwt_io.ml" 707 22360 22399 "src/unix/lwt_io.ml" 707 22360 22401
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 699 22153 22173 "src/unix/lwt_io.ml" 699 22153 22175
)
"src/unix/lwt_io.ml" 707 22360 22399 "src/unix/lwt_io.ml" 707 22360 22408
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 707 22360 22409 "src/unix/lwt_io.ml" 707 22360 22412
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 700 22178 22186 "src/unix/lwt_io.ml" 700 22178 22189
)
"src/unix/lwt_io.ml" 707 22360 22377 "src/unix/lwt_io.ml" 707 22360 22413
call(
  stack
)
type(
  char
)
"src/unix/lwt_io.ml" 707 22360 22366 "src/unix/lwt_io.ml" 707 22360 22413
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 705 22320 22329 "src/unix/lwt_io.ml" 708 22414 22421
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 701 22202 22206 "src/unix/lwt_io.ml" 708 22414 22421
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 700 22178 22182 "src/unix/lwt_io.ml" 708 22414 22421
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 710 22423 22429 "src/unix/lwt_io.ml" 710 22423 22442
type(
  'b _channel -> char option Lwt.t
)
ident(
  def read_char_opt "src/unix/lwt_io.ml" 717 22600 22602 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 710 22423 22443 "src/unix/lwt_io.ml" 710 22423 22445
type(
  'b _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 711 22448 22452 "src/unix/lwt_io.ml" 715 22570 22598
)
"src/unix/lwt_io.ml" 711 22448 22452 "src/unix/lwt_io.ml" 711 22448 22461
type(
  (unit -> char option Lwt.t) ->
  (exn -> char option Lwt.t) -> char option Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 712 22462 22473 "src/unix/lwt_io.ml" 712 22462 22475
type(
  unit
)
"src/unix/lwt_io.ml" 712 22462 22479 "src/unix/lwt_io.ml" 712 22462 22488
type(
  'b _channel -> char Lwt.t
)
ident(
  int_ref read_char "src/unix/lwt_io.ml" 699 22153 22163 "src/unix/lwt_io.ml" 699 22153 22172
)
"src/unix/lwt_io.ml" 712 22462 22489 "src/unix/lwt_io.ml" 712 22462 22491
type(
  'b _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 710 22423 22443 "src/unix/lwt_io.ml" 710 22423 22445
)
"src/unix/lwt_io.ml" 712 22462 22479 "src/unix/lwt_io.ml" 712 22462 22491
call(
  stack
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 712 22462 22492 "src/unix/lwt_io.ml" 712 22462 22495
type(
  char Lwt.t -> (char -> char option) -> char option Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >|= )
)
"src/unix/lwt_io.ml" 712 22462 22500 "src/unix/lwt_io.ml" 712 22462 22502
type(
  char
)
ident(
  def ch "src/unix/lwt_io.ml" 712 22462 22506 "src/unix/lwt_io.ml" 712 22462 22513
)
"src/unix/lwt_io.ml" 712 22462 22511 "src/unix/lwt_io.ml" 712 22462 22513
type(
  char
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 712 22462 22500 "src/unix/lwt_io.ml" 712 22462 22502
)
"src/unix/lwt_io.ml" 712 22462 22506 "src/unix/lwt_io.ml" 712 22462 22513
type(
  char option
)
"src/unix/lwt_io.ml" 712 22462 22496 "src/unix/lwt_io.ml" 712 22462 22513
type(
  char -> char option
)
"src/unix/lwt_io.ml" 712 22462 22479 "src/unix/lwt_io.ml" 712 22462 22513
call(
  tail
)
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 712 22462 22468 "src/unix/lwt_io.ml" 712 22462 22514
type(
  unit -> char option Lwt.t
)
"src/unix/lwt_io.ml" 714 22531 22539 "src/unix/lwt_io.ml" 714 22531 22550
type(
  exn
)
"src/unix/lwt_io.ml" 714 22531 22554 "src/unix/lwt_io.ml" 714 22531 22569
type(
  char option Lwt.t
)
ident(
  ext_ref Lwt.return_none
)
"src/unix/lwt_io.ml" 715 22570 22578 "src/unix/lwt_io.ml" 715 22570 22581
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 715 22570 22585 "src/unix/lwt_io.ml" 715 22570 22597
)
"src/unix/lwt_io.ml" 715 22570 22585 "src/unix/lwt_io.ml" 715 22570 22593
type(
  exn -> char option Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 715 22570 22594 "src/unix/lwt_io.ml" 715 22570 22597
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 715 22570 22578 "src/unix/lwt_io.ml" 715 22570 22581
)
"src/unix/lwt_io.ml" 715 22570 22585 "src/unix/lwt_io.ml" 715 22570 22597
call(
  tail
)
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 713 22515 22521 "src/unix/lwt_io.ml" 715 22570 22598
type(
  exn -> char option Lwt.t
)
"src/unix/lwt_io.ml" 711 22448 22452 "src/unix/lwt_io.ml" 715 22570 22598
call(
  tail
)
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 717 22600 22606 "src/unix/lwt_io.ml" 717 22600 22615
type(
  'c _channel -> string Lwt.t
)
ident(
  def read_line "src/unix/lwt_io.ml" 743 23399 23401 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 717 22600 22616 "src/unix/lwt_io.ml" 717 22600 22618
type(
  'c _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 718 22621 22625 "src/unix/lwt_io.ml" 741 23349 23397
)
"src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
type(
  Buffer.t
)
ident(
  def buf "src/unix/lwt_io.ml" 719 22656 22660 "src/unix/lwt_io.ml" 741 23349 23397
)
"src/unix/lwt_io.ml" 718 22621 22635 "src/unix/lwt_io.ml" 718 22621 22648
type(
  int -> Buffer.t
)
ident(
  ext_ref Buffer.create
)
"src/unix/lwt_io.ml" 718 22621 22649 "src/unix/lwt_io.ml" 718 22621 22652
type(
  int
)
"src/unix/lwt_io.ml" 718 22621 22635 "src/unix/lwt_io.ml" 718 22621 22652
call(
  stack
)
type(
  Buffer.t
)
"src/unix/lwt_io.ml" 719 22656 22668 "src/unix/lwt_io.ml" 719 22656 22672
type(
  bool -> string Lwt.t
)
ident(
  def loop "src/unix/lwt_io.ml" 719 22656 22660 "src/unix/lwt_io.ml" 741 23349 23397
)
"src/unix/lwt_io.ml" 719 22656 22673 "src/unix/lwt_io.ml" 719 22656 22680
type(
  bool
)
ident(
  def cr_read "src/unix/lwt_io.ml" 720 22683 22689 "src/unix/lwt_io.ml" 736 23227 23255
)
"src/unix/lwt_io.ml" 720 22683 22689 "src/unix/lwt_io.ml" 720 22683 22701
type(
  (unit -> char Lwt.t) ->
  (char -> string Lwt.t) -> (exn -> string Lwt.t) -> string Lwt.t
)
ident(
  ext_ref Lwt.try_bind
)
"src/unix/lwt_io.ml" 720 22683 22707 "src/unix/lwt_io.ml" 720 22683 22708
type(
  unit
)
"src/unix/lwt_io.ml" 720 22683 22712 "src/unix/lwt_io.ml" 720 22683 22721
type(
  'c _channel -> char Lwt.t
)
ident(
  int_ref read_char "src/unix/lwt_io.ml" 699 22153 22163 "src/unix/lwt_io.ml" 699 22153 22172
)
"src/unix/lwt_io.ml" 720 22683 22722 "src/unix/lwt_io.ml" 720 22683 22724
type(
  'c _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 717 22600 22616 "src/unix/lwt_io.ml" 717 22600 22618
)
"src/unix/lwt_io.ml" 720 22683 22712 "src/unix/lwt_io.ml" 720 22683 22724
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 720 22683 22702 "src/unix/lwt_io.ml" 720 22683 22725
type(
  unit -> char Lwt.t
)
"src/unix/lwt_io.ml" 722 22744 22757 "src/unix/lwt_io.ml" 722 22744 22761
type(
  char
)
"src/unix/lwt_io.ml" 723 22765 22780 "src/unix/lwt_io.ml" 723 22765 22790
type(
  string -> string Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 723 22765 22791 "src/unix/lwt_io.ml" 723 22765 22806
type(
  Buffer.t -> string
)
ident(
  ext_ref Buffer.contents
)
"src/unix/lwt_io.ml" 723 22765 22807 "src/unix/lwt_io.ml" 723 22765 22810
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 723 22765 22790 "src/unix/lwt_io.ml" 723 22765 22811
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 723 22765 22780 "src/unix/lwt_io.ml" 723 22765 22811
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 724 22812 22825 "src/unix/lwt_io.ml" 724 22812 22829
type(
  char
)
"src/unix/lwt_io.ml" 725 22833 22851 "src/unix/lwt_io.ml" 725 22833 22858
type(
  bool
)
ident(
  int_ref cr_read "src/unix/lwt_io.ml" 719 22656 22673 "src/unix/lwt_io.ml" 719 22656 22680
)
"src/unix/lwt_io.ml" 725 22833 22864 "src/unix/lwt_io.ml" 725 22833 22879
type(
  Buffer.t -> char -> unit
)
ident(
  ext_ref Buffer.add_char
)
"src/unix/lwt_io.ml" 725 22833 22880 "src/unix/lwt_io.ml" 725 22833 22883
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 725 22833 22884 "src/unix/lwt_io.ml" 725 22833 22888
type(
  char
)
"src/unix/lwt_io.ml" 725 22833 22864 "src/unix/lwt_io.ml" 725 22833 22888
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 725 22833 22848 "src/unix/lwt_io.ml" 725 22833 22888
type(
  unit
)
"src/unix/lwt_io.ml" 726 22890 22905 "src/unix/lwt_io.ml" 726 22890 22909
type(
  bool -> string Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 719 22656 22668 "src/unix/lwt_io.ml" 719 22656 22672
)
"src/unix/lwt_io.ml" 726 22890 22910 "src/unix/lwt_io.ml" 726 22890 22914
type(
  bool
)
"src/unix/lwt_io.ml" 726 22890 22905 "src/unix/lwt_io.ml" 726 22890 22914
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 725 22833 22848 "src/unix/lwt_io.ml" 726 22890 22914
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 727 22915 22928 "src/unix/lwt_io.ml" 727 22915 22930
type(
  char
)
ident(
  def ch "src/unix/lwt_io.ml" 728 22934 22949 "src/unix/lwt_io.ml" 730 23030 23055
)
"src/unix/lwt_io.ml" 728 22934 22952 "src/unix/lwt_io.ml" 728 22934 22959
type(
  bool
)
ident(
  int_ref cr_read "src/unix/lwt_io.ml" 719 22656 22673 "src/unix/lwt_io.ml" 719 22656 22680
)
"src/unix/lwt_io.ml" 728 22934 22965 "src/unix/lwt_io.ml" 728 22934 22980
type(
  Buffer.t -> char -> unit
)
ident(
  ext_ref Buffer.add_char
)
"src/unix/lwt_io.ml" 728 22934 22981 "src/unix/lwt_io.ml" 728 22934 22984
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 728 22934 22985 "src/unix/lwt_io.ml" 728 22934 22989
type(
  char
)
"src/unix/lwt_io.ml" 728 22934 22965 "src/unix/lwt_io.ml" 728 22934 22989
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 728 22934 22949 "src/unix/lwt_io.ml" 728 22934 22989
type(
  unit
)
"src/unix/lwt_io.ml" 729 22991 23006 "src/unix/lwt_io.ml" 729 22991 23021
type(
  Buffer.t -> char -> unit
)
ident(
  ext_ref Buffer.add_char
)
"src/unix/lwt_io.ml" 729 22991 23022 "src/unix/lwt_io.ml" 729 22991 23025
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 729 22991 23026 "src/unix/lwt_io.ml" 729 22991 23028
type(
  char
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 727 22915 22928 "src/unix/lwt_io.ml" 727 22915 22930
)
"src/unix/lwt_io.ml" 729 22991 23006 "src/unix/lwt_io.ml" 729 22991 23028
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 730 23030 23045 "src/unix/lwt_io.ml" 730 23030 23049
type(
  bool -> string Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 719 22656 22668 "src/unix/lwt_io.ml" 719 22656 22672
)
"src/unix/lwt_io.ml" 730 23030 23050 "src/unix/lwt_io.ml" 730 23030 23055
type(
  bool
)
"src/unix/lwt_io.ml" 730 23030 23045 "src/unix/lwt_io.ml" 730 23030 23055
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 729 22991 23006 "src/unix/lwt_io.ml" 730 23030 23055
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 728 22934 22949 "src/unix/lwt_io.ml" 730 23030 23055
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 721 22726 22734 "src/unix/lwt_io.ml" 730 23030 23056
type(
  char -> string Lwt.t
)
"src/unix/lwt_io.ml" 732 23075 23088 "src/unix/lwt_io.ml" 732 23075 23099
type(
  exn
)
"src/unix/lwt_io.ml" 733 23103 23121 "src/unix/lwt_io.ml" 733 23103 23128
type(
  bool
)
ident(
  int_ref cr_read "src/unix/lwt_io.ml" 719 22656 22673 "src/unix/lwt_io.ml" 719 22656 22680
)
"src/unix/lwt_io.ml" 733 23103 23134 "src/unix/lwt_io.ml" 733 23103 23149
type(
  Buffer.t -> char -> unit
)
ident(
  ext_ref Buffer.add_char
)
"src/unix/lwt_io.ml" 733 23103 23150 "src/unix/lwt_io.ml" 733 23103 23153
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 733 23103 23154 "src/unix/lwt_io.ml" 733 23103 23158
type(
  char
)
"src/unix/lwt_io.ml" 733 23103 23134 "src/unix/lwt_io.ml" 733 23103 23158
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 733 23103 23118 "src/unix/lwt_io.ml" 733 23103 23158
type(
  unit
)
"src/unix/lwt_io.ml" 734 23160 23175 "src/unix/lwt_io.ml" 734 23160 23185
type(
  string -> string Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 734 23160 23186 "src/unix/lwt_io.ml" 734 23160 23201
type(
  Buffer.t -> string
)
ident(
  ext_ref Buffer.contents
)
"src/unix/lwt_io.ml" 734 23160 23202 "src/unix/lwt_io.ml" 734 23160 23205
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 734 23160 23185 "src/unix/lwt_io.ml" 734 23160 23206
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 734 23160 23175 "src/unix/lwt_io.ml" 734 23160 23206
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 733 23103 23118 "src/unix/lwt_io.ml" 734 23160 23206
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 735 23207 23220 "src/unix/lwt_io.ml" 735 23207 23223
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 736 23227 23242 "src/unix/lwt_io.ml" 736 23227 23254
)
"src/unix/lwt_io.ml" 736 23227 23242 "src/unix/lwt_io.ml" 736 23227 23250
type(
  exn -> string Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 736 23227 23251 "src/unix/lwt_io.ml" 736 23227 23254
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 735 23207 23220 "src/unix/lwt_io.ml" 735 23207 23223
)
"src/unix/lwt_io.ml" 736 23227 23242 "src/unix/lwt_io.ml" 736 23227 23254
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 731 23057 23065 "src/unix/lwt_io.ml" 736 23227 23255
type(
  exn -> string Lwt.t
)
"src/unix/lwt_io.ml" 720 22683 22689 "src/unix/lwt_io.ml" 736 23227 23255
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 738 23263 23267 "src/unix/lwt_io.ml" 738 23263 23276
type(
  'c _channel -> char Lwt.t
)
ident(
  int_ref read_char "src/unix/lwt_io.ml" 699 22153 22163 "src/unix/lwt_io.ml" 699 22153 22172
)
"src/unix/lwt_io.ml" 738 23263 23277 "src/unix/lwt_io.ml" 738 23263 23279
type(
  'c _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 717 22600 22616 "src/unix/lwt_io.ml" 717 22600 22618
)
"src/unix/lwt_io.ml" 738 23263 23267 "src/unix/lwt_io.ml" 738 23263 23279
call(
  stack
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 738 23263 23280 "src/unix/lwt_io.ml" 738 23263 23283
type(
  char Lwt.t -> (char -> string Lwt.t) -> string Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 739 23293 23301 "src/unix/lwt_io.ml" 739 23293 23305
type(
  char
)
"src/unix/lwt_io.ml" 739 23293 23309 "src/unix/lwt_io.ml" 739 23293 23313
type(
  bool -> string Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 719 22656 22668 "src/unix/lwt_io.ml" 719 22656 22672
)
"src/unix/lwt_io.ml" 739 23293 23314 "src/unix/lwt_io.ml" 739 23293 23318
type(
  bool
)
"src/unix/lwt_io.ml" 739 23293 23309 "src/unix/lwt_io.ml" 739 23293 23318
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 740 23319 23327 "src/unix/lwt_io.ml" 740 23319 23331
type(
  char
)
"src/unix/lwt_io.ml" 740 23319 23335 "src/unix/lwt_io.ml" 740 23319 23345
type(
  string -> string Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 740 23319 23346 "src/unix/lwt_io.ml" 740 23319 23348
type(
  string
)
"src/unix/lwt_io.ml" 740 23319 23335 "src/unix/lwt_io.ml" 740 23319 23348
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 741 23349 23357 "src/unix/lwt_io.ml" 741 23349 23359
type(
  char
)
ident(
  def ch "src/unix/lwt_io.ml" 741 23349 23363 "src/unix/lwt_io.ml" 741 23349 23397
)
"src/unix/lwt_io.ml" 741 23349 23363 "src/unix/lwt_io.ml" 741 23349 23378
type(
  Buffer.t -> char -> unit
)
ident(
  ext_ref Buffer.add_char
)
"src/unix/lwt_io.ml" 741 23349 23379 "src/unix/lwt_io.ml" 741 23349 23382
type(
  Buffer.t
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 718 22621 22629 "src/unix/lwt_io.ml" 718 22621 22632
)
"src/unix/lwt_io.ml" 741 23349 23383 "src/unix/lwt_io.ml" 741 23349 23385
type(
  char
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 741 23349 23357 "src/unix/lwt_io.ml" 741 23349 23359
)
"src/unix/lwt_io.ml" 741 23349 23363 "src/unix/lwt_io.ml" 741 23349 23385
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 741 23349 23387 "src/unix/lwt_io.ml" 741 23349 23391
type(
  bool -> string Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 719 22656 22668 "src/unix/lwt_io.ml" 719 22656 22672
)
"src/unix/lwt_io.ml" 741 23349 23392 "src/unix/lwt_io.ml" 741 23349 23397
type(
  bool
)
"src/unix/lwt_io.ml" 741 23349 23387 "src/unix/lwt_io.ml" 741 23349 23397
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 741 23349 23363 "src/unix/lwt_io.ml" 741 23349 23397
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 738 23263 23284 "src/unix/lwt_io.ml" 741 23349 23397
type(
  char -> string Lwt.t
)
"src/unix/lwt_io.ml" 738 23263 23267 "src/unix/lwt_io.ml" 741 23349 23397
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 719 22656 22660 "src/unix/lwt_io.ml" 741 23349 23397
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 718 22621 22625 "src/unix/lwt_io.ml" 741 23349 23397
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 743 23399 23405 "src/unix/lwt_io.ml" 743 23399 23418
type(
  'd _channel -> string option Lwt.t
)
ident(
  def read_line_opt "src/unix/lwt_io.ml" 750 23576 23578 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 743 23399 23419 "src/unix/lwt_io.ml" 743 23399 23421
type(
  'd _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 744 23424 23428 "src/unix/lwt_io.ml" 748 23546 23574
)
"src/unix/lwt_io.ml" 744 23424 23428 "src/unix/lwt_io.ml" 744 23424 23437
type(
  (unit -> string option Lwt.t) ->
  (exn -> string option Lwt.t) -> string option Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 745 23438 23449 "src/unix/lwt_io.ml" 745 23438 23451
type(
  unit
)
"src/unix/lwt_io.ml" 745 23438 23455 "src/unix/lwt_io.ml" 745 23438 23464
type(
  'd _channel -> string Lwt.t
)
ident(
  int_ref read_line "src/unix/lwt_io.ml" 717 22600 22606 "src/unix/lwt_io.ml" 717 22600 22615
)
"src/unix/lwt_io.ml" 745 23438 23465 "src/unix/lwt_io.ml" 745 23438 23467
type(
  'd _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 743 23399 23419 "src/unix/lwt_io.ml" 743 23399 23421
)
"src/unix/lwt_io.ml" 745 23438 23455 "src/unix/lwt_io.ml" 745 23438 23467
call(
  stack
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 745 23438 23468 "src/unix/lwt_io.ml" 745 23438 23471
type(
  string Lwt.t -> (string -> string option) -> string option Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >|= )
)
"src/unix/lwt_io.ml" 745 23438 23476 "src/unix/lwt_io.ml" 745 23438 23478
type(
  string
)
ident(
  def ch "src/unix/lwt_io.ml" 745 23438 23482 "src/unix/lwt_io.ml" 745 23438 23489
)
"src/unix/lwt_io.ml" 745 23438 23487 "src/unix/lwt_io.ml" 745 23438 23489
type(
  string
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 745 23438 23476 "src/unix/lwt_io.ml" 745 23438 23478
)
"src/unix/lwt_io.ml" 745 23438 23482 "src/unix/lwt_io.ml" 745 23438 23489
type(
  string option
)
"src/unix/lwt_io.ml" 745 23438 23472 "src/unix/lwt_io.ml" 745 23438 23489
type(
  string -> string option
)
"src/unix/lwt_io.ml" 745 23438 23455 "src/unix/lwt_io.ml" 745 23438 23489
call(
  tail
)
type(
  string option Lwt.t
)
"src/unix/lwt_io.ml" 745 23438 23444 "src/unix/lwt_io.ml" 745 23438 23490
type(
  unit -> string option Lwt.t
)
"src/unix/lwt_io.ml" 747 23507 23515 "src/unix/lwt_io.ml" 747 23507 23526
type(
  exn
)
"src/unix/lwt_io.ml" 747 23507 23530 "src/unix/lwt_io.ml" 747 23507 23545
type(
  string option Lwt.t
)
ident(
  ext_ref Lwt.return_none
)
"src/unix/lwt_io.ml" 748 23546 23554 "src/unix/lwt_io.ml" 748 23546 23557
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 748 23546 23561 "src/unix/lwt_io.ml" 748 23546 23573
)
"src/unix/lwt_io.ml" 748 23546 23561 "src/unix/lwt_io.ml" 748 23546 23569
type(
  exn -> string option Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 748 23546 23570 "src/unix/lwt_io.ml" 748 23546 23573
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 748 23546 23554 "src/unix/lwt_io.ml" 748 23546 23557
)
"src/unix/lwt_io.ml" 748 23546 23561 "src/unix/lwt_io.ml" 748 23546 23573
call(
  tail
)
type(
  string option Lwt.t
)
"src/unix/lwt_io.ml" 746 23491 23497 "src/unix/lwt_io.ml" 748 23546 23574
type(
  exn -> string option Lwt.t
)
"src/unix/lwt_io.ml" 744 23424 23428 "src/unix/lwt_io.ml" 748 23546 23574
call(
  tail
)
type(
  string option Lwt.t
)
"src/unix/lwt_io.ml" 750 23576 23582 "src/unix/lwt_io.ml" 750 23576 23598
type(
  'e _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  def unsafe_read_into "src/unix/lwt_io.ml" 766 24049 24051 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
type(
  'e _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 750 23576 23602 "src/unix/lwt_io.ml" 764 24040 24047
)
"src/unix/lwt_io.ml" 750 23576 23602 "src/unix/lwt_io.ml" 750 23576 23605
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 750 23576 23606 "src/unix/lwt_io.ml" 764 24040 24047
)
"src/unix/lwt_io.ml" 750 23576 23606 "src/unix/lwt_io.ml" 750 23576 23609
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 750 23576 23610 "src/unix/lwt_io.ml" 764 24040 24047
)
"src/unix/lwt_io.ml" 750 23576 23610 "src/unix/lwt_io.ml" 750 23576 23613
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 751 23616 23620 "src/unix/lwt_io.ml" 764 24040 24047
)
"src/unix/lwt_io.ml" 751 23616 23624 "src/unix/lwt_io.ml" 751 23616 23629
type(
  int
)
ident(
  def avail "src/unix/lwt_io.ml" 752 23651 23655 "src/unix/lwt_io.ml" 764 24040 24047
)
"src/unix/lwt_io.ml" 751 23616 23632 "src/unix/lwt_io.ml" 751 23616 23634
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 751 23616 23632 "src/unix/lwt_io.ml" 751 23616 23638
type(
  int
)
"src/unix/lwt_io.ml" 751 23616 23639 "src/unix/lwt_io.ml" 751 23616 23640
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 751 23616 23641 "src/unix/lwt_io.ml" 751 23616 23643
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 751 23616 23641 "src/unix/lwt_io.ml" 751 23616 23647
type(
  int
)
"src/unix/lwt_io.ml" 751 23616 23632 "src/unix/lwt_io.ml" 751 23616 23647
type(
  int
)
"src/unix/lwt_io.ml" 752 23651 23658 "src/unix/lwt_io.ml" 752 23651 23663
type(
  int
)
ident(
  int_ref avail "src/unix/lwt_io.ml" 751 23616 23624 "src/unix/lwt_io.ml" 751 23616 23629
)
"src/unix/lwt_io.ml" 752 23651 23664 "src/unix/lwt_io.ml" 752 23651 23665
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 752 23651 23666 "src/unix/lwt_io.ml" 752 23651 23667
type(
  int
)
"src/unix/lwt_io.ml" 752 23651 23658 "src/unix/lwt_io.ml" 752 23651 23667
type(
  bool
)
"src/unix/lwt_io.ml" 753 23679 23689 "src/unix/lwt_io.ml" 753 23679 23692
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 754 23712 23718 "src/unix/lwt_io.ml" 756 23809 23829
)
"src/unix/lwt_io.ml" 753 23679 23695 "src/unix/lwt_io.ml" 753 23679 23698
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/unix/lwt_io.ml" 753 23679 23699 "src/unix/lwt_io.ml" 753 23679 23702
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 750 23576 23610 "src/unix/lwt_io.ml" 750 23576 23613
)
"src/unix/lwt_io.ml" 753 23679 23703 "src/unix/lwt_io.ml" 753 23679 23708
type(
  int
)
ident(
  int_ref avail "src/unix/lwt_io.ml" 751 23616 23624 "src/unix/lwt_io.ml" 751 23616 23629
)
"src/unix/lwt_io.ml" 753 23679 23695 "src/unix/lwt_io.ml" 753 23679 23708
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 754 23712 23718 "src/unix/lwt_io.ml" 754 23712 23748
type(
  Lwt_bytes.t -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit_to_bytes
)
"src/unix/lwt_io.ml" 754 23712 23749 "src/unix/lwt_io.ml" 754 23712 23751
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 754 23712 23749 "src/unix/lwt_io.ml" 754 23712 23758
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 754 23712 23759 "src/unix/lwt_io.ml" 754 23712 23761
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 754 23712 23759 "src/unix/lwt_io.ml" 754 23712 23765
type(
  int
)
"src/unix/lwt_io.ml" 754 23712 23766 "src/unix/lwt_io.ml" 754 23712 23769
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 750 23576 23602 "src/unix/lwt_io.ml" 750 23576 23605
)
"src/unix/lwt_io.ml" 754 23712 23770 "src/unix/lwt_io.ml" 754 23712 23773
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 750 23576 23606 "src/unix/lwt_io.ml" 750 23576 23609
)
"src/unix/lwt_io.ml" 754 23712 23774 "src/unix/lwt_io.ml" 754 23712 23777
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 753 23679 23689 "src/unix/lwt_io.ml" 753 23679 23692
)
"src/unix/lwt_io.ml" 754 23712 23718 "src/unix/lwt_io.ml" 754 23712 23777
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 755 23779 23785 "src/unix/lwt_io.ml" 755 23779 23787
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 755 23779 23795 "src/unix/lwt_io.ml" 755 23779 23797
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 755 23779 23795 "src/unix/lwt_io.ml" 755 23779 23801
type(
  int
)
"src/unix/lwt_io.ml" 755 23779 23802 "src/unix/lwt_io.ml" 755 23779 23803
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 755 23779 23804 "src/unix/lwt_io.ml" 755 23779 23807
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 753 23679 23689 "src/unix/lwt_io.ml" 753 23679 23692
)
"src/unix/lwt_io.ml" 755 23779 23795 "src/unix/lwt_io.ml" 755 23779 23807
type(
  int
)
"src/unix/lwt_io.ml" 755 23779 23785 "src/unix/lwt_io.ml" 755 23779 23807
type(
  unit
)
"src/unix/lwt_io.ml" 756 23809 23815 "src/unix/lwt_io.ml" 756 23809 23825
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 756 23809 23826 "src/unix/lwt_io.ml" 756 23809 23829
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 753 23679 23689 "src/unix/lwt_io.ml" 753 23679 23692
)
"src/unix/lwt_io.ml" 756 23809 23815 "src/unix/lwt_io.ml" 756 23809 23829
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 755 23779 23785 "src/unix/lwt_io.ml" 756 23809 23829
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 754 23712 23718 "src/unix/lwt_io.ml" 756 23809 23829
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 752 23651 23673 "src/unix/lwt_io.ml" 757 23830 23837
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 758 23849 23855 "src/unix/lwt_io.ml" 758 23849 23861
type(
  'e _channel -> int Lwt.t
)
ident(
  int_ref refill "src/unix/lwt_io.ml" 265 8504 8508 "src/unix/lwt_io.ml" 265 8504 8514
)
"src/unix/lwt_io.ml" 758 23849 23862 "src/unix/lwt_io.ml" 758 23849 23864
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 758 23849 23855 "src/unix/lwt_io.ml" 758 23849 23864
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 758 23849 23865 "src/unix/lwt_io.ml" 758 23849 23868
type(
  int Lwt.t -> (int -> int Lwt.t) -> int Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 758 23849 23873 "src/unix/lwt_io.ml" 758 23849 23874
type(
  int
)
ident(
  def n "src/unix/lwt_io.ml" 759 23878 23886 "src/unix/lwt_io.ml" 763 24017 24039
)
"src/unix/lwt_io.ml" 759 23878 23890 "src/unix/lwt_io.ml" 759 23878 23893
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 760 23909 23917 "src/unix/lwt_io.ml" 763 24017 24039
)
"src/unix/lwt_io.ml" 759 23878 23896 "src/unix/lwt_io.ml" 759 23878 23899
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.min
)
"src/unix/lwt_io.ml" 759 23878 23900 "src/unix/lwt_io.ml" 759 23878 23903
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 750 23576 23610 "src/unix/lwt_io.ml" 750 23576 23613
)
"src/unix/lwt_io.ml" 759 23878 23904 "src/unix/lwt_io.ml" 759 23878 23905
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 758 23849 23873 "src/unix/lwt_io.ml" 758 23849 23874
)
"src/unix/lwt_io.ml" 759 23878 23896 "src/unix/lwt_io.ml" 759 23878 23905
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 760 23909 23917 "src/unix/lwt_io.ml" 760 23909 23947
type(
  Lwt_bytes.t -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit_to_bytes
)
"src/unix/lwt_io.ml" 760 23909 23948 "src/unix/lwt_io.ml" 760 23909 23950
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 760 23909 23948 "src/unix/lwt_io.ml" 760 23909 23957
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 760 23909 23958 "src/unix/lwt_io.ml" 760 23909 23959
type(
  int
)
"src/unix/lwt_io.ml" 760 23909 23960 "src/unix/lwt_io.ml" 760 23909 23963
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 750 23576 23602 "src/unix/lwt_io.ml" 750 23576 23605
)
"src/unix/lwt_io.ml" 760 23909 23964 "src/unix/lwt_io.ml" 760 23909 23967
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 750 23576 23606 "src/unix/lwt_io.ml" 750 23576 23609
)
"src/unix/lwt_io.ml" 760 23909 23968 "src/unix/lwt_io.ml" 760 23909 23971
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 759 23878 23890 "src/unix/lwt_io.ml" 759 23878 23893
)
"src/unix/lwt_io.ml" 760 23909 23917 "src/unix/lwt_io.ml" 760 23909 23971
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 761 23973 23981 "src/unix/lwt_io.ml" 761 23973 23983
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 761 23973 23991 "src/unix/lwt_io.ml" 761 23973 23994
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 759 23878 23890 "src/unix/lwt_io.ml" 759 23878 23893
)
"src/unix/lwt_io.ml" 761 23973 23981 "src/unix/lwt_io.ml" 761 23973 23994
type(
  unit
)
"src/unix/lwt_io.ml" 762 23996 24004 "src/unix/lwt_io.ml" 762 23996 24006
type(
  'e _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 750 23576 23599 "src/unix/lwt_io.ml" 750 23576 23601
)
"src/unix/lwt_io.ml" 762 23996 24014 "src/unix/lwt_io.ml" 762 23996 24015
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 758 23849 23873 "src/unix/lwt_io.ml" 758 23849 23874
)
"src/unix/lwt_io.ml" 762 23996 24004 "src/unix/lwt_io.ml" 762 23996 24015
type(
  unit
)
"src/unix/lwt_io.ml" 763 24017 24025 "src/unix/lwt_io.ml" 763 24017 24035
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 763 24017 24036 "src/unix/lwt_io.ml" 763 24017 24039
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 759 23878 23890 "src/unix/lwt_io.ml" 759 23878 23893
)
"src/unix/lwt_io.ml" 763 24017 24025 "src/unix/lwt_io.ml" 763 24017 24039
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 762 23996 24004 "src/unix/lwt_io.ml" 763 24017 24039
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 761 23973 23981 "src/unix/lwt_io.ml" 763 24017 24039
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 760 23909 23917 "src/unix/lwt_io.ml" 763 24017 24039
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 759 23878 23886 "src/unix/lwt_io.ml" 763 24017 24039
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 758 23849 23869 "src/unix/lwt_io.ml" 763 24017 24039
type(
  int -> int Lwt.t
)
"src/unix/lwt_io.ml" 757 23830 23843 "src/unix/lwt_io.ml" 764 24040 24047
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 752 23651 23655 "src/unix/lwt_io.ml" 764 24040 24047
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 751 23616 23620 "src/unix/lwt_io.ml" 764 24040 24047
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 766 24049 24055 "src/unix/lwt_io.ml" 766 24049 24064
type(
  'f _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  def read_into "src/unix/lwt_io.ml" 778 24458 24460 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 766 24049 24065 "src/unix/lwt_io.ml" 766 24049 24067
type(
  'f _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 766 24049 24068 "src/unix/lwt_io.ml" 776 24449 24456
)
"src/unix/lwt_io.ml" 766 24049 24068 "src/unix/lwt_io.ml" 766 24049 24071
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 766 24049 24072 "src/unix/lwt_io.ml" 776 24449 24456
)
"src/unix/lwt_io.ml" 766 24049 24072 "src/unix/lwt_io.ml" 766 24049 24075
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 776 24449 24456
)
"src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 766 24049 24079
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 767 24082 24086 "src/unix/lwt_io.ml" 776 24449 24456
)
"src/unix/lwt_io.ml" 767 24082 24089 "src/unix/lwt_io.ml" 767 24082 24092
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 766 24049 24072 "src/unix/lwt_io.ml" 766 24049 24075
)
"src/unix/lwt_io.ml" 767 24082 24093 "src/unix/lwt_io.ml" 767 24082 24094
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 767 24082 24095 "src/unix/lwt_io.ml" 767 24082 24096
type(
  int
)
"src/unix/lwt_io.ml" 767 24082 24089 "src/unix/lwt_io.ml" 767 24082 24096
type(
  bool
)
"src/unix/lwt_io.ml" 767 24082 24097 "src/unix/lwt_io.ml" 767 24082 24099
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 767 24082 24100 "src/unix/lwt_io.ml" 767 24082 24103
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 766 24049 24079
)
"src/unix/lwt_io.ml" 767 24082 24104 "src/unix/lwt_io.ml" 767 24082 24105
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 767 24082 24106 "src/unix/lwt_io.ml" 767 24082 24107
type(
  int
)
"src/unix/lwt_io.ml" 767 24082 24100 "src/unix/lwt_io.ml" 767 24082 24107
type(
  bool
)
"src/unix/lwt_io.ml" 767 24082 24108 "src/unix/lwt_io.ml" 767 24082 24110
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 767 24082 24111 "src/unix/lwt_io.ml" 767 24082 24114
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 766 24049 24072 "src/unix/lwt_io.ml" 766 24049 24075
)
"src/unix/lwt_io.ml" 767 24082 24115 "src/unix/lwt_io.ml" 767 24082 24116
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 767 24082 24117 "src/unix/lwt_io.ml" 767 24082 24120
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 766 24049 24079
)
"src/unix/lwt_io.ml" 767 24082 24111 "src/unix/lwt_io.ml" 767 24082 24120
type(
  int
)
"src/unix/lwt_io.ml" 767 24082 24121 "src/unix/lwt_io.ml" 767 24082 24122
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 767 24082 24123 "src/unix/lwt_io.ml" 767 24082 24135
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 767 24082 24136 "src/unix/lwt_io.ml" 767 24082 24139
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 766 24049 24068 "src/unix/lwt_io.ml" 766 24049 24071
)
"src/unix/lwt_io.ml" 767 24082 24123 "src/unix/lwt_io.ml" 767 24082 24139
type(
  int
)
"src/unix/lwt_io.ml" 767 24082 24111 "src/unix/lwt_io.ml" 767 24082 24139
type(
  bool
)
"src/unix/lwt_io.ml" 767 24082 24100 "src/unix/lwt_io.ml" 767 24082 24139
type(
  bool
)
"src/unix/lwt_io.ml" 767 24082 24089 "src/unix/lwt_io.ml" 767 24082 24139
type(
  bool
)
"src/unix/lwt_io.ml" 768 24145 24151 "src/unix/lwt_io.ml" 768 24145 24159
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 768 24145 24179 "src/unix/lwt_io.ml" 768 24145 24193
type(
  (int -> int -> int -> string, unit, string) format ->
  int -> int -> int -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 769 24194 24230 "src/unix/lwt_io.ml" 769 24194 24274
type(
  (int -> int -> int -> string, unit, string) format
)
"src/unix/lwt_io.ml" 770 24275 24311 "src/unix/lwt_io.ml" 770 24275 24314
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 766 24049 24072 "src/unix/lwt_io.ml" 766 24049 24075
)
"src/unix/lwt_io.ml" 770 24275 24315 "src/unix/lwt_io.ml" 770 24275 24318
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 766 24049 24079
)
"src/unix/lwt_io.ml" 770 24275 24320 "src/unix/lwt_io.ml" 770 24275 24332
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 770 24275 24333 "src/unix/lwt_io.ml" 770 24275 24336
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 766 24049 24068 "src/unix/lwt_io.ml" 766 24049 24071
)
"src/unix/lwt_io.ml" 770 24275 24319 "src/unix/lwt_io.ml" 770 24275 24337
type(
  int
)
"src/unix/lwt_io.ml" 768 24145 24178 "src/unix/lwt_io.ml" 770 24275 24338
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 768 24145 24160 "src/unix/lwt_io.ml" 770 24275 24339
type(
  exn
)
"src/unix/lwt_io.ml" 768 24145 24151 "src/unix/lwt_io.ml" 770 24275 24339
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 772 24355 24364 "src/unix/lwt_io.ml" 772 24355 24367
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 766 24049 24079
)
"src/unix/lwt_io.ml" 772 24355 24368 "src/unix/lwt_io.ml" 772 24355 24369
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 772 24355 24370 "src/unix/lwt_io.ml" 772 24355 24371
type(
  int
)
"src/unix/lwt_io.ml" 772 24355 24364 "src/unix/lwt_io.ml" 772 24355 24371
type(
  bool
)
"src/unix/lwt_io.ml" 773 24377 24385 "src/unix/lwt_io.ml" 773 24377 24395
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 773 24377 24396 "src/unix/lwt_io.ml" 773 24377 24397
type(
  int
)
"src/unix/lwt_io.ml" 773 24377 24385 "src/unix/lwt_io.ml" 773 24377 24397
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 775 24409 24417 "src/unix/lwt_io.ml" 775 24409 24433
type(
  'f _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref unsafe_read_into "src/unix/lwt_io.ml" 750 23576 23582 "src/unix/lwt_io.ml" 750 23576 23598
)
"src/unix/lwt_io.ml" 775 24409 24434 "src/unix/lwt_io.ml" 775 24409 24436
type(
  'f _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 766 24049 24065 "src/unix/lwt_io.ml" 766 24049 24067
)
"src/unix/lwt_io.ml" 775 24409 24437 "src/unix/lwt_io.ml" 775 24409 24440
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 766 24049 24068 "src/unix/lwt_io.ml" 766 24049 24071
)
"src/unix/lwt_io.ml" 775 24409 24441 "src/unix/lwt_io.ml" 775 24409 24444
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 766 24049 24072 "src/unix/lwt_io.ml" 766 24049 24075
)
"src/unix/lwt_io.ml" 775 24409 24445 "src/unix/lwt_io.ml" 775 24409 24448
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 766 24049 24076 "src/unix/lwt_io.ml" 766 24049 24079
)
"src/unix/lwt_io.ml" 775 24409 24417 "src/unix/lwt_io.ml" 775 24409 24448
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 771 24340 24349 "src/unix/lwt_io.ml" 776 24449 24456
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 767 24082 24086 "src/unix/lwt_io.ml" 776 24449 24456
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 778 24458 24468 "src/unix/lwt_io.ml" 778 24458 24492
type(
  'g _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  def unsafe_read_into_exactly "src/unix/lwt_io.ml" 778 24458 24460 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 778 24458 24493 "src/unix/lwt_io.ml" 778 24458 24495
type(
  'g _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 778 24458 24496 "src/unix/lwt_io.ml" 787 24716 24773
)
"src/unix/lwt_io.ml" 778 24458 24496 "src/unix/lwt_io.ml" 778 24458 24499
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 778 24458 24500 "src/unix/lwt_io.ml" 787 24716 24773
)
"src/unix/lwt_io.ml" 778 24458 24500 "src/unix/lwt_io.ml" 778 24458 24503
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 778 24458 24504 "src/unix/lwt_io.ml" 787 24716 24773
)
"src/unix/lwt_io.ml" 778 24458 24504 "src/unix/lwt_io.ml" 778 24458 24507
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 779 24510 24514 "src/unix/lwt_io.ml" 787 24716 24773
)
"src/unix/lwt_io.ml" 779 24510 24514 "src/unix/lwt_io.ml" 779 24510 24530
type(
  'g _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref unsafe_read_into "src/unix/lwt_io.ml" 750 23576 23582 "src/unix/lwt_io.ml" 750 23576 23598
)
"src/unix/lwt_io.ml" 779 24510 24531 "src/unix/lwt_io.ml" 779 24510 24533
type(
  'g _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 778 24458 24493 "src/unix/lwt_io.ml" 778 24458 24495
)
"src/unix/lwt_io.ml" 779 24510 24534 "src/unix/lwt_io.ml" 779 24510 24537
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 778 24458 24496 "src/unix/lwt_io.ml" 778 24458 24499
)
"src/unix/lwt_io.ml" 779 24510 24538 "src/unix/lwt_io.ml" 779 24510 24541
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 778 24458 24500 "src/unix/lwt_io.ml" 778 24458 24503
)
"src/unix/lwt_io.ml" 779 24510 24542 "src/unix/lwt_io.ml" 779 24510 24545
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 778 24458 24504 "src/unix/lwt_io.ml" 778 24458 24507
)
"src/unix/lwt_io.ml" 779 24510 24514 "src/unix/lwt_io.ml" 779 24510 24545
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 779 24510 24546 "src/unix/lwt_io.ml" 779 24510 24549
type(
  int Lwt.t -> (int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 780 24559 24567 "src/unix/lwt_io.ml" 780 24559 24568
type(
  int
)
"src/unix/lwt_io.ml" 781 24572 24582 "src/unix/lwt_io.ml" 781 24572 24590
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 781 24572 24591 "src/unix/lwt_io.ml" 781 24572 24602
type(
  exn
)
"src/unix/lwt_io.ml" 781 24572 24582 "src/unix/lwt_io.ml" 781 24572 24602
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 782 24603 24611 "src/unix/lwt_io.ml" 782 24603 24612
type(
  int
)
ident(
  def n "src/unix/lwt_io.ml" 783 24616 24626 "src/unix/lwt_io.ml" 787 24716 24773
)
"src/unix/lwt_io.ml" 783 24616 24630 "src/unix/lwt_io.ml" 783 24616 24633
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 784 24647 24657 "src/unix/lwt_io.ml" 787 24716 24773
)
"src/unix/lwt_io.ml" 783 24616 24636 "src/unix/lwt_io.ml" 783 24616 24639
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 778 24458 24504 "src/unix/lwt_io.ml" 778 24458 24507
)
"src/unix/lwt_io.ml" 783 24616 24640 "src/unix/lwt_io.ml" 783 24616 24641
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 783 24616 24642 "src/unix/lwt_io.ml" 783 24616 24643
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 782 24603 24611 "src/unix/lwt_io.ml" 782 24603 24612
)
"src/unix/lwt_io.ml" 783 24616 24636 "src/unix/lwt_io.ml" 783 24616 24643
type(
  int
)
"src/unix/lwt_io.ml" 784 24647 24660 "src/unix/lwt_io.ml" 784 24647 24663
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 783 24616 24630 "src/unix/lwt_io.ml" 783 24616 24633
)
"src/unix/lwt_io.ml" 784 24647 24664 "src/unix/lwt_io.ml" 784 24647 24665
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 784 24647 24666 "src/unix/lwt_io.ml" 784 24647 24667
type(
  int
)
"src/unix/lwt_io.ml" 784 24647 24660 "src/unix/lwt_io.ml" 784 24647 24667
type(
  bool
)
"src/unix/lwt_io.ml" 785 24673 24685 "src/unix/lwt_io.ml" 785 24673 24700
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 787 24716 24728 "src/unix/lwt_io.ml" 787 24716 24752
type(
  'g _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_read_into_exactly "src/unix/lwt_io.ml" 778 24458 24468 "src/unix/lwt_io.ml" 778 24458 24492
)
"src/unix/lwt_io.ml" 787 24716 24753 "src/unix/lwt_io.ml" 787 24716 24755
type(
  'g _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 778 24458 24493 "src/unix/lwt_io.ml" 778 24458 24495
)
"src/unix/lwt_io.ml" 787 24716 24756 "src/unix/lwt_io.ml" 787 24716 24759
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 778 24458 24496 "src/unix/lwt_io.ml" 778 24458 24499
)
"src/unix/lwt_io.ml" 787 24716 24761 "src/unix/lwt_io.ml" 787 24716 24764
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 778 24458 24500 "src/unix/lwt_io.ml" 778 24458 24503
)
"src/unix/lwt_io.ml" 787 24716 24765 "src/unix/lwt_io.ml" 787 24716 24766
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 787 24716 24767 "src/unix/lwt_io.ml" 787 24716 24768
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 782 24603 24611 "src/unix/lwt_io.ml" 782 24603 24612
)
"src/unix/lwt_io.ml" 787 24716 24760 "src/unix/lwt_io.ml" 787 24716 24769
type(
  int
)
"src/unix/lwt_io.ml" 787 24716 24770 "src/unix/lwt_io.ml" 787 24716 24773
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 783 24616 24630 "src/unix/lwt_io.ml" 783 24616 24633
)
"src/unix/lwt_io.ml" 787 24716 24728 "src/unix/lwt_io.ml" 787 24716 24773
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 784 24647 24657 "src/unix/lwt_io.ml" 787 24716 24773
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 783 24616 24626 "src/unix/lwt_io.ml" 787 24716 24773
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 779 24510 24550 "src/unix/lwt_io.ml" 787 24716 24773
type(
  int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 779 24510 24514 "src/unix/lwt_io.ml" 787 24716 24773
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 789 24775 24781 "src/unix/lwt_io.ml" 789 24775 24798
type(
  'h _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  def read_into_exactly "src/unix/lwt_io.ml" 801 25211 25213 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 789 24775 24799 "src/unix/lwt_io.ml" 789 24775 24801
type(
  'h _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 789 24775 24802 "src/unix/lwt_io.ml" 799 25202 25209
)
"src/unix/lwt_io.ml" 789 24775 24802 "src/unix/lwt_io.ml" 789 24775 24805
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 789 24775 24806 "src/unix/lwt_io.ml" 799 25202 25209
)
"src/unix/lwt_io.ml" 789 24775 24806 "src/unix/lwt_io.ml" 789 24775 24809
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 799 25202 25209
)
"src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 789 24775 24813
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 790 24816 24820 "src/unix/lwt_io.ml" 799 25202 25209
)
"src/unix/lwt_io.ml" 790 24816 24823 "src/unix/lwt_io.ml" 790 24816 24826
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 789 24775 24806 "src/unix/lwt_io.ml" 789 24775 24809
)
"src/unix/lwt_io.ml" 790 24816 24827 "src/unix/lwt_io.ml" 790 24816 24828
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 790 24816 24829 "src/unix/lwt_io.ml" 790 24816 24830
type(
  int
)
"src/unix/lwt_io.ml" 790 24816 24823 "src/unix/lwt_io.ml" 790 24816 24830
type(
  bool
)
"src/unix/lwt_io.ml" 790 24816 24831 "src/unix/lwt_io.ml" 790 24816 24833
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 790 24816 24834 "src/unix/lwt_io.ml" 790 24816 24837
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 789 24775 24813
)
"src/unix/lwt_io.ml" 790 24816 24838 "src/unix/lwt_io.ml" 790 24816 24839
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 790 24816 24840 "src/unix/lwt_io.ml" 790 24816 24841
type(
  int
)
"src/unix/lwt_io.ml" 790 24816 24834 "src/unix/lwt_io.ml" 790 24816 24841
type(
  bool
)
"src/unix/lwt_io.ml" 790 24816 24842 "src/unix/lwt_io.ml" 790 24816 24844
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 790 24816 24845 "src/unix/lwt_io.ml" 790 24816 24848
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 789 24775 24806 "src/unix/lwt_io.ml" 789 24775 24809
)
"src/unix/lwt_io.ml" 790 24816 24849 "src/unix/lwt_io.ml" 790 24816 24850
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 790 24816 24851 "src/unix/lwt_io.ml" 790 24816 24854
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 789 24775 24813
)
"src/unix/lwt_io.ml" 790 24816 24845 "src/unix/lwt_io.ml" 790 24816 24854
type(
  int
)
"src/unix/lwt_io.ml" 790 24816 24855 "src/unix/lwt_io.ml" 790 24816 24856
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 790 24816 24857 "src/unix/lwt_io.ml" 790 24816 24869
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 790 24816 24870 "src/unix/lwt_io.ml" 790 24816 24873
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 789 24775 24802 "src/unix/lwt_io.ml" 789 24775 24805
)
"src/unix/lwt_io.ml" 790 24816 24857 "src/unix/lwt_io.ml" 790 24816 24873
type(
  int
)
"src/unix/lwt_io.ml" 790 24816 24845 "src/unix/lwt_io.ml" 790 24816 24873
type(
  bool
)
"src/unix/lwt_io.ml" 790 24816 24834 "src/unix/lwt_io.ml" 790 24816 24873
type(
  bool
)
"src/unix/lwt_io.ml" 790 24816 24823 "src/unix/lwt_io.ml" 790 24816 24873
type(
  bool
)
"src/unix/lwt_io.ml" 791 24879 24885 "src/unix/lwt_io.ml" 791 24879 24893
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 791 24879 24913 "src/unix/lwt_io.ml" 791 24879 24927
type(
  (int -> int -> int -> string, unit, string) format ->
  int -> int -> int -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 792 24928 24964 "src/unix/lwt_io.ml" 792 24928 25016
type(
  (int -> int -> int -> string, unit, string) format
)
"src/unix/lwt_io.ml" 793 25017 25053 "src/unix/lwt_io.ml" 793 25017 25056
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 789 24775 24806 "src/unix/lwt_io.ml" 789 24775 24809
)
"src/unix/lwt_io.ml" 793 25017 25057 "src/unix/lwt_io.ml" 793 25017 25060
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 789 24775 24813
)
"src/unix/lwt_io.ml" 793 25017 25062 "src/unix/lwt_io.ml" 793 25017 25074
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 793 25017 25075 "src/unix/lwt_io.ml" 793 25017 25078
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 789 24775 24802 "src/unix/lwt_io.ml" 789 24775 24805
)
"src/unix/lwt_io.ml" 793 25017 25061 "src/unix/lwt_io.ml" 793 25017 25079
type(
  int
)
"src/unix/lwt_io.ml" 791 24879 24912 "src/unix/lwt_io.ml" 793 25017 25080
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 791 24879 24894 "src/unix/lwt_io.ml" 793 25017 25081
type(
  exn
)
"src/unix/lwt_io.ml" 791 24879 24885 "src/unix/lwt_io.ml" 793 25017 25081
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 795 25097 25106 "src/unix/lwt_io.ml" 795 25097 25109
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 789 24775 24813
)
"src/unix/lwt_io.ml" 795 25097 25110 "src/unix/lwt_io.ml" 795 25097 25111
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 795 25097 25112 "src/unix/lwt_io.ml" 795 25097 25113
type(
  int
)
"src/unix/lwt_io.ml" 795 25097 25106 "src/unix/lwt_io.ml" 795 25097 25113
type(
  bool
)
"src/unix/lwt_io.ml" 796 25119 25127 "src/unix/lwt_io.ml" 796 25119 25142
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 798 25154 25162 "src/unix/lwt_io.ml" 798 25154 25186
type(
  'h _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_read_into_exactly "src/unix/lwt_io.ml" 778 24458 24468 "src/unix/lwt_io.ml" 778 24458 24492
)
"src/unix/lwt_io.ml" 798 25154 25187 "src/unix/lwt_io.ml" 798 25154 25189
type(
  'h _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 789 24775 24799 "src/unix/lwt_io.ml" 789 24775 24801
)
"src/unix/lwt_io.ml" 798 25154 25190 "src/unix/lwt_io.ml" 798 25154 25193
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 789 24775 24802 "src/unix/lwt_io.ml" 789 24775 24805
)
"src/unix/lwt_io.ml" 798 25154 25194 "src/unix/lwt_io.ml" 798 25154 25197
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 789 24775 24806 "src/unix/lwt_io.ml" 789 24775 24809
)
"src/unix/lwt_io.ml" 798 25154 25198 "src/unix/lwt_io.ml" 798 25154 25201
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 789 24775 24810 "src/unix/lwt_io.ml" 789 24775 24813
)
"src/unix/lwt_io.ml" 798 25154 25162 "src/unix/lwt_io.ml" 798 25154 25201
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 794 25082 25091 "src/unix/lwt_io.ml" 799 25202 25209
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 790 24816 24820 "src/unix/lwt_io.ml" 799 25202 25209
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 801 25211 25217 "src/unix/lwt_io.ml" 801 25211 25227
type(
  int -> string list -> bytes
)
ident(
  def rev_concat "src/unix/lwt_io.ml" 814 25498 25500 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 801 25211 25228 "src/unix/lwt_io.ml" 801 25211 25231
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 801 25211 25232 "src/unix/lwt_io.ml" 812 25489 25496
)
"src/unix/lwt_io.ml" 801 25211 25232 "src/unix/lwt_io.ml" 801 25211 25233
type(
  string list
)
ident(
  def l "src/unix/lwt_io.ml" 802 25236 25240 "src/unix/lwt_io.ml" 812 25489 25496
)
"src/unix/lwt_io.ml" 802 25236 25244 "src/unix/lwt_io.ml" 802 25236 25247
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 803 25270 25274 "src/unix/lwt_io.ml" 812 25489 25496
)
"src/unix/lwt_io.ml" 802 25236 25250 "src/unix/lwt_io.ml" 802 25236 25262
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/unix/lwt_io.ml" 802 25236 25263 "src/unix/lwt_io.ml" 802 25236 25266
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 801 25211 25228 "src/unix/lwt_io.ml" 801 25211 25231
)
"src/unix/lwt_io.ml" 802 25236 25250 "src/unix/lwt_io.ml" 802 25236 25266
type(
  bytes
)
"src/unix/lwt_io.ml" 803 25270 25278 "src/unix/lwt_io.ml" 803 25270 25279
type(
  int
)
"src/unix/lwt_io.ml" 804 25282 25288 "src/unix/lwt_io.ml" 804 25282 25302
type(
  (int -> string -> int) -> int -> string list -> int
)
ident(
  ext_ref List.fold_left
)
"src/unix/lwt_io.ml" 805 25303 25316 "src/unix/lwt_io.ml" 805 25303 25319
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 805 25303 25320 "src/unix/lwt_io.ml" 809 25452 25466
)
"src/unix/lwt_io.ml" 805 25303 25320 "src/unix/lwt_io.ml" 805 25303 25323
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 806 25327 25338 "src/unix/lwt_io.ml" 809 25452 25466
)
"src/unix/lwt_io.ml" 806 25327 25342 "src/unix/lwt_io.ml" 806 25327 25345
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 807 25369 25380 "src/unix/lwt_io.ml" 809 25452 25466
)
"src/unix/lwt_io.ml" 806 25327 25348 "src/unix/lwt_io.ml" 806 25327 25361
type(
  string -> int
)
ident(
  ext_ref String.length
)
"src/unix/lwt_io.ml" 806 25327 25362 "src/unix/lwt_io.ml" 806 25327 25365
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 805 25303 25320 "src/unix/lwt_io.ml" 805 25303 25323
)
"src/unix/lwt_io.ml" 806 25327 25348 "src/unix/lwt_io.ml" 806 25327 25365
type(
  int
)
"src/unix/lwt_io.ml" 807 25369 25384 "src/unix/lwt_io.ml" 807 25369 25387
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 808 25403 25414 "src/unix/lwt_io.ml" 809 25452 25466
)
"src/unix/lwt_io.ml" 807 25369 25390 "src/unix/lwt_io.ml" 807 25369 25393
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 805 25303 25316 "src/unix/lwt_io.ml" 805 25303 25319
)
"src/unix/lwt_io.ml" 807 25369 25394 "src/unix/lwt_io.ml" 807 25369 25395
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 807 25369 25396 "src/unix/lwt_io.ml" 807 25369 25399
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 806 25327 25342 "src/unix/lwt_io.ml" 806 25327 25345
)
"src/unix/lwt_io.ml" 807 25369 25390 "src/unix/lwt_io.ml" 807 25369 25399
type(
  int
)
"src/unix/lwt_io.ml" 808 25403 25414 "src/unix/lwt_io.ml" 808 25403 25432
type(
  string -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref String.unsafe_blit
)
"src/unix/lwt_io.ml" 808 25403 25433 "src/unix/lwt_io.ml" 808 25403 25436
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 805 25303 25320 "src/unix/lwt_io.ml" 805 25303 25323
)
"src/unix/lwt_io.ml" 808 25403 25437 "src/unix/lwt_io.ml" 808 25403 25438
type(
  int
)
"src/unix/lwt_io.ml" 808 25403 25439 "src/unix/lwt_io.ml" 808 25403 25442
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 802 25236 25244 "src/unix/lwt_io.ml" 802 25236 25247
)
"src/unix/lwt_io.ml" 808 25403 25443 "src/unix/lwt_io.ml" 808 25403 25446
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 807 25369 25384 "src/unix/lwt_io.ml" 807 25369 25387
)
"src/unix/lwt_io.ml" 808 25403 25447 "src/unix/lwt_io.ml" 808 25403 25450
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 806 25327 25342 "src/unix/lwt_io.ml" 806 25327 25345
)
"src/unix/lwt_io.ml" 808 25403 25414 "src/unix/lwt_io.ml" 808 25403 25450
type(
  unit
)
"src/unix/lwt_io.ml" 809 25452 25463 "src/unix/lwt_io.ml" 809 25452 25466
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 807 25369 25384 "src/unix/lwt_io.ml" 807 25369 25387
)
"src/unix/lwt_io.ml" 808 25403 25414 "src/unix/lwt_io.ml" 809 25452 25466
type(
  int
)
"src/unix/lwt_io.ml" 807 25369 25380 "src/unix/lwt_io.ml" 809 25452 25466
type(
  int
)
"src/unix/lwt_io.ml" 806 25327 25338 "src/unix/lwt_io.ml" 809 25452 25466
type(
  int
)
"src/unix/lwt_io.ml" 805 25303 25311 "src/unix/lwt_io.ml" 809 25452 25467
type(
  int -> string -> int
)
"src/unix/lwt_io.ml" 810 25468 25476 "src/unix/lwt_io.ml" 810 25468 25479
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 801 25211 25228 "src/unix/lwt_io.ml" 801 25211 25231
)
"src/unix/lwt_io.ml" 810 25468 25480 "src/unix/lwt_io.ml" 810 25468 25481
type(
  string list
)
ident(
  int_ref l "src/unix/lwt_io.ml" 801 25211 25232 "src/unix/lwt_io.ml" 801 25211 25233
)
"src/unix/lwt_io.ml" 804 25282 25288 "src/unix/lwt_io.ml" 810 25468 25481
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 812 25489 25493 "src/unix/lwt_io.ml" 812 25489 25496
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 802 25236 25244 "src/unix/lwt_io.ml" 802 25236 25247
)
"src/unix/lwt_io.ml" 803 25270 25274 "src/unix/lwt_io.ml" 812 25489 25496
type(
  bytes
)
"src/unix/lwt_io.ml" 802 25236 25240 "src/unix/lwt_io.ml" 812 25489 25496
type(
  bytes
)
"src/unix/lwt_io.ml" 814 25498 25508 "src/unix/lwt_io.ml" 814 25498 25516
type(
  'i _channel -> int -> string list -> bytes Lwt.t
)
ident(
  def read_all "src/unix/lwt_io.ml" 814 25498 25500 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
type(
  'i _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 814 25498 25520 "src/unix/lwt_io.ml" 824 25850 25902
)
"src/unix/lwt_io.ml" 814 25498 25520 "src/unix/lwt_io.ml" 814 25498 25529
type(
  int
)
ident(
  def total_len "src/unix/lwt_io.ml" 814 25498 25530 "src/unix/lwt_io.ml" 824 25850 25902
)
"src/unix/lwt_io.ml" 814 25498 25530 "src/unix/lwt_io.ml" 814 25498 25533
type(
  string list
)
ident(
  def acc "src/unix/lwt_io.ml" 815 25536 25540 "src/unix/lwt_io.ml" 824 25850 25902
)
"src/unix/lwt_io.ml" 815 25536 25544 "src/unix/lwt_io.ml" 815 25536 25547
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 816 25569 25573 "src/unix/lwt_io.ml" 824 25850 25902
)
"src/unix/lwt_io.ml" 815 25536 25550 "src/unix/lwt_io.ml" 815 25536 25552
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 815 25536 25550 "src/unix/lwt_io.ml" 815 25536 25556
type(
  int
)
"src/unix/lwt_io.ml" 815 25536 25557 "src/unix/lwt_io.ml" 815 25536 25558
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 815 25536 25559 "src/unix/lwt_io.ml" 815 25536 25561
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 815 25536 25559 "src/unix/lwt_io.ml" 815 25536 25565
type(
  int
)
"src/unix/lwt_io.ml" 815 25536 25550 "src/unix/lwt_io.ml" 815 25536 25565
type(
  int
)
"src/unix/lwt_io.ml" 816 25569 25577 "src/unix/lwt_io.ml" 816 25569 25580
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 817 25603 25607 "src/unix/lwt_io.ml" 824 25850 25902
)
"src/unix/lwt_io.ml" 816 25569 25583 "src/unix/lwt_io.ml" 816 25569 25595
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/unix/lwt_io.ml" 816 25569 25596 "src/unix/lwt_io.ml" 816 25569 25599
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 815 25536 25544 "src/unix/lwt_io.ml" 815 25536 25547
)
"src/unix/lwt_io.ml" 816 25569 25583 "src/unix/lwt_io.ml" 816 25569 25599
type(
  bytes
)
"src/unix/lwt_io.ml" 817 25603 25607 "src/unix/lwt_io.ml" 817 25603 25637
type(
  Lwt_bytes.t -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit_to_bytes
)
"src/unix/lwt_io.ml" 817 25603 25638 "src/unix/lwt_io.ml" 817 25603 25640
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 817 25603 25638 "src/unix/lwt_io.ml" 817 25603 25647
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 817 25603 25648 "src/unix/lwt_io.ml" 817 25603 25650
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 817 25603 25648 "src/unix/lwt_io.ml" 817 25603 25654
type(
  int
)
"src/unix/lwt_io.ml" 817 25603 25655 "src/unix/lwt_io.ml" 817 25603 25658
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 816 25569 25577 "src/unix/lwt_io.ml" 816 25569 25580
)
"src/unix/lwt_io.ml" 817 25603 25659 "src/unix/lwt_io.ml" 817 25603 25660
type(
  int
)
"src/unix/lwt_io.ml" 817 25603 25661 "src/unix/lwt_io.ml" 817 25603 25664
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 815 25536 25544 "src/unix/lwt_io.ml" 815 25536 25547
)
"src/unix/lwt_io.ml" 817 25603 25607 "src/unix/lwt_io.ml" 817 25603 25664
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 818 25666 25674 "src/unix/lwt_io.ml" 818 25666 25677
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 819 25710 25714 "src/unix/lwt_io.ml" 824 25850 25902
)
"src/unix/lwt_io.ml" 818 25666 25680 "src/unix/lwt_io.ml" 818 25666 25702
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/unix/lwt_io.ml" 818 25666 25703 "src/unix/lwt_io.ml" 818 25666 25706
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 816 25569 25577 "src/unix/lwt_io.ml" 816 25569 25580
)
"src/unix/lwt_io.ml" 818 25666 25680 "src/unix/lwt_io.ml" 818 25666 25706
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 819 25710 25714 "src/unix/lwt_io.ml" 819 25710 25716
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 819 25710 25724 "src/unix/lwt_io.ml" 819 25710 25726
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 819 25710 25724 "src/unix/lwt_io.ml" 819 25710 25730
type(
  int
)
"src/unix/lwt_io.ml" 819 25710 25714 "src/unix/lwt_io.ml" 819 25710 25730
type(
  unit
)
"src/unix/lwt_io.ml" 820 25732 25736 "src/unix/lwt_io.ml" 820 25732 25742
type(
  'i _channel -> int Lwt.t
)
ident(
  int_ref refill "src/unix/lwt_io.ml" 265 8504 8508 "src/unix/lwt_io.ml" 265 8504 8514
)
"src/unix/lwt_io.ml" 820 25732 25743 "src/unix/lwt_io.ml" 820 25732 25745
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 820 25732 25736 "src/unix/lwt_io.ml" 820 25732 25745
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 820 25732 25746 "src/unix/lwt_io.ml" 820 25732 25749
type(
  int Lwt.t -> (int -> bytes Lwt.t) -> bytes Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 821 25759 25767 "src/unix/lwt_io.ml" 821 25759 25768
type(
  int
)
"src/unix/lwt_io.ml" 822 25772 25782 "src/unix/lwt_io.ml" 822 25772 25792
type(
  bytes -> bytes Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 822 25772 25794 "src/unix/lwt_io.ml" 822 25772 25804
type(
  int -> string list -> bytes
)
ident(
  int_ref rev_concat "src/unix/lwt_io.ml" 801 25211 25217 "src/unix/lwt_io.ml" 801 25211 25227
)
"src/unix/lwt_io.ml" 822 25772 25806 "src/unix/lwt_io.ml" 822 25772 25809
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 815 25536 25544 "src/unix/lwt_io.ml" 815 25536 25547
)
"src/unix/lwt_io.ml" 822 25772 25810 "src/unix/lwt_io.ml" 822 25772 25811
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 822 25772 25812 "src/unix/lwt_io.ml" 822 25772 25821
type(
  int
)
ident(
  int_ref total_len "src/unix/lwt_io.ml" 814 25498 25520 "src/unix/lwt_io.ml" 814 25498 25529
)
"src/unix/lwt_io.ml" 822 25772 25805 "src/unix/lwt_io.ml" 822 25772 25822
type(
  int
)
"src/unix/lwt_io.ml" 822 25772 25824 "src/unix/lwt_io.ml" 822 25772 25827
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 818 25666 25674 "src/unix/lwt_io.ml" 818 25666 25677
)
"src/unix/lwt_io.ml" 822 25772 25831 "src/unix/lwt_io.ml" 822 25772 25834
type(
  string list
)
ident(
  int_ref acc "src/unix/lwt_io.ml" 814 25498 25530 "src/unix/lwt_io.ml" 814 25498 25533
)
"src/unix/lwt_io.ml" 822 25772 25823 "src/unix/lwt_io.ml" 822 25772 25835
type(
  string list
)
"src/unix/lwt_io.ml" 822 25772 25793 "src/unix/lwt_io.ml" 822 25772 25836
call(
  stack
)
type(
  bytes
)
"src/unix/lwt_io.ml" 822 25772 25782 "src/unix/lwt_io.ml" 822 25772 25836
call(
  tail
)
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 823 25837 25845 "src/unix/lwt_io.ml" 823 25837 25846
type(
  int
)
"src/unix/lwt_io.ml" 824 25850 25860 "src/unix/lwt_io.ml" 824 25850 25868
type(
  'i _channel -> int -> string list -> bytes Lwt.t
)
ident(
  int_ref read_all "src/unix/lwt_io.ml" 814 25498 25508 "src/unix/lwt_io.ml" 814 25498 25516
)
"src/unix/lwt_io.ml" 824 25850 25869 "src/unix/lwt_io.ml" 824 25850 25871
type(
  'i _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 814 25498 25517 "src/unix/lwt_io.ml" 814 25498 25519
)
"src/unix/lwt_io.ml" 824 25850 25873 "src/unix/lwt_io.ml" 824 25850 25876
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 815 25536 25544 "src/unix/lwt_io.ml" 815 25536 25547
)
"src/unix/lwt_io.ml" 824 25850 25877 "src/unix/lwt_io.ml" 824 25850 25878
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 824 25850 25879 "src/unix/lwt_io.ml" 824 25850 25888
type(
  int
)
ident(
  int_ref total_len "src/unix/lwt_io.ml" 814 25498 25520 "src/unix/lwt_io.ml" 814 25498 25529
)
"src/unix/lwt_io.ml" 824 25850 25872 "src/unix/lwt_io.ml" 824 25850 25889
type(
  int
)
"src/unix/lwt_io.ml" 824 25850 25891 "src/unix/lwt_io.ml" 824 25850 25894
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 818 25666 25674 "src/unix/lwt_io.ml" 818 25666 25677
)
"src/unix/lwt_io.ml" 824 25850 25898 "src/unix/lwt_io.ml" 824 25850 25901
type(
  string list
)
ident(
  int_ref acc "src/unix/lwt_io.ml" 814 25498 25530 "src/unix/lwt_io.ml" 814 25498 25533
)
"src/unix/lwt_io.ml" 824 25850 25890 "src/unix/lwt_io.ml" 824 25850 25902
type(
  string list
)
"src/unix/lwt_io.ml" 824 25850 25860 "src/unix/lwt_io.ml" 824 25850 25902
call(
  tail
)
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 820 25732 25750 "src/unix/lwt_io.ml" 824 25850 25902
type(
  int -> bytes Lwt.t
)
"src/unix/lwt_io.ml" 820 25732 25736 "src/unix/lwt_io.ml" 824 25850 25902
call(
  tail
)
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 819 25710 25714 "src/unix/lwt_io.ml" 824 25850 25902
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 818 25666 25670 "src/unix/lwt_io.ml" 824 25850 25902
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 817 25603 25607 "src/unix/lwt_io.ml" 824 25850 25902
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 816 25569 25573 "src/unix/lwt_io.ml" 824 25850 25902
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 815 25536 25540 "src/unix/lwt_io.ml" 824 25850 25902
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 826 25904 25910 "src/unix/lwt_io.ml" 826 25904 25914
type(
  int option -> 'j _channel -> string Lwt.t
)
ident(
  def read "src/unix/lwt_io.ml" 838 26308 26310 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 826 25904 25915 "src/unix/lwt_io.ml" 826 25904 25920
type(
  int option
)
ident(
  def count "src/unix/lwt_io.ml" 826 25904 25921 "src/unix/lwt_io.ml" 836 26255 26306
)
"src/unix/lwt_io.ml" 826 25904 25921 "src/unix/lwt_io.ml" 826 25904 25923
type(
  'j _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 827 25926 25930 "src/unix/lwt_io.ml" 836 26255 26306
)
"src/unix/lwt_io.ml" 827 25926 25936 "src/unix/lwt_io.ml" 827 25926 25941
type(
  int option
)
ident(
  int_ref count "src/unix/lwt_io.ml" 826 25904 25915 "src/unix/lwt_io.ml" 826 25904 25920
)
"src/unix/lwt_io.ml" 828 25947 25955 "src/unix/lwt_io.ml" 828 25947 25959
type(
  int option
)
"src/unix/lwt_io.ml" 829 25963 25973 "src/unix/lwt_io.ml" 829 25963 25981
type(
  'j _channel -> int -> string list -> bytes Lwt.t
)
ident(
  int_ref read_all "src/unix/lwt_io.ml" 814 25498 25508 "src/unix/lwt_io.ml" 814 25498 25516
)
"src/unix/lwt_io.ml" 829 25963 25982 "src/unix/lwt_io.ml" 829 25963 25984
type(
  'j _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 826 25904 25921 "src/unix/lwt_io.ml" 826 25904 25923
)
"src/unix/lwt_io.ml" 829 25963 25985 "src/unix/lwt_io.ml" 829 25963 25986
type(
  int
)
"src/unix/lwt_io.ml" 829 25963 25987 "src/unix/lwt_io.ml" 829 25963 25989
type(
  string list
)
"src/unix/lwt_io.ml" 829 25963 25973 "src/unix/lwt_io.ml" 829 25963 25989
call(
  stack
)
type(
  bytes Lwt.t
)
"src/unix/lwt_io.ml" 829 25963 25990 "src/unix/lwt_io.ml" 829 25963 25993
type(
  bytes Lwt.t -> (bytes -> string) -> string Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >|= )
)
"src/unix/lwt_io.ml" 829 25963 25994 "src/unix/lwt_io.ml" 829 25963 26016
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/unix/lwt_io.ml" 829 25963 25973 "src/unix/lwt_io.ml" 829 25963 26016
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 830 26017 26030 "src/unix/lwt_io.ml" 830 26017 26033
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 831 26037 26047 "src/unix/lwt_io.ml" 836 26255 26306
)
"src/unix/lwt_io.ml" 830 26017 26025 "src/unix/lwt_io.ml" 830 26017 26033
type(
  int option
)
"src/unix/lwt_io.ml" 831 26037 26051 "src/unix/lwt_io.ml" 831 26037 26054
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 832 26077 26087 "src/unix/lwt_io.ml" 836 26255 26306
)
"src/unix/lwt_io.ml" 831 26037 26057 "src/unix/lwt_io.ml" 831 26037 26069
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/unix/lwt_io.ml" 831 26037 26070 "src/unix/lwt_io.ml" 831 26037 26073
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 830 26017 26030 "src/unix/lwt_io.ml" 830 26017 26033
)
"src/unix/lwt_io.ml" 831 26037 26057 "src/unix/lwt_io.ml" 831 26037 26073
type(
  bytes
)
"src/unix/lwt_io.ml" 832 26077 26087 "src/unix/lwt_io.ml" 832 26077 26103
type(
  'j _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref unsafe_read_into "src/unix/lwt_io.ml" 750 23576 23582 "src/unix/lwt_io.ml" 750 23576 23598
)
"src/unix/lwt_io.ml" 832 26077 26104 "src/unix/lwt_io.ml" 832 26077 26106
type(
  'j _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 826 25904 25921 "src/unix/lwt_io.ml" 826 25904 25923
)
"src/unix/lwt_io.ml" 832 26077 26107 "src/unix/lwt_io.ml" 832 26077 26110
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 831 26037 26051 "src/unix/lwt_io.ml" 831 26037 26054
)
"src/unix/lwt_io.ml" 832 26077 26111 "src/unix/lwt_io.ml" 832 26077 26112
type(
  int
)
"src/unix/lwt_io.ml" 832 26077 26113 "src/unix/lwt_io.ml" 832 26077 26116
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 830 26017 26030 "src/unix/lwt_io.ml" 830 26017 26033
)
"src/unix/lwt_io.ml" 832 26077 26087 "src/unix/lwt_io.ml" 832 26077 26116
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 832 26077 26117 "src/unix/lwt_io.ml" 832 26077 26120
type(
  int Lwt.t -> (int -> string Lwt.t) -> string Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 832 26077 26125 "src/unix/lwt_io.ml" 832 26077 26133
type(
  int
)
ident(
  def real_len "src/unix/lwt_io.ml" 833 26137 26147 "src/unix/lwt_io.ml" 836 26255 26306
)
"src/unix/lwt_io.ml" 833 26137 26150 "src/unix/lwt_io.ml" 833 26137 26158
type(
  int
)
ident(
  int_ref real_len "src/unix/lwt_io.ml" 832 26077 26125 "src/unix/lwt_io.ml" 832 26077 26133
)
"src/unix/lwt_io.ml" 833 26137 26159 "src/unix/lwt_io.ml" 833 26137 26160
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 833 26137 26161 "src/unix/lwt_io.ml" 833 26137 26164
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 830 26017 26030 "src/unix/lwt_io.ml" 830 26017 26033
)
"src/unix/lwt_io.ml" 833 26137 26150 "src/unix/lwt_io.ml" 833 26137 26164
type(
  bool
)
"src/unix/lwt_io.ml" 834 26170 26182 "src/unix/lwt_io.ml" 834 26170 26192
type(
  string -> string Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 834 26170 26200 "src/unix/lwt_io.ml" 834 26170 26203
type(
  bytes -> int -> int -> bytes
)
ident(
  ext_ref Bytes.sub
)
"src/unix/lwt_io.ml" 834 26170 26204 "src/unix/lwt_io.ml" 834 26170 26207
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 831 26037 26051 "src/unix/lwt_io.ml" 831 26037 26054
)
"src/unix/lwt_io.ml" 834 26170 26208 "src/unix/lwt_io.ml" 834 26170 26209
type(
  int
)
"src/unix/lwt_io.ml" 834 26170 26210 "src/unix/lwt_io.ml" 834 26170 26218
type(
  int
)
ident(
  int_ref real_len "src/unix/lwt_io.ml" 832 26077 26125 "src/unix/lwt_io.ml" 832 26077 26133
)
"src/unix/lwt_io.ml" 834 26170 26200 "src/unix/lwt_io.ml" 834 26170 26218
call(
  stack
)
type(
  bytes
)
"src/unix/lwt_io.ml" 834 26170 26219 "src/unix/lwt_io.ml" 834 26170 26221
type(
  bytes -> (bytes -> string) -> string
)
ident(
  ext_ref Pervasives.( |> )
)
"src/unix/lwt_io.ml" 834 26170 26222 "src/unix/lwt_io.ml" 834 26170 26238
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/unix/lwt_io.ml" 834 26170 26200 "src/unix/lwt_io.ml" 834 26170 26238
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 834 26170 26182 "src/unix/lwt_io.ml" 834 26170 26239
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 836 26255 26267 "src/unix/lwt_io.ml" 836 26255 26277
type(
  string -> string Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 836 26255 26279 "src/unix/lwt_io.ml" 836 26255 26301
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/unix/lwt_io.ml" 836 26255 26302 "src/unix/lwt_io.ml" 836 26255 26305
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 831 26037 26051 "src/unix/lwt_io.ml" 831 26037 26054
)
"src/unix/lwt_io.ml" 836 26255 26278 "src/unix/lwt_io.ml" 836 26255 26306
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 836 26255 26267 "src/unix/lwt_io.ml" 836 26255 26306
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 833 26137 26147 "src/unix/lwt_io.ml" 836 26255 26306
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 832 26077 26121 "src/unix/lwt_io.ml" 836 26255 26306
type(
  int -> string Lwt.t
)
"src/unix/lwt_io.ml" 832 26077 26087 "src/unix/lwt_io.ml" 836 26255 26306
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 831 26037 26047 "src/unix/lwt_io.ml" 836 26255 26306
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 827 25926 25930 "src/unix/lwt_io.ml" 836 26255 26306
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 838 26308 26314 "src/unix/lwt_io.ml" 838 26308 26324
type(
  'k _channel -> 'l Lwt.t
)
ident(
  def read_value "src/unix/lwt_io.ml" 853 26993 26995 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 838 26308 26325 "src/unix/lwt_io.ml" 838 26308 26327
type(
  'k _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 839 26330 26334 "src/unix/lwt_io.ml" 847 26704 26774
)
"src/unix/lwt_io.ml" 839 26330 26338 "src/unix/lwt_io.ml" 839 26330 26344
type(
  bytes
)
ident(
  def header "src/unix/lwt_io.ml" 840 26366 26370 "src/unix/lwt_io.ml" 847 26704 26774
)
"src/unix/lwt_io.ml" 839 26330 26347 "src/unix/lwt_io.ml" 839 26330 26359
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/unix/lwt_io.ml" 839 26330 26360 "src/unix/lwt_io.ml" 839 26330 26362
type(
  int
)
"src/unix/lwt_io.ml" 839 26330 26347 "src/unix/lwt_io.ml" 839 26330 26362
type(
  bytes
)
"src/unix/lwt_io.ml" 840 26366 26370 "src/unix/lwt_io.ml" 840 26366 26394
type(
  'k _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_read_into_exactly "src/unix/lwt_io.ml" 778 24458 24468 "src/unix/lwt_io.ml" 778 24458 24492
)
"src/unix/lwt_io.ml" 840 26366 26395 "src/unix/lwt_io.ml" 840 26366 26397
type(
  'k _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 838 26308 26325 "src/unix/lwt_io.ml" 838 26308 26327
)
"src/unix/lwt_io.ml" 840 26366 26398 "src/unix/lwt_io.ml" 840 26366 26404
type(
  bytes
)
ident(
  int_ref header "src/unix/lwt_io.ml" 839 26330 26338 "src/unix/lwt_io.ml" 839 26330 26344
)
"src/unix/lwt_io.ml" 840 26366 26405 "src/unix/lwt_io.ml" 840 26366 26406
type(
  int
)
"src/unix/lwt_io.ml" 840 26366 26407 "src/unix/lwt_io.ml" 840 26366 26409
type(
  int
)
"src/unix/lwt_io.ml" 840 26366 26370 "src/unix/lwt_io.ml" 840 26366 26409
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 840 26366 26410 "src/unix/lwt_io.ml" 840 26366 26413
type(
  unit Lwt.t -> (unit -> 'l Lwt.t) -> 'l Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 840 26366 26418 "src/unix/lwt_io.ml" 840 26366 26420
type(
  unit
)
"src/unix/lwt_io.ml" 841 26424 26432 "src/unix/lwt_io.ml" 841 26424 26437
type(
  int
)
ident(
  def bsize "src/unix/lwt_io.ml" 842 26470 26474 "src/unix/lwt_io.ml" 847 26704 26774
)
"src/unix/lwt_io.ml" 841 26424 26440 "src/unix/lwt_io.ml" 841 26424 26457
type(
  bytes -> int -> int
)
ident(
  ext_ref Marshal.data_size
)
"src/unix/lwt_io.ml" 841 26424 26458 "src/unix/lwt_io.ml" 841 26424 26464
type(
  bytes
)
ident(
  int_ref header "src/unix/lwt_io.ml" 839 26330 26338 "src/unix/lwt_io.ml" 839 26330 26344
)
"src/unix/lwt_io.ml" 841 26424 26465 "src/unix/lwt_io.ml" 841 26424 26466
type(
  int
)
"src/unix/lwt_io.ml" 841 26424 26440 "src/unix/lwt_io.ml" 841 26424 26466
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 842 26470 26478 "src/unix/lwt_io.ml" 842 26470 26484
type(
  bytes
)
ident(
  def buffer "src/unix/lwt_io.ml" 843 26516 26520 "src/unix/lwt_io.ml" 847 26704 26774
)
"src/unix/lwt_io.ml" 842 26470 26487 "src/unix/lwt_io.ml" 842 26470 26499
type(
  int -> bytes
)
ident(
  ext_ref Bytes.create
)
"src/unix/lwt_io.ml" 842 26470 26501 "src/unix/lwt_io.ml" 842 26470 26503
type(
  int
)
"src/unix/lwt_io.ml" 842 26470 26504 "src/unix/lwt_io.ml" 842 26470 26505
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 842 26470 26506 "src/unix/lwt_io.ml" 842 26470 26511
type(
  int
)
ident(
  int_ref bsize "src/unix/lwt_io.ml" 841 26424 26432 "src/unix/lwt_io.ml" 841 26424 26437
)
"src/unix/lwt_io.ml" 842 26470 26500 "src/unix/lwt_io.ml" 842 26470 26512
type(
  int
)
"src/unix/lwt_io.ml" 842 26470 26487 "src/unix/lwt_io.ml" 842 26470 26512
type(
  bytes
)
"src/unix/lwt_io.ml" 843 26516 26520 "src/unix/lwt_io.ml" 843 26516 26537
type(
  bytes -> int -> bytes -> int -> int -> unit
)
ident(
  ext_ref Bytes.unsafe_blit
)
"src/unix/lwt_io.ml" 843 26516 26538 "src/unix/lwt_io.ml" 843 26516 26544
type(
  bytes
)
ident(
  int_ref header "src/unix/lwt_io.ml" 839 26330 26338 "src/unix/lwt_io.ml" 839 26330 26344
)
"src/unix/lwt_io.ml" 843 26516 26545 "src/unix/lwt_io.ml" 843 26516 26546
type(
  int
)
"src/unix/lwt_io.ml" 843 26516 26547 "src/unix/lwt_io.ml" 843 26516 26553
type(
  bytes
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 842 26470 26478 "src/unix/lwt_io.ml" 842 26470 26484
)
"src/unix/lwt_io.ml" 843 26516 26554 "src/unix/lwt_io.ml" 843 26516 26555
type(
  int
)
"src/unix/lwt_io.ml" 843 26516 26556 "src/unix/lwt_io.ml" 843 26516 26558
type(
  int
)
"src/unix/lwt_io.ml" 843 26516 26520 "src/unix/lwt_io.ml" 843 26516 26558
type(
  unit
)
"src/unix/lwt_io.ml" 844 26560 26564 "src/unix/lwt_io.ml" 844 26560 26588
type(
  'k _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_read_into_exactly "src/unix/lwt_io.ml" 778 24458 24468 "src/unix/lwt_io.ml" 778 24458 24492
)
"src/unix/lwt_io.ml" 844 26560 26589 "src/unix/lwt_io.ml" 844 26560 26591
type(
  'k _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 838 26308 26325 "src/unix/lwt_io.ml" 838 26308 26327
)
"src/unix/lwt_io.ml" 844 26560 26592 "src/unix/lwt_io.ml" 844 26560 26598
type(
  bytes
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 842 26470 26478 "src/unix/lwt_io.ml" 842 26470 26484
)
"src/unix/lwt_io.ml" 844 26560 26599 "src/unix/lwt_io.ml" 844 26560 26601
type(
  int
)
"src/unix/lwt_io.ml" 844 26560 26602 "src/unix/lwt_io.ml" 844 26560 26607
type(
  int
)
ident(
  int_ref bsize "src/unix/lwt_io.ml" 841 26424 26432 "src/unix/lwt_io.ml" 841 26424 26437
)
"src/unix/lwt_io.ml" 844 26560 26564 "src/unix/lwt_io.ml" 844 26560 26607
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 844 26560 26608 "src/unix/lwt_io.ml" 844 26560 26611
type(
  unit Lwt.t -> (unit -> 'l Lwt.t) -> 'l Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 844 26560 26616 "src/unix/lwt_io.ml" 844 26560 26618
type(
  unit
)
"src/unix/lwt_io.ml" 847 26704 26708 "src/unix/lwt_io.ml" 847 26704 26718
type(
  'l -> 'l Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 847 26704 26720 "src/unix/lwt_io.ml" 847 26704 26739
type(
  string -> int -> 'l
)
ident(
  ext_ref Marshal.from_string
)
"src/unix/lwt_io.ml" 847 26704 26741 "src/unix/lwt_io.ml" 847 26704 26763
type(
  bytes -> string
)
ident(
  ext_ref Bytes.unsafe_to_string
)
"src/unix/lwt_io.ml" 847 26704 26764 "src/unix/lwt_io.ml" 847 26704 26770
type(
  bytes
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 842 26470 26478 "src/unix/lwt_io.ml" 842 26470 26484
)
"src/unix/lwt_io.ml" 847 26704 26740 "src/unix/lwt_io.ml" 847 26704 26771
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 847 26704 26772 "src/unix/lwt_io.ml" 847 26704 26773
type(
  int
)
"src/unix/lwt_io.ml" 847 26704 26719 "src/unix/lwt_io.ml" 847 26704 26774
call(
  stack
)
type(
  'l
)
"src/unix/lwt_io.ml" 847 26704 26708 "src/unix/lwt_io.ml" 847 26704 26774
call(
  tail
)
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 844 26560 26612 "src/unix/lwt_io.ml" 847 26704 26774
type(
  unit -> 'l Lwt.t
)
"src/unix/lwt_io.ml" 844 26560 26564 "src/unix/lwt_io.ml" 847 26704 26774
call(
  tail
)
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 843 26516 26520 "src/unix/lwt_io.ml" 847 26704 26774
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 842 26470 26474 "src/unix/lwt_io.ml" 847 26704 26774
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 841 26424 26428 "src/unix/lwt_io.ml" 847 26704 26774
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 840 26366 26414 "src/unix/lwt_io.ml" 847 26704 26774
type(
  unit -> 'l Lwt.t
)
"src/unix/lwt_io.ml" 840 26366 26370 "src/unix/lwt_io.ml" 847 26704 26774
call(
  tail
)
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 839 26330 26334 "src/unix/lwt_io.ml" 847 26704 26774
type(
  'l Lwt.t
)
"src/unix/lwt_io.ml" 853 26993 26999 "src/unix/lwt_io.ml" 853 26993 27004
type(
  'm _channel -> unit Lwt.t
)
ident(
  def flush "src/unix/lwt_io.ml" 855 27020 27022 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 853 26993 27007 "src/unix/lwt_io.ml" 853 26993 27018
type(
  'm _channel -> unit Lwt.t
)
ident(
  int_ref flush_total "src/unix/lwt_io.ml" 268 8560 8568 "src/unix/lwt_io.ml" 268 8560 8579
)
"src/unix/lwt_io.ml" 855 27020 27030 "src/unix/lwt_io.ml" 855 27020 27040
type(
  'n _channel -> char -> unit Lwt.t
)
ident(
  def write_char "src/unix/lwt_io.ml" 855 27020 27022 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
type(
  'n _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 855 27020 27044 "src/unix/lwt_io.ml" 863 27248 27270
)
"src/unix/lwt_io.ml" 855 27020 27044 "src/unix/lwt_io.ml" 855 27020 27046
type(
  char
)
ident(
  def ch "src/unix/lwt_io.ml" 856 27049 27053 "src/unix/lwt_io.ml" 863 27248 27270
)
"src/unix/lwt_io.ml" 856 27049 27057 "src/unix/lwt_io.ml" 856 27049 27060
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 857 27073 27077 "src/unix/lwt_io.ml" 863 27248 27270
)
"src/unix/lwt_io.ml" 856 27049 27063 "src/unix/lwt_io.ml" 856 27049 27065
type(
  'n _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
)
"src/unix/lwt_io.ml" 856 27049 27063 "src/unix/lwt_io.ml" 856 27049 27069
type(
  int
)
"src/unix/lwt_io.ml" 857 27073 27080 "src/unix/lwt_io.ml" 857 27073 27083
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 856 27049 27057 "src/unix/lwt_io.ml" 856 27049 27060
)
"src/unix/lwt_io.ml" 857 27073 27084 "src/unix/lwt_io.ml" 857 27073 27085
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 857 27073 27086 "src/unix/lwt_io.ml" 857 27073 27088
type(
  'n _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
)
"src/unix/lwt_io.ml" 857 27073 27086 "src/unix/lwt_io.ml" 857 27073 27095
type(
  int
)
"src/unix/lwt_io.ml" 857 27073 27080 "src/unix/lwt_io.ml" 857 27073 27095
type(
  bool
)
"src/unix/lwt_io.ml" 858 27107 27113 "src/unix/lwt_io.ml" 858 27107 27115
type(
  'n _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
)
"src/unix/lwt_io.ml" 858 27107 27123 "src/unix/lwt_io.ml" 858 27107 27126
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 856 27049 27057 "src/unix/lwt_io.ml" 856 27049 27060
)
"src/unix/lwt_io.ml" 858 27107 27127 "src/unix/lwt_io.ml" 858 27107 27128
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 858 27107 27129 "src/unix/lwt_io.ml" 858 27107 27130
type(
  int
)
"src/unix/lwt_io.ml" 858 27107 27123 "src/unix/lwt_io.ml" 858 27107 27130
type(
  int
)
"src/unix/lwt_io.ml" 858 27107 27113 "src/unix/lwt_io.ml" 858 27107 27130
type(
  unit
)
"src/unix/lwt_io.ml" 859 27132 27138 "src/unix/lwt_io.ml" 859 27132 27158
type(
  Lwt_bytes.t -> int -> char -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_set
)
"src/unix/lwt_io.ml" 859 27132 27159 "src/unix/lwt_io.ml" 859 27132 27161
type(
  'n _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
)
"src/unix/lwt_io.ml" 859 27132 27159 "src/unix/lwt_io.ml" 859 27132 27168
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 859 27132 27169 "src/unix/lwt_io.ml" 859 27132 27172
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 856 27049 27057 "src/unix/lwt_io.ml" 856 27049 27060
)
"src/unix/lwt_io.ml" 859 27132 27173 "src/unix/lwt_io.ml" 859 27132 27175
type(
  char
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 855 27020 27044 "src/unix/lwt_io.ml" 855 27020 27046
)
"src/unix/lwt_io.ml" 859 27132 27138 "src/unix/lwt_io.ml" 859 27132 27175
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 860 27177 27183 "src/unix/lwt_io.ml" 860 27177 27198
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 859 27132 27138 "src/unix/lwt_io.ml" 860 27177 27198
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 857 27073 27101 "src/unix/lwt_io.ml" 861 27199 27206
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 862 27212 27218 "src/unix/lwt_io.ml" 862 27212 27231
type(
  'n _channel -> int Lwt.t
)
ident(
  int_ref flush_partial "src/unix/lwt_io.ml" 266 8528 8532 "src/unix/lwt_io.ml" 266 8528 8545
)
"src/unix/lwt_io.ml" 862 27212 27232 "src/unix/lwt_io.ml" 862 27212 27234
type(
  'n _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
)
"src/unix/lwt_io.ml" 862 27212 27218 "src/unix/lwt_io.ml" 862 27212 27234
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 862 27212 27235 "src/unix/lwt_io.ml" 862 27212 27238
type(
  int Lwt.t -> (int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 862 27212 27243 "src/unix/lwt_io.ml" 862 27212 27244
type(
  int
)
"src/unix/lwt_io.ml" 863 27248 27254 "src/unix/lwt_io.ml" 863 27248 27264
type(
  'n _channel -> char -> unit Lwt.t
)
ident(
  int_ref write_char "src/unix/lwt_io.ml" 855 27020 27030 "src/unix/lwt_io.ml" 855 27020 27040
)
"src/unix/lwt_io.ml" 863 27248 27265 "src/unix/lwt_io.ml" 863 27248 27267
type(
  'n _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 855 27020 27041 "src/unix/lwt_io.ml" 855 27020 27043
)
"src/unix/lwt_io.ml" 863 27248 27268 "src/unix/lwt_io.ml" 863 27248 27270
type(
  char
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 855 27020 27044 "src/unix/lwt_io.ml" 855 27020 27046
)
"src/unix/lwt_io.ml" 863 27248 27254 "src/unix/lwt_io.ml" 863 27248 27270
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 862 27212 27239 "src/unix/lwt_io.ml" 863 27248 27270
type(
  int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 862 27212 27218 "src/unix/lwt_io.ml" 863 27248 27270
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 857 27073 27077 "src/unix/lwt_io.ml" 863 27248 27270
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 856 27049 27053 "src/unix/lwt_io.ml" 863 27248 27270
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 865 27272 27282 "src/unix/lwt_io.ml" 865 27272 27299
type(
  'o _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  def unsafe_write_from "src/unix/lwt_io.ml" 865 27272 27274 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
type(
  'o _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 865 27272 27303 "src/unix/lwt_io.ml" 886 28016 28023
)
"src/unix/lwt_io.ml" 865 27272 27303 "src/unix/lwt_io.ml" 865 27272 27306
type(
  bytes
)
ident(
  def str "src/unix/lwt_io.ml" 865 27272 27307 "src/unix/lwt_io.ml" 886 28016 28023
)
"src/unix/lwt_io.ml" 865 27272 27307 "src/unix/lwt_io.ml" 865 27272 27310
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 865 27272 27311 "src/unix/lwt_io.ml" 886 28016 28023
)
"src/unix/lwt_io.ml" 865 27272 27311 "src/unix/lwt_io.ml" 865 27272 27314
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 866 27317 27321 "src/unix/lwt_io.ml" 886 28016 28023
)
"src/unix/lwt_io.ml" 866 27317 27325 "src/unix/lwt_io.ml" 866 27317 27330
type(
  int
)
ident(
  def avail "src/unix/lwt_io.ml" 867 27355 27359 "src/unix/lwt_io.ml" 886 28016 28023
)
"src/unix/lwt_io.ml" 866 27317 27333 "src/unix/lwt_io.ml" 866 27317 27335
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 866 27317 27333 "src/unix/lwt_io.ml" 866 27317 27342
type(
  int
)
"src/unix/lwt_io.ml" 866 27317 27343 "src/unix/lwt_io.ml" 866 27317 27344
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 866 27317 27345 "src/unix/lwt_io.ml" 866 27317 27347
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 866 27317 27345 "src/unix/lwt_io.ml" 866 27317 27351
type(
  int
)
"src/unix/lwt_io.ml" 866 27317 27333 "src/unix/lwt_io.ml" 866 27317 27351
type(
  int
)
"src/unix/lwt_io.ml" 867 27355 27362 "src/unix/lwt_io.ml" 867 27355 27367
type(
  int
)
ident(
  int_ref avail "src/unix/lwt_io.ml" 866 27317 27325 "src/unix/lwt_io.ml" 866 27317 27330
)
"src/unix/lwt_io.ml" 867 27355 27368 "src/unix/lwt_io.ml" 867 27355 27370
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/unix/lwt_io.ml" 867 27355 27371 "src/unix/lwt_io.ml" 867 27355 27374
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 865 27272 27311 "src/unix/lwt_io.ml" 865 27272 27314
)
"src/unix/lwt_io.ml" 867 27355 27362 "src/unix/lwt_io.ml" 867 27355 27374
type(
  bool
)
"src/unix/lwt_io.ml" 868 27386 27392 "src/unix/lwt_io.ml" 868 27386 27424
type(
  bytes -> int -> Lwt_bytes.t -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit_from_bytes
)
"src/unix/lwt_io.ml" 868 27386 27425 "src/unix/lwt_io.ml" 868 27386 27428
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 865 27272 27303 "src/unix/lwt_io.ml" 865 27272 27306
)
"src/unix/lwt_io.ml" 868 27386 27429 "src/unix/lwt_io.ml" 868 27386 27432
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 865 27272 27307 "src/unix/lwt_io.ml" 865 27272 27310
)
"src/unix/lwt_io.ml" 868 27386 27433 "src/unix/lwt_io.ml" 868 27386 27435
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 868 27386 27433 "src/unix/lwt_io.ml" 868 27386 27442
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 868 27386 27443 "src/unix/lwt_io.ml" 868 27386 27445
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 868 27386 27443 "src/unix/lwt_io.ml" 868 27386 27449
type(
  int
)
"src/unix/lwt_io.ml" 868 27386 27450 "src/unix/lwt_io.ml" 868 27386 27453
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 865 27272 27311 "src/unix/lwt_io.ml" 865 27272 27314
)
"src/unix/lwt_io.ml" 868 27386 27392 "src/unix/lwt_io.ml" 868 27386 27453
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 869 27455 27461 "src/unix/lwt_io.ml" 869 27455 27463
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 869 27455 27471 "src/unix/lwt_io.ml" 869 27455 27473
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 869 27455 27471 "src/unix/lwt_io.ml" 869 27455 27477
type(
  int
)
"src/unix/lwt_io.ml" 869 27455 27478 "src/unix/lwt_io.ml" 869 27455 27479
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 869 27455 27480 "src/unix/lwt_io.ml" 869 27455 27483
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 865 27272 27311 "src/unix/lwt_io.ml" 865 27272 27314
)
"src/unix/lwt_io.ml" 869 27455 27471 "src/unix/lwt_io.ml" 869 27455 27483
type(
  int
)
"src/unix/lwt_io.ml" 869 27455 27461 "src/unix/lwt_io.ml" 869 27455 27483
type(
  unit
)
"src/unix/lwt_io.ml" 870 27485 27491 "src/unix/lwt_io.ml" 870 27485 27501
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 870 27485 27502 "src/unix/lwt_io.ml" 870 27485 27503
type(
  int
)
"src/unix/lwt_io.ml" 870 27485 27491 "src/unix/lwt_io.ml" 870 27485 27503
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 869 27455 27461 "src/unix/lwt_io.ml" 870 27485 27503
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 867 27355 27380 "src/unix/lwt_io.ml" 871 27504 27511
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 872 27523 27529 "src/unix/lwt_io.ml" 872 27523 27561
type(
  bytes -> int -> Lwt_bytes.t -> int -> int -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_blit_from_bytes
)
"src/unix/lwt_io.ml" 872 27523 27562 "src/unix/lwt_io.ml" 872 27523 27565
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 865 27272 27303 "src/unix/lwt_io.ml" 865 27272 27306
)
"src/unix/lwt_io.ml" 872 27523 27566 "src/unix/lwt_io.ml" 872 27523 27569
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 865 27272 27307 "src/unix/lwt_io.ml" 865 27272 27310
)
"src/unix/lwt_io.ml" 872 27523 27570 "src/unix/lwt_io.ml" 872 27523 27572
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 872 27523 27570 "src/unix/lwt_io.ml" 872 27523 27579
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 872 27523 27580 "src/unix/lwt_io.ml" 872 27523 27582
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 872 27523 27580 "src/unix/lwt_io.ml" 872 27523 27586
type(
  int
)
"src/unix/lwt_io.ml" 872 27523 27587 "src/unix/lwt_io.ml" 872 27523 27592
type(
  int
)
ident(
  int_ref avail "src/unix/lwt_io.ml" 866 27317 27325 "src/unix/lwt_io.ml" 866 27317 27330
)
"src/unix/lwt_io.ml" 872 27523 27529 "src/unix/lwt_io.ml" 872 27523 27592
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 873 27594 27600 "src/unix/lwt_io.ml" 873 27594 27602
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 873 27594 27610 "src/unix/lwt_io.ml" 873 27594 27612
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 873 27594 27610 "src/unix/lwt_io.ml" 873 27594 27619
type(
  int
)
"src/unix/lwt_io.ml" 873 27594 27600 "src/unix/lwt_io.ml" 873 27594 27619
type(
  unit
)
"src/unix/lwt_io.ml" 874 27621 27627 "src/unix/lwt_io.ml" 874 27621 27640
type(
  'o _channel -> int Lwt.t
)
ident(
  int_ref flush_partial "src/unix/lwt_io.ml" 266 8528 8532 "src/unix/lwt_io.ml" 266 8528 8545
)
"src/unix/lwt_io.ml" 874 27621 27641 "src/unix/lwt_io.ml" 874 27621 27643
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 874 27621 27627 "src/unix/lwt_io.ml" 874 27621 27643
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 874 27621 27644 "src/unix/lwt_io.ml" 874 27621 27647
type(
  int Lwt.t -> (int -> int Lwt.t) -> int Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 874 27621 27652 "src/unix/lwt_io.ml" 874 27621 27653
type(
  int
)
"src/unix/lwt_io.ml" 875 27657 27667 "src/unix/lwt_io.ml" 875 27657 27670
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 876 27688 27694 "src/unix/lwt_io.ml" 885 27993 28015
)
"src/unix/lwt_io.ml" 875 27657 27673 "src/unix/lwt_io.ml" 875 27657 27676
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 865 27272 27311 "src/unix/lwt_io.ml" 865 27272 27314
)
"src/unix/lwt_io.ml" 875 27657 27677 "src/unix/lwt_io.ml" 875 27657 27678
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 875 27657 27679 "src/unix/lwt_io.ml" 875 27657 27684
type(
  int
)
ident(
  int_ref avail "src/unix/lwt_io.ml" 866 27317 27325 "src/unix/lwt_io.ml" 866 27317 27330
)
"src/unix/lwt_io.ml" 875 27657 27673 "src/unix/lwt_io.ml" 875 27657 27684
type(
  int
)
"src/unix/lwt_io.ml" 876 27688 27697 "src/unix/lwt_io.ml" 876 27688 27699
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 876 27688 27697 "src/unix/lwt_io.ml" 876 27688 27703
type(
  int
)
"src/unix/lwt_io.ml" 876 27688 27704 "src/unix/lwt_io.ml" 876 27688 27705
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 876 27688 27706 "src/unix/lwt_io.ml" 876 27688 27707
type(
  int
)
"src/unix/lwt_io.ml" 876 27688 27697 "src/unix/lwt_io.ml" 876 27688 27707
type(
  bool
)
"src/unix/lwt_io.ml" 877 27719 27730 "src/unix/lwt_io.ml" 877 27719 27733
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 875 27657 27667 "src/unix/lwt_io.ml" 875 27657 27670
)
"src/unix/lwt_io.ml" 877 27719 27734 "src/unix/lwt_io.ml" 877 27719 27735
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 877 27719 27736 "src/unix/lwt_io.ml" 877 27719 27737
type(
  int
)
"src/unix/lwt_io.ml" 877 27719 27730 "src/unix/lwt_io.ml" 877 27719 27737
type(
  bool
)
"src/unix/lwt_io.ml" 878 27743 27753 "src/unix/lwt_io.ml" 878 27743 27763
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 878 27743 27764 "src/unix/lwt_io.ml" 878 27743 27765
type(
  int
)
"src/unix/lwt_io.ml" 878 27743 27753 "src/unix/lwt_io.ml" 878 27743 27765
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 881 27843 27853 "src/unix/lwt_io.ml" 881 27843 27870
type(
  'o _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref unsafe_write_from "src/unix/lwt_io.ml" 865 27272 27282 "src/unix/lwt_io.ml" 865 27272 27299
)
"src/unix/lwt_io.ml" 881 27843 27871 "src/unix/lwt_io.ml" 881 27843 27873
type(
  'o _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 865 27272 27300 "src/unix/lwt_io.ml" 865 27272 27302
)
"src/unix/lwt_io.ml" 881 27843 27874 "src/unix/lwt_io.ml" 881 27843 27877
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 865 27272 27303 "src/unix/lwt_io.ml" 865 27272 27306
)
"src/unix/lwt_io.ml" 881 27843 27879 "src/unix/lwt_io.ml" 881 27843 27882
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 865 27272 27307 "src/unix/lwt_io.ml" 865 27272 27310
)
"src/unix/lwt_io.ml" 881 27843 27883 "src/unix/lwt_io.ml" 881 27843 27884
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 881 27843 27885 "src/unix/lwt_io.ml" 881 27843 27890
type(
  int
)
ident(
  int_ref avail "src/unix/lwt_io.ml" 866 27317 27325 "src/unix/lwt_io.ml" 866 27317 27330
)
"src/unix/lwt_io.ml" 881 27843 27878 "src/unix/lwt_io.ml" 881 27843 27891
type(
  int
)
"src/unix/lwt_io.ml" 881 27843 27892 "src/unix/lwt_io.ml" 881 27843 27895
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 875 27657 27667 "src/unix/lwt_io.ml" 875 27657 27670
)
"src/unix/lwt_io.ml" 881 27843 27853 "src/unix/lwt_io.ml" 881 27843 27895
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 876 27688 27713 "src/unix/lwt_io.ml" 882 27896 27905
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 885 27993 28001 "src/unix/lwt_io.ml" 885 27993 28011
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 885 27993 28012 "src/unix/lwt_io.ml" 885 27993 28015
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 875 27657 27667 "src/unix/lwt_io.ml" 875 27657 27670
)
"src/unix/lwt_io.ml" 885 27993 28001 "src/unix/lwt_io.ml" 885 27993 28015
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 876 27688 27694 "src/unix/lwt_io.ml" 885 27993 28015
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 875 27657 27663 "src/unix/lwt_io.ml" 885 27993 28015
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 874 27621 27648 "src/unix/lwt_io.ml" 885 27993 28015
type(
  int -> int Lwt.t
)
"src/unix/lwt_io.ml" 874 27621 27627 "src/unix/lwt_io.ml" 885 27993 28015
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 873 27594 27600 "src/unix/lwt_io.ml" 885 27993 28015
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 871 27504 27517 "src/unix/lwt_io.ml" 886 28016 28023
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 867 27355 27359 "src/unix/lwt_io.ml" 886 28016 28023
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 866 27317 27321 "src/unix/lwt_io.ml" 886 28016 28023
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 888 28025 28031 "src/unix/lwt_io.ml" 888 28025 28041
type(
  'p _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  def write_from "src/unix/lwt_io.ml" 900 28487 28489 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 888 28025 28042 "src/unix/lwt_io.ml" 888 28025 28044
type(
  'p _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 888 28025 28045 "src/unix/lwt_io.ml" 898 28478 28485
)
"src/unix/lwt_io.ml" 888 28025 28045 "src/unix/lwt_io.ml" 888 28025 28048
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 888 28025 28049 "src/unix/lwt_io.ml" 898 28478 28485
)
"src/unix/lwt_io.ml" 888 28025 28049 "src/unix/lwt_io.ml" 888 28025 28052
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 898 28478 28485
)
"src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 889 28059 28063 "src/unix/lwt_io.ml" 898 28478 28485
)
"src/unix/lwt_io.ml" 889 28059 28066 "src/unix/lwt_io.ml" 889 28059 28069
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 888 28025 28049 "src/unix/lwt_io.ml" 888 28025 28052
)
"src/unix/lwt_io.ml" 889 28059 28070 "src/unix/lwt_io.ml" 889 28059 28071
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 889 28059 28072 "src/unix/lwt_io.ml" 889 28059 28073
type(
  int
)
"src/unix/lwt_io.ml" 889 28059 28066 "src/unix/lwt_io.ml" 889 28059 28073
type(
  bool
)
"src/unix/lwt_io.ml" 889 28059 28074 "src/unix/lwt_io.ml" 889 28059 28076
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 889 28059 28077 "src/unix/lwt_io.ml" 889 28059 28080
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
)
"src/unix/lwt_io.ml" 889 28059 28081 "src/unix/lwt_io.ml" 889 28059 28082
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 889 28059 28083 "src/unix/lwt_io.ml" 889 28059 28084
type(
  int
)
"src/unix/lwt_io.ml" 889 28059 28077 "src/unix/lwt_io.ml" 889 28059 28084
type(
  bool
)
"src/unix/lwt_io.ml" 889 28059 28085 "src/unix/lwt_io.ml" 889 28059 28087
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 889 28059 28088 "src/unix/lwt_io.ml" 889 28059 28091
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 888 28025 28049 "src/unix/lwt_io.ml" 888 28025 28052
)
"src/unix/lwt_io.ml" 889 28059 28092 "src/unix/lwt_io.ml" 889 28059 28093
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 889 28059 28094 "src/unix/lwt_io.ml" 889 28059 28097
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
)
"src/unix/lwt_io.ml" 889 28059 28088 "src/unix/lwt_io.ml" 889 28059 28097
type(
  int
)
"src/unix/lwt_io.ml" 889 28059 28098 "src/unix/lwt_io.ml" 889 28059 28099
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 889 28059 28100 "src/unix/lwt_io.ml" 889 28059 28112
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 889 28059 28113 "src/unix/lwt_io.ml" 889 28059 28116
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 888 28025 28045 "src/unix/lwt_io.ml" 888 28025 28048
)
"src/unix/lwt_io.ml" 889 28059 28100 "src/unix/lwt_io.ml" 889 28059 28116
type(
  int
)
"src/unix/lwt_io.ml" 889 28059 28088 "src/unix/lwt_io.ml" 889 28059 28116
type(
  bool
)
"src/unix/lwt_io.ml" 889 28059 28077 "src/unix/lwt_io.ml" 889 28059 28116
type(
  bool
)
"src/unix/lwt_io.ml" 889 28059 28066 "src/unix/lwt_io.ml" 889 28059 28116
type(
  bool
)
"src/unix/lwt_io.ml" 890 28122 28128 "src/unix/lwt_io.ml" 890 28122 28136
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 890 28122 28156 "src/unix/lwt_io.ml" 890 28122 28170
type(
  (int -> int -> int -> string, unit, string) format ->
  int -> int -> int -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 891 28171 28207 "src/unix/lwt_io.ml" 891 28171 28252
type(
  (int -> int -> int -> string, unit, string) format
)
"src/unix/lwt_io.ml" 892 28253 28289 "src/unix/lwt_io.ml" 892 28253 28292
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 888 28025 28049 "src/unix/lwt_io.ml" 888 28025 28052
)
"src/unix/lwt_io.ml" 892 28253 28293 "src/unix/lwt_io.ml" 892 28253 28296
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
)
"src/unix/lwt_io.ml" 892 28253 28298 "src/unix/lwt_io.ml" 892 28253 28310
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 892 28253 28311 "src/unix/lwt_io.ml" 892 28253 28314
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 888 28025 28045 "src/unix/lwt_io.ml" 888 28025 28048
)
"src/unix/lwt_io.ml" 892 28253 28297 "src/unix/lwt_io.ml" 892 28253 28315
type(
  int
)
"src/unix/lwt_io.ml" 890 28122 28155 "src/unix/lwt_io.ml" 892 28253 28316
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 890 28122 28137 "src/unix/lwt_io.ml" 892 28253 28317
type(
  exn
)
"src/unix/lwt_io.ml" 890 28122 28128 "src/unix/lwt_io.ml" 892 28253 28317
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 894 28333 28342 "src/unix/lwt_io.ml" 894 28333 28345
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
)
"src/unix/lwt_io.ml" 894 28333 28346 "src/unix/lwt_io.ml" 894 28333 28347
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 894 28333 28348 "src/unix/lwt_io.ml" 894 28333 28349
type(
  int
)
"src/unix/lwt_io.ml" 894 28333 28342 "src/unix/lwt_io.ml" 894 28333 28349
type(
  bool
)
"src/unix/lwt_io.ml" 895 28355 28363 "src/unix/lwt_io.ml" 895 28355 28373
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 895 28355 28374 "src/unix/lwt_io.ml" 895 28355 28375
type(
  int
)
"src/unix/lwt_io.ml" 895 28355 28363 "src/unix/lwt_io.ml" 895 28355 28375
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 897 28387 28395 "src/unix/lwt_io.ml" 897 28387 28412
type(
  'p _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref unsafe_write_from "src/unix/lwt_io.ml" 865 27272 27282 "src/unix/lwt_io.ml" 865 27272 27299
)
"src/unix/lwt_io.ml" 897 28387 28413 "src/unix/lwt_io.ml" 897 28387 28415
type(
  'p _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 888 28025 28042 "src/unix/lwt_io.ml" 888 28025 28044
)
"src/unix/lwt_io.ml" 897 28387 28416 "src/unix/lwt_io.ml" 897 28387 28419
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 888 28025 28045 "src/unix/lwt_io.ml" 888 28025 28048
)
"src/unix/lwt_io.ml" 897 28387 28420 "src/unix/lwt_io.ml" 897 28387 28423
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 888 28025 28049 "src/unix/lwt_io.ml" 888 28025 28052
)
"src/unix/lwt_io.ml" 897 28387 28424 "src/unix/lwt_io.ml" 897 28387 28427
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
)
"src/unix/lwt_io.ml" 897 28387 28395 "src/unix/lwt_io.ml" 897 28387 28427
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 897 28387 28428 "src/unix/lwt_io.ml" 897 28387 28431
type(
  int Lwt.t -> (int -> int Lwt.t) -> int Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 897 28387 28436 "src/unix/lwt_io.ml" 897 28387 28445
type(
  int
)
ident(
  def remaining "src/unix/lwt_io.ml" 897 28387 28449 "src/unix/lwt_io.ml" 897 28387 28477
)
"src/unix/lwt_io.ml" 897 28387 28449 "src/unix/lwt_io.ml" 897 28387 28459
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 897 28387 28461 "src/unix/lwt_io.ml" 897 28387 28464
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 888 28025 28053 "src/unix/lwt_io.ml" 888 28025 28056
)
"src/unix/lwt_io.ml" 897 28387 28465 "src/unix/lwt_io.ml" 897 28387 28466
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 897 28387 28467 "src/unix/lwt_io.ml" 897 28387 28476
type(
  int
)
ident(
  int_ref remaining "src/unix/lwt_io.ml" 897 28387 28436 "src/unix/lwt_io.ml" 897 28387 28445
)
"src/unix/lwt_io.ml" 897 28387 28460 "src/unix/lwt_io.ml" 897 28387 28477
type(
  int
)
"src/unix/lwt_io.ml" 897 28387 28449 "src/unix/lwt_io.ml" 897 28387 28477
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 897 28387 28432 "src/unix/lwt_io.ml" 897 28387 28477
type(
  int -> int Lwt.t
)
"src/unix/lwt_io.ml" 897 28387 28395 "src/unix/lwt_io.ml" 897 28387 28477
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 893 28318 28327 "src/unix/lwt_io.ml" 898 28478 28485
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 889 28059 28063 "src/unix/lwt_io.ml" 898 28478 28485
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 900 28487 28493 "src/unix/lwt_io.ml" 900 28487 28510
type(
  'q _channel -> string -> int -> int -> int Lwt.t
)
ident(
  def write_from_string "src/unix/lwt_io.ml" 904 28603 28605 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 900 28487 28511 "src/unix/lwt_io.ml" 900 28487 28513
type(
  'q _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 900 28487 28514 "src/unix/lwt_io.ml" 902 28572 28601
)
"src/unix/lwt_io.ml" 900 28487 28514 "src/unix/lwt_io.ml" 900 28487 28517
type(
  string
)
ident(
  def buf "src/unix/lwt_io.ml" 900 28487 28518 "src/unix/lwt_io.ml" 902 28572 28601
)
"src/unix/lwt_io.ml" 900 28487 28518 "src/unix/lwt_io.ml" 900 28487 28521
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 900 28487 28522 "src/unix/lwt_io.ml" 902 28572 28601
)
"src/unix/lwt_io.ml" 900 28487 28522 "src/unix/lwt_io.ml" 900 28487 28525
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 901 28528 28532 "src/unix/lwt_io.ml" 902 28572 28601
)
"src/unix/lwt_io.ml" 901 28528 28536 "src/unix/lwt_io.ml" 901 28528 28539
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 902 28572 28576 "src/unix/lwt_io.ml" 902 28572 28601
)
"src/unix/lwt_io.ml" 901 28528 28542 "src/unix/lwt_io.ml" 901 28528 28564
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/unix/lwt_io.ml" 901 28528 28565 "src/unix/lwt_io.ml" 901 28528 28568
type(
  string
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 900 28487 28514 "src/unix/lwt_io.ml" 900 28487 28517
)
"src/unix/lwt_io.ml" 901 28528 28542 "src/unix/lwt_io.ml" 901 28528 28568
call(
  stack
)
type(
  bytes
)
"src/unix/lwt_io.ml" 902 28572 28576 "src/unix/lwt_io.ml" 902 28572 28586
type(
  'q _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref write_from "src/unix/lwt_io.ml" 888 28025 28031 "src/unix/lwt_io.ml" 888 28025 28041
)
"src/unix/lwt_io.ml" 902 28572 28587 "src/unix/lwt_io.ml" 902 28572 28589
type(
  'q _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 900 28487 28511 "src/unix/lwt_io.ml" 900 28487 28513
)
"src/unix/lwt_io.ml" 902 28572 28590 "src/unix/lwt_io.ml" 902 28572 28593
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 901 28528 28536 "src/unix/lwt_io.ml" 901 28528 28539
)
"src/unix/lwt_io.ml" 902 28572 28594 "src/unix/lwt_io.ml" 902 28572 28597
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 900 28487 28518 "src/unix/lwt_io.ml" 900 28487 28521
)
"src/unix/lwt_io.ml" 902 28572 28598 "src/unix/lwt_io.ml" 902 28572 28601
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 900 28487 28522 "src/unix/lwt_io.ml" 900 28487 28525
)
"src/unix/lwt_io.ml" 902 28572 28576 "src/unix/lwt_io.ml" 902 28572 28601
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 901 28528 28532 "src/unix/lwt_io.ml" 902 28572 28601
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 904 28603 28613 "src/unix/lwt_io.ml" 904 28603 28638
type(
  'r _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  def unsafe_write_from_exactly "src/unix/lwt_io.ml" 904 28603 28605 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 904 28603 28639 "src/unix/lwt_io.ml" 904 28603 28641
type(
  'r _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 904 28603 28642 "src/unix/lwt_io.ml" 909 28758 28818
)
"src/unix/lwt_io.ml" 904 28603 28642 "src/unix/lwt_io.ml" 904 28603 28645
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 904 28603 28646 "src/unix/lwt_io.ml" 909 28758 28818
)
"src/unix/lwt_io.ml" 904 28603 28646 "src/unix/lwt_io.ml" 904 28603 28649
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 904 28603 28650 "src/unix/lwt_io.ml" 909 28758 28818
)
"src/unix/lwt_io.ml" 904 28603 28650 "src/unix/lwt_io.ml" 904 28603 28653
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 905 28656 28660 "src/unix/lwt_io.ml" 909 28758 28818
)
"src/unix/lwt_io.ml" 905 28656 28660 "src/unix/lwt_io.ml" 905 28656 28677
type(
  'r _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref unsafe_write_from "src/unix/lwt_io.ml" 865 27272 27282 "src/unix/lwt_io.ml" 865 27272 27299
)
"src/unix/lwt_io.ml" 905 28656 28678 "src/unix/lwt_io.ml" 905 28656 28680
type(
  'r _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 904 28603 28639 "src/unix/lwt_io.ml" 904 28603 28641
)
"src/unix/lwt_io.ml" 905 28656 28681 "src/unix/lwt_io.ml" 905 28656 28684
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 904 28603 28642 "src/unix/lwt_io.ml" 904 28603 28645
)
"src/unix/lwt_io.ml" 905 28656 28685 "src/unix/lwt_io.ml" 905 28656 28688
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 904 28603 28646 "src/unix/lwt_io.ml" 904 28603 28649
)
"src/unix/lwt_io.ml" 905 28656 28689 "src/unix/lwt_io.ml" 905 28656 28692
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 904 28603 28650 "src/unix/lwt_io.ml" 904 28603 28653
)
"src/unix/lwt_io.ml" 905 28656 28660 "src/unix/lwt_io.ml" 905 28656 28692
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 905 28656 28693 "src/unix/lwt_io.ml" 905 28656 28696
type(
  int Lwt.t -> (int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 906 28706 28714 "src/unix/lwt_io.ml" 906 28706 28715
type(
  int
)
"src/unix/lwt_io.ml" 907 28719 28729 "src/unix/lwt_io.ml" 907 28719 28744
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 908 28745 28753 "src/unix/lwt_io.ml" 908 28745 28754
type(
  int
)
ident(
  def n "src/unix/lwt_io.ml" 909 28758 28768 "src/unix/lwt_io.ml" 909 28758 28818
)
"src/unix/lwt_io.ml" 909 28758 28768 "src/unix/lwt_io.ml" 909 28758 28793
type(
  'r _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_write_from_exactly "src/unix/lwt_io.ml" 904 28603 28613 "src/unix/lwt_io.ml" 904 28603 28638
)
"src/unix/lwt_io.ml" 909 28758 28794 "src/unix/lwt_io.ml" 909 28758 28796
type(
  'r _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 904 28603 28639 "src/unix/lwt_io.ml" 904 28603 28641
)
"src/unix/lwt_io.ml" 909 28758 28797 "src/unix/lwt_io.ml" 909 28758 28800
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 904 28603 28642 "src/unix/lwt_io.ml" 904 28603 28645
)
"src/unix/lwt_io.ml" 909 28758 28802 "src/unix/lwt_io.ml" 909 28758 28805
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 904 28603 28646 "src/unix/lwt_io.ml" 904 28603 28649
)
"src/unix/lwt_io.ml" 909 28758 28806 "src/unix/lwt_io.ml" 909 28758 28807
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 909 28758 28808 "src/unix/lwt_io.ml" 909 28758 28811
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 904 28603 28650 "src/unix/lwt_io.ml" 904 28603 28653
)
"src/unix/lwt_io.ml" 909 28758 28802 "src/unix/lwt_io.ml" 909 28758 28811
type(
  int
)
"src/unix/lwt_io.ml" 909 28758 28812 "src/unix/lwt_io.ml" 909 28758 28813
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 909 28758 28814 "src/unix/lwt_io.ml" 909 28758 28815
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 908 28745 28753 "src/unix/lwt_io.ml" 908 28745 28754
)
"src/unix/lwt_io.ml" 909 28758 28801 "src/unix/lwt_io.ml" 909 28758 28816
type(
  int
)
"src/unix/lwt_io.ml" 909 28758 28817 "src/unix/lwt_io.ml" 909 28758 28818
type(
  int
)
ident(
  int_ref n "src/unix/lwt_io.ml" 908 28745 28753 "src/unix/lwt_io.ml" 908 28745 28754
)
"src/unix/lwt_io.ml" 909 28758 28768 "src/unix/lwt_io.ml" 909 28758 28818
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 905 28656 28697 "src/unix/lwt_io.ml" 909 28758 28818
type(
  int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 905 28656 28660 "src/unix/lwt_io.ml" 909 28758 28818
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 911 28820 28826 "src/unix/lwt_io.ml" 911 28820 28844
type(
  's _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  def write_from_exactly "src/unix/lwt_io.ml" 923 29259 29261 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 911 28820 28845 "src/unix/lwt_io.ml" 911 28820 28847
type(
  's _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 911 28820 28848 "src/unix/lwt_io.ml" 921 29250 29257
)
"src/unix/lwt_io.ml" 911 28820 28848 "src/unix/lwt_io.ml" 911 28820 28851
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 911 28820 28852 "src/unix/lwt_io.ml" 921 29250 29257
)
"src/unix/lwt_io.ml" 911 28820 28852 "src/unix/lwt_io.ml" 911 28820 28855
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 921 29250 29257
)
"src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 911 28820 28859
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 912 28862 28866 "src/unix/lwt_io.ml" 921 29250 29257
)
"src/unix/lwt_io.ml" 912 28862 28869 "src/unix/lwt_io.ml" 912 28862 28872
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 911 28820 28852 "src/unix/lwt_io.ml" 911 28820 28855
)
"src/unix/lwt_io.ml" 912 28862 28873 "src/unix/lwt_io.ml" 912 28862 28874
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 912 28862 28875 "src/unix/lwt_io.ml" 912 28862 28876
type(
  int
)
"src/unix/lwt_io.ml" 912 28862 28869 "src/unix/lwt_io.ml" 912 28862 28876
type(
  bool
)
"src/unix/lwt_io.ml" 912 28862 28877 "src/unix/lwt_io.ml" 912 28862 28879
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 912 28862 28880 "src/unix/lwt_io.ml" 912 28862 28883
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 911 28820 28859
)
"src/unix/lwt_io.ml" 912 28862 28884 "src/unix/lwt_io.ml" 912 28862 28885
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 912 28862 28886 "src/unix/lwt_io.ml" 912 28862 28887
type(
  int
)
"src/unix/lwt_io.ml" 912 28862 28880 "src/unix/lwt_io.ml" 912 28862 28887
type(
  bool
)
"src/unix/lwt_io.ml" 912 28862 28888 "src/unix/lwt_io.ml" 912 28862 28890
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 912 28862 28891 "src/unix/lwt_io.ml" 912 28862 28894
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 911 28820 28852 "src/unix/lwt_io.ml" 911 28820 28855
)
"src/unix/lwt_io.ml" 912 28862 28895 "src/unix/lwt_io.ml" 912 28862 28896
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 912 28862 28897 "src/unix/lwt_io.ml" 912 28862 28900
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 911 28820 28859
)
"src/unix/lwt_io.ml" 912 28862 28891 "src/unix/lwt_io.ml" 912 28862 28900
type(
  int
)
"src/unix/lwt_io.ml" 912 28862 28901 "src/unix/lwt_io.ml" 912 28862 28902
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 912 28862 28903 "src/unix/lwt_io.ml" 912 28862 28915
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 912 28862 28916 "src/unix/lwt_io.ml" 912 28862 28919
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 911 28820 28848 "src/unix/lwt_io.ml" 911 28820 28851
)
"src/unix/lwt_io.ml" 912 28862 28903 "src/unix/lwt_io.ml" 912 28862 28919
type(
  int
)
"src/unix/lwt_io.ml" 912 28862 28891 "src/unix/lwt_io.ml" 912 28862 28919
type(
  bool
)
"src/unix/lwt_io.ml" 912 28862 28880 "src/unix/lwt_io.ml" 912 28862 28919
type(
  bool
)
"src/unix/lwt_io.ml" 912 28862 28869 "src/unix/lwt_io.ml" 912 28862 28919
type(
  bool
)
"src/unix/lwt_io.ml" 913 28925 28931 "src/unix/lwt_io.ml" 913 28925 28939
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 913 28925 28959 "src/unix/lwt_io.ml" 913 28925 28973
type(
  (int -> int -> int -> string, unit, string) format ->
  int -> int -> int -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 914 28974 29010 "src/unix/lwt_io.ml" 914 28974 29063
type(
  (int -> int -> int -> string, unit, string) format
)
"src/unix/lwt_io.ml" 915 29064 29100 "src/unix/lwt_io.ml" 915 29064 29103
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 911 28820 28852 "src/unix/lwt_io.ml" 911 28820 28855
)
"src/unix/lwt_io.ml" 915 29064 29104 "src/unix/lwt_io.ml" 915 29064 29107
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 911 28820 28859
)
"src/unix/lwt_io.ml" 915 29064 29109 "src/unix/lwt_io.ml" 915 29064 29121
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 915 29064 29122 "src/unix/lwt_io.ml" 915 29064 29125
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 911 28820 28848 "src/unix/lwt_io.ml" 911 28820 28851
)
"src/unix/lwt_io.ml" 915 29064 29108 "src/unix/lwt_io.ml" 915 29064 29126
type(
  int
)
"src/unix/lwt_io.ml" 913 28925 28958 "src/unix/lwt_io.ml" 915 29064 29127
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 913 28925 28940 "src/unix/lwt_io.ml" 915 29064 29128
type(
  exn
)
"src/unix/lwt_io.ml" 913 28925 28931 "src/unix/lwt_io.ml" 915 29064 29128
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 917 29144 29153 "src/unix/lwt_io.ml" 917 29144 29156
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 911 28820 28859
)
"src/unix/lwt_io.ml" 917 29144 29157 "src/unix/lwt_io.ml" 917 29144 29158
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 917 29144 29159 "src/unix/lwt_io.ml" 917 29144 29160
type(
  int
)
"src/unix/lwt_io.ml" 917 29144 29153 "src/unix/lwt_io.ml" 917 29144 29160
type(
  bool
)
"src/unix/lwt_io.ml" 918 29166 29174 "src/unix/lwt_io.ml" 918 29166 29189
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 920 29201 29209 "src/unix/lwt_io.ml" 920 29201 29234
type(
  's _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_write_from_exactly "src/unix/lwt_io.ml" 904 28603 28613 "src/unix/lwt_io.ml" 904 28603 28638
)
"src/unix/lwt_io.ml" 920 29201 29235 "src/unix/lwt_io.ml" 920 29201 29237
type(
  's _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 911 28820 28845 "src/unix/lwt_io.ml" 911 28820 28847
)
"src/unix/lwt_io.ml" 920 29201 29238 "src/unix/lwt_io.ml" 920 29201 29241
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 911 28820 28848 "src/unix/lwt_io.ml" 911 28820 28851
)
"src/unix/lwt_io.ml" 920 29201 29242 "src/unix/lwt_io.ml" 920 29201 29245
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 911 28820 28852 "src/unix/lwt_io.ml" 911 28820 28855
)
"src/unix/lwt_io.ml" 920 29201 29246 "src/unix/lwt_io.ml" 920 29201 29249
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 911 28820 28856 "src/unix/lwt_io.ml" 911 28820 28859
)
"src/unix/lwt_io.ml" 920 29201 29209 "src/unix/lwt_io.ml" 920 29201 29249
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 916 29129 29138 "src/unix/lwt_io.ml" 921 29250 29257
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 912 28862 28866 "src/unix/lwt_io.ml" 921 29250 29257
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 923 29259 29265 "src/unix/lwt_io.ml" 923 29259 29290
type(
  't _channel -> string -> int -> int -> unit Lwt.t
)
ident(
  def write_from_string_exactly "src/unix/lwt_io.ml" 927 29391 29393 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 923 29259 29291 "src/unix/lwt_io.ml" 923 29259 29293
type(
  't _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 923 29259 29294 "src/unix/lwt_io.ml" 925 29352 29389
)
"src/unix/lwt_io.ml" 923 29259 29294 "src/unix/lwt_io.ml" 923 29259 29297
type(
  string
)
ident(
  def buf "src/unix/lwt_io.ml" 923 29259 29298 "src/unix/lwt_io.ml" 925 29352 29389
)
"src/unix/lwt_io.ml" 923 29259 29298 "src/unix/lwt_io.ml" 923 29259 29301
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 923 29259 29302 "src/unix/lwt_io.ml" 925 29352 29389
)
"src/unix/lwt_io.ml" 923 29259 29302 "src/unix/lwt_io.ml" 923 29259 29305
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 924 29308 29312 "src/unix/lwt_io.ml" 925 29352 29389
)
"src/unix/lwt_io.ml" 924 29308 29316 "src/unix/lwt_io.ml" 924 29308 29319
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 925 29352 29356 "src/unix/lwt_io.ml" 925 29352 29389
)
"src/unix/lwt_io.ml" 924 29308 29322 "src/unix/lwt_io.ml" 924 29308 29344
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/unix/lwt_io.ml" 924 29308 29345 "src/unix/lwt_io.ml" 924 29308 29348
type(
  string
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 923 29259 29294 "src/unix/lwt_io.ml" 923 29259 29297
)
"src/unix/lwt_io.ml" 924 29308 29322 "src/unix/lwt_io.ml" 924 29308 29348
call(
  stack
)
type(
  bytes
)
"src/unix/lwt_io.ml" 925 29352 29356 "src/unix/lwt_io.ml" 925 29352 29374
type(
  't _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref write_from_exactly "src/unix/lwt_io.ml" 911 28820 28826 "src/unix/lwt_io.ml" 911 28820 28844
)
"src/unix/lwt_io.ml" 925 29352 29375 "src/unix/lwt_io.ml" 925 29352 29377
type(
  't _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 923 29259 29291 "src/unix/lwt_io.ml" 923 29259 29293
)
"src/unix/lwt_io.ml" 925 29352 29378 "src/unix/lwt_io.ml" 925 29352 29381
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 924 29308 29316 "src/unix/lwt_io.ml" 924 29308 29319
)
"src/unix/lwt_io.ml" 925 29352 29382 "src/unix/lwt_io.ml" 925 29352 29385
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 923 29259 29298 "src/unix/lwt_io.ml" 923 29259 29301
)
"src/unix/lwt_io.ml" 925 29352 29386 "src/unix/lwt_io.ml" 925 29352 29389
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 923 29259 29302 "src/unix/lwt_io.ml" 923 29259 29305
)
"src/unix/lwt_io.ml" 925 29352 29356 "src/unix/lwt_io.ml" 925 29352 29389
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 924 29308 29312 "src/unix/lwt_io.ml" 925 29352 29389
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 927 29391 29397 "src/unix/lwt_io.ml" 927 29391 29402
type(
  'u _channel -> string -> unit Lwt.t
)
ident(
  def write "src/unix/lwt_io.ml" 931 29515 29517 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 927 29391 29403 "src/unix/lwt_io.ml" 927 29391 29405
type(
  'u _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 927 29391 29406 "src/unix/lwt_io.ml" 929 29456 29513
)
"src/unix/lwt_io.ml" 927 29391 29406 "src/unix/lwt_io.ml" 927 29391 29409
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 928 29412 29416 "src/unix/lwt_io.ml" 929 29456 29513
)
"src/unix/lwt_io.ml" 928 29412 29420 "src/unix/lwt_io.ml" 928 29412 29423
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 929 29456 29460 "src/unix/lwt_io.ml" 929 29456 29513
)
"src/unix/lwt_io.ml" 928 29412 29426 "src/unix/lwt_io.ml" 928 29412 29448
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/unix/lwt_io.ml" 928 29412 29449 "src/unix/lwt_io.ml" 928 29412 29452
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 927 29391 29406 "src/unix/lwt_io.ml" 927 29391 29409
)
"src/unix/lwt_io.ml" 928 29412 29426 "src/unix/lwt_io.ml" 928 29412 29452
call(
  stack
)
type(
  bytes
)
"src/unix/lwt_io.ml" 929 29456 29460 "src/unix/lwt_io.ml" 929 29456 29485
type(
  'u _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_write_from_exactly "src/unix/lwt_io.ml" 904 28603 28613 "src/unix/lwt_io.ml" 904 28603 28638
)
"src/unix/lwt_io.ml" 929 29456 29486 "src/unix/lwt_io.ml" 929 29456 29488
type(
  'u _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 927 29391 29403 "src/unix/lwt_io.ml" 927 29391 29405
)
"src/unix/lwt_io.ml" 929 29456 29489 "src/unix/lwt_io.ml" 929 29456 29492
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 928 29412 29420 "src/unix/lwt_io.ml" 928 29412 29423
)
"src/unix/lwt_io.ml" 929 29456 29493 "src/unix/lwt_io.ml" 929 29456 29494
type(
  int
)
"src/unix/lwt_io.ml" 929 29456 29496 "src/unix/lwt_io.ml" 929 29456 29508
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 929 29456 29509 "src/unix/lwt_io.ml" 929 29456 29512
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 928 29412 29420 "src/unix/lwt_io.ml" 928 29412 29423
)
"src/unix/lwt_io.ml" 929 29456 29495 "src/unix/lwt_io.ml" 929 29456 29513
type(
  int
)
"src/unix/lwt_io.ml" 929 29456 29460 "src/unix/lwt_io.ml" 929 29456 29513
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 928 29412 29416 "src/unix/lwt_io.ml" 929 29456 29513
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 931 29515 29521 "src/unix/lwt_io.ml" 931 29515 29531
type(
  'v _channel -> string -> unit Lwt.t
)
ident(
  def write_line "src/unix/lwt_io.ml" 936 29681 29683 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 931 29515 29532 "src/unix/lwt_io.ml" 931 29515 29534
type(
  'v _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 931 29515 29535 "src/unix/lwt_io.ml" 934 29657 29679
)
"src/unix/lwt_io.ml" 931 29515 29535 "src/unix/lwt_io.ml" 931 29515 29538
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 932 29541 29545 "src/unix/lwt_io.ml" 934 29657 29679
)
"src/unix/lwt_io.ml" 932 29541 29549 "src/unix/lwt_io.ml" 932 29541 29552
type(
  bytes
)
ident(
  def buf "src/unix/lwt_io.ml" 933 29585 29589 "src/unix/lwt_io.ml" 934 29657 29679
)
"src/unix/lwt_io.ml" 932 29541 29555 "src/unix/lwt_io.ml" 932 29541 29577
type(
  string -> bytes
)
ident(
  ext_ref Bytes.unsafe_of_string
)
"src/unix/lwt_io.ml" 932 29541 29578 "src/unix/lwt_io.ml" 932 29541 29581
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 931 29515 29535 "src/unix/lwt_io.ml" 931 29515 29538
)
"src/unix/lwt_io.ml" 932 29541 29555 "src/unix/lwt_io.ml" 932 29541 29581
call(
  stack
)
type(
  bytes
)
"src/unix/lwt_io.ml" 933 29585 29589 "src/unix/lwt_io.ml" 933 29585 29614
type(
  'v _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref unsafe_write_from_exactly "src/unix/lwt_io.ml" 904 28603 28613 "src/unix/lwt_io.ml" 904 28603 28638
)
"src/unix/lwt_io.ml" 933 29585 29615 "src/unix/lwt_io.ml" 933 29585 29617
type(
  'v _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 931 29515 29532 "src/unix/lwt_io.ml" 931 29515 29534
)
"src/unix/lwt_io.ml" 933 29585 29618 "src/unix/lwt_io.ml" 933 29585 29621
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 932 29541 29549 "src/unix/lwt_io.ml" 932 29541 29552
)
"src/unix/lwt_io.ml" 933 29585 29622 "src/unix/lwt_io.ml" 933 29585 29623
type(
  int
)
"src/unix/lwt_io.ml" 933 29585 29625 "src/unix/lwt_io.ml" 933 29585 29637
type(
  bytes -> int
)
ident(
  ext_ref Bytes.length
)
"src/unix/lwt_io.ml" 933 29585 29638 "src/unix/lwt_io.ml" 933 29585 29641
type(
  bytes
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 932 29541 29549 "src/unix/lwt_io.ml" 932 29541 29552
)
"src/unix/lwt_io.ml" 933 29585 29624 "src/unix/lwt_io.ml" 933 29585 29642
type(
  int
)
"src/unix/lwt_io.ml" 933 29585 29589 "src/unix/lwt_io.ml" 933 29585 29642
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 933 29585 29643 "src/unix/lwt_io.ml" 933 29585 29646
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 933 29585 29651 "src/unix/lwt_io.ml" 933 29585 29653
type(
  unit
)
"src/unix/lwt_io.ml" 934 29657 29661 "src/unix/lwt_io.ml" 934 29657 29671
type(
  'v _channel -> char -> unit Lwt.t
)
ident(
  int_ref write_char "src/unix/lwt_io.ml" 855 27020 27030 "src/unix/lwt_io.ml" 855 27020 27040
)
"src/unix/lwt_io.ml" 934 29657 29672 "src/unix/lwt_io.ml" 934 29657 29674
type(
  'v _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 931 29515 29532 "src/unix/lwt_io.ml" 931 29515 29534
)
"src/unix/lwt_io.ml" 934 29657 29675 "src/unix/lwt_io.ml" 934 29657 29679
type(
  char
)
"src/unix/lwt_io.ml" 934 29657 29661 "src/unix/lwt_io.ml" 934 29657 29679
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 933 29585 29647 "src/unix/lwt_io.ml" 934 29657 29679
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 933 29585 29589 "src/unix/lwt_io.ml" 934 29657 29679
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 932 29541 29545 "src/unix/lwt_io.ml" 934 29657 29679
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 936 29681 29687 "src/unix/lwt_io.ml" 936 29681 29698
type(
  'w _channel -> ?flags:Marshal.extern_flags list -> 'x -> unit Lwt.t
)
ident(
  def write_value "src/unix/lwt_io.ml" 943 29977 29979 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 936 29681 29699 "src/unix/lwt_io.ml" 936 29681 29701
type(
  'w _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 936 29681 29702 "src/unix/lwt_io.ml" 937 29718 29758
)
"src/unix/lwt_io.ml" 936 29681 29704 "src/unix/lwt_io.ml" 936 29681 29709
type(
  Marshal.extern_flags list
)
"src/unix/lwt_io.ml" 936 29681 29710 "src/unix/lwt_io.ml" 936 29681 29712
type(
  Marshal.extern_flags list
)
type(
  Marshal.extern_flags list
)
ident(
  int_ref *sth* "src/unix/lwt_io.ml" 936 29681 29710 "src/unix/lwt_io.ml" 936 29681 29712
)
type(
  Marshal.extern_flags list option
)
type(
  Marshal.extern_flags list option
)
type(
  Marshal.extern_flags list
)
"src/unix/lwt_io.ml" 936 29681 29714 "src/unix/lwt_io.ml" 936 29681 29715
type(
  'x
)
ident(
  def x "src/unix/lwt_io.ml" 937 29718 29722 "src/unix/lwt_io.ml" 937 29718 29758
)
"src/unix/lwt_io.ml" 937 29718 29722 "src/unix/lwt_io.ml" 937 29718 29727
type(
  'w _channel -> string -> unit Lwt.t
)
ident(
  int_ref write "src/unix/lwt_io.ml" 927 29391 29397 "src/unix/lwt_io.ml" 927 29391 29402
)
"src/unix/lwt_io.ml" 937 29718 29728 "src/unix/lwt_io.ml" 937 29718 29730
type(
  'w _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 936 29681 29699 "src/unix/lwt_io.ml" 936 29681 29701
)
"src/unix/lwt_io.ml" 937 29718 29732 "src/unix/lwt_io.ml" 937 29718 29749
type(
  'x -> Marshal.extern_flags list -> string
)
ident(
  ext_ref Marshal.to_string
)
"src/unix/lwt_io.ml" 937 29718 29750 "src/unix/lwt_io.ml" 937 29718 29751
type(
  'x
)
ident(
  int_ref x "src/unix/lwt_io.ml" 936 29681 29714 "src/unix/lwt_io.ml" 936 29681 29715
)
"src/unix/lwt_io.ml" 937 29718 29752 "src/unix/lwt_io.ml" 937 29718 29757
type(
  Marshal.extern_flags list
)
ident(
  int_ref flags "src/unix/lwt_io.ml" 936 29681 29704 "src/unix/lwt_io.ml" 936 29681 29709
)
"src/unix/lwt_io.ml" 937 29718 29731 "src/unix/lwt_io.ml" 937 29718 29758
type(
  string
)
"src/unix/lwt_io.ml" 937 29718 29722 "src/unix/lwt_io.ml" 937 29718 29758
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
type(
  'y _channel -> int -> (Lwt_bytes.t -> int -> 'z Lwt.t) -> 'z Lwt.t
)
ident(
  def read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29979 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
type(
  'y _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 943 29977 30008 "src/unix/lwt_io.ml" 954 30275 30282
)
"src/unix/lwt_io.ml" 943 29977 30008 "src/unix/lwt_io.ml" 943 29977 30012
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 943 29977 30013 "src/unix/lwt_io.ml" 954 30275 30282
)
"src/unix/lwt_io.ml" 943 29977 30013 "src/unix/lwt_io.ml" 943 29977 30014
type(
  Lwt_bytes.t -> int -> 'z Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 944 30017 30021 "src/unix/lwt_io.ml" 954 30275 30282
)
"src/unix/lwt_io.ml" 944 30017 30024 "src/unix/lwt_io.ml" 944 30017 30026
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 944 30017 30024 "src/unix/lwt_io.ml" 944 30017 30030
type(
  int
)
"src/unix/lwt_io.ml" 944 30017 30031 "src/unix/lwt_io.ml" 944 30017 30032
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 944 30017 30033 "src/unix/lwt_io.ml" 944 30017 30035
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 944 30017 30033 "src/unix/lwt_io.ml" 944 30017 30039
type(
  int
)
"src/unix/lwt_io.ml" 944 30017 30024 "src/unix/lwt_io.ml" 944 30017 30039
type(
  int
)
"src/unix/lwt_io.ml" 944 30017 30040 "src/unix/lwt_io.ml" 944 30017 30041
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 944 30017 30042 "src/unix/lwt_io.ml" 944 30017 30046
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 943 29977 30008 "src/unix/lwt_io.ml" 943 29977 30012
)
"src/unix/lwt_io.ml" 944 30017 30024 "src/unix/lwt_io.ml" 944 30017 30046
type(
  bool
)
"src/unix/lwt_io.ml" 945 30052 30058 "src/unix/lwt_io.ml" 945 30052 30064
type(
  'y _channel -> int Lwt.t
)
ident(
  int_ref refill "src/unix/lwt_io.ml" 265 8504 8508 "src/unix/lwt_io.ml" 265 8504 8514
)
"src/unix/lwt_io.ml" 945 30052 30065 "src/unix/lwt_io.ml" 945 30052 30067
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 945 30052 30058 "src/unix/lwt_io.ml" 945 30052 30067
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 945 30052 30068 "src/unix/lwt_io.ml" 945 30052 30071
type(
  int Lwt.t -> (int -> 'z Lwt.t) -> 'z Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 946 30081 30091 "src/unix/lwt_io.ml" 946 30081 30092
type(
  int
)
"src/unix/lwt_io.ml" 947 30096 30108 "src/unix/lwt_io.ml" 947 30096 30116
type(
  exn -> 'z Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 947 30096 30117 "src/unix/lwt_io.ml" 947 30096 30128
type(
  exn
)
"src/unix/lwt_io.ml" 947 30096 30108 "src/unix/lwt_io.ml" 947 30096 30128
call(
  tail
)
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 948 30129 30139 "src/unix/lwt_io.ml" 948 30129 30140
type(
  int
)
"src/unix/lwt_io.ml" 949 30144 30156 "src/unix/lwt_io.ml" 949 30144 30173
type(
  'y _channel -> int -> (Lwt_bytes.t -> int -> 'z Lwt.t) -> 'z Lwt.t
)
ident(
  int_ref read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
)
"src/unix/lwt_io.ml" 949 30144 30174 "src/unix/lwt_io.ml" 949 30144 30176
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 949 30144 30177 "src/unix/lwt_io.ml" 949 30144 30181
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 943 29977 30008 "src/unix/lwt_io.ml" 943 29977 30012
)
"src/unix/lwt_io.ml" 949 30144 30182 "src/unix/lwt_io.ml" 949 30144 30183
type(
  Lwt_bytes.t -> int -> 'z Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 943 29977 30013 "src/unix/lwt_io.ml" 943 29977 30014
)
"src/unix/lwt_io.ml" 949 30144 30156 "src/unix/lwt_io.ml" 949 30144 30183
call(
  tail
)
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 945 30052 30072 "src/unix/lwt_io.ml" 949 30144 30183
type(
  int -> 'z Lwt.t
)
"src/unix/lwt_io.ml" 945 30052 30058 "src/unix/lwt_io.ml" 949 30144 30183
call(
  tail
)
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 951 30199 30209 "src/unix/lwt_io.ml" 951 30199 30212
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 952 30225 30231 "src/unix/lwt_io.ml" 953 30253 30274
)
"src/unix/lwt_io.ml" 951 30199 30215 "src/unix/lwt_io.ml" 951 30199 30217
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 951 30199 30215 "src/unix/lwt_io.ml" 951 30199 30221
type(
  int
)
"src/unix/lwt_io.ml" 952 30225 30231 "src/unix/lwt_io.ml" 952 30225 30233
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 952 30225 30241 "src/unix/lwt_io.ml" 952 30225 30244
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 951 30199 30209 "src/unix/lwt_io.ml" 951 30199 30212
)
"src/unix/lwt_io.ml" 952 30225 30245 "src/unix/lwt_io.ml" 952 30225 30246
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 952 30225 30247 "src/unix/lwt_io.ml" 952 30225 30251
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 943 29977 30008 "src/unix/lwt_io.ml" 943 29977 30012
)
"src/unix/lwt_io.ml" 952 30225 30241 "src/unix/lwt_io.ml" 952 30225 30251
type(
  int
)
"src/unix/lwt_io.ml" 952 30225 30231 "src/unix/lwt_io.ml" 952 30225 30251
type(
  unit
)
"src/unix/lwt_io.ml" 953 30253 30259 "src/unix/lwt_io.ml" 953 30253 30260
type(
  Lwt_bytes.t -> int -> 'z Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 943 29977 30013 "src/unix/lwt_io.ml" 943 29977 30014
)
"src/unix/lwt_io.ml" 953 30253 30261 "src/unix/lwt_io.ml" 953 30253 30263
type(
  'y _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 943 29977 30005 "src/unix/lwt_io.ml" 943 29977 30007
)
"src/unix/lwt_io.ml" 953 30253 30261 "src/unix/lwt_io.ml" 953 30253 30270
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 953 30253 30271 "src/unix/lwt_io.ml" 953 30253 30274
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 951 30199 30209 "src/unix/lwt_io.ml" 951 30199 30212
)
"src/unix/lwt_io.ml" 953 30253 30259 "src/unix/lwt_io.ml" 953 30253 30274
call(
  tail
)
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 952 30225 30231 "src/unix/lwt_io.ml" 953 30253 30274
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 950 30184 30193 "src/unix/lwt_io.ml" 954 30275 30282
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 944 30017 30021 "src/unix/lwt_io.ml" 954 30275 30282
type(
  'z Lwt.t
)
"src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
type(
  'a1 _channel -> int -> (Lwt_bytes.t -> int -> 'b1 Lwt.t) -> 'b1 Lwt.t
)
ident(
  def write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30286 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
type(
  'a1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 956 30284 30316 "src/unix/lwt_io.ml" 964 30522 30529
)
"src/unix/lwt_io.ml" 956 30284 30316 "src/unix/lwt_io.ml" 956 30284 30320
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 956 30284 30321 "src/unix/lwt_io.ml" 964 30522 30529
)
"src/unix/lwt_io.ml" 956 30284 30321 "src/unix/lwt_io.ml" 956 30284 30322
type(
  Lwt_bytes.t -> int -> 'b1 Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 957 30325 30329 "src/unix/lwt_io.ml" 964 30522 30529
)
"src/unix/lwt_io.ml" 957 30325 30332 "src/unix/lwt_io.ml" 957 30325 30334
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 957 30325 30332 "src/unix/lwt_io.ml" 957 30325 30338
type(
  int
)
"src/unix/lwt_io.ml" 957 30325 30339 "src/unix/lwt_io.ml" 957 30325 30340
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 957 30325 30341 "src/unix/lwt_io.ml" 957 30325 30343
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 957 30325 30341 "src/unix/lwt_io.ml" 957 30325 30347
type(
  int
)
"src/unix/lwt_io.ml" 957 30325 30332 "src/unix/lwt_io.ml" 957 30325 30347
type(
  int
)
"src/unix/lwt_io.ml" 957 30325 30348 "src/unix/lwt_io.ml" 957 30325 30349
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 957 30325 30350 "src/unix/lwt_io.ml" 957 30325 30354
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 956 30284 30316 "src/unix/lwt_io.ml" 956 30284 30320
)
"src/unix/lwt_io.ml" 957 30325 30332 "src/unix/lwt_io.ml" 957 30325 30354
type(
  bool
)
"src/unix/lwt_io.ml" 958 30360 30366 "src/unix/lwt_io.ml" 958 30360 30379
type(
  'a1 _channel -> int Lwt.t
)
ident(
  int_ref flush_partial "src/unix/lwt_io.ml" 266 8528 8532 "src/unix/lwt_io.ml" 266 8528 8545
)
"src/unix/lwt_io.ml" 958 30360 30380 "src/unix/lwt_io.ml" 958 30360 30382
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 958 30360 30366 "src/unix/lwt_io.ml" 958 30360 30382
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 958 30360 30383 "src/unix/lwt_io.ml" 958 30360 30386
type(
  int Lwt.t -> (int -> 'b1 Lwt.t) -> 'b1 Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 958 30360 30391 "src/unix/lwt_io.ml" 958 30360 30392
type(
  int
)
"src/unix/lwt_io.ml" 959 30396 30402 "src/unix/lwt_io.ml" 959 30396 30420
type(
  'a1 _channel -> int -> (Lwt_bytes.t -> int -> 'b1 Lwt.t) -> 'b1 Lwt.t
)
ident(
  int_ref write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
)
"src/unix/lwt_io.ml" 959 30396 30421 "src/unix/lwt_io.ml" 959 30396 30423
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 959 30396 30424 "src/unix/lwt_io.ml" 959 30396 30428
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 956 30284 30316 "src/unix/lwt_io.ml" 956 30284 30320
)
"src/unix/lwt_io.ml" 959 30396 30429 "src/unix/lwt_io.ml" 959 30396 30430
type(
  Lwt_bytes.t -> int -> 'b1 Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 956 30284 30321 "src/unix/lwt_io.ml" 956 30284 30322
)
"src/unix/lwt_io.ml" 959 30396 30402 "src/unix/lwt_io.ml" 959 30396 30430
call(
  tail
)
type(
  'b1 Lwt.t
)
"src/unix/lwt_io.ml" 958 30360 30387 "src/unix/lwt_io.ml" 959 30396 30430
type(
  int -> 'b1 Lwt.t
)
"src/unix/lwt_io.ml" 958 30360 30366 "src/unix/lwt_io.ml" 959 30396 30430
call(
  tail
)
type(
  'b1 Lwt.t
)
"src/unix/lwt_io.ml" 961 30446 30456 "src/unix/lwt_io.ml" 961 30446 30459
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 962 30472 30478 "src/unix/lwt_io.ml" 963 30500 30521
)
"src/unix/lwt_io.ml" 961 30446 30462 "src/unix/lwt_io.ml" 961 30446 30464
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 961 30446 30462 "src/unix/lwt_io.ml" 961 30446 30468
type(
  int
)
"src/unix/lwt_io.ml" 962 30472 30478 "src/unix/lwt_io.ml" 962 30472 30480
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 962 30472 30488 "src/unix/lwt_io.ml" 962 30472 30491
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 961 30446 30456 "src/unix/lwt_io.ml" 961 30446 30459
)
"src/unix/lwt_io.ml" 962 30472 30492 "src/unix/lwt_io.ml" 962 30472 30493
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 962 30472 30494 "src/unix/lwt_io.ml" 962 30472 30498
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 956 30284 30316 "src/unix/lwt_io.ml" 956 30284 30320
)
"src/unix/lwt_io.ml" 962 30472 30488 "src/unix/lwt_io.ml" 962 30472 30498
type(
  int
)
"src/unix/lwt_io.ml" 962 30472 30478 "src/unix/lwt_io.ml" 962 30472 30498
type(
  unit
)
"src/unix/lwt_io.ml" 963 30500 30506 "src/unix/lwt_io.ml" 963 30500 30507
type(
  Lwt_bytes.t -> int -> 'b1 Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 956 30284 30321 "src/unix/lwt_io.ml" 956 30284 30322
)
"src/unix/lwt_io.ml" 963 30500 30508 "src/unix/lwt_io.ml" 963 30500 30510
type(
  'a1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 956 30284 30313 "src/unix/lwt_io.ml" 956 30284 30315
)
"src/unix/lwt_io.ml" 963 30500 30508 "src/unix/lwt_io.ml" 963 30500 30517
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 963 30500 30518 "src/unix/lwt_io.ml" 963 30500 30521
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 961 30446 30456 "src/unix/lwt_io.ml" 961 30446 30459
)
"src/unix/lwt_io.ml" 963 30500 30506 "src/unix/lwt_io.ml" 963 30500 30521
call(
  tail
)
type(
  'b1 Lwt.t
)
"src/unix/lwt_io.ml" 962 30472 30478 "src/unix/lwt_io.ml" 963 30500 30521
type(
  'b1 Lwt.t
)
"src/unix/lwt_io.ml" 960 30431 30440 "src/unix/lwt_io.ml" 964 30522 30529
type(
  'b1 Lwt.t
)
"src/unix/lwt_io.ml" 957 30325 30329 "src/unix/lwt_io.ml" 964 30522 30529
type(
  'b1 Lwt.t
)
"src/unix/lwt_io.ml" 966 30531 30537 "src/unix/lwt_io.ml" 966 30531 30542
type(
  'm0. 'm0 _channel -> int -> (Lwt_bytes.t -> int -> 'a0 Lwt.t) -> 'a0 Lwt.t
)
ident(
  def block "src/unix/lwt_io.ml" 981 31070 31072 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
type(
  m _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 979 31026 31068
)
"src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 966 30531 30633 "src/unix/lwt_io.ml" 979 31026 31068
)
"src/unix/lwt_io.ml" 966 30531 30633 "src/unix/lwt_io.ml" 966 30531 30634
type(
  Lwt_bytes.t -> int -> 'a0 Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 967 30638 30642 "src/unix/lwt_io.ml" 979 31026 31068
)
"src/unix/lwt_io.ml" 967 30638 30645 "src/unix/lwt_io.ml" 967 30638 30649
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 967 30638 30650 "src/unix/lwt_io.ml" 967 30638 30651
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 967 30638 30652 "src/unix/lwt_io.ml" 967 30638 30653
type(
  int
)
"src/unix/lwt_io.ml" 967 30638 30645 "src/unix/lwt_io.ml" 967 30638 30653
type(
  bool
)
"src/unix/lwt_io.ml" 967 30638 30654 "src/unix/lwt_io.ml" 967 30638 30656
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 967 30638 30657 "src/unix/lwt_io.ml" 967 30638 30661
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 967 30638 30662 "src/unix/lwt_io.ml" 967 30638 30663
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 967 30638 30664 "src/unix/lwt_io.ml" 967 30638 30679
type(
  int
)
ident(
  int_ref min_buffer_size "src/unix/lwt_io.ml" 28 1016 1020 "src/unix/lwt_io.ml" 28 1016 1035
)
"src/unix/lwt_io.ml" 967 30638 30657 "src/unix/lwt_io.ml" 967 30638 30679
type(
  bool
)
"src/unix/lwt_io.ml" 967 30638 30645 "src/unix/lwt_io.ml" 967 30638 30679
type(
  bool
)
"src/unix/lwt_io.ml" 968 30685 30691 "src/unix/lwt_io.ml" 968 30685 30699
type(
  exn -> 'a0 Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 968 30685 30718 "src/unix/lwt_io.ml" 968 30685 30732
type(
  (int -> string, unit, string) format -> int -> string
)
ident(
  ext_ref Printf.sprintf
)
"src/unix/lwt_io.ml" 968 30685 30733 "src/unix/lwt_io.ml" 968 30685 30756
type(
  (int -> string, unit, string) format
)
"src/unix/lwt_io.ml" 968 30685 30757 "src/unix/lwt_io.ml" 968 30685 30761
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 968 30685 30717 "src/unix/lwt_io.ml" 968 30685 30762
call(
  stack
)
type(
  string
)
"src/unix/lwt_io.ml" 968 30685 30700 "src/unix/lwt_io.ml" 968 30685 30763
type(
  exn
)
"src/unix/lwt_io.ml" 968 30685 30691 "src/unix/lwt_io.ml" 968 30685 30763
call(
  tail
)
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 970 30773 30782 "src/unix/lwt_io.ml" 970 30773 30784
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 970 30773 30782 "src/unix/lwt_io.ml" 970 30773 30788
type(
  int
)
"src/unix/lwt_io.ml" 970 30773 30789 "src/unix/lwt_io.ml" 970 30773 30790
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 970 30773 30791 "src/unix/lwt_io.ml" 970 30773 30793
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 970 30773 30791 "src/unix/lwt_io.ml" 970 30773 30797
type(
  int
)
"src/unix/lwt_io.ml" 970 30773 30782 "src/unix/lwt_io.ml" 970 30773 30797
type(
  int
)
"src/unix/lwt_io.ml" 970 30773 30798 "src/unix/lwt_io.ml" 970 30773 30800
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/unix/lwt_io.ml" 970 30773 30801 "src/unix/lwt_io.ml" 970 30773 30805
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 970 30773 30782 "src/unix/lwt_io.ml" 970 30773 30805
type(
  bool
)
"src/unix/lwt_io.ml" 971 30817 30829 "src/unix/lwt_io.ml" 971 30817 30832
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 972 30845 30853 "src/unix/lwt_io.ml" 973 30875 30898
)
"src/unix/lwt_io.ml" 971 30817 30835 "src/unix/lwt_io.ml" 971 30817 30837
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 971 30817 30835 "src/unix/lwt_io.ml" 971 30817 30841
type(
  int
)
"src/unix/lwt_io.ml" 972 30845 30853 "src/unix/lwt_io.ml" 972 30845 30855
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 972 30845 30863 "src/unix/lwt_io.ml" 972 30845 30866
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 971 30817 30829 "src/unix/lwt_io.ml" 971 30817 30832
)
"src/unix/lwt_io.ml" 972 30845 30867 "src/unix/lwt_io.ml" 972 30845 30868
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 972 30845 30869 "src/unix/lwt_io.ml" 972 30845 30873
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 972 30845 30863 "src/unix/lwt_io.ml" 972 30845 30873
type(
  int
)
"src/unix/lwt_io.ml" 972 30845 30853 "src/unix/lwt_io.ml" 972 30845 30873
type(
  unit
)
"src/unix/lwt_io.ml" 973 30875 30883 "src/unix/lwt_io.ml" 973 30875 30884
type(
  Lwt_bytes.t -> int -> 'a0 Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 966 30531 30633 "src/unix/lwt_io.ml" 966 30531 30634
)
"src/unix/lwt_io.ml" 973 30875 30885 "src/unix/lwt_io.ml" 973 30875 30887
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 973 30875 30885 "src/unix/lwt_io.ml" 973 30875 30894
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 973 30875 30895 "src/unix/lwt_io.ml" 973 30875 30898
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 971 30817 30829 "src/unix/lwt_io.ml" 971 30817 30832
)
"src/unix/lwt_io.ml" 973 30875 30883 "src/unix/lwt_io.ml" 973 30875 30898
call(
  tail
)
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 972 30845 30853 "src/unix/lwt_io.ml" 973 30875 30898
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 970 30773 30811 "src/unix/lwt_io.ml" 974 30899 30908
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 975 30914 30928 "src/unix/lwt_io.ml" 975 30914 30930
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 975 30914 30928 "src/unix/lwt_io.ml" 975 30914 30935
type(
  m mode
)
"src/unix/lwt_io.ml" 976 30941 30953 "src/unix/lwt_io.ml" 976 30941 30958
type(
  m mode
)
"src/unix/lwt_io.ml" 977 30962 30976 "src/unix/lwt_io.ml" 977 30962 30993
type(
  m _channel -> int -> (Lwt_bytes.t -> int -> 'a0 Lwt.t) -> 'a0 Lwt.t
)
ident(
  int_ref read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
)
"src/unix/lwt_io.ml" 977 30962 30994 "src/unix/lwt_io.ml" 977 30962 30996
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 977 30962 30997 "src/unix/lwt_io.ml" 977 30962 31001
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 977 30962 31002 "src/unix/lwt_io.ml" 977 30962 31003
type(
  Lwt_bytes.t -> int -> 'a0 Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 966 30531 30633 "src/unix/lwt_io.ml" 966 30531 30634
)
"src/unix/lwt_io.ml" 977 30962 30976 "src/unix/lwt_io.ml" 977 30962 31003
call(
  tail
)
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 978 31004 31016 "src/unix/lwt_io.ml" 978 31004 31022
type(
  m mode
)
"src/unix/lwt_io.ml" 979 31026 31040 "src/unix/lwt_io.ml" 979 31026 31058
type(
  m _channel -> int -> (Lwt_bytes.t -> int -> 'a0 Lwt.t) -> 'a0 Lwt.t
)
ident(
  int_ref write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
)
"src/unix/lwt_io.ml" 979 31026 31059 "src/unix/lwt_io.ml" 979 31026 31061
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 966 30531 30625 "src/unix/lwt_io.ml" 966 30531 30627
)
"src/unix/lwt_io.ml" 979 31026 31062 "src/unix/lwt_io.ml" 979 31026 31066
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 966 30531 30628 "src/unix/lwt_io.ml" 966 30531 30632
)
"src/unix/lwt_io.ml" 979 31026 31067 "src/unix/lwt_io.ml" 979 31026 31068
type(
  Lwt_bytes.t -> int -> 'a0 Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 966 30531 30633 "src/unix/lwt_io.ml" 966 30531 30634
)
"src/unix/lwt_io.ml" 979 31026 31040 "src/unix/lwt_io.ml" 979 31026 31068
call(
  tail
)
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 975 30914 30922 "src/unix/lwt_io.ml" 979 31026 31068
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 970 30773 30779 "src/unix/lwt_io.ml" 979 31026 31068
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 967 30638 30642 "src/unix/lwt_io.ml" 979 31026 31068
type(
  'a0 Lwt.t
)
"src/unix/lwt_io.ml" 966 30531 30621 "src/unix/lwt_io.ml" 979 31026 31068
type(
  m _channel -> int -> (Lwt_bytes.t -> int -> 'a0 Lwt.t) -> 'a0 Lwt.t
)
type(
  m _channel -> int -> (Lwt_bytes.t -> int -> 'a0 Lwt.t) -> 'a0 Lwt.t
)
"src/unix/lwt_io.ml" 966 30531 30537 "src/unix/lwt_io.ml" 979 31026 31068
type(
  'm0 _channel -> int -> (Lwt_bytes.t -> int -> 'a0 Lwt.t) -> 'a0 Lwt.t
)
"src/unix/lwt_io.ml" 981 31070 31076 "src/unix/lwt_io.ml" 981 31070 31083
type(
  bool ref -> direct_access -> 'c1 _channel -> int Lwt.t
)
ident(
  def perform "src/unix/lwt_io.ml" 995 31578 31580 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 981 31070 31084 "src/unix/lwt_io.ml" 981 31070 31089
type(
  bool ref
)
ident(
  def token "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 993 31459 31576
)
"src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
type(
  direct_access
)
ident(
  def da "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 993 31459 31576
)
"src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
type(
  'c1 _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 982 31098 31102 "src/unix/lwt_io.ml" 993 31459 31576
)
"src/unix/lwt_io.ml" 982 31098 31105 "src/unix/lwt_io.ml" 982 31098 31106
type(
  bool ref -> bool
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 982 31098 31106 "src/unix/lwt_io.ml" 982 31098 31111
type(
  bool ref
)
ident(
  int_ref token "src/unix/lwt_io.ml" 981 31070 31084 "src/unix/lwt_io.ml" 981 31070 31089
)
"src/unix/lwt_io.ml" 982 31098 31105 "src/unix/lwt_io.ml" 982 31098 31111
type(
  bool
)
"src/unix/lwt_io.ml" 983 31123 31132 "src/unix/lwt_io.ml" 983 31123 31134
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
)
"src/unix/lwt_io.ml" 983 31123 31132 "src/unix/lwt_io.ml" 983 31123 31141
type(
  int
)
"src/unix/lwt_io.ml" 983 31123 31142 "src/unix/lwt_io.ml" 983 31123 31144
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/unix/lwt_io.ml" 983 31123 31145 "src/unix/lwt_io.ml" 983 31123 31147
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 983 31123 31145 "src/unix/lwt_io.ml" 983 31123 31151
type(
  int
)
"src/unix/lwt_io.ml" 983 31123 31132 "src/unix/lwt_io.ml" 983 31123 31151
type(
  bool
)
"src/unix/lwt_io.ml" 983 31123 31152 "src/unix/lwt_io.ml" 983 31123 31154
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 983 31123 31155 "src/unix/lwt_io.ml" 983 31123 31157
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
)
"src/unix/lwt_io.ml" 983 31123 31155 "src/unix/lwt_io.ml" 983 31123 31164
type(
  int
)
"src/unix/lwt_io.ml" 983 31123 31165 "src/unix/lwt_io.ml" 983 31123 31166
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 983 31123 31167 "src/unix/lwt_io.ml" 983 31123 31169
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 983 31123 31167 "src/unix/lwt_io.ml" 983 31123 31173
type(
  int
)
"src/unix/lwt_io.ml" 983 31123 31155 "src/unix/lwt_io.ml" 983 31123 31173
type(
  bool
)
"src/unix/lwt_io.ml" 983 31123 31174 "src/unix/lwt_io.ml" 983 31123 31176
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 983 31123 31177 "src/unix/lwt_io.ml" 983 31123 31179
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
)
"src/unix/lwt_io.ml" 983 31123 31177 "src/unix/lwt_io.ml" 983 31123 31186
type(
  int
)
"src/unix/lwt_io.ml" 983 31123 31187 "src/unix/lwt_io.ml" 983 31123 31188
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 983 31123 31189 "src/unix/lwt_io.ml" 983 31123 31191
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 983 31123 31189 "src/unix/lwt_io.ml" 983 31123 31195
type(
  int
)
"src/unix/lwt_io.ml" 983 31123 31177 "src/unix/lwt_io.ml" 983 31123 31195
type(
  bool
)
"src/unix/lwt_io.ml" 983 31123 31155 "src/unix/lwt_io.ml" 983 31123 31195
type(
  bool
)
"src/unix/lwt_io.ml" 983 31123 31132 "src/unix/lwt_io.ml" 983 31123 31195
type(
  bool
)
"src/unix/lwt_io.ml" 984 31201 31209 "src/unix/lwt_io.ml" 984 31201 31217
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 984 31201 31236 "src/unix/lwt_io.ml" 984 31201 31266
type(
  string
)
"src/unix/lwt_io.ml" 984 31201 31218 "src/unix/lwt_io.ml" 984 31201 31267
type(
  exn
)
"src/unix/lwt_io.ml" 984 31201 31209 "src/unix/lwt_io.ml" 984 31201 31267
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 986 31285 31293 "src/unix/lwt_io.ml" 986 31285 31295
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 986 31285 31303 "src/unix/lwt_io.ml" 986 31285 31305
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
)
"src/unix/lwt_io.ml" 986 31285 31303 "src/unix/lwt_io.ml" 986 31285 31312
type(
  int
)
"src/unix/lwt_io.ml" 986 31285 31293 "src/unix/lwt_io.ml" 986 31285 31312
type(
  unit
)
"src/unix/lwt_io.ml" 987 31314 31322 "src/unix/lwt_io.ml" 987 31314 31332
type(
  'c1 _channel -> int Lwt.t
)
ident(
  int_ref perform_io "src/unix/lwt_io.ml" 200 5965 5969 "src/unix/lwt_io.ml" 200 5965 5979
)
"src/unix/lwt_io.ml" 987 31314 31333 "src/unix/lwt_io.ml" 987 31314 31335
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 987 31314 31322 "src/unix/lwt_io.ml" 987 31314 31335
call(
  stack
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 987 31314 31336 "src/unix/lwt_io.ml" 987 31314 31339
type(
  int Lwt.t -> (int -> int Lwt.t) -> int Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 987 31314 31344 "src/unix/lwt_io.ml" 987 31314 31349
type(
  int
)
ident(
  def count "src/unix/lwt_io.ml" 988 31353 31361 "src/unix/lwt_io.ml" 990 31411 31435
)
"src/unix/lwt_io.ml" 988 31353 31361 "src/unix/lwt_io.ml" 988 31353 31363
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
)
"src/unix/lwt_io.ml" 988 31353 31374 "src/unix/lwt_io.ml" 988 31353 31376
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 988 31353 31374 "src/unix/lwt_io.ml" 988 31353 31380
type(
  int
)
"src/unix/lwt_io.ml" 988 31353 31361 "src/unix/lwt_io.ml" 988 31353 31380
type(
  unit
)
"src/unix/lwt_io.ml" 989 31382 31390 "src/unix/lwt_io.ml" 989 31382 31392
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 981 31070 31090 "src/unix/lwt_io.ml" 981 31070 31092
)
"src/unix/lwt_io.ml" 989 31382 31403 "src/unix/lwt_io.ml" 989 31382 31405
type(
  'c1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 981 31070 31093 "src/unix/lwt_io.ml" 981 31070 31095
)
"src/unix/lwt_io.ml" 989 31382 31403 "src/unix/lwt_io.ml" 989 31382 31409
type(
  int
)
"src/unix/lwt_io.ml" 989 31382 31390 "src/unix/lwt_io.ml" 989 31382 31409
type(
  unit
)
"src/unix/lwt_io.ml" 990 31411 31419 "src/unix/lwt_io.ml" 990 31411 31429
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 990 31411 31430 "src/unix/lwt_io.ml" 990 31411 31435
type(
  int
)
ident(
  int_ref count "src/unix/lwt_io.ml" 987 31314 31344 "src/unix/lwt_io.ml" 987 31314 31349
)
"src/unix/lwt_io.ml" 990 31411 31419 "src/unix/lwt_io.ml" 990 31411 31435
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 989 31382 31390 "src/unix/lwt_io.ml" 990 31411 31435
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 988 31353 31361 "src/unix/lwt_io.ml" 990 31411 31435
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 987 31314 31340 "src/unix/lwt_io.ml" 990 31411 31435
type(
  int -> int Lwt.t
)
"src/unix/lwt_io.ml" 987 31314 31322 "src/unix/lwt_io.ml" 990 31411 31435
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 985 31268 31279 "src/unix/lwt_io.ml" 991 31436 31445
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 982 31098 31117 "src/unix/lwt_io.ml" 992 31446 31453
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 993 31459 31465 "src/unix/lwt_io.ml" 993 31459 31473
type(
  exn -> int Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 993 31459 31483 "src/unix/lwt_io.ml" 993 31459 31575
type(
  string
)
"src/unix/lwt_io.ml" 993 31459 31474 "src/unix/lwt_io.ml" 993 31459 31576
type(
  exn
)
"src/unix/lwt_io.ml" 993 31459 31465 "src/unix/lwt_io.ml" 993 31459 31576
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 982 31098 31102 "src/unix/lwt_io.ml" 993 31459 31576
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 995 31578 31584 "src/unix/lwt_io.ml" 995 31578 31597
type(
  'd1 _channel -> (direct_access -> 'e1 Lwt.t) -> 'e1 Lwt.t
)
ident(
  def direct_access "src/unix/lwt_io.ml" 1012 32046 32048 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
type(
  'd1 _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 995 31578 31601 "src/unix/lwt_io.ml" 1010 32037 32044
)
"src/unix/lwt_io.ml" 995 31578 31601 "src/unix/lwt_io.ml" 995 31578 31602
type(
  direct_access -> 'e1 Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 996 31605 31609 "src/unix/lwt_io.ml" 1010 32037 32044
)
"src/unix/lwt_io.ml" 996 31605 31613 "src/unix/lwt_io.ml" 996 31605 31618
type(
  bool ref
)
ident(
  def token "src/unix/lwt_io.ml" 997 31633 31637 "src/unix/lwt_io.ml" 1010 32037 32044
)
"src/unix/lwt_io.ml" 996 31605 31621 "src/unix/lwt_io.ml" 996 31605 31624
type(
  bool -> bool ref
)
ident(
  ext_ref Pervasives.ref
)
"src/unix/lwt_io.ml" 996 31605 31625 "src/unix/lwt_io.ml" 996 31605 31629
type(
  bool
)
"src/unix/lwt_io.ml" 996 31605 31621 "src/unix/lwt_io.ml" 996 31605 31629
type(
  bool ref
)
"src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
type(
  direct_access
)
ident(
  def da "src/unix/lwt_io.ml" 997 31633 31637 "src/unix/lwt_io.ml" 1010 32037 32044
)
"src/unix/lwt_io.ml" 998 31652 31667 "src/unix/lwt_io.ml" 998 31652 31669
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 998 31652 31667 "src/unix/lwt_io.ml" 998 31652 31673
type(
  int
)
"src/unix/lwt_io.ml" 999 31675 31690 "src/unix/lwt_io.ml" 999 31675 31692
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 999 31675 31690 "src/unix/lwt_io.ml" 999 31675 31696
type(
  int
)
"src/unix/lwt_io.ml" 1000 31698 31716 "src/unix/lwt_io.ml" 1000 31698 31718
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 1000 31698 31716 "src/unix/lwt_io.ml" 1000 31698 31725
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1001 31727 31751 "src/unix/lwt_io.ml" 1001 31727 31752
type(
  unit
)
"src/unix/lwt_io.ml" 1001 31727 31756 "src/unix/lwt_io.ml" 1001 31727 31763
type(
  bool ref -> direct_access -> 'd1 _channel -> int Lwt.t
)
ident(
  int_ref perform "src/unix/lwt_io.ml" 981 31070 31076 "src/unix/lwt_io.ml" 981 31070 31083
)
"src/unix/lwt_io.ml" 1001 31727 31764 "src/unix/lwt_io.ml" 1001 31727 31769
type(
  bool ref
)
ident(
  int_ref token "src/unix/lwt_io.ml" 996 31605 31613 "src/unix/lwt_io.ml" 996 31605 31618
)
"src/unix/lwt_io.ml" 1001 31727 31770 "src/unix/lwt_io.ml" 1001 31727 31772
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
)
"src/unix/lwt_io.ml" 1001 31727 31773 "src/unix/lwt_io.ml" 1001 31727 31775
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 1001 31727 31756 "src/unix/lwt_io.ml" 1001 31727 31775
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1001 31727 31746 "src/unix/lwt_io.ml" 1001 31727 31776
type(
  unit -> int Lwt.t
)
"src/unix/lwt_io.ml" 997 31633 31650 "src/unix/lwt_io.ml" 1002 31778 31783
type(
  direct_access
)
"src/unix/lwt_io.ml" 1003 31787 31791 "src/unix/lwt_io.ml" 1003 31787 31792
type(
  direct_access -> 'e1 Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 995 31578 31601 "src/unix/lwt_io.ml" 995 31578 31602
)
"src/unix/lwt_io.ml" 1003 31787 31793 "src/unix/lwt_io.ml" 1003 31787 31795
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
)
"src/unix/lwt_io.ml" 1003 31787 31791 "src/unix/lwt_io.ml" 1003 31787 31795
call(
  stack
)
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1003 31787 31796 "src/unix/lwt_io.ml" 1003 31787 31799
type(
  'e1 Lwt.t -> ('e1 -> 'e1 Lwt.t) -> 'e1 Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1003 31787 31804 "src/unix/lwt_io.ml" 1003 31787 31805
type(
  'e1
)
ident(
  def x "src/unix/lwt_io.ml" 1004 31809 31813 "src/unix/lwt_io.ml" 1010 32037 32044
)
"src/unix/lwt_io.ml" 1004 31809 31813 "src/unix/lwt_io.ml" 1004 31809 31818
type(
  bool ref
)
ident(
  int_ref token "src/unix/lwt_io.ml" 996 31605 31613 "src/unix/lwt_io.ml" 996 31605 31618
)
"src/unix/lwt_io.ml" 1004 31809 31819 "src/unix/lwt_io.ml" 1004 31809 31821
type(
  bool ref -> bool -> unit
)
ident(
  ext_ref Pervasives.( := )
)
"src/unix/lwt_io.ml" 1004 31809 31822 "src/unix/lwt_io.ml" 1004 31809 31827
type(
  bool
)
"src/unix/lwt_io.ml" 1004 31809 31813 "src/unix/lwt_io.ml" 1004 31809 31827
type(
  unit
)
"src/unix/lwt_io.ml" 1005 31829 31836 "src/unix/lwt_io.ml" 1005 31829 31838
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
)
"src/unix/lwt_io.ml" 1005 31829 31836 "src/unix/lwt_io.ml" 1005 31829 31845
type(
  int
)
"src/unix/lwt_io.ml" 1005 31829 31846 "src/unix/lwt_io.ml" 1005 31829 31848
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/unix/lwt_io.ml" 1005 31829 31849 "src/unix/lwt_io.ml" 1005 31829 31851
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 1005 31829 31849 "src/unix/lwt_io.ml" 1005 31829 31855
type(
  int
)
"src/unix/lwt_io.ml" 1005 31829 31836 "src/unix/lwt_io.ml" 1005 31829 31855
type(
  bool
)
"src/unix/lwt_io.ml" 1005 31829 31856 "src/unix/lwt_io.ml" 1005 31829 31858
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 1005 31829 31859 "src/unix/lwt_io.ml" 1005 31829 31861
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
)
"src/unix/lwt_io.ml" 1005 31829 31859 "src/unix/lwt_io.ml" 1005 31829 31868
type(
  int
)
"src/unix/lwt_io.ml" 1005 31829 31869 "src/unix/lwt_io.ml" 1005 31829 31870
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 1005 31829 31871 "src/unix/lwt_io.ml" 1005 31829 31873
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 1005 31829 31871 "src/unix/lwt_io.ml" 1005 31829 31877
type(
  int
)
"src/unix/lwt_io.ml" 1005 31829 31859 "src/unix/lwt_io.ml" 1005 31829 31877
type(
  bool
)
"src/unix/lwt_io.ml" 1005 31829 31878 "src/unix/lwt_io.ml" 1005 31829 31880
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 1005 31829 31881 "src/unix/lwt_io.ml" 1005 31829 31883
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
)
"src/unix/lwt_io.ml" 1005 31829 31881 "src/unix/lwt_io.ml" 1005 31829 31890
type(
  int
)
"src/unix/lwt_io.ml" 1005 31829 31891 "src/unix/lwt_io.ml" 1005 31829 31892
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 1005 31829 31893 "src/unix/lwt_io.ml" 1005 31829 31895
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 1005 31829 31893 "src/unix/lwt_io.ml" 1005 31829 31899
type(
  int
)
"src/unix/lwt_io.ml" 1005 31829 31881 "src/unix/lwt_io.ml" 1005 31829 31899
type(
  bool
)
"src/unix/lwt_io.ml" 1005 31829 31859 "src/unix/lwt_io.ml" 1005 31829 31899
type(
  bool
)
"src/unix/lwt_io.ml" 1005 31829 31836 "src/unix/lwt_io.ml" 1005 31829 31899
type(
  bool
)
"src/unix/lwt_io.ml" 1006 31905 31911 "src/unix/lwt_io.ml" 1006 31905 31919
type(
  exn -> 'e1 Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 1006 31905 31929 "src/unix/lwt_io.ml" 1006 31905 31974
type(
  string
)
"src/unix/lwt_io.ml" 1006 31905 31920 "src/unix/lwt_io.ml" 1006 31905 31975
type(
  exn
)
"src/unix/lwt_io.ml" 1006 31905 31911 "src/unix/lwt_io.ml" 1006 31905 31975
call(
  tail
)
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1008 31991 31997 "src/unix/lwt_io.ml" 1008 31991 31999
type(
  'd1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 995 31578 31598 "src/unix/lwt_io.ml" 995 31578 31600
)
"src/unix/lwt_io.ml" 1008 31991 32007 "src/unix/lwt_io.ml" 1008 31991 32009
type(
  direct_access
)
ident(
  int_ref da "src/unix/lwt_io.ml" 997 31633 31645 "src/unix/lwt_io.ml" 997 31633 31647
)
"src/unix/lwt_io.ml" 1008 31991 32007 "src/unix/lwt_io.ml" 1008 31991 32016
type(
  int
)
"src/unix/lwt_io.ml" 1008 31991 31997 "src/unix/lwt_io.ml" 1008 31991 32016
type(
  unit
)
"src/unix/lwt_io.ml" 1009 32018 32024 "src/unix/lwt_io.ml" 1009 32018 32034
type(
  'e1 -> 'e1 Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1009 32018 32035 "src/unix/lwt_io.ml" 1009 32018 32036
type(
  'e1
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1003 31787 31804 "src/unix/lwt_io.ml" 1003 31787 31805
)
"src/unix/lwt_io.ml" 1009 32018 32024 "src/unix/lwt_io.ml" 1009 32018 32036
call(
  tail
)
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1007 31976 31985 "src/unix/lwt_io.ml" 1010 32037 32044
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1005 31829 31833 "src/unix/lwt_io.ml" 1010 32037 32044
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1004 31809 31813 "src/unix/lwt_io.ml" 1010 32037 32044
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1003 31787 31800 "src/unix/lwt_io.ml" 1010 32037 32044
type(
  'e1 -> 'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1003 31787 31791 "src/unix/lwt_io.ml" 1010 32037 32044
call(
  tail
)
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 997 31633 31637 "src/unix/lwt_io.ml" 1010 32037 32044
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 996 31605 31609 "src/unix/lwt_io.ml" 1010 32037 32044
type(
  'e1 Lwt.t
)
"src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
type(
  Lwt_bytes.t -> int -> int
)
ident(
  def get "src/unix/lwt_io.ml" 1022 32411 32415 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1020 32341 32353 "src/unix/lwt_io.ml" 1020 32341 32359
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1020 32341 32360 "src/unix/lwt_io.ml" 1020 32341 32409
)
"src/unix/lwt_io.ml" 1020 32341 32360 "src/unix/lwt_io.ml" 1020 32341 32363
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1020 32341 32366 "src/unix/lwt_io.ml" 1020 32341 32409
)
"src/unix/lwt_io.ml" 1020 32341 32366 "src/unix/lwt_io.ml" 1020 32341 32375
type(
  char -> int
)
ident(
  ext_ref Char.code
)
"src/unix/lwt_io.ml" 1020 32341 32377 "src/unix/lwt_io.ml" 1020 32341 32397
type(
  Lwt_bytes.t -> int -> char
)
ident(
  ext_ref Lwt_bytes.unsafe_get
)
"src/unix/lwt_io.ml" 1020 32341 32398 "src/unix/lwt_io.ml" 1020 32341 32404
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1020 32341 32353 "src/unix/lwt_io.ml" 1020 32341 32359
)
"src/unix/lwt_io.ml" 1020 32341 32405 "src/unix/lwt_io.ml" 1020 32341 32408
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1020 32341 32360 "src/unix/lwt_io.ml" 1020 32341 32363
)
"src/unix/lwt_io.ml" 1020 32341 32376 "src/unix/lwt_io.ml" 1020 32341 32409
call(
  tail
)
type(
  char
)
"src/unix/lwt_io.ml" 1020 32341 32366 "src/unix/lwt_io.ml" 1020 32341 32409
type(
  int
)
"src/unix/lwt_io.ml" 1022 32411 32419 "src/unix/lwt_io.ml" 1022 32411 32427
type(
  'f1 _channel -> int Lwt.t
)
ident(
  def read_int "src/unix/lwt_io.ml" 1035 32873 32877 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1022 32411 32428 "src/unix/lwt_io.ml" 1022 32411 32430
type(
  'f1 _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1023 32433 32439 "src/unix/lwt_io.ml" 1033 32830 32871
)
"src/unix/lwt_io.ml" 1023 32433 32439 "src/unix/lwt_io.ml" 1023 32433 32456
type(
  'f1 _channel -> int -> (Lwt_bytes.t -> int -> int Lwt.t) -> int Lwt.t
)
ident(
  int_ref read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
)
"src/unix/lwt_io.ml" 1023 32433 32457 "src/unix/lwt_io.ml" 1023 32433 32459
type(
  'f1 _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1022 32411 32428 "src/unix/lwt_io.ml" 1022 32411 32430
)
"src/unix/lwt_io.ml" 1023 32433 32460 "src/unix/lwt_io.ml" 1023 32433 32461
type(
  int
)
"src/unix/lwt_io.ml" 1024 32462 32475 "src/unix/lwt_io.ml" 1024 32462 32481
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1024 32462 32482 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1024 32462 32482 "src/unix/lwt_io.ml" 1024 32462 32485
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1025 32489 32500 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1025 32489 32504 "src/unix/lwt_io.ml" 1025 32489 32506
type(
  int
)
ident(
  def v0 "src/unix/lwt_io.ml" 1029 32680 32691 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1025 32489 32509 "src/unix/lwt_io.ml" 1025 32489 32512
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1025 32489 32513 "src/unix/lwt_io.ml" 1025 32489 32519
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1024 32462 32475 "src/unix/lwt_io.ml" 1024 32462 32481
)
"src/unix/lwt_io.ml" 1025 32489 32521 "src/unix/lwt_io.ml" 1025 32489 32524
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1024 32462 32482 "src/unix/lwt_io.ml" 1024 32462 32485
)
"src/unix/lwt_io.ml" 1025 32489 32525 "src/unix/lwt_io.ml" 1025 32489 32526
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1025 32489 32527 "src/unix/lwt_io.ml" 1025 32489 32534
type(
  int
)
ident(
  int_ref ByteOrder.pos32_0 "src/unix/lwt_io.ml" 637 20850 20854 "src/unix/lwt_io.ml" 637 20850 20871
)
"src/unix/lwt_io.ml" 1025 32489 32520 "src/unix/lwt_io.ml" 1025 32489 32535
type(
  int
)
"src/unix/lwt_io.ml" 1025 32489 32509 "src/unix/lwt_io.ml" 1025 32489 32535
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1026 32536 32551 "src/unix/lwt_io.ml" 1026 32536 32553
type(
  int
)
ident(
  def v1 "src/unix/lwt_io.ml" 1029 32680 32691 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1026 32536 32556 "src/unix/lwt_io.ml" 1026 32536 32559
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1026 32536 32560 "src/unix/lwt_io.ml" 1026 32536 32566
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1024 32462 32475 "src/unix/lwt_io.ml" 1024 32462 32481
)
"src/unix/lwt_io.ml" 1026 32536 32568 "src/unix/lwt_io.ml" 1026 32536 32571
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1024 32462 32482 "src/unix/lwt_io.ml" 1024 32462 32485
)
"src/unix/lwt_io.ml" 1026 32536 32572 "src/unix/lwt_io.ml" 1026 32536 32573
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1026 32536 32574 "src/unix/lwt_io.ml" 1026 32536 32581
type(
  int
)
ident(
  int_ref ByteOrder.pos32_1 "src/unix/lwt_io.ml" 638 20872 20876 "src/unix/lwt_io.ml" 638 20872 20893
)
"src/unix/lwt_io.ml" 1026 32536 32567 "src/unix/lwt_io.ml" 1026 32536 32582
type(
  int
)
"src/unix/lwt_io.ml" 1026 32536 32556 "src/unix/lwt_io.ml" 1026 32536 32582
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1027 32583 32598 "src/unix/lwt_io.ml" 1027 32583 32600
type(
  int
)
ident(
  def v2 "src/unix/lwt_io.ml" 1029 32680 32691 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1027 32583 32603 "src/unix/lwt_io.ml" 1027 32583 32606
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1027 32583 32607 "src/unix/lwt_io.ml" 1027 32583 32613
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1024 32462 32475 "src/unix/lwt_io.ml" 1024 32462 32481
)
"src/unix/lwt_io.ml" 1027 32583 32615 "src/unix/lwt_io.ml" 1027 32583 32618
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1024 32462 32482 "src/unix/lwt_io.ml" 1024 32462 32485
)
"src/unix/lwt_io.ml" 1027 32583 32619 "src/unix/lwt_io.ml" 1027 32583 32620
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1027 32583 32621 "src/unix/lwt_io.ml" 1027 32583 32628
type(
  int
)
ident(
  int_ref ByteOrder.pos32_2 "src/unix/lwt_io.ml" 639 20894 20898 "src/unix/lwt_io.ml" 639 20894 20915
)
"src/unix/lwt_io.ml" 1027 32583 32614 "src/unix/lwt_io.ml" 1027 32583 32629
type(
  int
)
"src/unix/lwt_io.ml" 1027 32583 32603 "src/unix/lwt_io.ml" 1027 32583 32629
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1028 32630 32645 "src/unix/lwt_io.ml" 1028 32630 32647
type(
  int
)
ident(
  def v3 "src/unix/lwt_io.ml" 1029 32680 32691 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1028 32630 32650 "src/unix/lwt_io.ml" 1028 32630 32653
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1028 32630 32654 "src/unix/lwt_io.ml" 1028 32630 32660
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1024 32462 32475 "src/unix/lwt_io.ml" 1024 32462 32481
)
"src/unix/lwt_io.ml" 1028 32630 32662 "src/unix/lwt_io.ml" 1028 32630 32665
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1024 32462 32482 "src/unix/lwt_io.ml" 1024 32462 32485
)
"src/unix/lwt_io.ml" 1028 32630 32666 "src/unix/lwt_io.ml" 1028 32630 32667
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1028 32630 32668 "src/unix/lwt_io.ml" 1028 32630 32675
type(
  int
)
ident(
  int_ref ByteOrder.pos32_3 "src/unix/lwt_io.ml" 640 20916 20920 "src/unix/lwt_io.ml" 640 20916 20937
)
"src/unix/lwt_io.ml" 1028 32630 32661 "src/unix/lwt_io.ml" 1028 32630 32676
type(
  int
)
"src/unix/lwt_io.ml" 1028 32630 32650 "src/unix/lwt_io.ml" 1028 32630 32676
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32695 "src/unix/lwt_io.ml" 1029 32680 32696
type(
  int
)
ident(
  def v "src/unix/lwt_io.ml" 1030 32752 32763 "src/unix/lwt_io.ml" 1033 32830 32870
)
"src/unix/lwt_io.ml" 1029 32680 32699 "src/unix/lwt_io.ml" 1029 32680 32701
type(
  int
)
ident(
  int_ref v0 "src/unix/lwt_io.ml" 1025 32489 32504 "src/unix/lwt_io.ml" 1025 32489 32506
)
"src/unix/lwt_io.ml" 1029 32680 32702 "src/unix/lwt_io.ml" 1029 32680 32705
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lor )
)
"src/unix/lwt_io.ml" 1029 32680 32707 "src/unix/lwt_io.ml" 1029 32680 32709
type(
  int
)
ident(
  int_ref v1 "src/unix/lwt_io.ml" 1026 32536 32551 "src/unix/lwt_io.ml" 1026 32536 32553
)
"src/unix/lwt_io.ml" 1029 32680 32710 "src/unix/lwt_io.ml" 1029 32680 32713
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/unix/lwt_io.ml" 1029 32680 32714 "src/unix/lwt_io.ml" 1029 32680 32715
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32706 "src/unix/lwt_io.ml" 1029 32680 32716
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32699 "src/unix/lwt_io.ml" 1029 32680 32716
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32717 "src/unix/lwt_io.ml" 1029 32680 32720
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lor )
)
"src/unix/lwt_io.ml" 1029 32680 32722 "src/unix/lwt_io.ml" 1029 32680 32724
type(
  int
)
ident(
  int_ref v2 "src/unix/lwt_io.ml" 1027 32583 32598 "src/unix/lwt_io.ml" 1027 32583 32600
)
"src/unix/lwt_io.ml" 1029 32680 32725 "src/unix/lwt_io.ml" 1029 32680 32728
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/unix/lwt_io.ml" 1029 32680 32729 "src/unix/lwt_io.ml" 1029 32680 32731
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32721 "src/unix/lwt_io.ml" 1029 32680 32732
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32699 "src/unix/lwt_io.ml" 1029 32680 32732
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32733 "src/unix/lwt_io.ml" 1029 32680 32736
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lor )
)
"src/unix/lwt_io.ml" 1029 32680 32738 "src/unix/lwt_io.ml" 1029 32680 32740
type(
  int
)
ident(
  int_ref v3 "src/unix/lwt_io.ml" 1028 32630 32645 "src/unix/lwt_io.ml" 1028 32630 32647
)
"src/unix/lwt_io.ml" 1029 32680 32741 "src/unix/lwt_io.ml" 1029 32680 32744
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/unix/lwt_io.ml" 1029 32680 32745 "src/unix/lwt_io.ml" 1029 32680 32747
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32737 "src/unix/lwt_io.ml" 1029 32680 32748
type(
  int
)
"src/unix/lwt_io.ml" 1029 32680 32699 "src/unix/lwt_io.ml" 1029 32680 32748
type(
  int
)
"src/unix/lwt_io.ml" 1030 32752 32766 "src/unix/lwt_io.ml" 1030 32752 32768
type(
  int
)
ident(
  int_ref v3 "src/unix/lwt_io.ml" 1028 32630 32645 "src/unix/lwt_io.ml" 1028 32630 32647
)
"src/unix/lwt_io.ml" 1030 32752 32769 "src/unix/lwt_io.ml" 1030 32752 32773
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/unix/lwt_io.ml" 1030 32752 32774 "src/unix/lwt_io.ml" 1030 32752 32778
type(
  int
)
"src/unix/lwt_io.ml" 1030 32752 32766 "src/unix/lwt_io.ml" 1030 32752 32778
type(
  int
)
"src/unix/lwt_io.ml" 1030 32752 32779 "src/unix/lwt_io.ml" 1030 32752 32780
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 1030 32752 32781 "src/unix/lwt_io.ml" 1030 32752 32782
type(
  int
)
"src/unix/lwt_io.ml" 1030 32752 32766 "src/unix/lwt_io.ml" 1030 32752 32782
type(
  bool
)
"src/unix/lwt_io.ml" 1031 32788 32801 "src/unix/lwt_io.ml" 1031 32788 32811
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1031 32788 32812 "src/unix/lwt_io.ml" 1031 32788 32813
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1029 32680 32695 "src/unix/lwt_io.ml" 1029 32680 32696
)
"src/unix/lwt_io.ml" 1031 32788 32801 "src/unix/lwt_io.ml" 1031 32788 32813
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1033 32830 32843 "src/unix/lwt_io.ml" 1033 32830 32853
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1033 32830 32855 "src/unix/lwt_io.ml" 1033 32830 32856
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1029 32680 32695 "src/unix/lwt_io.ml" 1029 32680 32696
)
"src/unix/lwt_io.ml" 1033 32830 32857 "src/unix/lwt_io.ml" 1033 32830 32858
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 1033 32830 32860 "src/unix/lwt_io.ml" 1033 32830 32861
type(
  int
)
"src/unix/lwt_io.ml" 1033 32830 32862 "src/unix/lwt_io.ml" 1033 32830 32865
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/unix/lwt_io.ml" 1033 32830 32866 "src/unix/lwt_io.ml" 1033 32830 32868
type(
  int
)
"src/unix/lwt_io.ml" 1033 32830 32859 "src/unix/lwt_io.ml" 1033 32830 32869
type(
  int
)
"src/unix/lwt_io.ml" 1033 32830 32854 "src/unix/lwt_io.ml" 1033 32830 32870
type(
  int
)
"src/unix/lwt_io.ml" 1033 32830 32843 "src/unix/lwt_io.ml" 1033 32830 32870
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1030 32752 32763 "src/unix/lwt_io.ml" 1033 32830 32870
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1029 32680 32691 "src/unix/lwt_io.ml" 1033 32830 32870
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1025 32489 32500 "src/unix/lwt_io.ml" 1033 32830 32870
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1024 32462 32470 "src/unix/lwt_io.ml" 1033 32830 32871
type(
  Lwt_bytes.t -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1023 32433 32439 "src/unix/lwt_io.ml" 1033 32830 32871
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1035 32873 32881 "src/unix/lwt_io.ml" 1035 32873 32891
type(
  'g1 _channel -> int Lwt.t
)
ident(
  def read_int16 "src/unix/lwt_io.ml" 1046 33211 33215 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1035 32873 32892 "src/unix/lwt_io.ml" 1035 32873 32894
type(
  'g1 _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1036 32897 32903 "src/unix/lwt_io.ml" 1044 33168 33209
)
"src/unix/lwt_io.ml" 1036 32897 32903 "src/unix/lwt_io.ml" 1036 32897 32920
type(
  'g1 _channel -> int -> (Lwt_bytes.t -> int -> int Lwt.t) -> int Lwt.t
)
ident(
  int_ref read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
)
"src/unix/lwt_io.ml" 1036 32897 32921 "src/unix/lwt_io.ml" 1036 32897 32923
type(
  'g1 _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1035 32873 32892 "src/unix/lwt_io.ml" 1035 32873 32894
)
"src/unix/lwt_io.ml" 1036 32897 32924 "src/unix/lwt_io.ml" 1036 32897 32925
type(
  int
)
"src/unix/lwt_io.ml" 1037 32926 32939 "src/unix/lwt_io.ml" 1037 32926 32945
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1037 32926 32946 "src/unix/lwt_io.ml" 1044 33168 33208
)
"src/unix/lwt_io.ml" 1037 32926 32946 "src/unix/lwt_io.ml" 1037 32926 32949
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1038 32953 32964 "src/unix/lwt_io.ml" 1044 33168 33208
)
"src/unix/lwt_io.ml" 1038 32953 32968 "src/unix/lwt_io.ml" 1038 32953 32970
type(
  int
)
ident(
  def v0 "src/unix/lwt_io.ml" 1040 33050 33061 "src/unix/lwt_io.ml" 1044 33168 33208
)
"src/unix/lwt_io.ml" 1038 32953 32973 "src/unix/lwt_io.ml" 1038 32953 32976
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1038 32953 32977 "src/unix/lwt_io.ml" 1038 32953 32983
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1037 32926 32939 "src/unix/lwt_io.ml" 1037 32926 32945
)
"src/unix/lwt_io.ml" 1038 32953 32985 "src/unix/lwt_io.ml" 1038 32953 32988
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1037 32926 32946 "src/unix/lwt_io.ml" 1037 32926 32949
)
"src/unix/lwt_io.ml" 1038 32953 32989 "src/unix/lwt_io.ml" 1038 32953 32990
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1038 32953 32991 "src/unix/lwt_io.ml" 1038 32953 32998
type(
  int
)
ident(
  int_ref ByteOrder.pos16_0 "src/unix/lwt_io.ml" 635 20806 20810 "src/unix/lwt_io.ml" 635 20806 20827
)
"src/unix/lwt_io.ml" 1038 32953 32984 "src/unix/lwt_io.ml" 1038 32953 32999
type(
  int
)
"src/unix/lwt_io.ml" 1038 32953 32973 "src/unix/lwt_io.ml" 1038 32953 32999
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1039 33000 33015 "src/unix/lwt_io.ml" 1039 33000 33017
type(
  int
)
ident(
  def v1 "src/unix/lwt_io.ml" 1040 33050 33061 "src/unix/lwt_io.ml" 1044 33168 33208
)
"src/unix/lwt_io.ml" 1039 33000 33020 "src/unix/lwt_io.ml" 1039 33000 33023
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1039 33000 33024 "src/unix/lwt_io.ml" 1039 33000 33030
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1037 32926 32939 "src/unix/lwt_io.ml" 1037 32926 32945
)
"src/unix/lwt_io.ml" 1039 33000 33032 "src/unix/lwt_io.ml" 1039 33000 33035
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1037 32926 32946 "src/unix/lwt_io.ml" 1037 32926 32949
)
"src/unix/lwt_io.ml" 1039 33000 33036 "src/unix/lwt_io.ml" 1039 33000 33037
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1039 33000 33038 "src/unix/lwt_io.ml" 1039 33000 33045
type(
  int
)
ident(
  int_ref ByteOrder.pos16_1 "src/unix/lwt_io.ml" 636 20828 20832 "src/unix/lwt_io.ml" 636 20828 20849
)
"src/unix/lwt_io.ml" 1039 33000 33031 "src/unix/lwt_io.ml" 1039 33000 33046
type(
  int
)
"src/unix/lwt_io.ml" 1039 33000 33020 "src/unix/lwt_io.ml" 1039 33000 33046
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1040 33050 33065 "src/unix/lwt_io.ml" 1040 33050 33066
type(
  int
)
ident(
  def v "src/unix/lwt_io.ml" 1041 33090 33101 "src/unix/lwt_io.ml" 1044 33168 33208
)
"src/unix/lwt_io.ml" 1040 33050 33069 "src/unix/lwt_io.ml" 1040 33050 33071
type(
  int
)
ident(
  int_ref v0 "src/unix/lwt_io.ml" 1038 32953 32968 "src/unix/lwt_io.ml" 1038 32953 32970
)
"src/unix/lwt_io.ml" 1040 33050 33072 "src/unix/lwt_io.ml" 1040 33050 33075
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lor )
)
"src/unix/lwt_io.ml" 1040 33050 33077 "src/unix/lwt_io.ml" 1040 33050 33079
type(
  int
)
ident(
  int_ref v1 "src/unix/lwt_io.ml" 1039 33000 33015 "src/unix/lwt_io.ml" 1039 33000 33017
)
"src/unix/lwt_io.ml" 1040 33050 33080 "src/unix/lwt_io.ml" 1040 33050 33083
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/unix/lwt_io.ml" 1040 33050 33084 "src/unix/lwt_io.ml" 1040 33050 33085
type(
  int
)
"src/unix/lwt_io.ml" 1040 33050 33076 "src/unix/lwt_io.ml" 1040 33050 33086
type(
  int
)
"src/unix/lwt_io.ml" 1040 33050 33069 "src/unix/lwt_io.ml" 1040 33050 33086
type(
  int
)
"src/unix/lwt_io.ml" 1041 33090 33104 "src/unix/lwt_io.ml" 1041 33090 33106
type(
  int
)
ident(
  int_ref v1 "src/unix/lwt_io.ml" 1039 33000 33015 "src/unix/lwt_io.ml" 1039 33000 33017
)
"src/unix/lwt_io.ml" 1041 33090 33107 "src/unix/lwt_io.ml" 1041 33090 33111
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( land )
)
"src/unix/lwt_io.ml" 1041 33090 33112 "src/unix/lwt_io.ml" 1041 33090 33116
type(
  int
)
"src/unix/lwt_io.ml" 1041 33090 33104 "src/unix/lwt_io.ml" 1041 33090 33116
type(
  int
)
"src/unix/lwt_io.ml" 1041 33090 33117 "src/unix/lwt_io.ml" 1041 33090 33118
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 1041 33090 33119 "src/unix/lwt_io.ml" 1041 33090 33120
type(
  int
)
"src/unix/lwt_io.ml" 1041 33090 33104 "src/unix/lwt_io.ml" 1041 33090 33120
type(
  bool
)
"src/unix/lwt_io.ml" 1042 33126 33139 "src/unix/lwt_io.ml" 1042 33126 33149
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1042 33126 33150 "src/unix/lwt_io.ml" 1042 33126 33151
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1040 33050 33065 "src/unix/lwt_io.ml" 1040 33050 33066
)
"src/unix/lwt_io.ml" 1042 33126 33139 "src/unix/lwt_io.ml" 1042 33126 33151
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1044 33168 33181 "src/unix/lwt_io.ml" 1044 33168 33191
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1044 33168 33193 "src/unix/lwt_io.ml" 1044 33168 33194
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1040 33050 33065 "src/unix/lwt_io.ml" 1040 33050 33066
)
"src/unix/lwt_io.ml" 1044 33168 33195 "src/unix/lwt_io.ml" 1044 33168 33196
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 1044 33168 33198 "src/unix/lwt_io.ml" 1044 33168 33199
type(
  int
)
"src/unix/lwt_io.ml" 1044 33168 33200 "src/unix/lwt_io.ml" 1044 33168 33203
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsl )
)
"src/unix/lwt_io.ml" 1044 33168 33204 "src/unix/lwt_io.ml" 1044 33168 33206
type(
  int
)
"src/unix/lwt_io.ml" 1044 33168 33197 "src/unix/lwt_io.ml" 1044 33168 33207
type(
  int
)
"src/unix/lwt_io.ml" 1044 33168 33192 "src/unix/lwt_io.ml" 1044 33168 33208
type(
  int
)
"src/unix/lwt_io.ml" 1044 33168 33181 "src/unix/lwt_io.ml" 1044 33168 33208
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1041 33090 33101 "src/unix/lwt_io.ml" 1044 33168 33208
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1040 33050 33061 "src/unix/lwt_io.ml" 1044 33168 33208
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1038 32953 32964 "src/unix/lwt_io.ml" 1044 33168 33208
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1037 32926 32934 "src/unix/lwt_io.ml" 1044 33168 33209
type(
  Lwt_bytes.t -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1036 32897 32903 "src/unix/lwt_io.ml" 1044 33168 33209
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1046 33211 33219 "src/unix/lwt_io.ml" 1046 33211 33229
type(
  'h1 _channel -> int32 Lwt.t
)
ident(
  def read_int32 "src/unix/lwt_io.ml" 1061 33823 33827 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1046 33211 33230 "src/unix/lwt_io.ml" 1046 33211 33232
type(
  'h1 _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1047 33235 33241 "src/unix/lwt_io.ml" 1059 33755 33821
)
"src/unix/lwt_io.ml" 1047 33235 33241 "src/unix/lwt_io.ml" 1047 33235 33258
type(
  'h1 _channel -> int -> (Lwt_bytes.t -> int -> int32 Lwt.t) -> int32 Lwt.t
)
ident(
  int_ref read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
)
"src/unix/lwt_io.ml" 1047 33235 33259 "src/unix/lwt_io.ml" 1047 33235 33261
type(
  'h1 _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1046 33211 33230 "src/unix/lwt_io.ml" 1046 33211 33232
)
"src/unix/lwt_io.ml" 1047 33235 33262 "src/unix/lwt_io.ml" 1047 33235 33263
type(
  int
)
"src/unix/lwt_io.ml" 1048 33264 33277 "src/unix/lwt_io.ml" 1048 33264 33283
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1048 33264 33284 "src/unix/lwt_io.ml" 1059 33755 33820
)
"src/unix/lwt_io.ml" 1048 33264 33284 "src/unix/lwt_io.ml" 1048 33264 33287
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1049 33291 33302 "src/unix/lwt_io.ml" 1059 33755 33820
)
"src/unix/lwt_io.ml" 1049 33291 33306 "src/unix/lwt_io.ml" 1049 33291 33308
type(
  int
)
ident(
  def v0 "src/unix/lwt_io.ml" 1053 33482 33493 "src/unix/lwt_io.ml" 1059 33755 33820
)
"src/unix/lwt_io.ml" 1049 33291 33311 "src/unix/lwt_io.ml" 1049 33291 33314
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1049 33291 33315 "src/unix/lwt_io.ml" 1049 33291 33321
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1048 33264 33277 "src/unix/lwt_io.ml" 1048 33264 33283
)
"src/unix/lwt_io.ml" 1049 33291 33323 "src/unix/lwt_io.ml" 1049 33291 33326
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1048 33264 33284 "src/unix/lwt_io.ml" 1048 33264 33287
)
"src/unix/lwt_io.ml" 1049 33291 33327 "src/unix/lwt_io.ml" 1049 33291 33328
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1049 33291 33329 "src/unix/lwt_io.ml" 1049 33291 33336
type(
  int
)
ident(
  int_ref ByteOrder.pos32_0 "src/unix/lwt_io.ml" 637 20850 20854 "src/unix/lwt_io.ml" 637 20850 20871
)
"src/unix/lwt_io.ml" 1049 33291 33322 "src/unix/lwt_io.ml" 1049 33291 33337
type(
  int
)
"src/unix/lwt_io.ml" 1049 33291 33311 "src/unix/lwt_io.ml" 1049 33291 33337
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1050 33338 33353 "src/unix/lwt_io.ml" 1050 33338 33355
type(
  int
)
ident(
  def v1 "src/unix/lwt_io.ml" 1053 33482 33493 "src/unix/lwt_io.ml" 1059 33755 33820
)
"src/unix/lwt_io.ml" 1050 33338 33358 "src/unix/lwt_io.ml" 1050 33338 33361
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1050 33338 33362 "src/unix/lwt_io.ml" 1050 33338 33368
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1048 33264 33277 "src/unix/lwt_io.ml" 1048 33264 33283
)
"src/unix/lwt_io.ml" 1050 33338 33370 "src/unix/lwt_io.ml" 1050 33338 33373
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1048 33264 33284 "src/unix/lwt_io.ml" 1048 33264 33287
)
"src/unix/lwt_io.ml" 1050 33338 33374 "src/unix/lwt_io.ml" 1050 33338 33375
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1050 33338 33376 "src/unix/lwt_io.ml" 1050 33338 33383
type(
  int
)
ident(
  int_ref ByteOrder.pos32_1 "src/unix/lwt_io.ml" 638 20872 20876 "src/unix/lwt_io.ml" 638 20872 20893
)
"src/unix/lwt_io.ml" 1050 33338 33369 "src/unix/lwt_io.ml" 1050 33338 33384
type(
  int
)
"src/unix/lwt_io.ml" 1050 33338 33358 "src/unix/lwt_io.ml" 1050 33338 33384
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1051 33385 33400 "src/unix/lwt_io.ml" 1051 33385 33402
type(
  int
)
ident(
  def v2 "src/unix/lwt_io.ml" 1053 33482 33493 "src/unix/lwt_io.ml" 1059 33755 33820
)
"src/unix/lwt_io.ml" 1051 33385 33405 "src/unix/lwt_io.ml" 1051 33385 33408
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1051 33385 33409 "src/unix/lwt_io.ml" 1051 33385 33415
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1048 33264 33277 "src/unix/lwt_io.ml" 1048 33264 33283
)
"src/unix/lwt_io.ml" 1051 33385 33417 "src/unix/lwt_io.ml" 1051 33385 33420
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1048 33264 33284 "src/unix/lwt_io.ml" 1048 33264 33287
)
"src/unix/lwt_io.ml" 1051 33385 33421 "src/unix/lwt_io.ml" 1051 33385 33422
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1051 33385 33423 "src/unix/lwt_io.ml" 1051 33385 33430
type(
  int
)
ident(
  int_ref ByteOrder.pos32_2 "src/unix/lwt_io.ml" 639 20894 20898 "src/unix/lwt_io.ml" 639 20894 20915
)
"src/unix/lwt_io.ml" 1051 33385 33416 "src/unix/lwt_io.ml" 1051 33385 33431
type(
  int
)
"src/unix/lwt_io.ml" 1051 33385 33405 "src/unix/lwt_io.ml" 1051 33385 33431
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1052 33432 33447 "src/unix/lwt_io.ml" 1052 33432 33449
type(
  int
)
ident(
  def v3 "src/unix/lwt_io.ml" 1053 33482 33493 "src/unix/lwt_io.ml" 1059 33755 33820
)
"src/unix/lwt_io.ml" 1052 33432 33452 "src/unix/lwt_io.ml" 1052 33432 33455
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1052 33432 33456 "src/unix/lwt_io.ml" 1052 33432 33462
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1048 33264 33277 "src/unix/lwt_io.ml" 1048 33264 33283
)
"src/unix/lwt_io.ml" 1052 33432 33464 "src/unix/lwt_io.ml" 1052 33432 33467
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1048 33264 33284 "src/unix/lwt_io.ml" 1048 33264 33287
)
"src/unix/lwt_io.ml" 1052 33432 33468 "src/unix/lwt_io.ml" 1052 33432 33469
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1052 33432 33470 "src/unix/lwt_io.ml" 1052 33432 33477
type(
  int
)
ident(
  int_ref ByteOrder.pos32_3 "src/unix/lwt_io.ml" 640 20916 20920 "src/unix/lwt_io.ml" 640 20916 20937
)
"src/unix/lwt_io.ml" 1052 33432 33463 "src/unix/lwt_io.ml" 1052 33432 33478
type(
  int
)
"src/unix/lwt_io.ml" 1052 33432 33452 "src/unix/lwt_io.ml" 1052 33432 33478
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1053 33482 33493 "src/unix/lwt_io.ml" 1053 33482 33503
type(
  int32 -> int32 Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1053 33482 33505 "src/unix/lwt_io.ml" 1053 33482 33516
type(
  int32 -> int32 -> int32
)
ident(
  ext_ref Int32.logor
)
"src/unix/lwt_io.ml" 1054 33517 33539 "src/unix/lwt_io.ml" 1054 33517 33550
type(
  int32 -> int32 -> int32
)
ident(
  ext_ref Int32.logor
)
"src/unix/lwt_io.ml" 1055 33551 33576 "src/unix/lwt_io.ml" 1055 33551 33588
type(
  int -> int32
)
ident(
  ext_ref Int32.of_int
)
"src/unix/lwt_io.ml" 1055 33551 33589 "src/unix/lwt_io.ml" 1055 33551 33591
type(
  int
)
ident(
  int_ref v0 "src/unix/lwt_io.ml" 1049 33291 33306 "src/unix/lwt_io.ml" 1049 33291 33308
)
"src/unix/lwt_io.ml" 1055 33551 33575 "src/unix/lwt_io.ml" 1055 33551 33592
type(
  int32
)
"src/unix/lwt_io.ml" 1056 33593 33618 "src/unix/lwt_io.ml" 1056 33593 33634
type(
  int32 -> int -> int32
)
ident(
  ext_ref Int32.shift_left
)
"src/unix/lwt_io.ml" 1056 33593 33636 "src/unix/lwt_io.ml" 1056 33593 33648
type(
  int -> int32
)
ident(
  ext_ref Int32.of_int
)
"src/unix/lwt_io.ml" 1056 33593 33649 "src/unix/lwt_io.ml" 1056 33593 33651
type(
  int
)
ident(
  int_ref v1 "src/unix/lwt_io.ml" 1050 33338 33353 "src/unix/lwt_io.ml" 1050 33338 33355
)
"src/unix/lwt_io.ml" 1056 33593 33635 "src/unix/lwt_io.ml" 1056 33593 33652
type(
  int32
)
"src/unix/lwt_io.ml" 1056 33593 33653 "src/unix/lwt_io.ml" 1056 33593 33654
type(
  int
)
"src/unix/lwt_io.ml" 1056 33593 33617 "src/unix/lwt_io.ml" 1056 33593 33655
type(
  int32
)
"src/unix/lwt_io.ml" 1054 33517 33538 "src/unix/lwt_io.ml" 1056 33593 33656
type(
  int32
)
"src/unix/lwt_io.ml" 1057 33657 33679 "src/unix/lwt_io.ml" 1057 33657 33690
type(
  int32 -> int32 -> int32
)
ident(
  ext_ref Int32.logor
)
"src/unix/lwt_io.ml" 1058 33691 33716 "src/unix/lwt_io.ml" 1058 33691 33732
type(
  int32 -> int -> int32
)
ident(
  ext_ref Int32.shift_left
)
"src/unix/lwt_io.ml" 1058 33691 33734 "src/unix/lwt_io.ml" 1058 33691 33746
type(
  int -> int32
)
ident(
  ext_ref Int32.of_int
)
"src/unix/lwt_io.ml" 1058 33691 33747 "src/unix/lwt_io.ml" 1058 33691 33749
type(
  int
)
ident(
  int_ref v2 "src/unix/lwt_io.ml" 1051 33385 33400 "src/unix/lwt_io.ml" 1051 33385 33402
)
"src/unix/lwt_io.ml" 1058 33691 33733 "src/unix/lwt_io.ml" 1058 33691 33750
type(
  int32
)
"src/unix/lwt_io.ml" 1058 33691 33751 "src/unix/lwt_io.ml" 1058 33691 33753
type(
  int
)
"src/unix/lwt_io.ml" 1058 33691 33715 "src/unix/lwt_io.ml" 1058 33691 33754
type(
  int32
)
"src/unix/lwt_io.ml" 1059 33755 33780 "src/unix/lwt_io.ml" 1059 33755 33796
type(
  int32 -> int -> int32
)
ident(
  ext_ref Int32.shift_left
)
"src/unix/lwt_io.ml" 1059 33755 33798 "src/unix/lwt_io.ml" 1059 33755 33810
type(
  int -> int32
)
ident(
  ext_ref Int32.of_int
)
"src/unix/lwt_io.ml" 1059 33755 33811 "src/unix/lwt_io.ml" 1059 33755 33813
type(
  int
)
ident(
  int_ref v3 "src/unix/lwt_io.ml" 1052 33432 33447 "src/unix/lwt_io.ml" 1052 33432 33449
)
"src/unix/lwt_io.ml" 1059 33755 33797 "src/unix/lwt_io.ml" 1059 33755 33814
type(
  int32
)
"src/unix/lwt_io.ml" 1059 33755 33815 "src/unix/lwt_io.ml" 1059 33755 33817
type(
  int
)
"src/unix/lwt_io.ml" 1059 33755 33779 "src/unix/lwt_io.ml" 1059 33755 33818
type(
  int32
)
"src/unix/lwt_io.ml" 1057 33657 33678 "src/unix/lwt_io.ml" 1059 33755 33819
type(
  int32
)
"src/unix/lwt_io.ml" 1053 33482 33504 "src/unix/lwt_io.ml" 1059 33755 33820
type(
  int32
)
"src/unix/lwt_io.ml" 1053 33482 33493 "src/unix/lwt_io.ml" 1059 33755 33820
call(
  tail
)
type(
  int32 Lwt.t
)
"src/unix/lwt_io.ml" 1049 33291 33302 "src/unix/lwt_io.ml" 1059 33755 33820
type(
  int32 Lwt.t
)
"src/unix/lwt_io.ml" 1048 33264 33272 "src/unix/lwt_io.ml" 1059 33755 33821
type(
  Lwt_bytes.t -> int -> int32 Lwt.t
)
"src/unix/lwt_io.ml" 1047 33235 33241 "src/unix/lwt_io.ml" 1059 33755 33821
call(
  tail
)
type(
  int32 Lwt.t
)
"src/unix/lwt_io.ml" 1061 33823 33831 "src/unix/lwt_io.ml" 1061 33823 33841
type(
  'i1 _channel -> int64 Lwt.t
)
ident(
  def read_int64 "src/unix/lwt_io.ml" 1088 35055 35059 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1061 33823 33842 "src/unix/lwt_io.ml" 1061 33823 33844
type(
  'i1 _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1062 33847 33853 "src/unix/lwt_io.ml" 1086 34983 35053
)
"src/unix/lwt_io.ml" 1062 33847 33853 "src/unix/lwt_io.ml" 1062 33847 33870
type(
  'i1 _channel -> int -> (Lwt_bytes.t -> int -> int64 Lwt.t) -> int64 Lwt.t
)
ident(
  int_ref read_block_unsafe "src/unix/lwt_io.ml" 943 29977 29987 "src/unix/lwt_io.ml" 943 29977 30004
)
"src/unix/lwt_io.ml" 1062 33847 33871 "src/unix/lwt_io.ml" 1062 33847 33873
type(
  'i1 _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1061 33823 33842 "src/unix/lwt_io.ml" 1061 33823 33844
)
"src/unix/lwt_io.ml" 1062 33847 33874 "src/unix/lwt_io.ml" 1062 33847 33875
type(
  int
)
"src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1064 33903 33914 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1064 33903 33918 "src/unix/lwt_io.ml" 1064 33903 33920
type(
  int
)
ident(
  def v0 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1064 33903 33923 "src/unix/lwt_io.ml" 1064 33903 33926
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1064 33903 33927 "src/unix/lwt_io.ml" 1064 33903 33933
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1064 33903 33935 "src/unix/lwt_io.ml" 1064 33903 33938
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1064 33903 33939 "src/unix/lwt_io.ml" 1064 33903 33940
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1064 33903 33941 "src/unix/lwt_io.ml" 1064 33903 33948
type(
  int
)
ident(
  int_ref ByteOrder.pos64_0 "src/unix/lwt_io.ml" 641 20938 20942 "src/unix/lwt_io.ml" 641 20938 20959
)
"src/unix/lwt_io.ml" 1064 33903 33934 "src/unix/lwt_io.ml" 1064 33903 33949
type(
  int
)
"src/unix/lwt_io.ml" 1064 33903 33923 "src/unix/lwt_io.ml" 1064 33903 33949
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1065 33950 33965 "src/unix/lwt_io.ml" 1065 33950 33967
type(
  int
)
ident(
  def v1 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1065 33950 33970 "src/unix/lwt_io.ml" 1065 33950 33973
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1065 33950 33974 "src/unix/lwt_io.ml" 1065 33950 33980
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1065 33950 33982 "src/unix/lwt_io.ml" 1065 33950 33985
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1065 33950 33986 "src/unix/lwt_io.ml" 1065 33950 33987
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1065 33950 33988 "src/unix/lwt_io.ml" 1065 33950 33995
type(
  int
)
ident(
  int_ref ByteOrder.pos64_1 "src/unix/lwt_io.ml" 642 20960 20964 "src/unix/lwt_io.ml" 642 20960 20981
)
"src/unix/lwt_io.ml" 1065 33950 33981 "src/unix/lwt_io.ml" 1065 33950 33996
type(
  int
)
"src/unix/lwt_io.ml" 1065 33950 33970 "src/unix/lwt_io.ml" 1065 33950 33996
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1066 33997 34012 "src/unix/lwt_io.ml" 1066 33997 34014
type(
  int
)
ident(
  def v2 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1066 33997 34017 "src/unix/lwt_io.ml" 1066 33997 34020
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1066 33997 34021 "src/unix/lwt_io.ml" 1066 33997 34027
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1066 33997 34029 "src/unix/lwt_io.ml" 1066 33997 34032
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1066 33997 34033 "src/unix/lwt_io.ml" 1066 33997 34034
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1066 33997 34035 "src/unix/lwt_io.ml" 1066 33997 34042
type(
  int
)
ident(
  int_ref ByteOrder.pos64_2 "src/unix/lwt_io.ml" 643 20982 20986 "src/unix/lwt_io.ml" 643 20982 21003
)
"src/unix/lwt_io.ml" 1066 33997 34028 "src/unix/lwt_io.ml" 1066 33997 34043
type(
  int
)
"src/unix/lwt_io.ml" 1066 33997 34017 "src/unix/lwt_io.ml" 1066 33997 34043
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1067 34044 34059 "src/unix/lwt_io.ml" 1067 34044 34061
type(
  int
)
ident(
  def v3 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1067 34044 34064 "src/unix/lwt_io.ml" 1067 34044 34067
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1067 34044 34068 "src/unix/lwt_io.ml" 1067 34044 34074
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1067 34044 34076 "src/unix/lwt_io.ml" 1067 34044 34079
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1067 34044 34080 "src/unix/lwt_io.ml" 1067 34044 34081
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1067 34044 34082 "src/unix/lwt_io.ml" 1067 34044 34089
type(
  int
)
ident(
  int_ref ByteOrder.pos64_3 "src/unix/lwt_io.ml" 644 21004 21008 "src/unix/lwt_io.ml" 644 21004 21025
)
"src/unix/lwt_io.ml" 1067 34044 34075 "src/unix/lwt_io.ml" 1067 34044 34090
type(
  int
)
"src/unix/lwt_io.ml" 1067 34044 34064 "src/unix/lwt_io.ml" 1067 34044 34090
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1068 34091 34106 "src/unix/lwt_io.ml" 1068 34091 34108
type(
  int
)
ident(
  def v4 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1068 34091 34111 "src/unix/lwt_io.ml" 1068 34091 34114
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1068 34091 34115 "src/unix/lwt_io.ml" 1068 34091 34121
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1068 34091 34123 "src/unix/lwt_io.ml" 1068 34091 34126
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1068 34091 34127 "src/unix/lwt_io.ml" 1068 34091 34128
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1068 34091 34129 "src/unix/lwt_io.ml" 1068 34091 34136
type(
  int
)
ident(
  int_ref ByteOrder.pos64_4 "src/unix/lwt_io.ml" 645 21026 21030 "src/unix/lwt_io.ml" 645 21026 21047
)
"src/unix/lwt_io.ml" 1068 34091 34122 "src/unix/lwt_io.ml" 1068 34091 34137
type(
  int
)
"src/unix/lwt_io.ml" 1068 34091 34111 "src/unix/lwt_io.ml" 1068 34091 34137
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1069 34138 34153 "src/unix/lwt_io.ml" 1069 34138 34155
type(
  int
)
ident(
  def v5 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1069 34138 34158 "src/unix/lwt_io.ml" 1069 34138 34161
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1069 34138 34162 "src/unix/lwt_io.ml" 1069 34138 34168
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1069 34138 34170 "src/unix/lwt_io.ml" 1069 34138 34173
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1069 34138 34174 "src/unix/lwt_io.ml" 1069 34138 34175
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1069 34138 34176 "src/unix/lwt_io.ml" 1069 34138 34183
type(
  int
)
ident(
  int_ref ByteOrder.pos64_5 "src/unix/lwt_io.ml" 646 21048 21052 "src/unix/lwt_io.ml" 646 21048 21069
)
"src/unix/lwt_io.ml" 1069 34138 34169 "src/unix/lwt_io.ml" 1069 34138 34184
type(
  int
)
"src/unix/lwt_io.ml" 1069 34138 34158 "src/unix/lwt_io.ml" 1069 34138 34184
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1070 34185 34200 "src/unix/lwt_io.ml" 1070 34185 34202
type(
  int
)
ident(
  def v6 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1070 34185 34205 "src/unix/lwt_io.ml" 1070 34185 34208
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1070 34185 34209 "src/unix/lwt_io.ml" 1070 34185 34215
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1070 34185 34217 "src/unix/lwt_io.ml" 1070 34185 34220
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1070 34185 34221 "src/unix/lwt_io.ml" 1070 34185 34222
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1070 34185 34223 "src/unix/lwt_io.ml" 1070 34185 34230
type(
  int
)
ident(
  int_ref ByteOrder.pos64_6 "src/unix/lwt_io.ml" 647 21070 21074 "src/unix/lwt_io.ml" 647 21070 21091
)
"src/unix/lwt_io.ml" 1070 34185 34216 "src/unix/lwt_io.ml" 1070 34185 34231
type(
  int
)
"src/unix/lwt_io.ml" 1070 34185 34205 "src/unix/lwt_io.ml" 1070 34185 34231
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1071 34232 34247 "src/unix/lwt_io.ml" 1071 34232 34249
type(
  int
)
ident(
  def v7 "src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
)
"src/unix/lwt_io.ml" 1071 34232 34252 "src/unix/lwt_io.ml" 1071 34232 34255
type(
  Lwt_bytes.t -> int -> int
)
ident(
  int_ref get "src/unix/lwt_io.ml" 1020 32341 32349 "src/unix/lwt_io.ml" 1020 32341 32352
)
"src/unix/lwt_io.ml" 1071 34232 34256 "src/unix/lwt_io.ml" 1071 34232 34262
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1063 33876 33889 "src/unix/lwt_io.ml" 1063 33876 33895
)
"src/unix/lwt_io.ml" 1071 34232 34264 "src/unix/lwt_io.ml" 1071 34232 34267
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1063 33876 33896 "src/unix/lwt_io.ml" 1063 33876 33899
)
"src/unix/lwt_io.ml" 1071 34232 34268 "src/unix/lwt_io.ml" 1071 34232 34269
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1071 34232 34270 "src/unix/lwt_io.ml" 1071 34232 34277
type(
  int
)
ident(
  int_ref ByteOrder.pos64_7 "src/unix/lwt_io.ml" 648 21092 21096 "src/unix/lwt_io.ml" 648 21092 21113
)
"src/unix/lwt_io.ml" 1071 34232 34263 "src/unix/lwt_io.ml" 1071 34232 34278
type(
  int
)
"src/unix/lwt_io.ml" 1071 34232 34252 "src/unix/lwt_io.ml" 1071 34232 34278
call(
  stack
)
type(
  int
)
"src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1072 34282 34303
type(
  int64 -> int64 Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1072 34282 34305 "src/unix/lwt_io.ml" 1072 34282 34316
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1073 34317 34339 "src/unix/lwt_io.ml" 1073 34317 34350
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1074 34351 34376 "src/unix/lwt_io.ml" 1074 34351 34387
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1075 34388 34416 "src/unix/lwt_io.ml" 1075 34388 34428
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1075 34388 34429 "src/unix/lwt_io.ml" 1075 34388 34431
type(
  int
)
ident(
  int_ref v0 "src/unix/lwt_io.ml" 1064 33903 33918 "src/unix/lwt_io.ml" 1064 33903 33920
)
"src/unix/lwt_io.ml" 1075 34388 34415 "src/unix/lwt_io.ml" 1075 34388 34432
type(
  int64
)
"src/unix/lwt_io.ml" 1076 34433 34461 "src/unix/lwt_io.ml" 1076 34433 34477
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1076 34433 34479 "src/unix/lwt_io.ml" 1076 34433 34491
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1076 34433 34492 "src/unix/lwt_io.ml" 1076 34433 34494
type(
  int
)
ident(
  int_ref v1 "src/unix/lwt_io.ml" 1065 33950 33965 "src/unix/lwt_io.ml" 1065 33950 33967
)
"src/unix/lwt_io.ml" 1076 34433 34478 "src/unix/lwt_io.ml" 1076 34433 34495
type(
  int64
)
"src/unix/lwt_io.ml" 1076 34433 34496 "src/unix/lwt_io.ml" 1076 34433 34497
type(
  int
)
"src/unix/lwt_io.ml" 1076 34433 34460 "src/unix/lwt_io.ml" 1076 34433 34498
type(
  int64
)
"src/unix/lwt_io.ml" 1074 34351 34375 "src/unix/lwt_io.ml" 1076 34433 34499
type(
  int64
)
"src/unix/lwt_io.ml" 1077 34500 34525 "src/unix/lwt_io.ml" 1077 34500 34536
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1078 34537 34565 "src/unix/lwt_io.ml" 1078 34537 34581
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1078 34537 34583 "src/unix/lwt_io.ml" 1078 34537 34595
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1078 34537 34596 "src/unix/lwt_io.ml" 1078 34537 34598
type(
  int
)
ident(
  int_ref v2 "src/unix/lwt_io.ml" 1066 33997 34012 "src/unix/lwt_io.ml" 1066 33997 34014
)
"src/unix/lwt_io.ml" 1078 34537 34582 "src/unix/lwt_io.ml" 1078 34537 34599
type(
  int64
)
"src/unix/lwt_io.ml" 1078 34537 34600 "src/unix/lwt_io.ml" 1078 34537 34602
type(
  int
)
"src/unix/lwt_io.ml" 1078 34537 34564 "src/unix/lwt_io.ml" 1078 34537 34603
type(
  int64
)
"src/unix/lwt_io.ml" 1079 34604 34632 "src/unix/lwt_io.ml" 1079 34604 34648
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1079 34604 34650 "src/unix/lwt_io.ml" 1079 34604 34662
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1079 34604 34663 "src/unix/lwt_io.ml" 1079 34604 34665
type(
  int
)
ident(
  int_ref v3 "src/unix/lwt_io.ml" 1067 34044 34059 "src/unix/lwt_io.ml" 1067 34044 34061
)
"src/unix/lwt_io.ml" 1079 34604 34649 "src/unix/lwt_io.ml" 1079 34604 34666
type(
  int64
)
"src/unix/lwt_io.ml" 1079 34604 34667 "src/unix/lwt_io.ml" 1079 34604 34669
type(
  int
)
"src/unix/lwt_io.ml" 1079 34604 34631 "src/unix/lwt_io.ml" 1079 34604 34670
type(
  int64
)
"src/unix/lwt_io.ml" 1077 34500 34524 "src/unix/lwt_io.ml" 1079 34604 34671
type(
  int64
)
"src/unix/lwt_io.ml" 1073 34317 34338 "src/unix/lwt_io.ml" 1079 34604 34672
type(
  int64
)
"src/unix/lwt_io.ml" 1080 34673 34695 "src/unix/lwt_io.ml" 1080 34673 34706
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1081 34707 34732 "src/unix/lwt_io.ml" 1081 34707 34743
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1082 34744 34772 "src/unix/lwt_io.ml" 1082 34744 34788
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1082 34744 34790 "src/unix/lwt_io.ml" 1082 34744 34802
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1082 34744 34803 "src/unix/lwt_io.ml" 1082 34744 34805
type(
  int
)
ident(
  int_ref v4 "src/unix/lwt_io.ml" 1068 34091 34106 "src/unix/lwt_io.ml" 1068 34091 34108
)
"src/unix/lwt_io.ml" 1082 34744 34789 "src/unix/lwt_io.ml" 1082 34744 34806
type(
  int64
)
"src/unix/lwt_io.ml" 1082 34744 34807 "src/unix/lwt_io.ml" 1082 34744 34809
type(
  int
)
"src/unix/lwt_io.ml" 1082 34744 34771 "src/unix/lwt_io.ml" 1082 34744 34810
type(
  int64
)
"src/unix/lwt_io.ml" 1083 34811 34839 "src/unix/lwt_io.ml" 1083 34811 34855
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1083 34811 34857 "src/unix/lwt_io.ml" 1083 34811 34869
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1083 34811 34870 "src/unix/lwt_io.ml" 1083 34811 34872
type(
  int
)
ident(
  int_ref v5 "src/unix/lwt_io.ml" 1069 34138 34153 "src/unix/lwt_io.ml" 1069 34138 34155
)
"src/unix/lwt_io.ml" 1083 34811 34856 "src/unix/lwt_io.ml" 1083 34811 34873
type(
  int64
)
"src/unix/lwt_io.ml" 1083 34811 34874 "src/unix/lwt_io.ml" 1083 34811 34876
type(
  int
)
"src/unix/lwt_io.ml" 1083 34811 34838 "src/unix/lwt_io.ml" 1083 34811 34877
type(
  int64
)
"src/unix/lwt_io.ml" 1081 34707 34731 "src/unix/lwt_io.ml" 1083 34811 34878
type(
  int64
)
"src/unix/lwt_io.ml" 1084 34879 34904 "src/unix/lwt_io.ml" 1084 34879 34915
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.logor
)
"src/unix/lwt_io.ml" 1085 34916 34944 "src/unix/lwt_io.ml" 1085 34916 34960
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1085 34916 34962 "src/unix/lwt_io.ml" 1085 34916 34974
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1085 34916 34975 "src/unix/lwt_io.ml" 1085 34916 34977
type(
  int
)
ident(
  int_ref v6 "src/unix/lwt_io.ml" 1070 34185 34200 "src/unix/lwt_io.ml" 1070 34185 34202
)
"src/unix/lwt_io.ml" 1085 34916 34961 "src/unix/lwt_io.ml" 1085 34916 34978
type(
  int64
)
"src/unix/lwt_io.ml" 1085 34916 34979 "src/unix/lwt_io.ml" 1085 34916 34981
type(
  int
)
"src/unix/lwt_io.ml" 1085 34916 34943 "src/unix/lwt_io.ml" 1085 34916 34982
type(
  int64
)
"src/unix/lwt_io.ml" 1086 34983 35011 "src/unix/lwt_io.ml" 1086 34983 35027
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_left
)
"src/unix/lwt_io.ml" 1086 34983 35029 "src/unix/lwt_io.ml" 1086 34983 35041
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1086 34983 35042 "src/unix/lwt_io.ml" 1086 34983 35044
type(
  int
)
ident(
  int_ref v7 "src/unix/lwt_io.ml" 1071 34232 34247 "src/unix/lwt_io.ml" 1071 34232 34249
)
"src/unix/lwt_io.ml" 1086 34983 35028 "src/unix/lwt_io.ml" 1086 34983 35045
type(
  int64
)
"src/unix/lwt_io.ml" 1086 34983 35046 "src/unix/lwt_io.ml" 1086 34983 35048
type(
  int
)
"src/unix/lwt_io.ml" 1086 34983 35010 "src/unix/lwt_io.ml" 1086 34983 35049
type(
  int64
)
"src/unix/lwt_io.ml" 1084 34879 34903 "src/unix/lwt_io.ml" 1086 34983 35050
type(
  int64
)
"src/unix/lwt_io.ml" 1080 34673 34694 "src/unix/lwt_io.ml" 1086 34983 35051
type(
  int64
)
"src/unix/lwt_io.ml" 1072 34282 34304 "src/unix/lwt_io.ml" 1086 34983 35052
type(
  int64
)
"src/unix/lwt_io.ml" 1072 34282 34293 "src/unix/lwt_io.ml" 1086 34983 35052
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1064 33903 33914 "src/unix/lwt_io.ml" 1086 34983 35052
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1063 33876 33884 "src/unix/lwt_io.ml" 1086 34983 35053
type(
  Lwt_bytes.t -> int -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 1062 33847 33853 "src/unix/lwt_io.ml" 1086 34983 35053
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1088 35055 35063 "src/unix/lwt_io.ml" 1088 35055 35075
type(
  'j1 _channel -> float Lwt.t
)
ident(
  def read_float32 "src/unix/lwt_io.ml" 1089 35143 35147 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1088 35055 35076 "src/unix/lwt_io.ml" 1088 35055 35078
type(
  'j1 _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1088 35055 35081 "src/unix/lwt_io.ml" 1088 35055 35142
)
"src/unix/lwt_io.ml" 1088 35055 35081 "src/unix/lwt_io.ml" 1088 35055 35091
type(
  'j1 _channel -> int32 Lwt.t
)
ident(
  int_ref read_int32 "src/unix/lwt_io.ml" 1046 33211 33219 "src/unix/lwt_io.ml" 1046 33211 33229
)
"src/unix/lwt_io.ml" 1088 35055 35092 "src/unix/lwt_io.ml" 1088 35055 35094
type(
  'j1 _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1088 35055 35076 "src/unix/lwt_io.ml" 1088 35055 35078
)
"src/unix/lwt_io.ml" 1088 35055 35081 "src/unix/lwt_io.ml" 1088 35055 35094
call(
  stack
)
type(
  int32 Lwt.t
)
"src/unix/lwt_io.ml" 1088 35055 35095 "src/unix/lwt_io.ml" 1088 35055 35098
type(
  int32 Lwt.t -> (int32 -> float Lwt.t) -> float Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1088 35055 35103 "src/unix/lwt_io.ml" 1088 35055 35104
type(
  int32
)
ident(
  def x "src/unix/lwt_io.ml" 1088 35055 35108 "src/unix/lwt_io.ml" 1088 35055 35142
)
"src/unix/lwt_io.ml" 1088 35055 35108 "src/unix/lwt_io.ml" 1088 35055 35118
type(
  float -> float Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1088 35055 35120 "src/unix/lwt_io.ml" 1088 35055 35139
type(
  int32 -> float
)
ident(
  ext_ref Int32.float_of_bits
)
"src/unix/lwt_io.ml" 1088 35055 35140 "src/unix/lwt_io.ml" 1088 35055 35141
type(
  int32
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1088 35055 35103 "src/unix/lwt_io.ml" 1088 35055 35104
)
"src/unix/lwt_io.ml" 1088 35055 35119 "src/unix/lwt_io.ml" 1088 35055 35142
type(
  float
)
"src/unix/lwt_io.ml" 1088 35055 35108 "src/unix/lwt_io.ml" 1088 35055 35142
call(
  tail
)
type(
  float Lwt.t
)
"src/unix/lwt_io.ml" 1088 35055 35099 "src/unix/lwt_io.ml" 1088 35055 35142
type(
  int32 -> float Lwt.t
)
"src/unix/lwt_io.ml" 1088 35055 35081 "src/unix/lwt_io.ml" 1088 35055 35142
call(
  tail
)
type(
  float Lwt.t
)
"src/unix/lwt_io.ml" 1089 35143 35151 "src/unix/lwt_io.ml" 1089 35143 35163
type(
  'k1 _channel -> float Lwt.t
)
ident(
  def read_float64 "src/unix/lwt_io.ml" 1095 35449 35453 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1089 35143 35164 "src/unix/lwt_io.ml" 1089 35143 35166
type(
  'k1 _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1089 35143 35169 "src/unix/lwt_io.ml" 1089 35143 35230
)
"src/unix/lwt_io.ml" 1089 35143 35169 "src/unix/lwt_io.ml" 1089 35143 35179
type(
  'k1 _channel -> int64 Lwt.t
)
ident(
  int_ref read_int64 "src/unix/lwt_io.ml" 1061 33823 33831 "src/unix/lwt_io.ml" 1061 33823 33841
)
"src/unix/lwt_io.ml" 1089 35143 35180 "src/unix/lwt_io.ml" 1089 35143 35182
type(
  'k1 _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1089 35143 35164 "src/unix/lwt_io.ml" 1089 35143 35166
)
"src/unix/lwt_io.ml" 1089 35143 35169 "src/unix/lwt_io.ml" 1089 35143 35182
call(
  stack
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1089 35143 35183 "src/unix/lwt_io.ml" 1089 35143 35186
type(
  int64 Lwt.t -> (int64 -> float Lwt.t) -> float Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1089 35143 35191 "src/unix/lwt_io.ml" 1089 35143 35192
type(
  int64
)
ident(
  def x "src/unix/lwt_io.ml" 1089 35143 35196 "src/unix/lwt_io.ml" 1089 35143 35230
)
"src/unix/lwt_io.ml" 1089 35143 35196 "src/unix/lwt_io.ml" 1089 35143 35206
type(
  float -> float Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1089 35143 35208 "src/unix/lwt_io.ml" 1089 35143 35227
type(
  int64 -> float
)
ident(
  ext_ref Int64.float_of_bits
)
"src/unix/lwt_io.ml" 1089 35143 35228 "src/unix/lwt_io.ml" 1089 35143 35229
type(
  int64
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1089 35143 35191 "src/unix/lwt_io.ml" 1089 35143 35192
)
"src/unix/lwt_io.ml" 1089 35143 35207 "src/unix/lwt_io.ml" 1089 35143 35230
type(
  float
)
"src/unix/lwt_io.ml" 1089 35143 35196 "src/unix/lwt_io.ml" 1089 35143 35230
call(
  tail
)
type(
  float Lwt.t
)
"src/unix/lwt_io.ml" 1089 35143 35187 "src/unix/lwt_io.ml" 1089 35143 35230
type(
  int64 -> float Lwt.t
)
"src/unix/lwt_io.ml" 1089 35143 35169 "src/unix/lwt_io.ml" 1089 35143 35230
call(
  tail
)
type(
  float Lwt.t
)
"src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  def set "src/unix/lwt_io.ml" 1097 35529 35533 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1095 35449 35461 "src/unix/lwt_io.ml" 1095 35449 35467
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1095 35449 35468 "src/unix/lwt_io.ml" 1095 35449 35527
)
"src/unix/lwt_io.ml" 1095 35449 35468 "src/unix/lwt_io.ml" 1095 35449 35471
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1095 35449 35472 "src/unix/lwt_io.ml" 1095 35449 35527
)
"src/unix/lwt_io.ml" 1095 35449 35472 "src/unix/lwt_io.ml" 1095 35449 35473
type(
  int
)
ident(
  def x "src/unix/lwt_io.ml" 1095 35449 35476 "src/unix/lwt_io.ml" 1095 35449 35527
)
"src/unix/lwt_io.ml" 1095 35449 35476 "src/unix/lwt_io.ml" 1095 35449 35496
type(
  Lwt_bytes.t -> int -> char -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_set
)
"src/unix/lwt_io.ml" 1095 35449 35497 "src/unix/lwt_io.ml" 1095 35449 35503
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1095 35449 35461 "src/unix/lwt_io.ml" 1095 35449 35467
)
"src/unix/lwt_io.ml" 1095 35449 35504 "src/unix/lwt_io.ml" 1095 35449 35507
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1095 35449 35468 "src/unix/lwt_io.ml" 1095 35449 35471
)
"src/unix/lwt_io.ml" 1095 35449 35509 "src/unix/lwt_io.ml" 1095 35449 35524
type(
  int -> char
)
ident(
  ext_ref Char.unsafe_chr
)
"src/unix/lwt_io.ml" 1095 35449 35525 "src/unix/lwt_io.ml" 1095 35449 35526
type(
  int
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1095 35449 35472 "src/unix/lwt_io.ml" 1095 35449 35473
)
"src/unix/lwt_io.ml" 1095 35449 35508 "src/unix/lwt_io.ml" 1095 35449 35527
type(
  char
)
"src/unix/lwt_io.ml" 1095 35449 35476 "src/unix/lwt_io.ml" 1095 35449 35527
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 1097 35529 35537 "src/unix/lwt_io.ml" 1097 35529 35546
type(
  'l1 _channel -> int -> unit Lwt.t
)
ident(
  def write_int "src/unix/lwt_io.ml" 1106 35830 35834 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1097 35529 35547 "src/unix/lwt_io.ml" 1097 35529 35549
type(
  'l1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1097 35529 35550 "src/unix/lwt_io.ml" 1104 35801 35828
)
"src/unix/lwt_io.ml" 1097 35529 35550 "src/unix/lwt_io.ml" 1097 35529 35551
type(
  int
)
ident(
  def v "src/unix/lwt_io.ml" 1098 35554 35560 "src/unix/lwt_io.ml" 1104 35801 35828
)
"src/unix/lwt_io.ml" 1098 35554 35560 "src/unix/lwt_io.ml" 1098 35554 35578
type(
  'l1 _channel -> int -> (Lwt_bytes.t -> int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  int_ref write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
)
"src/unix/lwt_io.ml" 1098 35554 35579 "src/unix/lwt_io.ml" 1098 35554 35581
type(
  'l1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1097 35529 35547 "src/unix/lwt_io.ml" 1097 35529 35549
)
"src/unix/lwt_io.ml" 1098 35554 35582 "src/unix/lwt_io.ml" 1098 35554 35583
type(
  int
)
"src/unix/lwt_io.ml" 1099 35584 35597 "src/unix/lwt_io.ml" 1099 35584 35603
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1099 35584 35604 "src/unix/lwt_io.ml" 1104 35801 35827
)
"src/unix/lwt_io.ml" 1099 35584 35604 "src/unix/lwt_io.ml" 1099 35584 35607
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1100 35611 35622 "src/unix/lwt_io.ml" 1104 35801 35827
)
"src/unix/lwt_io.ml" 1100 35611 35622 "src/unix/lwt_io.ml" 1100 35611 35625
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1100 35611 35626 "src/unix/lwt_io.ml" 1100 35611 35632
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1099 35584 35597 "src/unix/lwt_io.ml" 1099 35584 35603
)
"src/unix/lwt_io.ml" 1100 35611 35634 "src/unix/lwt_io.ml" 1100 35611 35637
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1099 35584 35604 "src/unix/lwt_io.ml" 1099 35584 35607
)
"src/unix/lwt_io.ml" 1100 35611 35638 "src/unix/lwt_io.ml" 1100 35611 35639
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1100 35611 35640 "src/unix/lwt_io.ml" 1100 35611 35647
type(
  int
)
ident(
  int_ref ByteOrder.pos32_0 "src/unix/lwt_io.ml" 637 20850 20854 "src/unix/lwt_io.ml" 637 20850 20871
)
"src/unix/lwt_io.ml" 1100 35611 35633 "src/unix/lwt_io.ml" 1100 35611 35648
type(
  int
)
"src/unix/lwt_io.ml" 1100 35611 35649 "src/unix/lwt_io.ml" 1100 35611 35650
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1097 35529 35550 "src/unix/lwt_io.ml" 1097 35529 35551
)
"src/unix/lwt_io.ml" 1100 35611 35622 "src/unix/lwt_io.ml" 1100 35611 35650
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1101 35652 35663 "src/unix/lwt_io.ml" 1101 35652 35666
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1101 35652 35667 "src/unix/lwt_io.ml" 1101 35652 35673
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1099 35584 35597 "src/unix/lwt_io.ml" 1099 35584 35603
)
"src/unix/lwt_io.ml" 1101 35652 35675 "src/unix/lwt_io.ml" 1101 35652 35678
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1099 35584 35604 "src/unix/lwt_io.ml" 1099 35584 35607
)
"src/unix/lwt_io.ml" 1101 35652 35679 "src/unix/lwt_io.ml" 1101 35652 35680
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1101 35652 35681 "src/unix/lwt_io.ml" 1101 35652 35688
type(
  int
)
ident(
  int_ref ByteOrder.pos32_1 "src/unix/lwt_io.ml" 638 20872 20876 "src/unix/lwt_io.ml" 638 20872 20893
)
"src/unix/lwt_io.ml" 1101 35652 35674 "src/unix/lwt_io.ml" 1101 35652 35689
type(
  int
)
"src/unix/lwt_io.ml" 1101 35652 35691 "src/unix/lwt_io.ml" 1101 35652 35692
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1097 35529 35550 "src/unix/lwt_io.ml" 1097 35529 35551
)
"src/unix/lwt_io.ml" 1101 35652 35693 "src/unix/lwt_io.ml" 1101 35652 35696
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/unix/lwt_io.ml" 1101 35652 35697 "src/unix/lwt_io.ml" 1101 35652 35698
type(
  int
)
"src/unix/lwt_io.ml" 1101 35652 35690 "src/unix/lwt_io.ml" 1101 35652 35699
type(
  int
)
"src/unix/lwt_io.ml" 1101 35652 35663 "src/unix/lwt_io.ml" 1101 35652 35699
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1102 35701 35712 "src/unix/lwt_io.ml" 1102 35701 35715
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1102 35701 35716 "src/unix/lwt_io.ml" 1102 35701 35722
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1099 35584 35597 "src/unix/lwt_io.ml" 1099 35584 35603
)
"src/unix/lwt_io.ml" 1102 35701 35724 "src/unix/lwt_io.ml" 1102 35701 35727
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1099 35584 35604 "src/unix/lwt_io.ml" 1099 35584 35607
)
"src/unix/lwt_io.ml" 1102 35701 35728 "src/unix/lwt_io.ml" 1102 35701 35729
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1102 35701 35730 "src/unix/lwt_io.ml" 1102 35701 35737
type(
  int
)
ident(
  int_ref ByteOrder.pos32_2 "src/unix/lwt_io.ml" 639 20894 20898 "src/unix/lwt_io.ml" 639 20894 20915
)
"src/unix/lwt_io.ml" 1102 35701 35723 "src/unix/lwt_io.ml" 1102 35701 35738
type(
  int
)
"src/unix/lwt_io.ml" 1102 35701 35740 "src/unix/lwt_io.ml" 1102 35701 35741
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1097 35529 35550 "src/unix/lwt_io.ml" 1097 35529 35551
)
"src/unix/lwt_io.ml" 1102 35701 35742 "src/unix/lwt_io.ml" 1102 35701 35745
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/unix/lwt_io.ml" 1102 35701 35746 "src/unix/lwt_io.ml" 1102 35701 35748
type(
  int
)
"src/unix/lwt_io.ml" 1102 35701 35739 "src/unix/lwt_io.ml" 1102 35701 35749
type(
  int
)
"src/unix/lwt_io.ml" 1102 35701 35712 "src/unix/lwt_io.ml" 1102 35701 35749
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1103 35751 35762 "src/unix/lwt_io.ml" 1103 35751 35765
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1103 35751 35766 "src/unix/lwt_io.ml" 1103 35751 35772
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1099 35584 35597 "src/unix/lwt_io.ml" 1099 35584 35603
)
"src/unix/lwt_io.ml" 1103 35751 35774 "src/unix/lwt_io.ml" 1103 35751 35777
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1099 35584 35604 "src/unix/lwt_io.ml" 1099 35584 35607
)
"src/unix/lwt_io.ml" 1103 35751 35778 "src/unix/lwt_io.ml" 1103 35751 35779
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1103 35751 35780 "src/unix/lwt_io.ml" 1103 35751 35787
type(
  int
)
ident(
  int_ref ByteOrder.pos32_3 "src/unix/lwt_io.ml" 640 20916 20920 "src/unix/lwt_io.ml" 640 20916 20937
)
"src/unix/lwt_io.ml" 1103 35751 35773 "src/unix/lwt_io.ml" 1103 35751 35788
type(
  int
)
"src/unix/lwt_io.ml" 1103 35751 35790 "src/unix/lwt_io.ml" 1103 35751 35791
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1097 35529 35550 "src/unix/lwt_io.ml" 1097 35529 35551
)
"src/unix/lwt_io.ml" 1103 35751 35792 "src/unix/lwt_io.ml" 1103 35751 35795
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( asr )
)
"src/unix/lwt_io.ml" 1103 35751 35796 "src/unix/lwt_io.ml" 1103 35751 35798
type(
  int
)
"src/unix/lwt_io.ml" 1103 35751 35789 "src/unix/lwt_io.ml" 1103 35751 35799
type(
  int
)
"src/unix/lwt_io.ml" 1103 35751 35762 "src/unix/lwt_io.ml" 1103 35751 35799
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1104 35801 35812 "src/unix/lwt_io.ml" 1104 35801 35827
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1103 35751 35762 "src/unix/lwt_io.ml" 1104 35801 35827
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1102 35701 35712 "src/unix/lwt_io.ml" 1104 35801 35827
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1101 35652 35663 "src/unix/lwt_io.ml" 1104 35801 35827
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1100 35611 35622 "src/unix/lwt_io.ml" 1104 35801 35827
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1099 35584 35592 "src/unix/lwt_io.ml" 1104 35801 35828
type(
  Lwt_bytes.t -> int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1098 35554 35560 "src/unix/lwt_io.ml" 1104 35801 35828
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1106 35830 35838 "src/unix/lwt_io.ml" 1106 35830 35849
type(
  'm1 _channel -> int -> unit Lwt.t
)
ident(
  def write_int16 "src/unix/lwt_io.ml" 1113 36033 36037 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1106 35830 35850 "src/unix/lwt_io.ml" 1106 35830 35852
type(
  'm1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1106 35830 35853 "src/unix/lwt_io.ml" 1111 36004 36031
)
"src/unix/lwt_io.ml" 1106 35830 35853 "src/unix/lwt_io.ml" 1106 35830 35854
type(
  int
)
ident(
  def v "src/unix/lwt_io.ml" 1107 35857 35863 "src/unix/lwt_io.ml" 1111 36004 36031
)
"src/unix/lwt_io.ml" 1107 35857 35863 "src/unix/lwt_io.ml" 1107 35857 35881
type(
  'm1 _channel -> int -> (Lwt_bytes.t -> int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  int_ref write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
)
"src/unix/lwt_io.ml" 1107 35857 35882 "src/unix/lwt_io.ml" 1107 35857 35884
type(
  'm1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1106 35830 35850 "src/unix/lwt_io.ml" 1106 35830 35852
)
"src/unix/lwt_io.ml" 1107 35857 35885 "src/unix/lwt_io.ml" 1107 35857 35886
type(
  int
)
"src/unix/lwt_io.ml" 1108 35887 35900 "src/unix/lwt_io.ml" 1108 35887 35906
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1108 35887 35907 "src/unix/lwt_io.ml" 1111 36004 36030
)
"src/unix/lwt_io.ml" 1108 35887 35907 "src/unix/lwt_io.ml" 1108 35887 35910
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1109 35914 35925 "src/unix/lwt_io.ml" 1111 36004 36030
)
"src/unix/lwt_io.ml" 1109 35914 35925 "src/unix/lwt_io.ml" 1109 35914 35928
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1109 35914 35929 "src/unix/lwt_io.ml" 1109 35914 35935
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1108 35887 35900 "src/unix/lwt_io.ml" 1108 35887 35906
)
"src/unix/lwt_io.ml" 1109 35914 35937 "src/unix/lwt_io.ml" 1109 35914 35940
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1108 35887 35907 "src/unix/lwt_io.ml" 1108 35887 35910
)
"src/unix/lwt_io.ml" 1109 35914 35941 "src/unix/lwt_io.ml" 1109 35914 35942
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1109 35914 35943 "src/unix/lwt_io.ml" 1109 35914 35950
type(
  int
)
ident(
  int_ref ByteOrder.pos16_0 "src/unix/lwt_io.ml" 635 20806 20810 "src/unix/lwt_io.ml" 635 20806 20827
)
"src/unix/lwt_io.ml" 1109 35914 35936 "src/unix/lwt_io.ml" 1109 35914 35951
type(
  int
)
"src/unix/lwt_io.ml" 1109 35914 35952 "src/unix/lwt_io.ml" 1109 35914 35953
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1106 35830 35853 "src/unix/lwt_io.ml" 1106 35830 35854
)
"src/unix/lwt_io.ml" 1109 35914 35925 "src/unix/lwt_io.ml" 1109 35914 35953
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1110 35955 35966 "src/unix/lwt_io.ml" 1110 35955 35969
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1110 35955 35970 "src/unix/lwt_io.ml" 1110 35955 35976
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1108 35887 35900 "src/unix/lwt_io.ml" 1108 35887 35906
)
"src/unix/lwt_io.ml" 1110 35955 35978 "src/unix/lwt_io.ml" 1110 35955 35981
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1108 35887 35907 "src/unix/lwt_io.ml" 1108 35887 35910
)
"src/unix/lwt_io.ml" 1110 35955 35982 "src/unix/lwt_io.ml" 1110 35955 35983
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1110 35955 35984 "src/unix/lwt_io.ml" 1110 35955 35991
type(
  int
)
ident(
  int_ref ByteOrder.pos16_1 "src/unix/lwt_io.ml" 636 20828 20832 "src/unix/lwt_io.ml" 636 20828 20849
)
"src/unix/lwt_io.ml" 1110 35955 35977 "src/unix/lwt_io.ml" 1110 35955 35992
type(
  int
)
"src/unix/lwt_io.ml" 1110 35955 35994 "src/unix/lwt_io.ml" 1110 35955 35995
type(
  int
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1106 35830 35853 "src/unix/lwt_io.ml" 1106 35830 35854
)
"src/unix/lwt_io.ml" 1110 35955 35996 "src/unix/lwt_io.ml" 1110 35955 35999
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( lsr )
)
"src/unix/lwt_io.ml" 1110 35955 36000 "src/unix/lwt_io.ml" 1110 35955 36001
type(
  int
)
"src/unix/lwt_io.ml" 1110 35955 35993 "src/unix/lwt_io.ml" 1110 35955 36002
type(
  int
)
"src/unix/lwt_io.ml" 1110 35955 35966 "src/unix/lwt_io.ml" 1110 35955 36002
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1111 36004 36015 "src/unix/lwt_io.ml" 1111 36004 36030
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1110 35955 35966 "src/unix/lwt_io.ml" 1111 36004 36030
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1109 35914 35925 "src/unix/lwt_io.ml" 1111 36004 36030
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1108 35887 35895 "src/unix/lwt_io.ml" 1111 36004 36031
type(
  Lwt_bytes.t -> int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1107 35857 35863 "src/unix/lwt_io.ml" 1111 36004 36031
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1113 36033 36041 "src/unix/lwt_io.ml" 1113 36033 36052
type(
  'n1 _channel -> int32 -> unit Lwt.t
)
ident(
  def write_int32 "src/unix/lwt_io.ml" 1122 36438 36442 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1113 36033 36053 "src/unix/lwt_io.ml" 1113 36033 36055
type(
  'n1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1113 36033 36056 "src/unix/lwt_io.ml" 1120 36409 36436
)
"src/unix/lwt_io.ml" 1113 36033 36056 "src/unix/lwt_io.ml" 1113 36033 36057
type(
  int32
)
ident(
  def v "src/unix/lwt_io.ml" 1114 36060 36066 "src/unix/lwt_io.ml" 1120 36409 36436
)
"src/unix/lwt_io.ml" 1114 36060 36066 "src/unix/lwt_io.ml" 1114 36060 36084
type(
  'n1 _channel -> int -> (Lwt_bytes.t -> int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  int_ref write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
)
"src/unix/lwt_io.ml" 1114 36060 36085 "src/unix/lwt_io.ml" 1114 36060 36087
type(
  'n1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1113 36033 36053 "src/unix/lwt_io.ml" 1113 36033 36055
)
"src/unix/lwt_io.ml" 1114 36060 36088 "src/unix/lwt_io.ml" 1114 36060 36089
type(
  int
)
"src/unix/lwt_io.ml" 1115 36090 36103 "src/unix/lwt_io.ml" 1115 36090 36109
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1115 36090 36110 "src/unix/lwt_io.ml" 1120 36409 36435
)
"src/unix/lwt_io.ml" 1115 36090 36110 "src/unix/lwt_io.ml" 1115 36090 36113
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1116 36117 36128 "src/unix/lwt_io.ml" 1120 36409 36435
)
"src/unix/lwt_io.ml" 1116 36117 36128 "src/unix/lwt_io.ml" 1116 36117 36131
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1116 36117 36132 "src/unix/lwt_io.ml" 1116 36117 36138
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1115 36090 36103 "src/unix/lwt_io.ml" 1115 36090 36109
)
"src/unix/lwt_io.ml" 1116 36117 36140 "src/unix/lwt_io.ml" 1116 36117 36143
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1115 36090 36110 "src/unix/lwt_io.ml" 1115 36090 36113
)
"src/unix/lwt_io.ml" 1116 36117 36144 "src/unix/lwt_io.ml" 1116 36117 36145
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1116 36117 36146 "src/unix/lwt_io.ml" 1116 36117 36153
type(
  int
)
ident(
  int_ref ByteOrder.pos32_0 "src/unix/lwt_io.ml" 637 20850 20854 "src/unix/lwt_io.ml" 637 20850 20871
)
"src/unix/lwt_io.ml" 1116 36117 36139 "src/unix/lwt_io.ml" 1116 36117 36154
type(
  int
)
"src/unix/lwt_io.ml" 1116 36117 36156 "src/unix/lwt_io.ml" 1116 36117 36168
type(
  int32 -> int
)
ident(
  ext_ref Int32.to_int
)
"src/unix/lwt_io.ml" 1116 36117 36169 "src/unix/lwt_io.ml" 1116 36117 36170
type(
  int32
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1113 36033 36056 "src/unix/lwt_io.ml" 1113 36033 36057
)
"src/unix/lwt_io.ml" 1116 36117 36155 "src/unix/lwt_io.ml" 1116 36117 36171
type(
  int
)
"src/unix/lwt_io.ml" 1116 36117 36128 "src/unix/lwt_io.ml" 1116 36117 36171
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1117 36173 36184 "src/unix/lwt_io.ml" 1117 36173 36187
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1117 36173 36188 "src/unix/lwt_io.ml" 1117 36173 36194
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1115 36090 36103 "src/unix/lwt_io.ml" 1115 36090 36109
)
"src/unix/lwt_io.ml" 1117 36173 36196 "src/unix/lwt_io.ml" 1117 36173 36199
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1115 36090 36110 "src/unix/lwt_io.ml" 1115 36090 36113
)
"src/unix/lwt_io.ml" 1117 36173 36200 "src/unix/lwt_io.ml" 1117 36173 36201
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1117 36173 36202 "src/unix/lwt_io.ml" 1117 36173 36209
type(
  int
)
ident(
  int_ref ByteOrder.pos32_1 "src/unix/lwt_io.ml" 638 20872 20876 "src/unix/lwt_io.ml" 638 20872 20893
)
"src/unix/lwt_io.ml" 1117 36173 36195 "src/unix/lwt_io.ml" 1117 36173 36210
type(
  int
)
"src/unix/lwt_io.ml" 1117 36173 36212 "src/unix/lwt_io.ml" 1117 36173 36224
type(
  int32 -> int
)
ident(
  ext_ref Int32.to_int
)
"src/unix/lwt_io.ml" 1117 36173 36226 "src/unix/lwt_io.ml" 1117 36173 36243
type(
  int32 -> int -> int32
)
ident(
  ext_ref Int32.shift_right
)
"src/unix/lwt_io.ml" 1117 36173 36244 "src/unix/lwt_io.ml" 1117 36173 36245
type(
  int32
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1113 36033 36056 "src/unix/lwt_io.ml" 1113 36033 36057
)
"src/unix/lwt_io.ml" 1117 36173 36246 "src/unix/lwt_io.ml" 1117 36173 36247
type(
  int
)
"src/unix/lwt_io.ml" 1117 36173 36225 "src/unix/lwt_io.ml" 1117 36173 36248
type(
  int32
)
"src/unix/lwt_io.ml" 1117 36173 36211 "src/unix/lwt_io.ml" 1117 36173 36249
type(
  int
)
"src/unix/lwt_io.ml" 1117 36173 36184 "src/unix/lwt_io.ml" 1117 36173 36249
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1118 36251 36262 "src/unix/lwt_io.ml" 1118 36251 36265
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1118 36251 36266 "src/unix/lwt_io.ml" 1118 36251 36272
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1115 36090 36103 "src/unix/lwt_io.ml" 1115 36090 36109
)
"src/unix/lwt_io.ml" 1118 36251 36274 "src/unix/lwt_io.ml" 1118 36251 36277
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1115 36090 36110 "src/unix/lwt_io.ml" 1115 36090 36113
)
"src/unix/lwt_io.ml" 1118 36251 36278 "src/unix/lwt_io.ml" 1118 36251 36279
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1118 36251 36280 "src/unix/lwt_io.ml" 1118 36251 36287
type(
  int
)
ident(
  int_ref ByteOrder.pos32_2 "src/unix/lwt_io.ml" 639 20894 20898 "src/unix/lwt_io.ml" 639 20894 20915
)
"src/unix/lwt_io.ml" 1118 36251 36273 "src/unix/lwt_io.ml" 1118 36251 36288
type(
  int
)
"src/unix/lwt_io.ml" 1118 36251 36290 "src/unix/lwt_io.ml" 1118 36251 36302
type(
  int32 -> int
)
ident(
  ext_ref Int32.to_int
)
"src/unix/lwt_io.ml" 1118 36251 36304 "src/unix/lwt_io.ml" 1118 36251 36321
type(
  int32 -> int -> int32
)
ident(
  ext_ref Int32.shift_right
)
"src/unix/lwt_io.ml" 1118 36251 36322 "src/unix/lwt_io.ml" 1118 36251 36323
type(
  int32
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1113 36033 36056 "src/unix/lwt_io.ml" 1113 36033 36057
)
"src/unix/lwt_io.ml" 1118 36251 36324 "src/unix/lwt_io.ml" 1118 36251 36326
type(
  int
)
"src/unix/lwt_io.ml" 1118 36251 36303 "src/unix/lwt_io.ml" 1118 36251 36327
type(
  int32
)
"src/unix/lwt_io.ml" 1118 36251 36289 "src/unix/lwt_io.ml" 1118 36251 36328
type(
  int
)
"src/unix/lwt_io.ml" 1118 36251 36262 "src/unix/lwt_io.ml" 1118 36251 36328
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1119 36330 36341 "src/unix/lwt_io.ml" 1119 36330 36344
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1119 36330 36345 "src/unix/lwt_io.ml" 1119 36330 36351
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1115 36090 36103 "src/unix/lwt_io.ml" 1115 36090 36109
)
"src/unix/lwt_io.ml" 1119 36330 36353 "src/unix/lwt_io.ml" 1119 36330 36356
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1115 36090 36110 "src/unix/lwt_io.ml" 1115 36090 36113
)
"src/unix/lwt_io.ml" 1119 36330 36357 "src/unix/lwt_io.ml" 1119 36330 36358
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1119 36330 36359 "src/unix/lwt_io.ml" 1119 36330 36366
type(
  int
)
ident(
  int_ref ByteOrder.pos32_3 "src/unix/lwt_io.ml" 640 20916 20920 "src/unix/lwt_io.ml" 640 20916 20937
)
"src/unix/lwt_io.ml" 1119 36330 36352 "src/unix/lwt_io.ml" 1119 36330 36367
type(
  int
)
"src/unix/lwt_io.ml" 1119 36330 36369 "src/unix/lwt_io.ml" 1119 36330 36381
type(
  int32 -> int
)
ident(
  ext_ref Int32.to_int
)
"src/unix/lwt_io.ml" 1119 36330 36383 "src/unix/lwt_io.ml" 1119 36330 36400
type(
  int32 -> int -> int32
)
ident(
  ext_ref Int32.shift_right
)
"src/unix/lwt_io.ml" 1119 36330 36401 "src/unix/lwt_io.ml" 1119 36330 36402
type(
  int32
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1113 36033 36056 "src/unix/lwt_io.ml" 1113 36033 36057
)
"src/unix/lwt_io.ml" 1119 36330 36403 "src/unix/lwt_io.ml" 1119 36330 36405
type(
  int
)
"src/unix/lwt_io.ml" 1119 36330 36382 "src/unix/lwt_io.ml" 1119 36330 36406
type(
  int32
)
"src/unix/lwt_io.ml" 1119 36330 36368 "src/unix/lwt_io.ml" 1119 36330 36407
type(
  int
)
"src/unix/lwt_io.ml" 1119 36330 36341 "src/unix/lwt_io.ml" 1119 36330 36407
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1120 36409 36420 "src/unix/lwt_io.ml" 1120 36409 36435
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1119 36330 36341 "src/unix/lwt_io.ml" 1120 36409 36435
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1118 36251 36262 "src/unix/lwt_io.ml" 1120 36409 36435
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1117 36173 36184 "src/unix/lwt_io.ml" 1120 36409 36435
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1116 36117 36128 "src/unix/lwt_io.ml" 1120 36409 36435
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1115 36090 36098 "src/unix/lwt_io.ml" 1120 36409 36436
type(
  Lwt_bytes.t -> int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1114 36060 36066 "src/unix/lwt_io.ml" 1120 36409 36436
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1122 36438 36446 "src/unix/lwt_io.ml" 1122 36438 36457
type(
  'o1 _channel -> int64 -> unit Lwt.t
)
ident(
  def write_int64 "src/unix/lwt_io.ml" 1135 37159 37163 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1122 36438 36458 "src/unix/lwt_io.ml" 1122 36438 36460
type(
  'o1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1133 37130 37157
)
"src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
type(
  int64
)
ident(
  def v "src/unix/lwt_io.ml" 1123 36465 36471 "src/unix/lwt_io.ml" 1133 37130 37157
)
"src/unix/lwt_io.ml" 1123 36465 36471 "src/unix/lwt_io.ml" 1123 36465 36489
type(
  'o1 _channel -> int -> (Lwt_bytes.t -> int -> unit Lwt.t) -> unit Lwt.t
)
ident(
  int_ref write_block_unsafe "src/unix/lwt_io.ml" 956 30284 30294 "src/unix/lwt_io.ml" 956 30284 30312
)
"src/unix/lwt_io.ml" 1123 36465 36490 "src/unix/lwt_io.ml" 1123 36465 36492
type(
  'o1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1122 36438 36458 "src/unix/lwt_io.ml" 1122 36438 36460
)
"src/unix/lwt_io.ml" 1123 36465 36493 "src/unix/lwt_io.ml" 1123 36465 36494
type(
  int
)
"src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
type(
  Lwt_bytes.t
)
ident(
  def buffer "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1133 37130 37156
)
"src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1125 36522 36533 "src/unix/lwt_io.ml" 1133 37130 37156
)
"src/unix/lwt_io.ml" 1125 36522 36533 "src/unix/lwt_io.ml" 1125 36522 36536
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1125 36522 36537 "src/unix/lwt_io.ml" 1125 36522 36543
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1125 36522 36545 "src/unix/lwt_io.ml" 1125 36522 36548
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1125 36522 36549 "src/unix/lwt_io.ml" 1125 36522 36550
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1125 36522 36551 "src/unix/lwt_io.ml" 1125 36522 36558
type(
  int
)
ident(
  int_ref ByteOrder.pos64_0 "src/unix/lwt_io.ml" 641 20938 20942 "src/unix/lwt_io.ml" 641 20938 20959
)
"src/unix/lwt_io.ml" 1125 36522 36544 "src/unix/lwt_io.ml" 1125 36522 36559
type(
  int
)
"src/unix/lwt_io.ml" 1125 36522 36561 "src/unix/lwt_io.ml" 1125 36522 36573
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1125 36522 36574 "src/unix/lwt_io.ml" 1125 36522 36575
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1125 36522 36560 "src/unix/lwt_io.ml" 1125 36522 36576
type(
  int
)
"src/unix/lwt_io.ml" 1125 36522 36533 "src/unix/lwt_io.ml" 1125 36522 36576
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1126 36578 36589 "src/unix/lwt_io.ml" 1126 36578 36592
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1126 36578 36593 "src/unix/lwt_io.ml" 1126 36578 36599
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1126 36578 36601 "src/unix/lwt_io.ml" 1126 36578 36604
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1126 36578 36605 "src/unix/lwt_io.ml" 1126 36578 36606
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1126 36578 36607 "src/unix/lwt_io.ml" 1126 36578 36614
type(
  int
)
ident(
  int_ref ByteOrder.pos64_1 "src/unix/lwt_io.ml" 642 20960 20964 "src/unix/lwt_io.ml" 642 20960 20981
)
"src/unix/lwt_io.ml" 1126 36578 36600 "src/unix/lwt_io.ml" 1126 36578 36615
type(
  int
)
"src/unix/lwt_io.ml" 1126 36578 36617 "src/unix/lwt_io.ml" 1126 36578 36629
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1126 36578 36631 "src/unix/lwt_io.ml" 1126 36578 36648
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1126 36578 36649 "src/unix/lwt_io.ml" 1126 36578 36650
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1126 36578 36651 "src/unix/lwt_io.ml" 1126 36578 36652
type(
  int
)
"src/unix/lwt_io.ml" 1126 36578 36630 "src/unix/lwt_io.ml" 1126 36578 36653
type(
  int64
)
"src/unix/lwt_io.ml" 1126 36578 36616 "src/unix/lwt_io.ml" 1126 36578 36654
type(
  int
)
"src/unix/lwt_io.ml" 1126 36578 36589 "src/unix/lwt_io.ml" 1126 36578 36654
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1127 36656 36667 "src/unix/lwt_io.ml" 1127 36656 36670
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1127 36656 36671 "src/unix/lwt_io.ml" 1127 36656 36677
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1127 36656 36679 "src/unix/lwt_io.ml" 1127 36656 36682
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1127 36656 36683 "src/unix/lwt_io.ml" 1127 36656 36684
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1127 36656 36685 "src/unix/lwt_io.ml" 1127 36656 36692
type(
  int
)
ident(
  int_ref ByteOrder.pos64_2 "src/unix/lwt_io.ml" 643 20982 20986 "src/unix/lwt_io.ml" 643 20982 21003
)
"src/unix/lwt_io.ml" 1127 36656 36678 "src/unix/lwt_io.ml" 1127 36656 36693
type(
  int
)
"src/unix/lwt_io.ml" 1127 36656 36695 "src/unix/lwt_io.ml" 1127 36656 36707
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1127 36656 36709 "src/unix/lwt_io.ml" 1127 36656 36726
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1127 36656 36727 "src/unix/lwt_io.ml" 1127 36656 36728
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1127 36656 36729 "src/unix/lwt_io.ml" 1127 36656 36731
type(
  int
)
"src/unix/lwt_io.ml" 1127 36656 36708 "src/unix/lwt_io.ml" 1127 36656 36732
type(
  int64
)
"src/unix/lwt_io.ml" 1127 36656 36694 "src/unix/lwt_io.ml" 1127 36656 36733
type(
  int
)
"src/unix/lwt_io.ml" 1127 36656 36667 "src/unix/lwt_io.ml" 1127 36656 36733
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1128 36735 36746 "src/unix/lwt_io.ml" 1128 36735 36749
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1128 36735 36750 "src/unix/lwt_io.ml" 1128 36735 36756
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1128 36735 36758 "src/unix/lwt_io.ml" 1128 36735 36761
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1128 36735 36762 "src/unix/lwt_io.ml" 1128 36735 36763
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1128 36735 36764 "src/unix/lwt_io.ml" 1128 36735 36771
type(
  int
)
ident(
  int_ref ByteOrder.pos64_3 "src/unix/lwt_io.ml" 644 21004 21008 "src/unix/lwt_io.ml" 644 21004 21025
)
"src/unix/lwt_io.ml" 1128 36735 36757 "src/unix/lwt_io.ml" 1128 36735 36772
type(
  int
)
"src/unix/lwt_io.ml" 1128 36735 36774 "src/unix/lwt_io.ml" 1128 36735 36786
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1128 36735 36788 "src/unix/lwt_io.ml" 1128 36735 36805
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1128 36735 36806 "src/unix/lwt_io.ml" 1128 36735 36807
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1128 36735 36808 "src/unix/lwt_io.ml" 1128 36735 36810
type(
  int
)
"src/unix/lwt_io.ml" 1128 36735 36787 "src/unix/lwt_io.ml" 1128 36735 36811
type(
  int64
)
"src/unix/lwt_io.ml" 1128 36735 36773 "src/unix/lwt_io.ml" 1128 36735 36812
type(
  int
)
"src/unix/lwt_io.ml" 1128 36735 36746 "src/unix/lwt_io.ml" 1128 36735 36812
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1129 36814 36825 "src/unix/lwt_io.ml" 1129 36814 36828
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1129 36814 36829 "src/unix/lwt_io.ml" 1129 36814 36835
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1129 36814 36837 "src/unix/lwt_io.ml" 1129 36814 36840
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1129 36814 36841 "src/unix/lwt_io.ml" 1129 36814 36842
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1129 36814 36843 "src/unix/lwt_io.ml" 1129 36814 36850
type(
  int
)
ident(
  int_ref ByteOrder.pos64_4 "src/unix/lwt_io.ml" 645 21026 21030 "src/unix/lwt_io.ml" 645 21026 21047
)
"src/unix/lwt_io.ml" 1129 36814 36836 "src/unix/lwt_io.ml" 1129 36814 36851
type(
  int
)
"src/unix/lwt_io.ml" 1129 36814 36853 "src/unix/lwt_io.ml" 1129 36814 36865
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1129 36814 36867 "src/unix/lwt_io.ml" 1129 36814 36884
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1129 36814 36885 "src/unix/lwt_io.ml" 1129 36814 36886
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1129 36814 36887 "src/unix/lwt_io.ml" 1129 36814 36889
type(
  int
)
"src/unix/lwt_io.ml" 1129 36814 36866 "src/unix/lwt_io.ml" 1129 36814 36890
type(
  int64
)
"src/unix/lwt_io.ml" 1129 36814 36852 "src/unix/lwt_io.ml" 1129 36814 36891
type(
  int
)
"src/unix/lwt_io.ml" 1129 36814 36825 "src/unix/lwt_io.ml" 1129 36814 36891
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1130 36893 36904 "src/unix/lwt_io.ml" 1130 36893 36907
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1130 36893 36908 "src/unix/lwt_io.ml" 1130 36893 36914
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1130 36893 36916 "src/unix/lwt_io.ml" 1130 36893 36919
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1130 36893 36920 "src/unix/lwt_io.ml" 1130 36893 36921
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1130 36893 36922 "src/unix/lwt_io.ml" 1130 36893 36929
type(
  int
)
ident(
  int_ref ByteOrder.pos64_5 "src/unix/lwt_io.ml" 646 21048 21052 "src/unix/lwt_io.ml" 646 21048 21069
)
"src/unix/lwt_io.ml" 1130 36893 36915 "src/unix/lwt_io.ml" 1130 36893 36930
type(
  int
)
"src/unix/lwt_io.ml" 1130 36893 36932 "src/unix/lwt_io.ml" 1130 36893 36944
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1130 36893 36946 "src/unix/lwt_io.ml" 1130 36893 36963
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1130 36893 36964 "src/unix/lwt_io.ml" 1130 36893 36965
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1130 36893 36966 "src/unix/lwt_io.ml" 1130 36893 36968
type(
  int
)
"src/unix/lwt_io.ml" 1130 36893 36945 "src/unix/lwt_io.ml" 1130 36893 36969
type(
  int64
)
"src/unix/lwt_io.ml" 1130 36893 36931 "src/unix/lwt_io.ml" 1130 36893 36970
type(
  int
)
"src/unix/lwt_io.ml" 1130 36893 36904 "src/unix/lwt_io.ml" 1130 36893 36970
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1131 36972 36983 "src/unix/lwt_io.ml" 1131 36972 36986
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1131 36972 36987 "src/unix/lwt_io.ml" 1131 36972 36993
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1131 36972 36995 "src/unix/lwt_io.ml" 1131 36972 36998
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1131 36972 36999 "src/unix/lwt_io.ml" 1131 36972 37000
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1131 36972 37001 "src/unix/lwt_io.ml" 1131 36972 37008
type(
  int
)
ident(
  int_ref ByteOrder.pos64_6 "src/unix/lwt_io.ml" 647 21070 21074 "src/unix/lwt_io.ml" 647 21070 21091
)
"src/unix/lwt_io.ml" 1131 36972 36994 "src/unix/lwt_io.ml" 1131 36972 37009
type(
  int
)
"src/unix/lwt_io.ml" 1131 36972 37011 "src/unix/lwt_io.ml" 1131 36972 37023
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1131 36972 37025 "src/unix/lwt_io.ml" 1131 36972 37042
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1131 36972 37043 "src/unix/lwt_io.ml" 1131 36972 37044
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1131 36972 37045 "src/unix/lwt_io.ml" 1131 36972 37047
type(
  int
)
"src/unix/lwt_io.ml" 1131 36972 37024 "src/unix/lwt_io.ml" 1131 36972 37048
type(
  int64
)
"src/unix/lwt_io.ml" 1131 36972 37010 "src/unix/lwt_io.ml" 1131 36972 37049
type(
  int
)
"src/unix/lwt_io.ml" 1131 36972 36983 "src/unix/lwt_io.ml" 1131 36972 37049
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1132 37051 37062 "src/unix/lwt_io.ml" 1132 37051 37065
type(
  Lwt_bytes.t -> int -> int -> unit
)
ident(
  int_ref set "src/unix/lwt_io.ml" 1095 35449 35457 "src/unix/lwt_io.ml" 1095 35449 35460
)
"src/unix/lwt_io.ml" 1132 37051 37066 "src/unix/lwt_io.ml" 1132 37051 37072
type(
  Lwt_bytes.t
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1124 36495 36508 "src/unix/lwt_io.ml" 1124 36495 36514
)
"src/unix/lwt_io.ml" 1132 37051 37074 "src/unix/lwt_io.ml" 1132 37051 37077
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1124 36495 36515 "src/unix/lwt_io.ml" 1124 36495 36518
)
"src/unix/lwt_io.ml" 1132 37051 37078 "src/unix/lwt_io.ml" 1132 37051 37079
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1132 37051 37080 "src/unix/lwt_io.ml" 1132 37051 37087
type(
  int
)
ident(
  int_ref ByteOrder.pos64_7 "src/unix/lwt_io.ml" 648 21092 21096 "src/unix/lwt_io.ml" 648 21092 21113
)
"src/unix/lwt_io.ml" 1132 37051 37073 "src/unix/lwt_io.ml" 1132 37051 37088
type(
  int
)
"src/unix/lwt_io.ml" 1132 37051 37090 "src/unix/lwt_io.ml" 1132 37051 37102
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1132 37051 37104 "src/unix/lwt_io.ml" 1132 37051 37121
type(
  int64 -> int -> int64
)
ident(
  ext_ref Int64.shift_right
)
"src/unix/lwt_io.ml" 1132 37051 37122 "src/unix/lwt_io.ml" 1132 37051 37123
type(
  int64
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1122 36438 36461 "src/unix/lwt_io.ml" 1122 36438 36462
)
"src/unix/lwt_io.ml" 1132 37051 37124 "src/unix/lwt_io.ml" 1132 37051 37126
type(
  int
)
"src/unix/lwt_io.ml" 1132 37051 37103 "src/unix/lwt_io.ml" 1132 37051 37127
type(
  int64
)
"src/unix/lwt_io.ml" 1132 37051 37089 "src/unix/lwt_io.ml" 1132 37051 37128
type(
  int
)
"src/unix/lwt_io.ml" 1132 37051 37062 "src/unix/lwt_io.ml" 1132 37051 37128
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1133 37130 37141 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1132 37051 37062 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1131 36972 36983 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1130 36893 36904 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1129 36814 36825 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1128 36735 36746 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1127 36656 36667 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1126 36578 36589 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1125 36522 36533 "src/unix/lwt_io.ml" 1133 37130 37156
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1124 36495 36503 "src/unix/lwt_io.ml" 1133 37130 37157
type(
  Lwt_bytes.t -> int -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1123 36465 36471 "src/unix/lwt_io.ml" 1133 37130 37157
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1135 37159 37167 "src/unix/lwt_io.ml" 1135 37159 37180
type(
  'p1 _channel -> float -> unit Lwt.t
)
ident(
  def write_float32 "src/unix/lwt_io.ml" 1136 37227 37231 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1135 37159 37181 "src/unix/lwt_io.ml" 1135 37159 37183
type(
  'p1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1135 37159 37184 "src/unix/lwt_io.ml" 1135 37159 37226
)
"src/unix/lwt_io.ml" 1135 37159 37184 "src/unix/lwt_io.ml" 1135 37159 37185
type(
  float
)
ident(
  def v "src/unix/lwt_io.ml" 1135 37159 37188 "src/unix/lwt_io.ml" 1135 37159 37226
)
"src/unix/lwt_io.ml" 1135 37159 37188 "src/unix/lwt_io.ml" 1135 37159 37199
type(
  'p1 _channel -> int32 -> unit Lwt.t
)
ident(
  int_ref write_int32 "src/unix/lwt_io.ml" 1113 36033 36041 "src/unix/lwt_io.ml" 1113 36033 36052
)
"src/unix/lwt_io.ml" 1135 37159 37200 "src/unix/lwt_io.ml" 1135 37159 37202
type(
  'p1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1135 37159 37181 "src/unix/lwt_io.ml" 1135 37159 37183
)
"src/unix/lwt_io.ml" 1135 37159 37204 "src/unix/lwt_io.ml" 1135 37159 37223
type(
  float -> int32
)
ident(
  ext_ref Int32.bits_of_float
)
"src/unix/lwt_io.ml" 1135 37159 37224 "src/unix/lwt_io.ml" 1135 37159 37225
type(
  float
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1135 37159 37184 "src/unix/lwt_io.ml" 1135 37159 37185
)
"src/unix/lwt_io.ml" 1135 37159 37203 "src/unix/lwt_io.ml" 1135 37159 37226
type(
  int32
)
"src/unix/lwt_io.ml" 1135 37159 37188 "src/unix/lwt_io.ml" 1135 37159 37226
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1136 37227 37235 "src/unix/lwt_io.ml" 1136 37227 37248
type(
  'q1 _channel -> float -> unit Lwt.t
)
ident(
  def write_float64 "src/unix/lwt_io.ml" 1136 37227 37294 "src/unix/lwt_io.ml" 1137 37295 37300
)
"src/unix/lwt_io.ml" 1136 37227 37249 "src/unix/lwt_io.ml" 1136 37227 37251
type(
  'q1 _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1136 37227 37252 "src/unix/lwt_io.ml" 1136 37227 37294
)
"src/unix/lwt_io.ml" 1136 37227 37252 "src/unix/lwt_io.ml" 1136 37227 37253
type(
  float
)
ident(
  def v "src/unix/lwt_io.ml" 1136 37227 37256 "src/unix/lwt_io.ml" 1136 37227 37294
)
"src/unix/lwt_io.ml" 1136 37227 37256 "src/unix/lwt_io.ml" 1136 37227 37267
type(
  'q1 _channel -> int64 -> unit Lwt.t
)
ident(
  int_ref write_int64 "src/unix/lwt_io.ml" 1122 36438 36446 "src/unix/lwt_io.ml" 1122 36438 36457
)
"src/unix/lwt_io.ml" 1136 37227 37268 "src/unix/lwt_io.ml" 1136 37227 37270
type(
  'q1 _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1136 37227 37249 "src/unix/lwt_io.ml" 1136 37227 37251
)
"src/unix/lwt_io.ml" 1136 37227 37272 "src/unix/lwt_io.ml" 1136 37227 37291
type(
  float -> int64
)
ident(
  ext_ref Int64.bits_of_float
)
"src/unix/lwt_io.ml" 1136 37227 37292 "src/unix/lwt_io.ml" 1136 37227 37293
type(
  float
)
ident(
  int_ref v "src/unix/lwt_io.ml" 1136 37227 37252 "src/unix/lwt_io.ml" 1136 37227 37253
)
"src/unix/lwt_io.ml" 1136 37227 37271 "src/unix/lwt_io.ml" 1136 37227 37294
type(
  int64
)
"src/unix/lwt_io.ml" 1136 37227 37256 "src/unix/lwt_io.ml" 1136 37227 37294
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1143 37519 37525 "src/unix/lwt_io.ml" 1143 37519 37532
type(
  ('r1 -> Unix.seek_command -> 'r1 Lwt.t) -> 'r1 -> unit Lwt.t
)
ident(
  def do_seek "src/unix/lwt_io.ml" 1150 37707 37709 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 1143 37519 37533 "src/unix/lwt_io.ml" 1143 37519 37537
type(
  'r1 -> Unix.seek_command -> 'r1 Lwt.t
)
ident(
  def seek "src/unix/lwt_io.ml" 1143 37519 37538 "src/unix/lwt_io.ml" 1148 37684 37705
)
"src/unix/lwt_io.ml" 1143 37519 37538 "src/unix/lwt_io.ml" 1143 37519 37541
type(
  'r1
)
ident(
  def pos "src/unix/lwt_io.ml" 1144 37544 37548 "src/unix/lwt_io.ml" 1148 37684 37705
)
"src/unix/lwt_io.ml" 1144 37544 37548 "src/unix/lwt_io.ml" 1144 37544 37552
type(
  'r1 -> Unix.seek_command -> 'r1 Lwt.t
)
ident(
  int_ref seek "src/unix/lwt_io.ml" 1143 37519 37533 "src/unix/lwt_io.ml" 1143 37519 37537
)
"src/unix/lwt_io.ml" 1144 37544 37553 "src/unix/lwt_io.ml" 1144 37544 37556
type(
  'r1
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1143 37519 37538 "src/unix/lwt_io.ml" 1143 37519 37541
)
"src/unix/lwt_io.ml" 1144 37544 37557 "src/unix/lwt_io.ml" 1144 37544 37570
type(
  Unix.seek_command
)
"src/unix/lwt_io.ml" 1144 37544 37548 "src/unix/lwt_io.ml" 1144 37544 37570
call(
  stack
)
type(
  'r1 Lwt.t
)
"src/unix/lwt_io.ml" 1144 37544 37571 "src/unix/lwt_io.ml" 1144 37544 37574
type(
  'r1 Lwt.t -> ('r1 -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1144 37544 37579 "src/unix/lwt_io.ml" 1144 37544 37585
type(
  'r1
)
ident(
  def offset "src/unix/lwt_io.ml" 1145 37589 37593 "src/unix/lwt_io.ml" 1148 37684 37705
)
"src/unix/lwt_io.ml" 1145 37589 37596 "src/unix/lwt_io.ml" 1145 37589 37602
type(
  'r1
)
ident(
  int_ref offset "src/unix/lwt_io.ml" 1144 37544 37579 "src/unix/lwt_io.ml" 1144 37544 37585
)
"src/unix/lwt_io.ml" 1145 37589 37603 "src/unix/lwt_io.ml" 1145 37589 37605
type(
  'r1 -> 'r1 -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/unix/lwt_io.ml" 1145 37589 37606 "src/unix/lwt_io.ml" 1145 37589 37609
type(
  'r1
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1143 37519 37538 "src/unix/lwt_io.ml" 1143 37519 37541
)
"src/unix/lwt_io.ml" 1145 37589 37596 "src/unix/lwt_io.ml" 1145 37589 37609
type(
  bool
)
"src/unix/lwt_io.ml" 1146 37615 37621 "src/unix/lwt_io.ml" 1146 37615 37629
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 1146 37615 37639 "src/unix/lwt_io.ml" 1146 37615 37673
type(
  string
)
"src/unix/lwt_io.ml" 1146 37615 37630 "src/unix/lwt_io.ml" 1146 37615 37674
type(
  exn
)
"src/unix/lwt_io.ml" 1146 37615 37621 "src/unix/lwt_io.ml" 1146 37615 37674
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1148 37684 37690 "src/unix/lwt_io.ml" 1148 37684 37705
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1145 37589 37593 "src/unix/lwt_io.ml" 1148 37684 37705
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1144 37544 37575 "src/unix/lwt_io.ml" 1148 37684 37705
type(
  'r1 -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1144 37544 37548 "src/unix/lwt_io.ml" 1148 37684 37705
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1150 37707 37713 "src/unix/lwt_io.ml" 1150 37707 37725
type(
  'm2. 'm2 _channel -> int64 -> unit Lwt.t
)
ident(
  def set_position "src/unix/lwt_io.ml" 1176 38664 38666 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
type(
  m _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1174 38651 38662
)
"src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
type(
  int64
)
ident(
  def pos "src/unix/lwt_io.ml" 1150 37707 37786 "src/unix/lwt_io.ml" 1174 38651 38662
)
"src/unix/lwt_io.ml" 1150 37707 37792 "src/unix/lwt_io.ml" 1150 37707 37794
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1150 37707 37792 "src/unix/lwt_io.ml" 1150 37707 37798
type(
  typ
)
"src/unix/lwt_io.ml" 1150 37707 37800 "src/unix/lwt_io.ml" 1150 37707 37802
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1150 37707 37800 "src/unix/lwt_io.ml" 1150 37707 37807
type(
  m mode
)
"src/unix/lwt_io.ml" 1150 37707 37792 "src/unix/lwt_io.ml" 1150 37707 37807
type(
  typ * m mode
)
"src/unix/lwt_io.ml" 1151 37813 37831 "src/unix/lwt_io.ml" 1151 37813 37832
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1151 37813 37834 "src/unix/lwt_io.ml" 1151 37813 37838
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  def seek "src/unix/lwt_io.ml" 1152 37851 37859 "src/unix/lwt_io.ml" 1155 37953 37976
)
"src/unix/lwt_io.ml" 1151 37813 37819 "src/unix/lwt_io.ml" 1151 37813 37839
type(
  typ
)
"src/unix/lwt_io.ml" 1151 37813 37841 "src/unix/lwt_io.ml" 1151 37813 37847
type(
  m mode
)
"src/unix/lwt_io.ml" 1151 37813 37819 "src/unix/lwt_io.ml" 1151 37813 37847
type(
  typ * m mode
)
"src/unix/lwt_io.ml" 1152 37851 37859 "src/unix/lwt_io.ml" 1152 37851 37870
type(
  m _channel -> unit Lwt.t
)
ident(
  int_ref flush_total "src/unix/lwt_io.ml" 268 8560 8568 "src/unix/lwt_io.ml" 268 8560 8579
)
"src/unix/lwt_io.ml" 1152 37851 37871 "src/unix/lwt_io.ml" 1152 37851 37873
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1152 37851 37859 "src/unix/lwt_io.ml" 1152 37851 37873
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1152 37851 37874 "src/unix/lwt_io.ml" 1152 37851 37877
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1152 37851 37882 "src/unix/lwt_io.ml" 1152 37851 37884
type(
  unit
)
"src/unix/lwt_io.ml" 1153 37888 37896 "src/unix/lwt_io.ml" 1153 37888 37903
type(
  (int64 -> Unix.seek_command -> int64 Lwt.t) -> int64 -> unit Lwt.t
)
ident(
  int_ref do_seek "src/unix/lwt_io.ml" 1143 37519 37525 "src/unix/lwt_io.ml" 1143 37519 37532
)
"src/unix/lwt_io.ml" 1153 37888 37904 "src/unix/lwt_io.ml" 1153 37888 37908
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref seek "src/unix/lwt_io.ml" 1151 37813 37834 "src/unix/lwt_io.ml" 1151 37813 37838
)
"src/unix/lwt_io.ml" 1153 37888 37909 "src/unix/lwt_io.ml" 1153 37888 37912
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1153 37888 37896 "src/unix/lwt_io.ml" 1153 37888 37912
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1153 37888 37913 "src/unix/lwt_io.ml" 1153 37888 37916
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1153 37888 37921 "src/unix/lwt_io.ml" 1153 37888 37923
type(
  unit
)
"src/unix/lwt_io.ml" 1154 37927 37935 "src/unix/lwt_io.ml" 1154 37927 37937
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1154 37927 37948 "src/unix/lwt_io.ml" 1154 37927 37951
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1154 37927 37935 "src/unix/lwt_io.ml" 1154 37927 37951
type(
  unit
)
"src/unix/lwt_io.ml" 1155 37953 37961 "src/unix/lwt_io.ml" 1155 37953 37976
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1154 37927 37935 "src/unix/lwt_io.ml" 1155 37953 37976
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1153 37888 37917 "src/unix/lwt_io.ml" 1155 37953 37976
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1153 37888 37896 "src/unix/lwt_io.ml" 1155 37953 37976
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1152 37851 37878 "src/unix/lwt_io.ml" 1155 37953 37976
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1152 37851 37859 "src/unix/lwt_io.ml" 1155 37953 37976
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1156 37977 37995 "src/unix/lwt_io.ml" 1156 37977 37996
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1156 37977 37998 "src/unix/lwt_io.ml" 1156 37977 38002
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  def seek "src/unix/lwt_io.ml" 1157 38014 38022 "src/unix/lwt_io.ml" 1167 38410 38421
)
"src/unix/lwt_io.ml" 1156 37977 37983 "src/unix/lwt_io.ml" 1156 37977 38003
type(
  typ
)
"src/unix/lwt_io.ml" 1156 37977 38005 "src/unix/lwt_io.ml" 1156 37977 38010
type(
  m mode
)
"src/unix/lwt_io.ml" 1156 37977 37983 "src/unix/lwt_io.ml" 1156 37977 38010
type(
  typ * m mode
)
"src/unix/lwt_io.ml" 1157 38014 38026 "src/unix/lwt_io.ml" 1157 38014 38033
type(
  int64
)
ident(
  def current "src/unix/lwt_io.ml" 1158 38092 38100 "src/unix/lwt_io.ml" 1167 38410 38421
)
"src/unix/lwt_io.ml" 1157 38014 38036 "src/unix/lwt_io.ml" 1157 38014 38045
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.sub
)
"src/unix/lwt_io.ml" 1157 38014 38046 "src/unix/lwt_io.ml" 1157 38014 38048
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1157 38014 38046 "src/unix/lwt_io.ml" 1157 38014 38055
type(
  int64
)
"src/unix/lwt_io.ml" 1157 38014 38057 "src/unix/lwt_io.ml" 1157 38014 38069
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1157 38014 38071 "src/unix/lwt_io.ml" 1157 38014 38073
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1157 38014 38071 "src/unix/lwt_io.ml" 1157 38014 38077
type(
  int
)
"src/unix/lwt_io.ml" 1157 38014 38078 "src/unix/lwt_io.ml" 1157 38014 38079
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 1157 38014 38080 "src/unix/lwt_io.ml" 1157 38014 38082
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1157 38014 38080 "src/unix/lwt_io.ml" 1157 38014 38086
type(
  int
)
"src/unix/lwt_io.ml" 1157 38014 38070 "src/unix/lwt_io.ml" 1157 38014 38087
type(
  int
)
"src/unix/lwt_io.ml" 1157 38014 38056 "src/unix/lwt_io.ml" 1157 38014 38088
type(
  int64
)
"src/unix/lwt_io.ml" 1157 38014 38036 "src/unix/lwt_io.ml" 1157 38014 38088
type(
  int64
)
"src/unix/lwt_io.ml" 1158 38092 38103 "src/unix/lwt_io.ml" 1158 38092 38106
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1158 38092 38107 "src/unix/lwt_io.ml" 1158 38092 38109
type(
  int64 -> int64 -> bool
)
ident(
  ext_ref Pervasives.( >= )
)
"src/unix/lwt_io.ml" 1158 38092 38110 "src/unix/lwt_io.ml" 1158 38092 38117
type(
  int64
)
ident(
  int_ref current "src/unix/lwt_io.ml" 1157 38014 38026 "src/unix/lwt_io.ml" 1157 38014 38033
)
"src/unix/lwt_io.ml" 1158 38092 38103 "src/unix/lwt_io.ml" 1158 38092 38117
type(
  bool
)
"src/unix/lwt_io.ml" 1158 38092 38118 "src/unix/lwt_io.ml" 1158 38092 38120
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 1158 38092 38121 "src/unix/lwt_io.ml" 1158 38092 38124
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1158 38092 38125 "src/unix/lwt_io.ml" 1158 38092 38127
type(
  int64 -> int64 -> bool
)
ident(
  ext_ref Pervasives.( <= )
)
"src/unix/lwt_io.ml" 1158 38092 38128 "src/unix/lwt_io.ml" 1158 38092 38130
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1158 38092 38128 "src/unix/lwt_io.ml" 1158 38092 38137
type(
  int64
)
"src/unix/lwt_io.ml" 1158 38092 38121 "src/unix/lwt_io.ml" 1158 38092 38137
type(
  bool
)
"src/unix/lwt_io.ml" 1158 38092 38103 "src/unix/lwt_io.ml" 1158 38092 38137
type(
  bool
)
"src/unix/lwt_io.ml" 1159 38149 38159 "src/unix/lwt_io.ml" 1159 38149 38161
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1159 38149 38169 "src/unix/lwt_io.ml" 1159 38149 38171
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1159 38149 38169 "src/unix/lwt_io.ml" 1159 38149 38175
type(
  int
)
"src/unix/lwt_io.ml" 1159 38149 38176 "src/unix/lwt_io.ml" 1159 38149 38177
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( - )
)
"src/unix/lwt_io.ml" 1159 38149 38179 "src/unix/lwt_io.ml" 1159 38149 38191
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1159 38149 38193 "src/unix/lwt_io.ml" 1159 38149 38202
type(
  int64 -> int64 -> int64
)
ident(
  ext_ref Int64.sub
)
"src/unix/lwt_io.ml" 1159 38149 38203 "src/unix/lwt_io.ml" 1159 38149 38205
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1159 38149 38203 "src/unix/lwt_io.ml" 1159 38149 38212
type(
  int64
)
"src/unix/lwt_io.ml" 1159 38149 38213 "src/unix/lwt_io.ml" 1159 38149 38216
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1159 38149 38192 "src/unix/lwt_io.ml" 1159 38149 38217
type(
  int64
)
"src/unix/lwt_io.ml" 1159 38149 38178 "src/unix/lwt_io.ml" 1159 38149 38218
type(
  int
)
"src/unix/lwt_io.ml" 1159 38149 38169 "src/unix/lwt_io.ml" 1159 38149 38218
type(
  int
)
"src/unix/lwt_io.ml" 1159 38149 38159 "src/unix/lwt_io.ml" 1159 38149 38218
type(
  unit
)
"src/unix/lwt_io.ml" 1160 38220 38230 "src/unix/lwt_io.ml" 1160 38220 38245
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1158 38092 38143 "src/unix/lwt_io.ml" 1161 38246 38257
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1162 38269 38279 "src/unix/lwt_io.ml" 1162 38269 38286
type(
  (int64 -> Unix.seek_command -> int64 Lwt.t) -> int64 -> unit Lwt.t
)
ident(
  int_ref do_seek "src/unix/lwt_io.ml" 1143 37519 37525 "src/unix/lwt_io.ml" 1143 37519 37532
)
"src/unix/lwt_io.ml" 1162 38269 38287 "src/unix/lwt_io.ml" 1162 38269 38291
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref seek "src/unix/lwt_io.ml" 1156 37977 37998 "src/unix/lwt_io.ml" 1156 37977 38002
)
"src/unix/lwt_io.ml" 1162 38269 38292 "src/unix/lwt_io.ml" 1162 38269 38295
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1162 38269 38279 "src/unix/lwt_io.ml" 1162 38269 38295
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1162 38269 38296 "src/unix/lwt_io.ml" 1162 38269 38299
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1162 38269 38304 "src/unix/lwt_io.ml" 1162 38269 38306
type(
  unit
)
"src/unix/lwt_io.ml" 1163 38310 38320 "src/unix/lwt_io.ml" 1163 38310 38322
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1163 38310 38333 "src/unix/lwt_io.ml" 1163 38310 38336
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1163 38310 38320 "src/unix/lwt_io.ml" 1163 38310 38336
type(
  unit
)
"src/unix/lwt_io.ml" 1164 38338 38348 "src/unix/lwt_io.ml" 1164 38338 38350
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1164 38338 38358 "src/unix/lwt_io.ml" 1164 38338 38359
type(
  int
)
"src/unix/lwt_io.ml" 1164 38338 38348 "src/unix/lwt_io.ml" 1164 38338 38359
type(
  unit
)
"src/unix/lwt_io.ml" 1165 38361 38371 "src/unix/lwt_io.ml" 1165 38361 38373
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1165 38361 38381 "src/unix/lwt_io.ml" 1165 38361 38382
type(
  int
)
"src/unix/lwt_io.ml" 1165 38361 38371 "src/unix/lwt_io.ml" 1165 38361 38382
type(
  unit
)
"src/unix/lwt_io.ml" 1166 38384 38394 "src/unix/lwt_io.ml" 1166 38384 38409
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1165 38361 38371 "src/unix/lwt_io.ml" 1166 38384 38409
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1164 38338 38348 "src/unix/lwt_io.ml" 1166 38384 38409
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1163 38310 38320 "src/unix/lwt_io.ml" 1166 38384 38409
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1162 38269 38300 "src/unix/lwt_io.ml" 1166 38384 38409
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1161 38246 38263 "src/unix/lwt_io.ml" 1167 38410 38421
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1158 38092 38100 "src/unix/lwt_io.ml" 1167 38410 38421
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1157 38014 38022 "src/unix/lwt_io.ml" 1167 38410 38421
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1168 38422 38428 "src/unix/lwt_io.ml" 1168 38422 38438
type(
  typ
)
"src/unix/lwt_io.ml" 1168 38422 38440 "src/unix/lwt_io.ml" 1168 38422 38441
type(
  m mode
)
"src/unix/lwt_io.ml" 1168 38422 38428 "src/unix/lwt_io.ml" 1168 38422 38441
type(
  typ * m mode
)
"src/unix/lwt_io.ml" 1169 38445 38456 "src/unix/lwt_io.ml" 1169 38445 38459
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1169 38445 38460 "src/unix/lwt_io.ml" 1169 38445 38461
type(
  int64 -> int64 -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 1169 38445 38462 "src/unix/lwt_io.ml" 1169 38445 38464
type(
  int64
)
"src/unix/lwt_io.ml" 1169 38445 38456 "src/unix/lwt_io.ml" 1169 38445 38464
type(
  bool
)
"src/unix/lwt_io.ml" 1169 38445 38465 "src/unix/lwt_io.ml" 1169 38445 38467
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( || )
)
"src/unix/lwt_io.ml" 1169 38445 38468 "src/unix/lwt_io.ml" 1169 38445 38471
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1169 38445 38472 "src/unix/lwt_io.ml" 1169 38445 38473
type(
  int64 -> int64 -> bool
)
ident(
  ext_ref Pervasives.( > )
)
"src/unix/lwt_io.ml" 1169 38445 38474 "src/unix/lwt_io.ml" 1169 38445 38486
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1169 38445 38487 "src/unix/lwt_io.ml" 1169 38445 38489
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1169 38445 38487 "src/unix/lwt_io.ml" 1169 38445 38496
type(
  int
)
"src/unix/lwt_io.ml" 1169 38445 38474 "src/unix/lwt_io.ml" 1169 38445 38496
type(
  int64
)
"src/unix/lwt_io.ml" 1169 38445 38468 "src/unix/lwt_io.ml" 1169 38445 38496
type(
  bool
)
"src/unix/lwt_io.ml" 1169 38445 38456 "src/unix/lwt_io.ml" 1169 38445 38496
type(
  bool
)
"src/unix/lwt_io.ml" 1170 38502 38512 "src/unix/lwt_io.ml" 1170 38502 38520
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 1170 38502 38530 "src/unix/lwt_io.ml" 1170 38502 38566
type(
  string
)
"src/unix/lwt_io.ml" 1170 38502 38521 "src/unix/lwt_io.ml" 1170 38502 38567
type(
  exn
)
"src/unix/lwt_io.ml" 1170 38502 38512 "src/unix/lwt_io.ml" 1170 38502 38567
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1172 38587 38597 "src/unix/lwt_io.ml" 1172 38587 38599
type(
  m _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1150 37707 37776 "src/unix/lwt_io.ml" 1150 37707 37778
)
"src/unix/lwt_io.ml" 1172 38587 38607 "src/unix/lwt_io.ml" 1172 38587 38619
type(
  int64 -> int
)
ident(
  ext_ref Int64.to_int
)
"src/unix/lwt_io.ml" 1172 38587 38620 "src/unix/lwt_io.ml" 1172 38587 38623
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1150 37707 37779 "src/unix/lwt_io.ml" 1150 37707 37782
)
"src/unix/lwt_io.ml" 1172 38587 38607 "src/unix/lwt_io.ml" 1172 38587 38623
type(
  int
)
"src/unix/lwt_io.ml" 1172 38587 38597 "src/unix/lwt_io.ml" 1172 38587 38623
type(
  unit
)
"src/unix/lwt_io.ml" 1173 38625 38635 "src/unix/lwt_io.ml" 1173 38625 38650
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1171 38568 38581 "src/unix/lwt_io.ml" 1174 38651 38662
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1169 38445 38453 "src/unix/lwt_io.ml" 1174 38651 38662
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1150 37707 37786 "src/unix/lwt_io.ml" 1174 38651 38662
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1150 37707 37772 "src/unix/lwt_io.ml" 1174 38651 38662
type(
  m _channel -> int64 -> unit Lwt.t
)
type(
  m _channel -> int64 -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1150 37707 37713 "src/unix/lwt_io.ml" 1174 38651 38662
type(
  'm2 _channel -> int64 -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1176 38664 38670 "src/unix/lwt_io.ml" 1176 38664 38676
type(
  's1 _channel -> int64 Lwt.t
)
ident(
  def length "src/unix/lwt_io.ml" 1182 38863 38906 "src/unix/lwt_io.ml" 1183 38907 38910
)
"src/unix/lwt_io.ml" 1176 38664 38677 "src/unix/lwt_io.ml" 1176 38664 38679
type(
  's1 _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1176 38664 38682 "src/unix/lwt_io.ml" 1182 38863 38906
)
"src/unix/lwt_io.ml" 1176 38664 38688 "src/unix/lwt_io.ml" 1176 38664 38690
type(
  's1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1176 38664 38677 "src/unix/lwt_io.ml" 1176 38664 38679
)
"src/unix/lwt_io.ml" 1176 38664 38688 "src/unix/lwt_io.ml" 1176 38664 38694
type(
  typ
)
"src/unix/lwt_io.ml" 1177 38700 38718 "src/unix/lwt_io.ml" 1177 38700 38719
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1177 38700 38721 "src/unix/lwt_io.ml" 1177 38700 38725
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  def seek "src/unix/lwt_io.ml" 1178 38730 38738 "src/unix/lwt_io.ml" 1180 38820 38842
)
"src/unix/lwt_io.ml" 1177 38700 38706 "src/unix/lwt_io.ml" 1177 38700 38726
type(
  typ
)
"src/unix/lwt_io.ml" 1178 38730 38738 "src/unix/lwt_io.ml" 1178 38730 38742
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref seek "src/unix/lwt_io.ml" 1177 38700 38721 "src/unix/lwt_io.ml" 1177 38700 38725
)
"src/unix/lwt_io.ml" 1178 38730 38743 "src/unix/lwt_io.ml" 1178 38730 38745
type(
  int64
)
"src/unix/lwt_io.ml" 1178 38730 38746 "src/unix/lwt_io.ml" 1178 38730 38759
type(
  Unix.seek_command
)
"src/unix/lwt_io.ml" 1178 38730 38738 "src/unix/lwt_io.ml" 1178 38730 38759
call(
  stack
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1178 38730 38760 "src/unix/lwt_io.ml" 1178 38730 38763
type(
  int64 Lwt.t -> (int64 -> int64 Lwt.t) -> int64 Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1178 38730 38768 "src/unix/lwt_io.ml" 1178 38730 38771
type(
  int64
)
ident(
  def len "src/unix/lwt_io.ml" 1179 38775 38783 "src/unix/lwt_io.ml" 1180 38820 38842
)
"src/unix/lwt_io.ml" 1179 38775 38783 "src/unix/lwt_io.ml" 1179 38775 38790
type(
  (int64 -> Unix.seek_command -> int64 Lwt.t) -> int64 -> unit Lwt.t
)
ident(
  int_ref do_seek "src/unix/lwt_io.ml" 1143 37519 37525 "src/unix/lwt_io.ml" 1143 37519 37532
)
"src/unix/lwt_io.ml" 1179 38775 38791 "src/unix/lwt_io.ml" 1179 38775 38795
type(
  int64 -> Unix.seek_command -> int64 Lwt.t
)
ident(
  int_ref seek "src/unix/lwt_io.ml" 1177 38700 38721 "src/unix/lwt_io.ml" 1177 38700 38725
)
"src/unix/lwt_io.ml" 1179 38775 38796 "src/unix/lwt_io.ml" 1179 38775 38798
type(
  's1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1176 38664 38677 "src/unix/lwt_io.ml" 1176 38664 38679
)
"src/unix/lwt_io.ml" 1179 38775 38796 "src/unix/lwt_io.ml" 1179 38775 38805
type(
  int64
)
"src/unix/lwt_io.ml" 1179 38775 38783 "src/unix/lwt_io.ml" 1179 38775 38805
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1179 38775 38806 "src/unix/lwt_io.ml" 1179 38775 38809
type(
  unit Lwt.t -> (unit -> int64 Lwt.t) -> int64 Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1179 38775 38814 "src/unix/lwt_io.ml" 1179 38775 38816
type(
  unit
)
"src/unix/lwt_io.ml" 1180 38820 38828 "src/unix/lwt_io.ml" 1180 38820 38838
type(
  int64 -> int64 Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1180 38820 38839 "src/unix/lwt_io.ml" 1180 38820 38842
type(
  int64
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1178 38730 38768 "src/unix/lwt_io.ml" 1178 38730 38771
)
"src/unix/lwt_io.ml" 1180 38820 38828 "src/unix/lwt_io.ml" 1180 38820 38842
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1179 38775 38810 "src/unix/lwt_io.ml" 1180 38820 38842
type(
  unit -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 1179 38775 38783 "src/unix/lwt_io.ml" 1180 38820 38842
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1178 38730 38764 "src/unix/lwt_io.ml" 1180 38820 38842
type(
  int64 -> int64 Lwt.t
)
"src/unix/lwt_io.ml" 1178 38730 38738 "src/unix/lwt_io.ml" 1180 38820 38842
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1181 38843 38849 "src/unix/lwt_io.ml" 1181 38843 38859
type(
  typ
)
"src/unix/lwt_io.ml" 1182 38863 38871 "src/unix/lwt_io.ml" 1182 38863 38881
type(
  int64 -> int64 Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1182 38863 38883 "src/unix/lwt_io.ml" 1182 38863 38895
type(
  int -> int64
)
ident(
  ext_ref Int64.of_int
)
"src/unix/lwt_io.ml" 1182 38863 38896 "src/unix/lwt_io.ml" 1182 38863 38898
type(
  's1 _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1176 38664 38677 "src/unix/lwt_io.ml" 1176 38664 38679
)
"src/unix/lwt_io.ml" 1182 38863 38896 "src/unix/lwt_io.ml" 1182 38863 38905
type(
  int
)
"src/unix/lwt_io.ml" 1182 38863 38882 "src/unix/lwt_io.ml" 1182 38863 38906
type(
  int64
)
"src/unix/lwt_io.ml" 1182 38863 38871 "src/unix/lwt_io.ml" 1182 38863 38906
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1176 38664 38682 "src/unix/lwt_io.ml" 1182 38863 38906
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1189 39129 39133 "src/unix/lwt_io.ml" 1189 39129 39142
type(
  'a channel -> char Lwt.t
)
ident(
  def read_char "src/unix/lwt_io.ml" 1200 39517 39517 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1189 39129 39143 "src/unix/lwt_io.ml" 1189 39129 39150
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 1190 39153 39155 "src/unix/lwt_io.ml" 1198 39473 39515
)
"src/unix/lwt_io.ml" 1190 39153 39159 "src/unix/lwt_io.ml" 1190 39153 39166
type(
  'a _channel
)
ident(
  def channel "src/unix/lwt_io.ml" 1191 39188 39190 "src/unix/lwt_io.ml" 1198 39473 39515
)
"src/unix/lwt_io.ml" 1190 39153 39169 "src/unix/lwt_io.ml" 1190 39153 39176
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1189 39129 39143 "src/unix/lwt_io.ml" 1189 39129 39150
)
"src/unix/lwt_io.ml" 1190 39153 39169 "src/unix/lwt_io.ml" 1190 39153 39184
type(
  'a _channel
)
"src/unix/lwt_io.ml" 1191 39188 39194 "src/unix/lwt_io.ml" 1191 39188 39197
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1194 39319 39321 "src/unix/lwt_io.ml" 1198 39473 39515
)
"src/unix/lwt_io.ml" 1191 39188 39200 "src/unix/lwt_io.ml" 1191 39188 39207
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1190 39153 39159 "src/unix/lwt_io.ml" 1190 39153 39166
)
"src/unix/lwt_io.ml" 1191 39188 39200 "src/unix/lwt_io.ml" 1191 39188 39211
type(
  int
)
"src/unix/lwt_io.ml" 1194 39319 39324 "src/unix/lwt_io.ml" 1194 39319 39331
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1189 39129 39143 "src/unix/lwt_io.ml" 1189 39129 39150
)
"src/unix/lwt_io.ml" 1194 39319 39324 "src/unix/lwt_io.ml" 1194 39319 39337
type(
  'a state
)
"src/unix/lwt_io.ml" 1194 39319 39338 "src/unix/lwt_io.ml" 1194 39319 39339
type(
  'a state -> 'a state -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 1194 39319 39340 "src/unix/lwt_io.ml" 1194 39319 39344
type(
  'a state
)
"src/unix/lwt_io.ml" 1194 39319 39324 "src/unix/lwt_io.ml" 1194 39319 39344
type(
  bool
)
"src/unix/lwt_io.ml" 1194 39319 39345 "src/unix/lwt_io.ml" 1194 39319 39347
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 1194 39319 39348 "src/unix/lwt_io.ml" 1194 39319 39351
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1191 39188 39194 "src/unix/lwt_io.ml" 1191 39188 39197
)
"src/unix/lwt_io.ml" 1194 39319 39352 "src/unix/lwt_io.ml" 1194 39319 39353
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 1194 39319 39354 "src/unix/lwt_io.ml" 1194 39319 39361
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1190 39153 39159 "src/unix/lwt_io.ml" 1190 39153 39166
)
"src/unix/lwt_io.ml" 1194 39319 39354 "src/unix/lwt_io.ml" 1194 39319 39365
type(
  int
)
"src/unix/lwt_io.ml" 1194 39319 39348 "src/unix/lwt_io.ml" 1194 39319 39365
type(
  bool
)
"src/unix/lwt_io.ml" 1194 39319 39324 "src/unix/lwt_io.ml" 1194 39319 39365
type(
  bool
)
"src/unix/lwt_io.ml" 1195 39377 39381 "src/unix/lwt_io.ml" 1195 39377 39388
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1190 39153 39159 "src/unix/lwt_io.ml" 1190 39153 39166
)
"src/unix/lwt_io.ml" 1195 39377 39396 "src/unix/lwt_io.ml" 1195 39377 39399
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1191 39188 39194 "src/unix/lwt_io.ml" 1191 39188 39197
)
"src/unix/lwt_io.ml" 1195 39377 39400 "src/unix/lwt_io.ml" 1195 39377 39401
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1195 39377 39402 "src/unix/lwt_io.ml" 1195 39377 39403
type(
  int
)
"src/unix/lwt_io.ml" 1195 39377 39396 "src/unix/lwt_io.ml" 1195 39377 39403
type(
  int
)
"src/unix/lwt_io.ml" 1195 39377 39381 "src/unix/lwt_io.ml" 1195 39377 39403
type(
  unit
)
"src/unix/lwt_io.ml" 1196 39405 39409 "src/unix/lwt_io.ml" 1196 39405 39419
type(
  char -> char Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1196 39405 39421 "src/unix/lwt_io.ml" 1196 39405 39441
type(
  Lwt_bytes.t -> int -> char
)
ident(
  ext_ref Lwt_bytes.unsafe_get
)
"src/unix/lwt_io.ml" 1196 39405 39442 "src/unix/lwt_io.ml" 1196 39405 39449
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1190 39153 39159 "src/unix/lwt_io.ml" 1190 39153 39166
)
"src/unix/lwt_io.ml" 1196 39405 39442 "src/unix/lwt_io.ml" 1196 39405 39456
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1196 39405 39457 "src/unix/lwt_io.ml" 1196 39405 39460
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1191 39188 39194 "src/unix/lwt_io.ml" 1191 39188 39197
)
"src/unix/lwt_io.ml" 1196 39405 39420 "src/unix/lwt_io.ml" 1196 39405 39461
call(
  stack
)
type(
  char
)
"src/unix/lwt_io.ml" 1196 39405 39409 "src/unix/lwt_io.ml" 1196 39405 39461
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 1194 39319 39371 "src/unix/lwt_io.ml" 1197 39462 39467
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 1198 39473 39477 "src/unix/lwt_io.ml" 1198 39473 39486
type(
  ('a _channel -> char Lwt.t) -> 'a channel -> char Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1198 39473 39487 "src/unix/lwt_io.ml" 1198 39473 39507
type(
  'a _channel -> char Lwt.t
)
ident(
  int_ref Primitives.read_char "src/unix/lwt_io.ml" 699 22153 22163 "src/unix/lwt_io.ml" 699 22153 22172
)
"src/unix/lwt_io.ml" 1198 39473 39508 "src/unix/lwt_io.ml" 1198 39473 39515
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1189 39129 39143 "src/unix/lwt_io.ml" 1189 39129 39150
)
"src/unix/lwt_io.ml" 1198 39473 39477 "src/unix/lwt_io.ml" 1198 39473 39515
call(
  tail
)
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 1194 39319 39321 "src/unix/lwt_io.ml" 1198 39473 39515
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 1191 39188 39190 "src/unix/lwt_io.ml" 1198 39473 39515
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 1190 39153 39155 "src/unix/lwt_io.ml" 1198 39473 39515
type(
  char Lwt.t
)
"src/unix/lwt_io.ml" 1200 39517 39521 "src/unix/lwt_io.ml" 1200 39517 39534
type(
  'a channel -> char option Lwt.t
)
ident(
  def read_char_opt "src/unix/lwt_io.ml" 1209 39815 39815 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1200 39517 39535 "src/unix/lwt_io.ml" 1200 39517 39542
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 1201 39545 39547 "src/unix/lwt_io.ml" 1207 39767 39813
)
"src/unix/lwt_io.ml" 1201 39545 39551 "src/unix/lwt_io.ml" 1201 39545 39558
type(
  'a _channel
)
ident(
  def channel "src/unix/lwt_io.ml" 1202 39580 39582 "src/unix/lwt_io.ml" 1207 39767 39813
)
"src/unix/lwt_io.ml" 1201 39545 39561 "src/unix/lwt_io.ml" 1201 39545 39568
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1200 39517 39535 "src/unix/lwt_io.ml" 1200 39517 39542
)
"src/unix/lwt_io.ml" 1201 39545 39561 "src/unix/lwt_io.ml" 1201 39545 39576
type(
  'a _channel
)
"src/unix/lwt_io.ml" 1202 39580 39586 "src/unix/lwt_io.ml" 1202 39580 39589
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1203 39607 39609 "src/unix/lwt_io.ml" 1207 39767 39813
)
"src/unix/lwt_io.ml" 1202 39580 39592 "src/unix/lwt_io.ml" 1202 39580 39599
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1201 39545 39551 "src/unix/lwt_io.ml" 1201 39545 39558
)
"src/unix/lwt_io.ml" 1202 39580 39592 "src/unix/lwt_io.ml" 1202 39580 39603
type(
  int
)
"src/unix/lwt_io.ml" 1203 39607 39612 "src/unix/lwt_io.ml" 1203 39607 39619
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1200 39517 39535 "src/unix/lwt_io.ml" 1200 39517 39542
)
"src/unix/lwt_io.ml" 1203 39607 39612 "src/unix/lwt_io.ml" 1203 39607 39625
type(
  'a state
)
"src/unix/lwt_io.ml" 1203 39607 39626 "src/unix/lwt_io.ml" 1203 39607 39627
type(
  'a state -> 'a state -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 1203 39607 39628 "src/unix/lwt_io.ml" 1203 39607 39632
type(
  'a state
)
"src/unix/lwt_io.ml" 1203 39607 39612 "src/unix/lwt_io.ml" 1203 39607 39632
type(
  bool
)
"src/unix/lwt_io.ml" 1203 39607 39633 "src/unix/lwt_io.ml" 1203 39607 39635
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 1203 39607 39636 "src/unix/lwt_io.ml" 1203 39607 39639
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1202 39580 39586 "src/unix/lwt_io.ml" 1202 39580 39589
)
"src/unix/lwt_io.ml" 1203 39607 39640 "src/unix/lwt_io.ml" 1203 39607 39641
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 1203 39607 39642 "src/unix/lwt_io.ml" 1203 39607 39649
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1201 39545 39551 "src/unix/lwt_io.ml" 1201 39545 39558
)
"src/unix/lwt_io.ml" 1203 39607 39642 "src/unix/lwt_io.ml" 1203 39607 39653
type(
  int
)
"src/unix/lwt_io.ml" 1203 39607 39636 "src/unix/lwt_io.ml" 1203 39607 39653
type(
  bool
)
"src/unix/lwt_io.ml" 1203 39607 39612 "src/unix/lwt_io.ml" 1203 39607 39653
type(
  bool
)
"src/unix/lwt_io.ml" 1204 39665 39669 "src/unix/lwt_io.ml" 1204 39665 39676
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1201 39545 39551 "src/unix/lwt_io.ml" 1201 39545 39558
)
"src/unix/lwt_io.ml" 1204 39665 39684 "src/unix/lwt_io.ml" 1204 39665 39687
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1202 39580 39586 "src/unix/lwt_io.ml" 1202 39580 39589
)
"src/unix/lwt_io.ml" 1204 39665 39688 "src/unix/lwt_io.ml" 1204 39665 39689
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1204 39665 39690 "src/unix/lwt_io.ml" 1204 39665 39691
type(
  int
)
"src/unix/lwt_io.ml" 1204 39665 39684 "src/unix/lwt_io.ml" 1204 39665 39691
type(
  int
)
"src/unix/lwt_io.ml" 1204 39665 39669 "src/unix/lwt_io.ml" 1204 39665 39691
type(
  unit
)
"src/unix/lwt_io.ml" 1205 39693 39697 "src/unix/lwt_io.ml" 1205 39693 39707
type(
  char option -> char option Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1205 39693 39714 "src/unix/lwt_io.ml" 1205 39693 39734
type(
  Lwt_bytes.t -> int -> char
)
ident(
  ext_ref Lwt_bytes.unsafe_get
)
"src/unix/lwt_io.ml" 1205 39693 39735 "src/unix/lwt_io.ml" 1205 39693 39742
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1201 39545 39551 "src/unix/lwt_io.ml" 1201 39545 39558
)
"src/unix/lwt_io.ml" 1205 39693 39735 "src/unix/lwt_io.ml" 1205 39693 39749
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1205 39693 39750 "src/unix/lwt_io.ml" 1205 39693 39753
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1202 39580 39586 "src/unix/lwt_io.ml" 1202 39580 39589
)
"src/unix/lwt_io.ml" 1205 39693 39713 "src/unix/lwt_io.ml" 1205 39693 39754
call(
  stack
)
type(
  char
)
"src/unix/lwt_io.ml" 1205 39693 39708 "src/unix/lwt_io.ml" 1205 39693 39755
type(
  char option
)
"src/unix/lwt_io.ml" 1205 39693 39697 "src/unix/lwt_io.ml" 1205 39693 39755
call(
  tail
)
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1203 39607 39659 "src/unix/lwt_io.ml" 1206 39756 39761
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1207 39767 39771 "src/unix/lwt_io.ml" 1207 39767 39780
type(
  ('a _channel -> char option Lwt.t) -> 'a channel -> char option Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1207 39767 39781 "src/unix/lwt_io.ml" 1207 39767 39805
type(
  'a _channel -> char option Lwt.t
)
ident(
  int_ref Primitives.read_char_opt "src/unix/lwt_io.ml" 710 22423 22429 "src/unix/lwt_io.ml" 710 22423 22442
)
"src/unix/lwt_io.ml" 1207 39767 39806 "src/unix/lwt_io.ml" 1207 39767 39813
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1200 39517 39535 "src/unix/lwt_io.ml" 1200 39517 39542
)
"src/unix/lwt_io.ml" 1207 39767 39771 "src/unix/lwt_io.ml" 1207 39767 39813
call(
  tail
)
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1203 39607 39609 "src/unix/lwt_io.ml" 1207 39767 39813
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1202 39580 39582 "src/unix/lwt_io.ml" 1207 39767 39813
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1201 39545 39547 "src/unix/lwt_io.ml" 1207 39767 39813
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1209 39815 39819 "src/unix/lwt_io.ml" 1209 39815 39828
type(
  'a channel -> string Lwt.t
)
ident(
  def read_line "src/unix/lwt_io.ml" 1210 39868 39868 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1209 39815 39829 "src/unix/lwt_io.ml" 1209 39815 39831
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1209 39815 39834 "src/unix/lwt_io.ml" 1209 39815 39867
)
"src/unix/lwt_io.ml" 1209 39815 39834 "src/unix/lwt_io.ml" 1209 39815 39843
type(
  ('a _channel -> string Lwt.t) -> 'a channel -> string Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1209 39815 39844 "src/unix/lwt_io.ml" 1209 39815 39864
type(
  'a _channel -> string Lwt.t
)
ident(
  int_ref Primitives.read_line "src/unix/lwt_io.ml" 717 22600 22606 "src/unix/lwt_io.ml" 717 22600 22615
)
"src/unix/lwt_io.ml" 1209 39815 39865 "src/unix/lwt_io.ml" 1209 39815 39867
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1209 39815 39829 "src/unix/lwt_io.ml" 1209 39815 39831
)
"src/unix/lwt_io.ml" 1209 39815 39834 "src/unix/lwt_io.ml" 1209 39815 39867
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 1210 39868 39872 "src/unix/lwt_io.ml" 1210 39868 39885
type(
  'a channel -> string option Lwt.t
)
ident(
  def read_line_opt "src/unix/lwt_io.ml" 1211 39929 39929 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1210 39868 39886 "src/unix/lwt_io.ml" 1210 39868 39888
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1210 39868 39891 "src/unix/lwt_io.ml" 1210 39868 39928
)
"src/unix/lwt_io.ml" 1210 39868 39891 "src/unix/lwt_io.ml" 1210 39868 39900
type(
  ('a _channel -> string option Lwt.t) -> 'a channel -> string option Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1210 39868 39901 "src/unix/lwt_io.ml" 1210 39868 39925
type(
  'a _channel -> string option Lwt.t
)
ident(
  int_ref Primitives.read_line_opt "src/unix/lwt_io.ml" 743 23399 23405 "src/unix/lwt_io.ml" 743 23399 23418
)
"src/unix/lwt_io.ml" 1210 39868 39926 "src/unix/lwt_io.ml" 1210 39868 39928
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1210 39868 39886 "src/unix/lwt_io.ml" 1210 39868 39888
)
"src/unix/lwt_io.ml" 1210 39868 39891 "src/unix/lwt_io.ml" 1210 39868 39928
call(
  tail
)
type(
  string option Lwt.t
)
"src/unix/lwt_io.ml" 1211 39929 39933 "src/unix/lwt_io.ml" 1211 39929 39937
type(
  ?count:int -> 'a channel -> string Lwt.t
)
ident(
  def read "src/unix/lwt_io.ml" 1212 40000 40000 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1211 39929 39939 "src/unix/lwt_io.ml" 1211 39929 39944
type(
  int option
)
ident(
  def count "src/unix/lwt_io.ml" 1211 39929 39945 "src/unix/lwt_io.ml" 1211 39929 39999
)
"src/unix/lwt_io.ml" 1211 39929 39945 "src/unix/lwt_io.ml" 1211 39929 39947
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1211 39929 39950 "src/unix/lwt_io.ml" 1211 39929 39999
)
"src/unix/lwt_io.ml" 1211 39929 39950 "src/unix/lwt_io.ml" 1211 39929 39959
type(
  ('a _channel -> string Lwt.t) -> 'a channel -> string Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1211 39929 39965 "src/unix/lwt_io.ml" 1211 39929 39967
type(
  'a _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1211 39929 39971 "src/unix/lwt_io.ml" 1211 39929 39995
)
"src/unix/lwt_io.ml" 1211 39929 39971 "src/unix/lwt_io.ml" 1211 39929 39986
type(
  int option -> 'a _channel -> string Lwt.t
)
ident(
  int_ref Primitives.read "src/unix/lwt_io.ml" 826 25904 25910 "src/unix/lwt_io.ml" 826 25904 25914
)
"src/unix/lwt_io.ml" 1211 39929 39987 "src/unix/lwt_io.ml" 1211 39929 39992
type(
  int option
)
ident(
  int_ref count "src/unix/lwt_io.ml" 1211 39929 39939 "src/unix/lwt_io.ml" 1211 39929 39944
)
"src/unix/lwt_io.ml" 1211 39929 39993 "src/unix/lwt_io.ml" 1211 39929 39995
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1211 39929 39965 "src/unix/lwt_io.ml" 1211 39929 39967
)
"src/unix/lwt_io.ml" 1211 39929 39971 "src/unix/lwt_io.ml" 1211 39929 39995
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 1211 39929 39960 "src/unix/lwt_io.ml" 1211 39929 39996
type(
  'a _channel -> string Lwt.t
)
"src/unix/lwt_io.ml" 1211 39929 39997 "src/unix/lwt_io.ml" 1211 39929 39999
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1211 39929 39945 "src/unix/lwt_io.ml" 1211 39929 39947
)
"src/unix/lwt_io.ml" 1211 39929 39950 "src/unix/lwt_io.ml" 1211 39929 39999
call(
  tail
)
type(
  string Lwt.t
)
"src/unix/lwt_io.ml" 1212 40000 40004 "src/unix/lwt_io.ml" 1212 40000 40013
type(
  'a channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  def read_into "src/unix/lwt_io.ml" 1213 40092 40092 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1212 40000 40014 "src/unix/lwt_io.ml" 1212 40000 40016
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1212 40000 40017 "src/unix/lwt_io.ml" 1212 40000 40091
)
"src/unix/lwt_io.ml" 1212 40000 40017 "src/unix/lwt_io.ml" 1212 40000 40020
type(
  bytes
)
ident(
  def str "src/unix/lwt_io.ml" 1212 40000 40021 "src/unix/lwt_io.ml" 1212 40000 40091
)
"src/unix/lwt_io.ml" 1212 40000 40021 "src/unix/lwt_io.ml" 1212 40000 40024
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1212 40000 40025 "src/unix/lwt_io.ml" 1212 40000 40091
)
"src/unix/lwt_io.ml" 1212 40000 40025 "src/unix/lwt_io.ml" 1212 40000 40028
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1212 40000 40031 "src/unix/lwt_io.ml" 1212 40000 40091
)
"src/unix/lwt_io.ml" 1212 40000 40031 "src/unix/lwt_io.ml" 1212 40000 40040
type(
  ('a _channel -> int Lwt.t) -> 'a channel -> int Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1212 40000 40046 "src/unix/lwt_io.ml" 1212 40000 40048
type(
  'a _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1212 40000 40052 "src/unix/lwt_io.ml" 1212 40000 40087
)
"src/unix/lwt_io.ml" 1212 40000 40052 "src/unix/lwt_io.ml" 1212 40000 40072
type(
  'a _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref Primitives.read_into "src/unix/lwt_io.ml" 766 24049 24055 "src/unix/lwt_io.ml" 766 24049 24064
)
"src/unix/lwt_io.ml" 1212 40000 40073 "src/unix/lwt_io.ml" 1212 40000 40075
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1212 40000 40046 "src/unix/lwt_io.ml" 1212 40000 40048
)
"src/unix/lwt_io.ml" 1212 40000 40076 "src/unix/lwt_io.ml" 1212 40000 40079
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1212 40000 40017 "src/unix/lwt_io.ml" 1212 40000 40020
)
"src/unix/lwt_io.ml" 1212 40000 40080 "src/unix/lwt_io.ml" 1212 40000 40083
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1212 40000 40021 "src/unix/lwt_io.ml" 1212 40000 40024
)
"src/unix/lwt_io.ml" 1212 40000 40084 "src/unix/lwt_io.ml" 1212 40000 40087
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1212 40000 40025 "src/unix/lwt_io.ml" 1212 40000 40028
)
"src/unix/lwt_io.ml" 1212 40000 40052 "src/unix/lwt_io.ml" 1212 40000 40087
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1212 40000 40041 "src/unix/lwt_io.ml" 1212 40000 40088
type(
  'a _channel -> int Lwt.t
)
"src/unix/lwt_io.ml" 1212 40000 40089 "src/unix/lwt_io.ml" 1212 40000 40091
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1212 40000 40014 "src/unix/lwt_io.ml" 1212 40000 40016
)
"src/unix/lwt_io.ml" 1212 40000 40031 "src/unix/lwt_io.ml" 1212 40000 40091
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1213 40092 40096 "src/unix/lwt_io.ml" 1213 40092 40113
type(
  'a channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  def read_into_exactly "src/unix/lwt_io.ml" 1214 40200 40200 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1213 40092 40114 "src/unix/lwt_io.ml" 1213 40092 40116
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1213 40092 40117 "src/unix/lwt_io.ml" 1213 40092 40199
)
"src/unix/lwt_io.ml" 1213 40092 40117 "src/unix/lwt_io.ml" 1213 40092 40120
type(
  bytes
)
ident(
  def str "src/unix/lwt_io.ml" 1213 40092 40121 "src/unix/lwt_io.ml" 1213 40092 40199
)
"src/unix/lwt_io.ml" 1213 40092 40121 "src/unix/lwt_io.ml" 1213 40092 40124
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1213 40092 40125 "src/unix/lwt_io.ml" 1213 40092 40199
)
"src/unix/lwt_io.ml" 1213 40092 40125 "src/unix/lwt_io.ml" 1213 40092 40128
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1213 40092 40131 "src/unix/lwt_io.ml" 1213 40092 40199
)
"src/unix/lwt_io.ml" 1213 40092 40131 "src/unix/lwt_io.ml" 1213 40092 40140
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1213 40092 40146 "src/unix/lwt_io.ml" 1213 40092 40148
type(
  'a _channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1213 40092 40152 "src/unix/lwt_io.ml" 1213 40092 40195
)
"src/unix/lwt_io.ml" 1213 40092 40152 "src/unix/lwt_io.ml" 1213 40092 40180
type(
  'a _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref Primitives.read_into_exactly "src/unix/lwt_io.ml" 789 24775 24781 "src/unix/lwt_io.ml" 789 24775 24798
)
"src/unix/lwt_io.ml" 1213 40092 40181 "src/unix/lwt_io.ml" 1213 40092 40183
type(
  'a _channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1213 40092 40146 "src/unix/lwt_io.ml" 1213 40092 40148
)
"src/unix/lwt_io.ml" 1213 40092 40184 "src/unix/lwt_io.ml" 1213 40092 40187
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1213 40092 40117 "src/unix/lwt_io.ml" 1213 40092 40120
)
"src/unix/lwt_io.ml" 1213 40092 40188 "src/unix/lwt_io.ml" 1213 40092 40191
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1213 40092 40121 "src/unix/lwt_io.ml" 1213 40092 40124
)
"src/unix/lwt_io.ml" 1213 40092 40192 "src/unix/lwt_io.ml" 1213 40092 40195
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1213 40092 40125 "src/unix/lwt_io.ml" 1213 40092 40128
)
"src/unix/lwt_io.ml" 1213 40092 40152 "src/unix/lwt_io.ml" 1213 40092 40195
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1213 40092 40141 "src/unix/lwt_io.ml" 1213 40092 40196
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1213 40092 40197 "src/unix/lwt_io.ml" 1213 40092 40199
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1213 40092 40114 "src/unix/lwt_io.ml" 1213 40092 40116
)
"src/unix/lwt_io.ml" 1213 40092 40131 "src/unix/lwt_io.ml" 1213 40092 40199
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1214 40200 40204 "src/unix/lwt_io.ml" 1214 40200 40214
type(
  'a channel -> 'b Lwt.t
)
ident(
  def read_value "src/unix/lwt_io.ml" 1216 40256 40256 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1214 40200 40215 "src/unix/lwt_io.ml" 1214 40200 40217
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1214 40200 40220 "src/unix/lwt_io.ml" 1214 40200 40254
)
"src/unix/lwt_io.ml" 1214 40200 40220 "src/unix/lwt_io.ml" 1214 40200 40229
type(
  ('a _channel -> 'b Lwt.t) -> 'a channel -> 'b Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1214 40200 40230 "src/unix/lwt_io.ml" 1214 40200 40251
type(
  'a _channel -> 'b Lwt.t
)
ident(
  int_ref Primitives.read_value "src/unix/lwt_io.ml" 838 26308 26314 "src/unix/lwt_io.ml" 838 26308 26324
)
"src/unix/lwt_io.ml" 1214 40200 40252 "src/unix/lwt_io.ml" 1214 40200 40254
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1214 40200 40215 "src/unix/lwt_io.ml" 1214 40200 40217
)
"src/unix/lwt_io.ml" 1214 40200 40220 "src/unix/lwt_io.ml" 1214 40200 40254
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1216 40256 40260 "src/unix/lwt_io.ml" 1216 40256 40265
type(
  'a channel -> unit Lwt.t
)
ident(
  def flush "src/unix/lwt_io.ml" 1218 40302 40302 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1216 40256 40266 "src/unix/lwt_io.ml" 1216 40256 40268
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1216 40256 40271 "src/unix/lwt_io.ml" 1216 40256 40300
)
"src/unix/lwt_io.ml" 1216 40256 40271 "src/unix/lwt_io.ml" 1216 40256 40280
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1216 40256 40281 "src/unix/lwt_io.ml" 1216 40256 40297
type(
  'a _channel -> unit Lwt.t
)
ident(
  int_ref Primitives.flush "src/unix/lwt_io.ml" 853 26993 26999 "src/unix/lwt_io.ml" 853 26993 27004
)
"src/unix/lwt_io.ml" 1216 40256 40298 "src/unix/lwt_io.ml" 1216 40256 40300
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1216 40256 40266 "src/unix/lwt_io.ml" 1216 40256 40268
)
"src/unix/lwt_io.ml" 1216 40256 40271 "src/unix/lwt_io.ml" 1216 40256 40300
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1218 40302 40306 "src/unix/lwt_io.ml" 1218 40302 40316
type(
  'a channel -> char -> unit Lwt.t
)
ident(
  def write_char "src/unix/lwt_io.ml" 1234 40816 40816 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1218 40302 40317 "src/unix/lwt_io.ml" 1218 40302 40324
type(
  'a channel
)
ident(
  def wrapper "src/unix/lwt_io.ml" 1218 40302 40325 "src/unix/lwt_io.ml" 1232 40754 40814
)
"src/unix/lwt_io.ml" 1218 40302 40325 "src/unix/lwt_io.ml" 1218 40302 40326
type(
  char
)
ident(
  def x "src/unix/lwt_io.ml" 1219 40329 40331 "src/unix/lwt_io.ml" 1232 40754 40814
)
"src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
type(
  'a _channel
)
ident(
  def channel "src/unix/lwt_io.ml" 1220 40364 40366 "src/unix/lwt_io.ml" 1232 40754 40814
)
"src/unix/lwt_io.ml" 1219 40329 40345 "src/unix/lwt_io.ml" 1219 40329 40352
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1218 40302 40317 "src/unix/lwt_io.ml" 1218 40302 40324
)
"src/unix/lwt_io.ml" 1219 40329 40345 "src/unix/lwt_io.ml" 1219 40329 40360
type(
  'a _channel
)
"src/unix/lwt_io.ml" 1220 40364 40370 "src/unix/lwt_io.ml" 1220 40364 40373
type(
  int
)
ident(
  def ptr "src/unix/lwt_io.ml" 1221 40391 40393 "src/unix/lwt_io.ml" 1232 40754 40814
)
"src/unix/lwt_io.ml" 1220 40364 40376 "src/unix/lwt_io.ml" 1220 40364 40383
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1220 40364 40376 "src/unix/lwt_io.ml" 1220 40364 40387
type(
  int
)
"src/unix/lwt_io.ml" 1221 40391 40396 "src/unix/lwt_io.ml" 1221 40391 40403
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1218 40302 40317 "src/unix/lwt_io.ml" 1218 40302 40324
)
"src/unix/lwt_io.ml" 1221 40391 40396 "src/unix/lwt_io.ml" 1221 40391 40409
type(
  'a state
)
"src/unix/lwt_io.ml" 1221 40391 40410 "src/unix/lwt_io.ml" 1221 40391 40411
type(
  'a state -> 'a state -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 1221 40391 40412 "src/unix/lwt_io.ml" 1221 40391 40416
type(
  'a state
)
"src/unix/lwt_io.ml" 1221 40391 40396 "src/unix/lwt_io.ml" 1221 40391 40416
type(
  bool
)
"src/unix/lwt_io.ml" 1221 40391 40417 "src/unix/lwt_io.ml" 1221 40391 40419
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 1221 40391 40420 "src/unix/lwt_io.ml" 1221 40391 40423
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1220 40364 40370 "src/unix/lwt_io.ml" 1220 40364 40373
)
"src/unix/lwt_io.ml" 1221 40391 40424 "src/unix/lwt_io.ml" 1221 40391 40425
type(
  int -> int -> bool
)
ident(
  ext_ref Pervasives.( < )
)
"src/unix/lwt_io.ml" 1221 40391 40426 "src/unix/lwt_io.ml" 1221 40391 40433
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1221 40391 40426 "src/unix/lwt_io.ml" 1221 40391 40437
type(
  int
)
"src/unix/lwt_io.ml" 1221 40391 40420 "src/unix/lwt_io.ml" 1221 40391 40437
type(
  bool
)
"src/unix/lwt_io.ml" 1221 40391 40396 "src/unix/lwt_io.ml" 1221 40391 40437
type(
  bool
)
"src/unix/lwt_io.ml" 1222 40449 40453 "src/unix/lwt_io.ml" 1222 40449 40460
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1222 40449 40468 "src/unix/lwt_io.ml" 1222 40449 40471
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1220 40364 40370 "src/unix/lwt_io.ml" 1220 40364 40373
)
"src/unix/lwt_io.ml" 1222 40449 40472 "src/unix/lwt_io.ml" 1222 40449 40473
type(
  int -> int -> int
)
ident(
  ext_ref Pervasives.( + )
)
"src/unix/lwt_io.ml" 1222 40449 40474 "src/unix/lwt_io.ml" 1222 40449 40475
type(
  int
)
"src/unix/lwt_io.ml" 1222 40449 40468 "src/unix/lwt_io.ml" 1222 40449 40475
type(
  int
)
"src/unix/lwt_io.ml" 1222 40449 40453 "src/unix/lwt_io.ml" 1222 40449 40475
type(
  unit
)
"src/unix/lwt_io.ml" 1223 40477 40481 "src/unix/lwt_io.ml" 1223 40477 40501
type(
  Lwt_bytes.t -> int -> char -> unit
)
ident(
  ext_ref Lwt_bytes.unsafe_set
)
"src/unix/lwt_io.ml" 1223 40477 40502 "src/unix/lwt_io.ml" 1223 40477 40509
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1223 40477 40502 "src/unix/lwt_io.ml" 1223 40477 40516
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1223 40477 40517 "src/unix/lwt_io.ml" 1223 40477 40520
type(
  int
)
ident(
  int_ref ptr "src/unix/lwt_io.ml" 1220 40364 40370 "src/unix/lwt_io.ml" 1220 40364 40373
)
"src/unix/lwt_io.ml" 1223 40477 40521 "src/unix/lwt_io.ml" 1223 40477 40522
type(
  char
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1218 40302 40325 "src/unix/lwt_io.ml" 1218 40302 40326
)
"src/unix/lwt_io.ml" 1223 40477 40481 "src/unix/lwt_io.ml" 1223 40477 40522
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1225 40570 40577 "src/unix/lwt_io.ml" 1225 40570 40580
type(
  bool -> bool
)
ident(
  ext_ref Pervasives.not
)
"src/unix/lwt_io.ml" 1225 40570 40581 "src/unix/lwt_io.ml" 1225 40570 40588
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1225 40570 40581 "src/unix/lwt_io.ml" 1225 40570 40602
type(
  bool
)
"src/unix/lwt_io.ml" 1225 40570 40577 "src/unix/lwt_io.ml" 1225 40570 40602
type(
  bool
)
"src/unix/lwt_io.ml" 1226 40614 40620 "src/unix/lwt_io.ml" 1226 40614 40627
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1226 40614 40645 "src/unix/lwt_io.ml" 1226 40614 40649
type(
  bool
)
"src/unix/lwt_io.ml" 1226 40614 40620 "src/unix/lwt_io.ml" 1226 40614 40649
type(
  unit
)
"src/unix/lwt_io.ml" 1227 40651 40657 "src/unix/lwt_io.ml" 1227 40651 40663
type(
  unit Lwt.t -> unit
)
ident(
  ext_ref Pervasives.ignore
)
"src/unix/lwt_io.ml" 1227 40651 40665 "src/unix/lwt_io.ml" 1227 40651 40675
type(
  'a _channel -> unit Lwt.t
)
ident(
  int_ref auto_flush "src/unix/lwt_io.ml" 290 9032 9036 "src/unix/lwt_io.ml" 290 9032 9046
)
"src/unix/lwt_io.ml" 1227 40651 40676 "src/unix/lwt_io.ml" 1227 40651 40683
type(
  'a _channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1219 40329 40335 "src/unix/lwt_io.ml" 1219 40329 40342
)
"src/unix/lwt_io.ml" 1227 40651 40664 "src/unix/lwt_io.ml" 1227 40651 40684
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1227 40651 40657 "src/unix/lwt_io.ml" 1227 40651 40684
type(
  unit
)
"src/unix/lwt_io.ml" 1228 40686 40692 "src/unix/lwt_io.ml" 1228 40686 40707
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1227 40651 40657 "src/unix/lwt_io.ml" 1228 40686 40707
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1225 40570 40608 "src/unix/lwt_io.ml" 1229 40708 40715
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1230 40721 40727 "src/unix/lwt_io.ml" 1230 40721 40742
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1225 40570 40574 "src/unix/lwt_io.ml" 1230 40721 40742
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1223 40477 40481 "src/unix/lwt_io.ml" 1230 40721 40742
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1221 40391 40443 "src/unix/lwt_io.ml" 1231 40743 40748
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1232 40754 40758 "src/unix/lwt_io.ml" 1232 40754 40767
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1232 40754 40773 "src/unix/lwt_io.ml" 1232 40754 40775
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1232 40754 40779 "src/unix/lwt_io.ml" 1232 40754 40805
)
"src/unix/lwt_io.ml" 1232 40754 40779 "src/unix/lwt_io.ml" 1232 40754 40800
type(
  'a _channel -> char -> unit Lwt.t
)
ident(
  int_ref Primitives.write_char "src/unix/lwt_io.ml" 855 27020 27030 "src/unix/lwt_io.ml" 855 27020 27040
)
"src/unix/lwt_io.ml" 1232 40754 40801 "src/unix/lwt_io.ml" 1232 40754 40803
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1232 40754 40773 "src/unix/lwt_io.ml" 1232 40754 40775
)
"src/unix/lwt_io.ml" 1232 40754 40804 "src/unix/lwt_io.ml" 1232 40754 40805
type(
  char
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1218 40302 40325 "src/unix/lwt_io.ml" 1218 40302 40326
)
"src/unix/lwt_io.ml" 1232 40754 40779 "src/unix/lwt_io.ml" 1232 40754 40805
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1232 40754 40768 "src/unix/lwt_io.ml" 1232 40754 40806
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1232 40754 40807 "src/unix/lwt_io.ml" 1232 40754 40814
type(
  'a channel
)
ident(
  int_ref wrapper "src/unix/lwt_io.ml" 1218 40302 40317 "src/unix/lwt_io.ml" 1218 40302 40324
)
"src/unix/lwt_io.ml" 1232 40754 40758 "src/unix/lwt_io.ml" 1232 40754 40814
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1221 40391 40393 "src/unix/lwt_io.ml" 1232 40754 40814
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1220 40364 40366 "src/unix/lwt_io.ml" 1232 40754 40814
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1219 40329 40331 "src/unix/lwt_io.ml" 1232 40754 40814
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1234 40816 40820 "src/unix/lwt_io.ml" 1234 40816 40825
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  def write "src/unix/lwt_io.ml" 1235 40884 40884 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1234 40816 40826 "src/unix/lwt_io.ml" 1234 40816 40828
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1234 40816 40829 "src/unix/lwt_io.ml" 1234 40816 40883
)
"src/unix/lwt_io.ml" 1234 40816 40829 "src/unix/lwt_io.ml" 1234 40816 40832
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 1234 40816 40835 "src/unix/lwt_io.ml" 1234 40816 40883
)
"src/unix/lwt_io.ml" 1234 40816 40835 "src/unix/lwt_io.ml" 1234 40816 40844
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1234 40816 40850 "src/unix/lwt_io.ml" 1234 40816 40852
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1234 40816 40856 "src/unix/lwt_io.ml" 1234 40816 40879
)
"src/unix/lwt_io.ml" 1234 40816 40856 "src/unix/lwt_io.ml" 1234 40816 40872
type(
  'a _channel -> string -> unit Lwt.t
)
ident(
  int_ref Primitives.write "src/unix/lwt_io.ml" 927 29391 29397 "src/unix/lwt_io.ml" 927 29391 29402
)
"src/unix/lwt_io.ml" 1234 40816 40873 "src/unix/lwt_io.ml" 1234 40816 40875
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1234 40816 40850 "src/unix/lwt_io.ml" 1234 40816 40852
)
"src/unix/lwt_io.ml" 1234 40816 40876 "src/unix/lwt_io.ml" 1234 40816 40879
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1234 40816 40829 "src/unix/lwt_io.ml" 1234 40816 40832
)
"src/unix/lwt_io.ml" 1234 40816 40856 "src/unix/lwt_io.ml" 1234 40816 40879
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1234 40816 40845 "src/unix/lwt_io.ml" 1234 40816 40880
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1234 40816 40881 "src/unix/lwt_io.ml" 1234 40816 40883
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1234 40816 40826 "src/unix/lwt_io.ml" 1234 40816 40828
)
"src/unix/lwt_io.ml" 1234 40816 40835 "src/unix/lwt_io.ml" 1234 40816 40883
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1235 40884 40888 "src/unix/lwt_io.ml" 1235 40884 40898
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  def write_line "src/unix/lwt_io.ml" 1236 40958 40958 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1235 40884 40899 "src/unix/lwt_io.ml" 1235 40884 40901
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1235 40884 40902 "src/unix/lwt_io.ml" 1235 40884 40957
)
"src/unix/lwt_io.ml" 1235 40884 40902 "src/unix/lwt_io.ml" 1235 40884 40903
type(
  string
)
ident(
  def x "src/unix/lwt_io.ml" 1235 40884 40906 "src/unix/lwt_io.ml" 1235 40884 40957
)
"src/unix/lwt_io.ml" 1235 40884 40906 "src/unix/lwt_io.ml" 1235 40884 40915
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1235 40884 40921 "src/unix/lwt_io.ml" 1235 40884 40923
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1235 40884 40927 "src/unix/lwt_io.ml" 1235 40884 40953
)
"src/unix/lwt_io.ml" 1235 40884 40927 "src/unix/lwt_io.ml" 1235 40884 40948
type(
  'a _channel -> string -> unit Lwt.t
)
ident(
  int_ref Primitives.write_line "src/unix/lwt_io.ml" 931 29515 29521 "src/unix/lwt_io.ml" 931 29515 29531
)
"src/unix/lwt_io.ml" 1235 40884 40949 "src/unix/lwt_io.ml" 1235 40884 40951
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1235 40884 40921 "src/unix/lwt_io.ml" 1235 40884 40923
)
"src/unix/lwt_io.ml" 1235 40884 40952 "src/unix/lwt_io.ml" 1235 40884 40953
type(
  string
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1235 40884 40902 "src/unix/lwt_io.ml" 1235 40884 40903
)
"src/unix/lwt_io.ml" 1235 40884 40927 "src/unix/lwt_io.ml" 1235 40884 40953
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1235 40884 40916 "src/unix/lwt_io.ml" 1235 40884 40954
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1235 40884 40955 "src/unix/lwt_io.ml" 1235 40884 40957
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1235 40884 40899 "src/unix/lwt_io.ml" 1235 40884 40901
)
"src/unix/lwt_io.ml" 1235 40884 40906 "src/unix/lwt_io.ml" 1235 40884 40957
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1236 40958 40962 "src/unix/lwt_io.ml" 1236 40958 40972
type(
  'a channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  def write_from "src/unix/lwt_io.ml" 1237 41052 41052 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1236 40958 40973 "src/unix/lwt_io.ml" 1236 40958 40975
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1236 40958 40976 "src/unix/lwt_io.ml" 1236 40958 41051
)
"src/unix/lwt_io.ml" 1236 40958 40976 "src/unix/lwt_io.ml" 1236 40958 40979
type(
  bytes
)
ident(
  def str "src/unix/lwt_io.ml" 1236 40958 40980 "src/unix/lwt_io.ml" 1236 40958 41051
)
"src/unix/lwt_io.ml" 1236 40958 40980 "src/unix/lwt_io.ml" 1236 40958 40983
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1236 40958 40984 "src/unix/lwt_io.ml" 1236 40958 41051
)
"src/unix/lwt_io.ml" 1236 40958 40984 "src/unix/lwt_io.ml" 1236 40958 40987
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1236 40958 40990 "src/unix/lwt_io.ml" 1236 40958 41051
)
"src/unix/lwt_io.ml" 1236 40958 40990 "src/unix/lwt_io.ml" 1236 40958 40999
type(
  ('a _channel -> int Lwt.t) -> 'a channel -> int Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1236 40958 41005 "src/unix/lwt_io.ml" 1236 40958 41007
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1236 40958 41011 "src/unix/lwt_io.ml" 1236 40958 41047
)
"src/unix/lwt_io.ml" 1236 40958 41011 "src/unix/lwt_io.ml" 1236 40958 41032
type(
  'a _channel -> bytes -> int -> int -> int Lwt.t
)
ident(
  int_ref Primitives.write_from "src/unix/lwt_io.ml" 888 28025 28031 "src/unix/lwt_io.ml" 888 28025 28041
)
"src/unix/lwt_io.ml" 1236 40958 41033 "src/unix/lwt_io.ml" 1236 40958 41035
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1236 40958 41005 "src/unix/lwt_io.ml" 1236 40958 41007
)
"src/unix/lwt_io.ml" 1236 40958 41036 "src/unix/lwt_io.ml" 1236 40958 41039
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1236 40958 40976 "src/unix/lwt_io.ml" 1236 40958 40979
)
"src/unix/lwt_io.ml" 1236 40958 41040 "src/unix/lwt_io.ml" 1236 40958 41043
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1236 40958 40980 "src/unix/lwt_io.ml" 1236 40958 40983
)
"src/unix/lwt_io.ml" 1236 40958 41044 "src/unix/lwt_io.ml" 1236 40958 41047
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1236 40958 40984 "src/unix/lwt_io.ml" 1236 40958 40987
)
"src/unix/lwt_io.ml" 1236 40958 41011 "src/unix/lwt_io.ml" 1236 40958 41047
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1236 40958 41000 "src/unix/lwt_io.ml" 1236 40958 41048
type(
  'a _channel -> int Lwt.t
)
"src/unix/lwt_io.ml" 1236 40958 41049 "src/unix/lwt_io.ml" 1236 40958 41051
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1236 40958 40973 "src/unix/lwt_io.ml" 1236 40958 40975
)
"src/unix/lwt_io.ml" 1236 40958 40990 "src/unix/lwt_io.ml" 1236 40958 41051
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1237 41052 41056 "src/unix/lwt_io.ml" 1237 41052 41073
type(
  'a channel -> string -> int -> int -> int Lwt.t
)
ident(
  def write_from_string "src/unix/lwt_io.ml" 1238 41160 41160 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1237 41052 41074 "src/unix/lwt_io.ml" 1237 41052 41076
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1237 41052 41077 "src/unix/lwt_io.ml" 1237 41052 41159
)
"src/unix/lwt_io.ml" 1237 41052 41077 "src/unix/lwt_io.ml" 1237 41052 41080
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 1237 41052 41081 "src/unix/lwt_io.ml" 1237 41052 41159
)
"src/unix/lwt_io.ml" 1237 41052 41081 "src/unix/lwt_io.ml" 1237 41052 41084
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1237 41052 41085 "src/unix/lwt_io.ml" 1237 41052 41159
)
"src/unix/lwt_io.ml" 1237 41052 41085 "src/unix/lwt_io.ml" 1237 41052 41088
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1237 41052 41091 "src/unix/lwt_io.ml" 1237 41052 41159
)
"src/unix/lwt_io.ml" 1237 41052 41091 "src/unix/lwt_io.ml" 1237 41052 41100
type(
  ('a _channel -> int Lwt.t) -> 'a channel -> int Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1237 41052 41106 "src/unix/lwt_io.ml" 1237 41052 41108
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1237 41052 41112 "src/unix/lwt_io.ml" 1237 41052 41155
)
"src/unix/lwt_io.ml" 1237 41052 41112 "src/unix/lwt_io.ml" 1237 41052 41140
type(
  'a _channel -> string -> int -> int -> int Lwt.t
)
ident(
  int_ref Primitives.write_from_string "src/unix/lwt_io.ml" 900 28487 28493 "src/unix/lwt_io.ml" 900 28487 28510
)
"src/unix/lwt_io.ml" 1237 41052 41141 "src/unix/lwt_io.ml" 1237 41052 41143
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1237 41052 41106 "src/unix/lwt_io.ml" 1237 41052 41108
)
"src/unix/lwt_io.ml" 1237 41052 41144 "src/unix/lwt_io.ml" 1237 41052 41147
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1237 41052 41077 "src/unix/lwt_io.ml" 1237 41052 41080
)
"src/unix/lwt_io.ml" 1237 41052 41148 "src/unix/lwt_io.ml" 1237 41052 41151
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1237 41052 41081 "src/unix/lwt_io.ml" 1237 41052 41084
)
"src/unix/lwt_io.ml" 1237 41052 41152 "src/unix/lwt_io.ml" 1237 41052 41155
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1237 41052 41085 "src/unix/lwt_io.ml" 1237 41052 41088
)
"src/unix/lwt_io.ml" 1237 41052 41112 "src/unix/lwt_io.ml" 1237 41052 41155
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1237 41052 41101 "src/unix/lwt_io.ml" 1237 41052 41156
type(
  'a _channel -> int Lwt.t
)
"src/unix/lwt_io.ml" 1237 41052 41157 "src/unix/lwt_io.ml" 1237 41052 41159
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1237 41052 41074 "src/unix/lwt_io.ml" 1237 41052 41076
)
"src/unix/lwt_io.ml" 1237 41052 41091 "src/unix/lwt_io.ml" 1237 41052 41159
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1238 41160 41164 "src/unix/lwt_io.ml" 1238 41160 41182
type(
  'a channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  def write_from_exactly "src/unix/lwt_io.ml" 1239 41270 41270 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1238 41160 41183 "src/unix/lwt_io.ml" 1238 41160 41185
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1238 41160 41186 "src/unix/lwt_io.ml" 1238 41160 41269
)
"src/unix/lwt_io.ml" 1238 41160 41186 "src/unix/lwt_io.ml" 1238 41160 41189
type(
  bytes
)
ident(
  def str "src/unix/lwt_io.ml" 1238 41160 41190 "src/unix/lwt_io.ml" 1238 41160 41269
)
"src/unix/lwt_io.ml" 1238 41160 41190 "src/unix/lwt_io.ml" 1238 41160 41193
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1238 41160 41194 "src/unix/lwt_io.ml" 1238 41160 41269
)
"src/unix/lwt_io.ml" 1238 41160 41194 "src/unix/lwt_io.ml" 1238 41160 41197
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1238 41160 41200 "src/unix/lwt_io.ml" 1238 41160 41269
)
"src/unix/lwt_io.ml" 1238 41160 41200 "src/unix/lwt_io.ml" 1238 41160 41209
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1238 41160 41215 "src/unix/lwt_io.ml" 1238 41160 41217
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1238 41160 41221 "src/unix/lwt_io.ml" 1238 41160 41265
)
"src/unix/lwt_io.ml" 1238 41160 41221 "src/unix/lwt_io.ml" 1238 41160 41250
type(
  'a _channel -> bytes -> int -> int -> unit Lwt.t
)
ident(
  int_ref Primitives.write_from_exactly "src/unix/lwt_io.ml" 911 28820 28826 "src/unix/lwt_io.ml" 911 28820 28844
)
"src/unix/lwt_io.ml" 1238 41160 41251 "src/unix/lwt_io.ml" 1238 41160 41253
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1238 41160 41215 "src/unix/lwt_io.ml" 1238 41160 41217
)
"src/unix/lwt_io.ml" 1238 41160 41254 "src/unix/lwt_io.ml" 1238 41160 41257
type(
  bytes
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1238 41160 41186 "src/unix/lwt_io.ml" 1238 41160 41189
)
"src/unix/lwt_io.ml" 1238 41160 41258 "src/unix/lwt_io.ml" 1238 41160 41261
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1238 41160 41190 "src/unix/lwt_io.ml" 1238 41160 41193
)
"src/unix/lwt_io.ml" 1238 41160 41262 "src/unix/lwt_io.ml" 1238 41160 41265
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1238 41160 41194 "src/unix/lwt_io.ml" 1238 41160 41197
)
"src/unix/lwt_io.ml" 1238 41160 41221 "src/unix/lwt_io.ml" 1238 41160 41265
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1238 41160 41210 "src/unix/lwt_io.ml" 1238 41160 41266
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1238 41160 41267 "src/unix/lwt_io.ml" 1238 41160 41269
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1238 41160 41183 "src/unix/lwt_io.ml" 1238 41160 41185
)
"src/unix/lwt_io.ml" 1238 41160 41200 "src/unix/lwt_io.ml" 1238 41160 41269
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1239 41270 41274 "src/unix/lwt_io.ml" 1239 41270 41299
type(
  'a channel -> string -> int -> int -> unit Lwt.t
)
ident(
  def write_from_string_exactly "src/unix/lwt_io.ml" 1240 41394 41394 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1239 41270 41300 "src/unix/lwt_io.ml" 1239 41270 41302
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1239 41270 41303 "src/unix/lwt_io.ml" 1239 41270 41393
)
"src/unix/lwt_io.ml" 1239 41270 41303 "src/unix/lwt_io.ml" 1239 41270 41306
type(
  string
)
ident(
  def str "src/unix/lwt_io.ml" 1239 41270 41307 "src/unix/lwt_io.ml" 1239 41270 41393
)
"src/unix/lwt_io.ml" 1239 41270 41307 "src/unix/lwt_io.ml" 1239 41270 41310
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1239 41270 41311 "src/unix/lwt_io.ml" 1239 41270 41393
)
"src/unix/lwt_io.ml" 1239 41270 41311 "src/unix/lwt_io.ml" 1239 41270 41314
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1239 41270 41317 "src/unix/lwt_io.ml" 1239 41270 41393
)
"src/unix/lwt_io.ml" 1239 41270 41317 "src/unix/lwt_io.ml" 1239 41270 41326
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1239 41270 41332 "src/unix/lwt_io.ml" 1239 41270 41334
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1239 41270 41338 "src/unix/lwt_io.ml" 1239 41270 41389
)
"src/unix/lwt_io.ml" 1239 41270 41338 "src/unix/lwt_io.ml" 1239 41270 41374
type(
  'a _channel -> string -> int -> int -> unit Lwt.t
)
ident(
  int_ref Primitives.write_from_string_exactly "src/unix/lwt_io.ml" 923 29259 29265 "src/unix/lwt_io.ml" 923 29259 29290
)
"src/unix/lwt_io.ml" 1239 41270 41375 "src/unix/lwt_io.ml" 1239 41270 41377
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1239 41270 41332 "src/unix/lwt_io.ml" 1239 41270 41334
)
"src/unix/lwt_io.ml" 1239 41270 41378 "src/unix/lwt_io.ml" 1239 41270 41381
type(
  string
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1239 41270 41303 "src/unix/lwt_io.ml" 1239 41270 41306
)
"src/unix/lwt_io.ml" 1239 41270 41382 "src/unix/lwt_io.ml" 1239 41270 41385
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1239 41270 41307 "src/unix/lwt_io.ml" 1239 41270 41310
)
"src/unix/lwt_io.ml" 1239 41270 41386 "src/unix/lwt_io.ml" 1239 41270 41389
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1239 41270 41311 "src/unix/lwt_io.ml" 1239 41270 41314
)
"src/unix/lwt_io.ml" 1239 41270 41338 "src/unix/lwt_io.ml" 1239 41270 41389
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1239 41270 41327 "src/unix/lwt_io.ml" 1239 41270 41390
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1239 41270 41391 "src/unix/lwt_io.ml" 1239 41270 41393
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1239 41270 41300 "src/unix/lwt_io.ml" 1239 41270 41302
)
"src/unix/lwt_io.ml" 1239 41270 41317 "src/unix/lwt_io.ml" 1239 41270 41393
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1240 41394 41398 "src/unix/lwt_io.ml" 1240 41394 41409
type(
  'a channel -> ?flags:Marshal.extern_flags list -> 'b -> unit Lwt.t
)
ident(
  def write_value "src/unix/lwt_io.ml" 1242 41485 41485 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1240 41394 41410 "src/unix/lwt_io.ml" 1240 41394 41412
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1240 41394 41413 "src/unix/lwt_io.ml" 1240 41394 41483
)
"src/unix/lwt_io.ml" 1240 41394 41414 "src/unix/lwt_io.ml" 1240 41394 41419
type(
  Marshal.extern_flags list option
)
ident(
  def flags "src/unix/lwt_io.ml" 1240 41394 41420 "src/unix/lwt_io.ml" 1240 41394 41483
)
"src/unix/lwt_io.ml" 1240 41394 41420 "src/unix/lwt_io.ml" 1240 41394 41421
type(
  'b
)
ident(
  def x "src/unix/lwt_io.ml" 1240 41394 41424 "src/unix/lwt_io.ml" 1240 41394 41483
)
"src/unix/lwt_io.ml" 1240 41394 41424 "src/unix/lwt_io.ml" 1240 41394 41433
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1240 41394 41439 "src/unix/lwt_io.ml" 1240 41394 41441
type(
  'a _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1240 41394 41445 "src/unix/lwt_io.ml" 1240 41394 41479
)
"src/unix/lwt_io.ml" 1240 41394 41445 "src/unix/lwt_io.ml" 1240 41394 41467
type(
  'a _channel -> ?flags:Marshal.extern_flags list -> 'b -> unit Lwt.t
)
ident(
  int_ref Primitives.write_value "src/unix/lwt_io.ml" 936 29681 29687 "src/unix/lwt_io.ml" 936 29681 29698
)
"src/unix/lwt_io.ml" 1240 41394 41468 "src/unix/lwt_io.ml" 1240 41394 41470
type(
  'a _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1240 41394 41439 "src/unix/lwt_io.ml" 1240 41394 41441
)
"src/unix/lwt_io.ml" 1240 41394 41472 "src/unix/lwt_io.ml" 1240 41394 41477
type(
  Marshal.extern_flags list option
)
ident(
  int_ref flags "src/unix/lwt_io.ml" 1240 41394 41414 "src/unix/lwt_io.ml" 1240 41394 41419
)
"src/unix/lwt_io.ml" 1240 41394 41478 "src/unix/lwt_io.ml" 1240 41394 41479
type(
  'b
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1240 41394 41420 "src/unix/lwt_io.ml" 1240 41394 41421
)
"src/unix/lwt_io.ml" 1240 41394 41445 "src/unix/lwt_io.ml" 1240 41394 41479
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1240 41394 41434 "src/unix/lwt_io.ml" 1240 41394 41480
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1240 41394 41481 "src/unix/lwt_io.ml" 1240 41394 41483
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1240 41394 41410 "src/unix/lwt_io.ml" 1240 41394 41412
)
"src/unix/lwt_io.ml" 1240 41394 41424 "src/unix/lwt_io.ml" 1240 41394 41483
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1242 41485 41489 "src/unix/lwt_io.ml" 1242 41485 41494
type(
  'a channel -> int -> (Lwt_bytes.t -> int -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  def block "src/unix/lwt_io.ml" 1243 41559 41559 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1242 41485 41495 "src/unix/lwt_io.ml" 1242 41485 41497
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1242 41485 41498 "src/unix/lwt_io.ml" 1242 41485 41558
)
"src/unix/lwt_io.ml" 1242 41485 41498 "src/unix/lwt_io.ml" 1242 41485 41502
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 1242 41485 41503 "src/unix/lwt_io.ml" 1242 41485 41558
)
"src/unix/lwt_io.ml" 1242 41485 41503 "src/unix/lwt_io.ml" 1242 41485 41504
type(
  Lwt_bytes.t -> int -> 'b Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 1242 41485 41507 "src/unix/lwt_io.ml" 1242 41485 41558
)
"src/unix/lwt_io.ml" 1242 41485 41507 "src/unix/lwt_io.ml" 1242 41485 41516
type(
  ('a _channel -> 'b Lwt.t) -> 'a channel -> 'b Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1242 41485 41522 "src/unix/lwt_io.ml" 1242 41485 41524
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1242 41485 41528 "src/unix/lwt_io.ml" 1242 41485 41554
)
"src/unix/lwt_io.ml" 1242 41485 41528 "src/unix/lwt_io.ml" 1242 41485 41544
type(
  'a _channel -> int -> (Lwt_bytes.t -> int -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  int_ref Primitives.block "src/unix/lwt_io.ml" 966 30531 30537 "src/unix/lwt_io.ml" 966 30531 30542
)
"src/unix/lwt_io.ml" 1242 41485 41545 "src/unix/lwt_io.ml" 1242 41485 41547
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1242 41485 41522 "src/unix/lwt_io.ml" 1242 41485 41524
)
"src/unix/lwt_io.ml" 1242 41485 41548 "src/unix/lwt_io.ml" 1242 41485 41552
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 1242 41485 41498 "src/unix/lwt_io.ml" 1242 41485 41502
)
"src/unix/lwt_io.ml" 1242 41485 41553 "src/unix/lwt_io.ml" 1242 41485 41554
type(
  Lwt_bytes.t -> int -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1242 41485 41503 "src/unix/lwt_io.ml" 1242 41485 41504
)
"src/unix/lwt_io.ml" 1242 41485 41528 "src/unix/lwt_io.ml" 1242 41485 41554
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1242 41485 41517 "src/unix/lwt_io.ml" 1242 41485 41555
type(
  'a _channel -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 1242 41485 41556 "src/unix/lwt_io.ml" 1242 41485 41558
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1242 41485 41495 "src/unix/lwt_io.ml" 1242 41485 41497
)
"src/unix/lwt_io.ml" 1242 41485 41507 "src/unix/lwt_io.ml" 1242 41485 41558
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1243 41559 41563 "src/unix/lwt_io.ml" 1243 41559 41576
type(
  'a channel -> (direct_access -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  def direct_access "src/unix/lwt_io.ml" 1245 41640 41640 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1243 41559 41577 "src/unix/lwt_io.ml" 1243 41559 41579
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1243 41559 41580 "src/unix/lwt_io.ml" 1243 41559 41638
)
"src/unix/lwt_io.ml" 1243 41559 41580 "src/unix/lwt_io.ml" 1243 41559 41581
type(
  direct_access -> 'b Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 1243 41559 41584 "src/unix/lwt_io.ml" 1243 41559 41638
)
"src/unix/lwt_io.ml" 1243 41559 41584 "src/unix/lwt_io.ml" 1243 41559 41593
type(
  ('a _channel -> 'b Lwt.t) -> 'a channel -> 'b Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1243 41559 41599 "src/unix/lwt_io.ml" 1243 41559 41601
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1243 41559 41605 "src/unix/lwt_io.ml" 1243 41559 41634
)
"src/unix/lwt_io.ml" 1243 41559 41605 "src/unix/lwt_io.ml" 1243 41559 41629
type(
  'a _channel -> (direct_access -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  int_ref Primitives.direct_access "src/unix/lwt_io.ml" 995 31578 31584 "src/unix/lwt_io.ml" 995 31578 31597
)
"src/unix/lwt_io.ml" 1243 41559 41630 "src/unix/lwt_io.ml" 1243 41559 41632
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1243 41559 41599 "src/unix/lwt_io.ml" 1243 41559 41601
)
"src/unix/lwt_io.ml" 1243 41559 41633 "src/unix/lwt_io.ml" 1243 41559 41634
type(
  direct_access -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1243 41559 41580 "src/unix/lwt_io.ml" 1243 41559 41581
)
"src/unix/lwt_io.ml" 1243 41559 41605 "src/unix/lwt_io.ml" 1243 41559 41634
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1243 41559 41594 "src/unix/lwt_io.ml" 1243 41559 41635
type(
  'a _channel -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 1243 41559 41636 "src/unix/lwt_io.ml" 1243 41559 41638
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1243 41559 41577 "src/unix/lwt_io.ml" 1243 41559 41579
)
"src/unix/lwt_io.ml" 1243 41559 41584 "src/unix/lwt_io.ml" 1243 41559 41638
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1245 41640 41644 "src/unix/lwt_io.ml" 1245 41640 41656
type(
  'a channel -> int64 -> unit Lwt.t
)
ident(
  def set_position "src/unix/lwt_io.ml" 1246 41722 41722 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1245 41640 41657 "src/unix/lwt_io.ml" 1245 41640 41659
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1245 41640 41660 "src/unix/lwt_io.ml" 1245 41640 41721
)
"src/unix/lwt_io.ml" 1245 41640 41660 "src/unix/lwt_io.ml" 1245 41640 41663
type(
  int64
)
ident(
  def pos "src/unix/lwt_io.ml" 1245 41640 41666 "src/unix/lwt_io.ml" 1245 41640 41721
)
"src/unix/lwt_io.ml" 1245 41640 41666 "src/unix/lwt_io.ml" 1245 41640 41675
type(
  ('a _channel -> unit Lwt.t) -> 'a channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1245 41640 41681 "src/unix/lwt_io.ml" 1245 41640 41683
type(
  'a _channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1245 41640 41687 "src/unix/lwt_io.ml" 1245 41640 41717
)
"src/unix/lwt_io.ml" 1245 41640 41687 "src/unix/lwt_io.ml" 1245 41640 41710
type(
  'a _channel -> int64 -> unit Lwt.t
)
ident(
  int_ref Primitives.set_position "src/unix/lwt_io.ml" 1150 37707 37713 "src/unix/lwt_io.ml" 1150 37707 37725
)
"src/unix/lwt_io.ml" 1245 41640 41711 "src/unix/lwt_io.ml" 1245 41640 41713
type(
  'a _channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1245 41640 41681 "src/unix/lwt_io.ml" 1245 41640 41683
)
"src/unix/lwt_io.ml" 1245 41640 41714 "src/unix/lwt_io.ml" 1245 41640 41717
type(
  int64
)
ident(
  int_ref pos "src/unix/lwt_io.ml" 1245 41640 41660 "src/unix/lwt_io.ml" 1245 41640 41663
)
"src/unix/lwt_io.ml" 1245 41640 41687 "src/unix/lwt_io.ml" 1245 41640 41717
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1245 41640 41676 "src/unix/lwt_io.ml" 1245 41640 41718
type(
  'a _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1245 41640 41719 "src/unix/lwt_io.ml" 1245 41640 41721
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1245 41640 41657 "src/unix/lwt_io.ml" 1245 41640 41659
)
"src/unix/lwt_io.ml" 1245 41640 41666 "src/unix/lwt_io.ml" 1245 41640 41721
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1246 41722 41726 "src/unix/lwt_io.ml" 1246 41722 41732
type(
  'a channel -> int64 Lwt.t
)
ident(
  def length "src/unix/lwt_io.ml" 1248 41770 41770 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1246 41722 41733 "src/unix/lwt_io.ml" 1246 41722 41735
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1246 41722 41738 "src/unix/lwt_io.ml" 1246 41722 41768
)
"src/unix/lwt_io.ml" 1246 41722 41738 "src/unix/lwt_io.ml" 1246 41722 41747
type(
  ('a _channel -> int64 Lwt.t) -> 'a channel -> int64 Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1246 41722 41748 "src/unix/lwt_io.ml" 1246 41722 41765
type(
  'a _channel -> int64 Lwt.t
)
ident(
  int_ref Primitives.length "src/unix/lwt_io.ml" 1176 38664 38670 "src/unix/lwt_io.ml" 1176 38664 38676
)
"src/unix/lwt_io.ml" 1246 41722 41766 "src/unix/lwt_io.ml" 1246 41722 41768
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1246 41722 41733 "src/unix/lwt_io.ml" 1246 41722 41735
)
"src/unix/lwt_io.ml" 1246 41722 41738 "src/unix/lwt_io.ml" 1246 41722 41768
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1265 42488 42510 "src/unix/lwt_io.ml" 1265 42488 42544
call(
  stack
)
"src/unix/lwt_io.ml" 1267 42546 42552 "src/unix/lwt_io.ml" 1267 42546 42560
type(
  'a channel -> int Lwt.t
)
ident(
  def read_int "src/unix/lwt_io.ml" 1268 42599 42601 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1267 42546 42561 "src/unix/lwt_io.ml" 1267 42546 42563
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1267 42546 42566 "src/unix/lwt_io.ml" 1267 42546 42598
)
"src/unix/lwt_io.ml" 1267 42546 42566 "src/unix/lwt_io.ml" 1267 42546 42575
type(
  ('a _channel -> int Lwt.t) -> 'a channel -> int Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1267 42546 42576 "src/unix/lwt_io.ml" 1267 42546 42595
type(
  'a _channel -> int Lwt.t
)
ident(
  int_ref Primitives.read_int "src/unix/lwt_io.ml" 1022 32411 32419 "src/unix/lwt_io.ml" 1022 32411 32427
)
"src/unix/lwt_io.ml" 1267 42546 42596 "src/unix/lwt_io.ml" 1267 42546 42598
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1267 42546 42561 "src/unix/lwt_io.ml" 1267 42546 42563
)
"src/unix/lwt_io.ml" 1267 42546 42566 "src/unix/lwt_io.ml" 1267 42546 42598
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1268 42599 42605 "src/unix/lwt_io.ml" 1268 42599 42615
type(
  'b channel -> int Lwt.t
)
ident(
  def read_int16 "src/unix/lwt_io.ml" 1269 42656 42658 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1268 42599 42616 "src/unix/lwt_io.ml" 1268 42599 42618
type(
  'b channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1268 42599 42621 "src/unix/lwt_io.ml" 1268 42599 42655
)
"src/unix/lwt_io.ml" 1268 42599 42621 "src/unix/lwt_io.ml" 1268 42599 42630
type(
  ('b _channel -> int Lwt.t) -> 'b channel -> int Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1268 42599 42631 "src/unix/lwt_io.ml" 1268 42599 42652
type(
  'b _channel -> int Lwt.t
)
ident(
  int_ref Primitives.read_int16 "src/unix/lwt_io.ml" 1035 32873 32881 "src/unix/lwt_io.ml" 1035 32873 32891
)
"src/unix/lwt_io.ml" 1268 42599 42653 "src/unix/lwt_io.ml" 1268 42599 42655
type(
  'b channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1268 42599 42616 "src/unix/lwt_io.ml" 1268 42599 42618
)
"src/unix/lwt_io.ml" 1268 42599 42621 "src/unix/lwt_io.ml" 1268 42599 42655
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1269 42656 42662 "src/unix/lwt_io.ml" 1269 42656 42672
type(
  'c channel -> int32 Lwt.t
)
ident(
  def read_int32 "src/unix/lwt_io.ml" 1270 42713 42715 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1269 42656 42673 "src/unix/lwt_io.ml" 1269 42656 42675
type(
  'c channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1269 42656 42678 "src/unix/lwt_io.ml" 1269 42656 42712
)
"src/unix/lwt_io.ml" 1269 42656 42678 "src/unix/lwt_io.ml" 1269 42656 42687
type(
  ('c _channel -> int32 Lwt.t) -> 'c channel -> int32 Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1269 42656 42688 "src/unix/lwt_io.ml" 1269 42656 42709
type(
  'c _channel -> int32 Lwt.t
)
ident(
  int_ref Primitives.read_int32 "src/unix/lwt_io.ml" 1046 33211 33219 "src/unix/lwt_io.ml" 1046 33211 33229
)
"src/unix/lwt_io.ml" 1269 42656 42710 "src/unix/lwt_io.ml" 1269 42656 42712
type(
  'c channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1269 42656 42673 "src/unix/lwt_io.ml" 1269 42656 42675
)
"src/unix/lwt_io.ml" 1269 42656 42678 "src/unix/lwt_io.ml" 1269 42656 42712
call(
  tail
)
type(
  int32 Lwt.t
)
"src/unix/lwt_io.ml" 1270 42713 42719 "src/unix/lwt_io.ml" 1270 42713 42729
type(
  'd channel -> int64 Lwt.t
)
ident(
  def read_int64 "src/unix/lwt_io.ml" 1271 42770 42772 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1270 42713 42730 "src/unix/lwt_io.ml" 1270 42713 42732
type(
  'd channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1270 42713 42735 "src/unix/lwt_io.ml" 1270 42713 42769
)
"src/unix/lwt_io.ml" 1270 42713 42735 "src/unix/lwt_io.ml" 1270 42713 42744
type(
  ('d _channel -> int64 Lwt.t) -> 'd channel -> int64 Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1270 42713 42745 "src/unix/lwt_io.ml" 1270 42713 42766
type(
  'd _channel -> int64 Lwt.t
)
ident(
  int_ref Primitives.read_int64 "src/unix/lwt_io.ml" 1061 33823 33831 "src/unix/lwt_io.ml" 1061 33823 33841
)
"src/unix/lwt_io.ml" 1270 42713 42767 "src/unix/lwt_io.ml" 1270 42713 42769
type(
  'd channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1270 42713 42730 "src/unix/lwt_io.ml" 1270 42713 42732
)
"src/unix/lwt_io.ml" 1270 42713 42735 "src/unix/lwt_io.ml" 1270 42713 42769
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1271 42770 42776 "src/unix/lwt_io.ml" 1271 42770 42788
type(
  'e channel -> float Lwt.t
)
ident(
  def read_float32 "src/unix/lwt_io.ml" 1272 42831 42833 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1271 42770 42789 "src/unix/lwt_io.ml" 1271 42770 42791
type(
  'e channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1271 42770 42794 "src/unix/lwt_io.ml" 1271 42770 42830
)
"src/unix/lwt_io.ml" 1271 42770 42794 "src/unix/lwt_io.ml" 1271 42770 42803
type(
  ('e _channel -> float Lwt.t) -> 'e channel -> float Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1271 42770 42804 "src/unix/lwt_io.ml" 1271 42770 42827
type(
  'e _channel -> float Lwt.t
)
ident(
  int_ref Primitives.read_float32 "src/unix/lwt_io.ml" 1088 35055 35063 "src/unix/lwt_io.ml" 1088 35055 35075
)
"src/unix/lwt_io.ml" 1271 42770 42828 "src/unix/lwt_io.ml" 1271 42770 42830
type(
  'e channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1271 42770 42789 "src/unix/lwt_io.ml" 1271 42770 42791
)
"src/unix/lwt_io.ml" 1271 42770 42794 "src/unix/lwt_io.ml" 1271 42770 42830
call(
  tail
)
type(
  float Lwt.t
)
"src/unix/lwt_io.ml" 1272 42831 42837 "src/unix/lwt_io.ml" 1272 42831 42849
type(
  'f channel -> float Lwt.t
)
ident(
  def read_float64 "src/unix/lwt_io.ml" 1274 42893 42895 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1272 42831 42850 "src/unix/lwt_io.ml" 1272 42831 42852
type(
  'f channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1272 42831 42855 "src/unix/lwt_io.ml" 1272 42831 42891
)
"src/unix/lwt_io.ml" 1272 42831 42855 "src/unix/lwt_io.ml" 1272 42831 42864
type(
  ('f _channel -> float Lwt.t) -> 'f channel -> float Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1272 42831 42865 "src/unix/lwt_io.ml" 1272 42831 42888
type(
  'f _channel -> float Lwt.t
)
ident(
  int_ref Primitives.read_float64 "src/unix/lwt_io.ml" 1089 35143 35151 "src/unix/lwt_io.ml" 1089 35143 35163
)
"src/unix/lwt_io.ml" 1272 42831 42889 "src/unix/lwt_io.ml" 1272 42831 42891
type(
  'f channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1272 42831 42850 "src/unix/lwt_io.ml" 1272 42831 42852
)
"src/unix/lwt_io.ml" 1272 42831 42855 "src/unix/lwt_io.ml" 1272 42831 42891
call(
  tail
)
type(
  float Lwt.t
)
"src/unix/lwt_io.ml" 1274 42893 42899 "src/unix/lwt_io.ml" 1274 42893 42908
type(
  'g channel -> int -> unit Lwt.t
)
ident(
  def write_int "src/unix/lwt_io.ml" 1275 42967 42969 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1274 42893 42909 "src/unix/lwt_io.ml" 1274 42893 42911
type(
  'g channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1274 42893 42912 "src/unix/lwt_io.ml" 1274 42893 42966
)
"src/unix/lwt_io.ml" 1274 42893 42912 "src/unix/lwt_io.ml" 1274 42893 42913
type(
  int
)
ident(
  def x "src/unix/lwt_io.ml" 1274 42893 42916 "src/unix/lwt_io.ml" 1274 42893 42966
)
"src/unix/lwt_io.ml" 1274 42893 42916 "src/unix/lwt_io.ml" 1274 42893 42925
type(
  ('g _channel -> unit Lwt.t) -> 'g channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1274 42893 42931 "src/unix/lwt_io.ml" 1274 42893 42933
type(
  'g _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1274 42893 42937 "src/unix/lwt_io.ml" 1274 42893 42962
)
"src/unix/lwt_io.ml" 1274 42893 42937 "src/unix/lwt_io.ml" 1274 42893 42957
type(
  'g _channel -> int -> unit Lwt.t
)
ident(
  int_ref Primitives.write_int "src/unix/lwt_io.ml" 1097 35529 35537 "src/unix/lwt_io.ml" 1097 35529 35546
)
"src/unix/lwt_io.ml" 1274 42893 42958 "src/unix/lwt_io.ml" 1274 42893 42960
type(
  'g _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1274 42893 42931 "src/unix/lwt_io.ml" 1274 42893 42933
)
"src/unix/lwt_io.ml" 1274 42893 42961 "src/unix/lwt_io.ml" 1274 42893 42962
type(
  int
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1274 42893 42912 "src/unix/lwt_io.ml" 1274 42893 42913
)
"src/unix/lwt_io.ml" 1274 42893 42937 "src/unix/lwt_io.ml" 1274 42893 42962
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1274 42893 42926 "src/unix/lwt_io.ml" 1274 42893 42963
type(
  'g _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1274 42893 42964 "src/unix/lwt_io.ml" 1274 42893 42966
type(
  'g channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1274 42893 42909 "src/unix/lwt_io.ml" 1274 42893 42911
)
"src/unix/lwt_io.ml" 1274 42893 42916 "src/unix/lwt_io.ml" 1274 42893 42966
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1275 42967 42973 "src/unix/lwt_io.ml" 1275 42967 42984
type(
  'h channel -> int -> unit Lwt.t
)
ident(
  def write_int16 "src/unix/lwt_io.ml" 1276 43045 43047 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1275 42967 42985 "src/unix/lwt_io.ml" 1275 42967 42987
type(
  'h channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1275 42967 42988 "src/unix/lwt_io.ml" 1275 42967 43044
)
"src/unix/lwt_io.ml" 1275 42967 42988 "src/unix/lwt_io.ml" 1275 42967 42989
type(
  int
)
ident(
  def x "src/unix/lwt_io.ml" 1275 42967 42992 "src/unix/lwt_io.ml" 1275 42967 43044
)
"src/unix/lwt_io.ml" 1275 42967 42992 "src/unix/lwt_io.ml" 1275 42967 43001
type(
  ('h _channel -> unit Lwt.t) -> 'h channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1275 42967 43007 "src/unix/lwt_io.ml" 1275 42967 43009
type(
  'h _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1275 42967 43013 "src/unix/lwt_io.ml" 1275 42967 43040
)
"src/unix/lwt_io.ml" 1275 42967 43013 "src/unix/lwt_io.ml" 1275 42967 43035
type(
  'h _channel -> int -> unit Lwt.t
)
ident(
  int_ref Primitives.write_int16 "src/unix/lwt_io.ml" 1106 35830 35838 "src/unix/lwt_io.ml" 1106 35830 35849
)
"src/unix/lwt_io.ml" 1275 42967 43036 "src/unix/lwt_io.ml" 1275 42967 43038
type(
  'h _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1275 42967 43007 "src/unix/lwt_io.ml" 1275 42967 43009
)
"src/unix/lwt_io.ml" 1275 42967 43039 "src/unix/lwt_io.ml" 1275 42967 43040
type(
  int
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1275 42967 42988 "src/unix/lwt_io.ml" 1275 42967 42989
)
"src/unix/lwt_io.ml" 1275 42967 43013 "src/unix/lwt_io.ml" 1275 42967 43040
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1275 42967 43002 "src/unix/lwt_io.ml" 1275 42967 43041
type(
  'h _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1275 42967 43042 "src/unix/lwt_io.ml" 1275 42967 43044
type(
  'h channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1275 42967 42985 "src/unix/lwt_io.ml" 1275 42967 42987
)
"src/unix/lwt_io.ml" 1275 42967 42992 "src/unix/lwt_io.ml" 1275 42967 43044
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1276 43045 43051 "src/unix/lwt_io.ml" 1276 43045 43062
type(
  'i channel -> int32 -> unit Lwt.t
)
ident(
  def write_int32 "src/unix/lwt_io.ml" 1277 43123 43125 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1276 43045 43063 "src/unix/lwt_io.ml" 1276 43045 43065
type(
  'i channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1276 43045 43066 "src/unix/lwt_io.ml" 1276 43045 43122
)
"src/unix/lwt_io.ml" 1276 43045 43066 "src/unix/lwt_io.ml" 1276 43045 43067
type(
  int32
)
ident(
  def x "src/unix/lwt_io.ml" 1276 43045 43070 "src/unix/lwt_io.ml" 1276 43045 43122
)
"src/unix/lwt_io.ml" 1276 43045 43070 "src/unix/lwt_io.ml" 1276 43045 43079
type(
  ('i _channel -> unit Lwt.t) -> 'i channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1276 43045 43085 "src/unix/lwt_io.ml" 1276 43045 43087
type(
  'i _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1276 43045 43091 "src/unix/lwt_io.ml" 1276 43045 43118
)
"src/unix/lwt_io.ml" 1276 43045 43091 "src/unix/lwt_io.ml" 1276 43045 43113
type(
  'i _channel -> int32 -> unit Lwt.t
)
ident(
  int_ref Primitives.write_int32 "src/unix/lwt_io.ml" 1113 36033 36041 "src/unix/lwt_io.ml" 1113 36033 36052
)
"src/unix/lwt_io.ml" 1276 43045 43114 "src/unix/lwt_io.ml" 1276 43045 43116
type(
  'i _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1276 43045 43085 "src/unix/lwt_io.ml" 1276 43045 43087
)
"src/unix/lwt_io.ml" 1276 43045 43117 "src/unix/lwt_io.ml" 1276 43045 43118
type(
  int32
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1276 43045 43066 "src/unix/lwt_io.ml" 1276 43045 43067
)
"src/unix/lwt_io.ml" 1276 43045 43091 "src/unix/lwt_io.ml" 1276 43045 43118
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1276 43045 43080 "src/unix/lwt_io.ml" 1276 43045 43119
type(
  'i _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1276 43045 43120 "src/unix/lwt_io.ml" 1276 43045 43122
type(
  'i channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1276 43045 43063 "src/unix/lwt_io.ml" 1276 43045 43065
)
"src/unix/lwt_io.ml" 1276 43045 43070 "src/unix/lwt_io.ml" 1276 43045 43122
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1277 43123 43129 "src/unix/lwt_io.ml" 1277 43123 43140
type(
  'j channel -> int64 -> unit Lwt.t
)
ident(
  def write_int64 "src/unix/lwt_io.ml" 1278 43201 43203 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1277 43123 43141 "src/unix/lwt_io.ml" 1277 43123 43143
type(
  'j channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1277 43123 43144 "src/unix/lwt_io.ml" 1277 43123 43200
)
"src/unix/lwt_io.ml" 1277 43123 43144 "src/unix/lwt_io.ml" 1277 43123 43145
type(
  int64
)
ident(
  def x "src/unix/lwt_io.ml" 1277 43123 43148 "src/unix/lwt_io.ml" 1277 43123 43200
)
"src/unix/lwt_io.ml" 1277 43123 43148 "src/unix/lwt_io.ml" 1277 43123 43157
type(
  ('j _channel -> unit Lwt.t) -> 'j channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1277 43123 43163 "src/unix/lwt_io.ml" 1277 43123 43165
type(
  'j _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1277 43123 43169 "src/unix/lwt_io.ml" 1277 43123 43196
)
"src/unix/lwt_io.ml" 1277 43123 43169 "src/unix/lwt_io.ml" 1277 43123 43191
type(
  'j _channel -> int64 -> unit Lwt.t
)
ident(
  int_ref Primitives.write_int64 "src/unix/lwt_io.ml" 1122 36438 36446 "src/unix/lwt_io.ml" 1122 36438 36457
)
"src/unix/lwt_io.ml" 1277 43123 43192 "src/unix/lwt_io.ml" 1277 43123 43194
type(
  'j _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1277 43123 43163 "src/unix/lwt_io.ml" 1277 43123 43165
)
"src/unix/lwt_io.ml" 1277 43123 43195 "src/unix/lwt_io.ml" 1277 43123 43196
type(
  int64
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1277 43123 43144 "src/unix/lwt_io.ml" 1277 43123 43145
)
"src/unix/lwt_io.ml" 1277 43123 43169 "src/unix/lwt_io.ml" 1277 43123 43196
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1277 43123 43158 "src/unix/lwt_io.ml" 1277 43123 43197
type(
  'j _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1277 43123 43198 "src/unix/lwt_io.ml" 1277 43123 43200
type(
  'j channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1277 43123 43141 "src/unix/lwt_io.ml" 1277 43123 43143
)
"src/unix/lwt_io.ml" 1277 43123 43148 "src/unix/lwt_io.ml" 1277 43123 43200
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1278 43201 43207 "src/unix/lwt_io.ml" 1278 43201 43220
type(
  'k channel -> float -> unit Lwt.t
)
ident(
  def write_float32 "src/unix/lwt_io.ml" 1279 43283 43285 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1278 43201 43221 "src/unix/lwt_io.ml" 1278 43201 43223
type(
  'k channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1278 43201 43224 "src/unix/lwt_io.ml" 1278 43201 43282
)
"src/unix/lwt_io.ml" 1278 43201 43224 "src/unix/lwt_io.ml" 1278 43201 43225
type(
  float
)
ident(
  def x "src/unix/lwt_io.ml" 1278 43201 43228 "src/unix/lwt_io.ml" 1278 43201 43282
)
"src/unix/lwt_io.ml" 1278 43201 43228 "src/unix/lwt_io.ml" 1278 43201 43237
type(
  ('k _channel -> unit Lwt.t) -> 'k channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1278 43201 43243 "src/unix/lwt_io.ml" 1278 43201 43245
type(
  'k _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1278 43201 43249 "src/unix/lwt_io.ml" 1278 43201 43278
)
"src/unix/lwt_io.ml" 1278 43201 43249 "src/unix/lwt_io.ml" 1278 43201 43273
type(
  'k _channel -> float -> unit Lwt.t
)
ident(
  int_ref Primitives.write_float32 "src/unix/lwt_io.ml" 1135 37159 37167 "src/unix/lwt_io.ml" 1135 37159 37180
)
"src/unix/lwt_io.ml" 1278 43201 43274 "src/unix/lwt_io.ml" 1278 43201 43276
type(
  'k _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1278 43201 43243 "src/unix/lwt_io.ml" 1278 43201 43245
)
"src/unix/lwt_io.ml" 1278 43201 43277 "src/unix/lwt_io.ml" 1278 43201 43278
type(
  float
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1278 43201 43224 "src/unix/lwt_io.ml" 1278 43201 43225
)
"src/unix/lwt_io.ml" 1278 43201 43249 "src/unix/lwt_io.ml" 1278 43201 43278
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1278 43201 43238 "src/unix/lwt_io.ml" 1278 43201 43279
type(
  'k _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1278 43201 43280 "src/unix/lwt_io.ml" 1278 43201 43282
type(
  'k channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1278 43201 43221 "src/unix/lwt_io.ml" 1278 43201 43223
)
"src/unix/lwt_io.ml" 1278 43201 43228 "src/unix/lwt_io.ml" 1278 43201 43282
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1279 43283 43289 "src/unix/lwt_io.ml" 1279 43283 43302
type(
  'l channel -> float -> unit Lwt.t
)
ident(
  def write_float64 "src/unix/lwt_io.ml" 1279 43283 43364 "src/unix/lwt_io.ml" 1280 43365 43368
)
"src/unix/lwt_io.ml" 1279 43283 43303 "src/unix/lwt_io.ml" 1279 43283 43305
type(
  'l channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1279 43283 43306 "src/unix/lwt_io.ml" 1279 43283 43364
)
"src/unix/lwt_io.ml" 1279 43283 43306 "src/unix/lwt_io.ml" 1279 43283 43307
type(
  float
)
ident(
  def x "src/unix/lwt_io.ml" 1279 43283 43310 "src/unix/lwt_io.ml" 1279 43283 43364
)
"src/unix/lwt_io.ml" 1279 43283 43310 "src/unix/lwt_io.ml" 1279 43283 43319
type(
  ('l _channel -> unit Lwt.t) -> 'l channel -> unit Lwt.t
)
ident(
  int_ref primitive "src/unix/lwt_io.ml" 352 11320 11324 "src/unix/lwt_io.ml" 352 11320 11333
)
"src/unix/lwt_io.ml" 1279 43283 43325 "src/unix/lwt_io.ml" 1279 43283 43327
type(
  'l _channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1279 43283 43331 "src/unix/lwt_io.ml" 1279 43283 43360
)
"src/unix/lwt_io.ml" 1279 43283 43331 "src/unix/lwt_io.ml" 1279 43283 43355
type(
  'l _channel -> float -> unit Lwt.t
)
ident(
  int_ref Primitives.write_float64 "src/unix/lwt_io.ml" 1136 37227 37235 "src/unix/lwt_io.ml" 1136 37227 37248
)
"src/unix/lwt_io.ml" 1279 43283 43356 "src/unix/lwt_io.ml" 1279 43283 43358
type(
  'l _channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1279 43283 43325 "src/unix/lwt_io.ml" 1279 43283 43327
)
"src/unix/lwt_io.ml" 1279 43283 43359 "src/unix/lwt_io.ml" 1279 43283 43360
type(
  float
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1279 43283 43306 "src/unix/lwt_io.ml" 1279 43283 43307
)
"src/unix/lwt_io.ml" 1279 43283 43331 "src/unix/lwt_io.ml" 1279 43283 43360
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1279 43283 43320 "src/unix/lwt_io.ml" 1279 43283 43361
type(
  'l _channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1279 43283 43362 "src/unix/lwt_io.ml" 1279 43283 43364
type(
  'l channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1279 43283 43303 "src/unix/lwt_io.ml" 1279 43283 43305
)
"src/unix/lwt_io.ml" 1279 43283 43310 "src/unix/lwt_io.ml" 1279 43283 43364
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1282 43370 43382 "src/unix/lwt_io.ml" 1282 43370 43408
call(
  stack
)
"src/unix/lwt_io.ml" 1283 43409 43421 "src/unix/lwt_io.ml" 1283 43409 43447
call(
  stack
)
"src/unix/lwt_io.ml" 1286 43515 43519 "src/unix/lwt_io.ml" 1286 43515 43536
type(
  Lwt_sys.byte_order
)
ident(
  def system_byte_order "src/unix/lwt_io.ml" 1288 43559 43559 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1286 43515 43539 "src/unix/lwt_io.ml" 1286 43515 43557
type(
  Lwt_sys.byte_order
)
ident(
  ext_ref Lwt_sys.byte_order
)
"src/unix/lwt_io.ml" 1288 43559 43579 "src/unix/lwt_io.ml" 1288 43559 43596
type(
  Lwt_sys.byte_order
)
ident(
  int_ref system_byte_order "src/unix/lwt_io.ml" 1286 43515 43519 "src/unix/lwt_io.ml" 1286 43515 43536
)
"src/unix/lwt_io.ml" 1289 43602 43620 "src/unix/lwt_io.ml" 1289 43602 43633
type(
  byte_order
)
"src/unix/lwt_io.ml" 1290 43660 43678 "src/unix/lwt_io.ml" 1290 43660 43688
type(
  byte_order
)
"src/unix/lwt_io.ml" 1288 43559 43572 "src/unix/lwt_io.ml" 1290 43660 43715
type(
  (module NumberIO)
)
type(
  (module NumberIO)
)
"src/unix/lwt_io.ml" 1296 43946 43950 "src/unix/lwt_io.ml" 1296 43946 43960
type(
  'a channel -> char Lwt_stream.t
)
ident(
  def read_chars "src/unix/lwt_io.ml" 1297 44010 44010 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1296 43946 43961 "src/unix/lwt_io.ml" 1296 43946 43963
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1296 43946 43966 "src/unix/lwt_io.ml" 1296 43946 44009
)
"src/unix/lwt_io.ml" 1296 43946 43966 "src/unix/lwt_io.ml" 1296 43946 43981
type(
  (unit -> char option Lwt.t) -> char Lwt_stream.t
)
ident(
  ext_ref Lwt_stream.from
)
"src/unix/lwt_io.ml" 1296 43946 43987 "src/unix/lwt_io.ml" 1296 43946 43988
type(
  unit
)
"src/unix/lwt_io.ml" 1296 43946 43992 "src/unix/lwt_io.ml" 1296 43946 44005
type(
  'a channel -> char option Lwt.t
)
ident(
  int_ref read_char_opt "src/unix/lwt_io.ml" 1200 39517 39521 "src/unix/lwt_io.ml" 1200 39517 39534
)
"src/unix/lwt_io.ml" 1296 43946 44006 "src/unix/lwt_io.ml" 1296 43946 44008
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1296 43946 43961 "src/unix/lwt_io.ml" 1296 43946 43963
)
"src/unix/lwt_io.ml" 1296 43946 43992 "src/unix/lwt_io.ml" 1296 43946 44008
call(
  tail
)
type(
  char option Lwt.t
)
"src/unix/lwt_io.ml" 1296 43946 43982 "src/unix/lwt_io.ml" 1296 43946 44009
type(
  unit -> char option Lwt.t
)
"src/unix/lwt_io.ml" 1296 43946 43966 "src/unix/lwt_io.ml" 1296 43946 44009
call(
  tail
)
type(
  char Lwt_stream.t
)
"src/unix/lwt_io.ml" 1297 44010 44014 "src/unix/lwt_io.ml" 1297 44010 44025
type(
  'a channel -> char Lwt_stream.t -> unit Lwt.t
)
ident(
  def write_chars "src/unix/lwt_io.ml" 1298 44094 44094 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1297 44010 44026 "src/unix/lwt_io.ml" 1297 44010 44028
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1297 44010 44029 "src/unix/lwt_io.ml" 1297 44010 44093
)
"src/unix/lwt_io.ml" 1297 44010 44029 "src/unix/lwt_io.ml" 1297 44010 44034
type(
  char Lwt_stream.t
)
ident(
  def chars "src/unix/lwt_io.ml" 1297 44010 44037 "src/unix/lwt_io.ml" 1297 44010 44093
)
"src/unix/lwt_io.ml" 1297 44010 44037 "src/unix/lwt_io.ml" 1297 44010 44054
type(
  (char -> unit Lwt.t) -> char Lwt_stream.t -> unit Lwt.t
)
ident(
  ext_ref Lwt_stream.iter_s
)
"src/unix/lwt_io.ml" 1297 44010 44060 "src/unix/lwt_io.ml" 1297 44010 44064
type(
  char
)
ident(
  def char "src/unix/lwt_io.ml" 1297 44010 44068 "src/unix/lwt_io.ml" 1297 44010 44086
)
"src/unix/lwt_io.ml" 1297 44010 44068 "src/unix/lwt_io.ml" 1297 44010 44078
type(
  'a channel -> char -> unit Lwt.t
)
ident(
  int_ref write_char "src/unix/lwt_io.ml" 1218 40302 40306 "src/unix/lwt_io.ml" 1218 40302 40316
)
"src/unix/lwt_io.ml" 1297 44010 44079 "src/unix/lwt_io.ml" 1297 44010 44081
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1297 44010 44026 "src/unix/lwt_io.ml" 1297 44010 44028
)
"src/unix/lwt_io.ml" 1297 44010 44082 "src/unix/lwt_io.ml" 1297 44010 44086
type(
  char
)
ident(
  int_ref char "src/unix/lwt_io.ml" 1297 44010 44060 "src/unix/lwt_io.ml" 1297 44010 44064
)
"src/unix/lwt_io.ml" 1297 44010 44068 "src/unix/lwt_io.ml" 1297 44010 44086
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1297 44010 44055 "src/unix/lwt_io.ml" 1297 44010 44087
type(
  char -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1297 44010 44088 "src/unix/lwt_io.ml" 1297 44010 44093
type(
  char Lwt_stream.t
)
ident(
  int_ref chars "src/unix/lwt_io.ml" 1297 44010 44029 "src/unix/lwt_io.ml" 1297 44010 44034
)
"src/unix/lwt_io.ml" 1297 44010 44037 "src/unix/lwt_io.ml" 1297 44010 44093
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1298 44094 44098 "src/unix/lwt_io.ml" 1298 44094 44108
type(
  'a channel -> string Lwt_stream.t
)
ident(
  def read_lines "src/unix/lwt_io.ml" 1299 44158 44158 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1298 44094 44109 "src/unix/lwt_io.ml" 1298 44094 44111
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1298 44094 44114 "src/unix/lwt_io.ml" 1298 44094 44157
)
"src/unix/lwt_io.ml" 1298 44094 44114 "src/unix/lwt_io.ml" 1298 44094 44129
type(
  (unit -> string option Lwt.t) -> string Lwt_stream.t
)
ident(
  ext_ref Lwt_stream.from
)
"src/unix/lwt_io.ml" 1298 44094 44135 "src/unix/lwt_io.ml" 1298 44094 44136
type(
  unit
)
"src/unix/lwt_io.ml" 1298 44094 44140 "src/unix/lwt_io.ml" 1298 44094 44153
type(
  'a channel -> string option Lwt.t
)
ident(
  int_ref read_line_opt "src/unix/lwt_io.ml" 1210 39868 39872 "src/unix/lwt_io.ml" 1210 39868 39885
)
"src/unix/lwt_io.ml" 1298 44094 44154 "src/unix/lwt_io.ml" 1298 44094 44156
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1298 44094 44109 "src/unix/lwt_io.ml" 1298 44094 44111
)
"src/unix/lwt_io.ml" 1298 44094 44140 "src/unix/lwt_io.ml" 1298 44094 44156
call(
  tail
)
type(
  string option Lwt.t
)
"src/unix/lwt_io.ml" 1298 44094 44130 "src/unix/lwt_io.ml" 1298 44094 44157
type(
  unit -> string option Lwt.t
)
"src/unix/lwt_io.ml" 1298 44094 44114 "src/unix/lwt_io.ml" 1298 44094 44157
call(
  tail
)
type(
  string Lwt_stream.t
)
"src/unix/lwt_io.ml" 1299 44158 44162 "src/unix/lwt_io.ml" 1299 44158 44173
type(
  'a channel -> string Lwt_stream.t -> unit Lwt.t
)
ident(
  def write_lines "src/unix/lwt_io.ml" 1301 44243 44243 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1299 44158 44174 "src/unix/lwt_io.ml" 1299 44158 44176
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1299 44158 44177 "src/unix/lwt_io.ml" 1299 44158 44241
)
"src/unix/lwt_io.ml" 1299 44158 44177 "src/unix/lwt_io.ml" 1299 44158 44182
type(
  string Lwt_stream.t
)
ident(
  def lines "src/unix/lwt_io.ml" 1299 44158 44185 "src/unix/lwt_io.ml" 1299 44158 44241
)
"src/unix/lwt_io.ml" 1299 44158 44185 "src/unix/lwt_io.ml" 1299 44158 44202
type(
  (string -> unit Lwt.t) -> string Lwt_stream.t -> unit Lwt.t
)
ident(
  ext_ref Lwt_stream.iter_s
)
"src/unix/lwt_io.ml" 1299 44158 44208 "src/unix/lwt_io.ml" 1299 44158 44212
type(
  string
)
ident(
  def line "src/unix/lwt_io.ml" 1299 44158 44216 "src/unix/lwt_io.ml" 1299 44158 44234
)
"src/unix/lwt_io.ml" 1299 44158 44216 "src/unix/lwt_io.ml" 1299 44158 44226
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  int_ref write_line "src/unix/lwt_io.ml" 1235 40884 40888 "src/unix/lwt_io.ml" 1235 40884 40898
)
"src/unix/lwt_io.ml" 1299 44158 44227 "src/unix/lwt_io.ml" 1299 44158 44229
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1299 44158 44174 "src/unix/lwt_io.ml" 1299 44158 44176
)
"src/unix/lwt_io.ml" 1299 44158 44230 "src/unix/lwt_io.ml" 1299 44158 44234
type(
  string
)
ident(
  int_ref line "src/unix/lwt_io.ml" 1299 44158 44208 "src/unix/lwt_io.ml" 1299 44158 44212
)
"src/unix/lwt_io.ml" 1299 44158 44216 "src/unix/lwt_io.ml" 1299 44158 44234
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1299 44158 44203 "src/unix/lwt_io.ml" 1299 44158 44235
type(
  string -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1299 44158 44236 "src/unix/lwt_io.ml" 1299 44158 44241
type(
  string Lwt_stream.t
)
ident(
  int_ref lines "src/unix/lwt_io.ml" 1299 44158 44177 "src/unix/lwt_io.ml" 1299 44158 44182
)
"src/unix/lwt_io.ml" 1299 44158 44185 "src/unix/lwt_io.ml" 1299 44158 44241
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1301 44243 44247 "src/unix/lwt_io.ml" 1301 44243 44251
type(
  input channel
)
ident(
  def zero "src/unix/lwt_io.ml" 1307 44400 44400 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1302 44254 44256 "src/unix/lwt_io.ml" 1302 44254 44260
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:input mode ->
  (Lwt_bytes.t -> int -> int -> int Lwt.t) -> input channel
)
ident(
  int_ref make "src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 493 15866 15874
)
"src/unix/lwt_io.ml" 1303 44261 44271 "src/unix/lwt_io.ml" 1303 44261 44276
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1304 44277 44290 "src/unix/lwt_io.ml" 1304 44277 44306
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 1304 44277 44307 "src/unix/lwt_io.ml" 1304 44277 44322
type(
  int
)
ident(
  int_ref min_buffer_size "src/unix/lwt_io.ml" 28 1016 1020 "src/unix/lwt_io.ml" 28 1016 1035
)
"src/unix/lwt_io.ml" 1304 44277 44289 "src/unix/lwt_io.ml" 1304 44277 44323
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1305 44324 44333 "src/unix/lwt_io.ml" 1305 44324 44336
type(
  Lwt_bytes.t
)
ident(
  def str "src/unix/lwt_io.ml" 1305 44324 44337 "src/unix/lwt_io.ml" 1305 44324 44397
)
"src/unix/lwt_io.ml" 1305 44324 44337 "src/unix/lwt_io.ml" 1305 44324 44340
type(
  int
)
ident(
  def ofs "src/unix/lwt_io.ml" 1305 44324 44341 "src/unix/lwt_io.ml" 1305 44324 44397
)
"src/unix/lwt_io.ml" 1305 44324 44341 "src/unix/lwt_io.ml" 1305 44324 44344
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1305 44324 44348 "src/unix/lwt_io.ml" 1305 44324 44397
)
"src/unix/lwt_io.ml" 1305 44324 44348 "src/unix/lwt_io.ml" 1305 44324 44362
type(
  Lwt_bytes.t -> int -> int -> char -> unit
)
ident(
  ext_ref Lwt_bytes.fill
)
"src/unix/lwt_io.ml" 1305 44324 44363 "src/unix/lwt_io.ml" 1305 44324 44366
type(
  Lwt_bytes.t
)
ident(
  int_ref str "src/unix/lwt_io.ml" 1305 44324 44333 "src/unix/lwt_io.ml" 1305 44324 44336
)
"src/unix/lwt_io.ml" 1305 44324 44367 "src/unix/lwt_io.ml" 1305 44324 44370
type(
  int
)
ident(
  int_ref ofs "src/unix/lwt_io.ml" 1305 44324 44337 "src/unix/lwt_io.ml" 1305 44324 44340
)
"src/unix/lwt_io.ml" 1305 44324 44371 "src/unix/lwt_io.ml" 1305 44324 44374
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1305 44324 44341 "src/unix/lwt_io.ml" 1305 44324 44344
)
"src/unix/lwt_io.ml" 1305 44324 44375 "src/unix/lwt_io.ml" 1305 44324 44381
type(
  char
)
"src/unix/lwt_io.ml" 1305 44324 44348 "src/unix/lwt_io.ml" 1305 44324 44381
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1305 44324 44383 "src/unix/lwt_io.ml" 1305 44324 44393
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1305 44324 44394 "src/unix/lwt_io.ml" 1305 44324 44397
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1305 44324 44341 "src/unix/lwt_io.ml" 1305 44324 44344
)
"src/unix/lwt_io.ml" 1305 44324 44383 "src/unix/lwt_io.ml" 1305 44324 44397
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1305 44324 44348 "src/unix/lwt_io.ml" 1305 44324 44397
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1305 44324 44328 "src/unix/lwt_io.ml" 1305 44324 44398
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1302 44254 44256 "src/unix/lwt_io.ml" 1305 44324 44398
call(
  stack
)
type(
  input channel
)
"src/unix/lwt_io.ml" 1307 44400 44404 "src/unix/lwt_io.ml" 1307 44400 44408
type(
  output channel
)
ident(
  def null "src/unix/lwt_io.ml" 1315 44620 44620 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1308 44411 44413 "src/unix/lwt_io.ml" 1308 44411 44417
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:output mode ->
  (Lwt_bytes.t -> int -> int -> int Lwt.t) -> output channel
)
ident(
  int_ref make "src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 493 15866 15874
)
"src/unix/lwt_io.ml" 1309 44418 44428 "src/unix/lwt_io.ml" 1309 44418 44434
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1310 44435 44448 "src/unix/lwt_io.ml" 1310 44435 44464
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 1310 44435 44465 "src/unix/lwt_io.ml" 1310 44435 44480
type(
  int
)
ident(
  int_ref min_buffer_size "src/unix/lwt_io.ml" 28 1016 1020 "src/unix/lwt_io.ml" 28 1016 1035
)
"src/unix/lwt_io.ml" 1310 44435 44447 "src/unix/lwt_io.ml" 1310 44435 44481
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1311 44482 44491 "src/unix/lwt_io.ml" 1311 44482 44495
type(
  Lwt_bytes.t
)
ident(
  def _str "src/unix/lwt_io.ml" 1311 44482 44496 "src/unix/lwt_io.ml" 1311 44482 44522
)
"src/unix/lwt_io.ml" 1311 44482 44496 "src/unix/lwt_io.ml" 1311 44482 44500
type(
  int
)
ident(
  def _ofs "src/unix/lwt_io.ml" 1311 44482 44501 "src/unix/lwt_io.ml" 1311 44482 44522
)
"src/unix/lwt_io.ml" 1311 44482 44501 "src/unix/lwt_io.ml" 1311 44482 44504
type(
  int
)
ident(
  def len "src/unix/lwt_io.ml" 1311 44482 44508 "src/unix/lwt_io.ml" 1311 44482 44522
)
"src/unix/lwt_io.ml" 1311 44482 44508 "src/unix/lwt_io.ml" 1311 44482 44518
type(
  int -> int Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1311 44482 44519 "src/unix/lwt_io.ml" 1311 44482 44522
type(
  int
)
ident(
  int_ref len "src/unix/lwt_io.ml" 1311 44482 44501 "src/unix/lwt_io.ml" 1311 44482 44504
)
"src/unix/lwt_io.ml" 1311 44482 44508 "src/unix/lwt_io.ml" 1311 44482 44522
call(
  tail
)
type(
  int Lwt.t
)
"src/unix/lwt_io.ml" 1311 44482 44486 "src/unix/lwt_io.ml" 1311 44482 44523
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1308 44411 44413 "src/unix/lwt_io.ml" 1311 44482 44523
call(
  stack
)
type(
  output channel
)
"src/unix/lwt_io.ml" 1315 44620 44624 "src/unix/lwt_io.ml" 1315 44620 44629
type(
  input channel
)
ident(
  def stdin "src/unix/lwt_io.ml" 1316 44665 44665 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1315 44620 44632 "src/unix/lwt_io.ml" 1315 44620 44637
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:input mode -> Lwt_unix.file_descr -> input channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1315 44620 44644 "src/unix/lwt_io.ml" 1315 44620 44649
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1315 44620 44650 "src/unix/lwt_io.ml" 1315 44620 44664
type(
  Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.stdin
)
"src/unix/lwt_io.ml" 1315 44620 44632 "src/unix/lwt_io.ml" 1315 44620 44664
call(
  stack
)
type(
  input channel
)
"src/unix/lwt_io.ml" 1316 44665 44669 "src/unix/lwt_io.ml" 1316 44665 44675
type(
  output channel
)
ident(
  def stdout "src/unix/lwt_io.ml" 1317 44713 44713 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1316 44665 44678 "src/unix/lwt_io.ml" 1316 44665 44683
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:output mode -> Lwt_unix.file_descr -> output channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1316 44665 44690 "src/unix/lwt_io.ml" 1316 44665 44696
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1316 44665 44697 "src/unix/lwt_io.ml" 1316 44665 44712
type(
  Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.stdout
)
"src/unix/lwt_io.ml" 1316 44665 44678 "src/unix/lwt_io.ml" 1316 44665 44712
call(
  stack
)
type(
  output channel
)
"src/unix/lwt_io.ml" 1317 44713 44717 "src/unix/lwt_io.ml" 1317 44713 44723
type(
  output channel
)
ident(
  def stderr "src/unix/lwt_io.ml" 1319 44762 44762 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1317 44713 44726 "src/unix/lwt_io.ml" 1317 44713 44731
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:output mode -> Lwt_unix.file_descr -> output channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1317 44713 44738 "src/unix/lwt_io.ml" 1317 44713 44744
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1317 44713 44745 "src/unix/lwt_io.ml" 1317 44713 44760
type(
  Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.stderr
)
"src/unix/lwt_io.ml" 1317 44713 44726 "src/unix/lwt_io.ml" 1317 44713 44760
call(
  stack
)
type(
  output channel
)
"src/unix/lwt_io.ml" 1319 44762 44766 "src/unix/lwt_io.ml" 1319 44762 44772
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  def fprint "src/unix/lwt_io.ml" 1320 44795 44795 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1319 44762 44773 "src/unix/lwt_io.ml" 1319 44762 44775
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1319 44762 44776 "src/unix/lwt_io.ml" 1319 44762 44794
)
"src/unix/lwt_io.ml" 1319 44762 44776 "src/unix/lwt_io.ml" 1319 44762 44779
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1319 44762 44782 "src/unix/lwt_io.ml" 1319 44762 44794
)
"src/unix/lwt_io.ml" 1319 44762 44782 "src/unix/lwt_io.ml" 1319 44762 44787
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  int_ref write "src/unix/lwt_io.ml" 1234 40816 40820 "src/unix/lwt_io.ml" 1234 40816 40825
)
"src/unix/lwt_io.ml" 1319 44762 44788 "src/unix/lwt_io.ml" 1319 44762 44790
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1319 44762 44773 "src/unix/lwt_io.ml" 1319 44762 44775
)
"src/unix/lwt_io.ml" 1319 44762 44791 "src/unix/lwt_io.ml" 1319 44762 44794
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1319 44762 44776 "src/unix/lwt_io.ml" 1319 44762 44779
)
"src/unix/lwt_io.ml" 1319 44762 44782 "src/unix/lwt_io.ml" 1319 44762 44794
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1320 44795 44799 "src/unix/lwt_io.ml" 1320 44795 44806
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  def fprintl "src/unix/lwt_io.ml" 1321 44834 44834 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1320 44795 44807 "src/unix/lwt_io.ml" 1320 44795 44809
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1320 44795 44810 "src/unix/lwt_io.ml" 1320 44795 44833
)
"src/unix/lwt_io.ml" 1320 44795 44810 "src/unix/lwt_io.ml" 1320 44795 44813
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1320 44795 44816 "src/unix/lwt_io.ml" 1320 44795 44833
)
"src/unix/lwt_io.ml" 1320 44795 44816 "src/unix/lwt_io.ml" 1320 44795 44826
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  int_ref write_line "src/unix/lwt_io.ml" 1235 40884 40888 "src/unix/lwt_io.ml" 1235 40884 40898
)
"src/unix/lwt_io.ml" 1320 44795 44827 "src/unix/lwt_io.ml" 1320 44795 44829
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1320 44795 44807 "src/unix/lwt_io.ml" 1320 44795 44809
)
"src/unix/lwt_io.ml" 1320 44795 44830 "src/unix/lwt_io.ml" 1320 44795 44833
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1320 44795 44810 "src/unix/lwt_io.ml" 1320 44795 44813
)
"src/unix/lwt_io.ml" 1320 44795 44816 "src/unix/lwt_io.ml" 1320 44795 44833
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1321 44834 44838 "src/unix/lwt_io.ml" 1321 44834 44845
type(
  'a channel -> ('b, unit, string, unit Lwt.t) format4 -> 'b
)
ident(
  def fprintf "src/unix/lwt_io.ml" 1322 44901 44901 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1321 44834 44846 "src/unix/lwt_io.ml" 1321 44834 44848
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1321 44834 44849 "src/unix/lwt_io.ml" 1321 44834 44900
)
"src/unix/lwt_io.ml" 1321 44834 44849 "src/unix/lwt_io.ml" 1321 44834 44852
type(
  ('b, unit, string, unit Lwt.t) format4
)
ident(
  def fmt "src/unix/lwt_io.ml" 1321 44834 44855 "src/unix/lwt_io.ml" 1321 44834 44900
)
"src/unix/lwt_io.ml" 1321 44834 44855 "src/unix/lwt_io.ml" 1321 44834 44870
type(
  (string -> unit Lwt.t) -> ('b, unit, string, unit Lwt.t) format4 -> 'b
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 1321 44834 44876 "src/unix/lwt_io.ml" 1321 44834 44879
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1321 44834 44883 "src/unix/lwt_io.ml" 1321 44834 44895
)
"src/unix/lwt_io.ml" 1321 44834 44883 "src/unix/lwt_io.ml" 1321 44834 44888
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  int_ref write "src/unix/lwt_io.ml" 1234 40816 40820 "src/unix/lwt_io.ml" 1234 40816 40825
)
"src/unix/lwt_io.ml" 1321 44834 44889 "src/unix/lwt_io.ml" 1321 44834 44891
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1321 44834 44846 "src/unix/lwt_io.ml" 1321 44834 44848
)
"src/unix/lwt_io.ml" 1321 44834 44892 "src/unix/lwt_io.ml" 1321 44834 44895
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1321 44834 44876 "src/unix/lwt_io.ml" 1321 44834 44879
)
"src/unix/lwt_io.ml" 1321 44834 44883 "src/unix/lwt_io.ml" 1321 44834 44895
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1321 44834 44871 "src/unix/lwt_io.ml" 1321 44834 44896
type(
  string -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1321 44834 44897 "src/unix/lwt_io.ml" 1321 44834 44900
type(
  ('b, unit, string, unit Lwt.t) format4
)
ident(
  int_ref fmt "src/unix/lwt_io.ml" 1321 44834 44849 "src/unix/lwt_io.ml" 1321 44834 44852
)
"src/unix/lwt_io.ml" 1321 44834 44855 "src/unix/lwt_io.ml" 1321 44834 44900
call(
  tail
)
type(
  'b
)
"src/unix/lwt_io.ml" 1322 44901 44905 "src/unix/lwt_io.ml" 1322 44901 44913
type(
  'a channel -> ('b, unit, string, unit Lwt.t) format4 -> 'b
)
ident(
  def fprintlf "src/unix/lwt_io.ml" 1324 44975 44975 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1322 44901 44914 "src/unix/lwt_io.ml" 1322 44901 44916
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1322 44901 44917 "src/unix/lwt_io.ml" 1322 44901 44973
)
"src/unix/lwt_io.ml" 1322 44901 44917 "src/unix/lwt_io.ml" 1322 44901 44920
type(
  ('b, unit, string, unit Lwt.t) format4
)
ident(
  def fmt "src/unix/lwt_io.ml" 1322 44901 44923 "src/unix/lwt_io.ml" 1322 44901 44973
)
"src/unix/lwt_io.ml" 1322 44901 44923 "src/unix/lwt_io.ml" 1322 44901 44938
type(
  (string -> unit Lwt.t) -> ('b, unit, string, unit Lwt.t) format4 -> 'b
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 1322 44901 44944 "src/unix/lwt_io.ml" 1322 44901 44947
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1322 44901 44951 "src/unix/lwt_io.ml" 1322 44901 44968
)
"src/unix/lwt_io.ml" 1322 44901 44951 "src/unix/lwt_io.ml" 1322 44901 44961
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  int_ref write_line "src/unix/lwt_io.ml" 1235 40884 40888 "src/unix/lwt_io.ml" 1235 40884 40898
)
"src/unix/lwt_io.ml" 1322 44901 44962 "src/unix/lwt_io.ml" 1322 44901 44964
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1322 44901 44914 "src/unix/lwt_io.ml" 1322 44901 44916
)
"src/unix/lwt_io.ml" 1322 44901 44965 "src/unix/lwt_io.ml" 1322 44901 44968
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1322 44901 44944 "src/unix/lwt_io.ml" 1322 44901 44947
)
"src/unix/lwt_io.ml" 1322 44901 44951 "src/unix/lwt_io.ml" 1322 44901 44968
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1322 44901 44939 "src/unix/lwt_io.ml" 1322 44901 44969
type(
  string -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1322 44901 44970 "src/unix/lwt_io.ml" 1322 44901 44973
type(
  ('b, unit, string, unit Lwt.t) format4
)
ident(
  int_ref fmt "src/unix/lwt_io.ml" 1322 44901 44917 "src/unix/lwt_io.ml" 1322 44901 44920
)
"src/unix/lwt_io.ml" 1322 44901 44923 "src/unix/lwt_io.ml" 1322 44901 44973
call(
  tail
)
type(
  'b
)
"src/unix/lwt_io.ml" 1324 44975 44979 "src/unix/lwt_io.ml" 1324 44975 44984
type(
  string -> unit Lwt.t
)
ident(
  def print "src/unix/lwt_io.ml" 1325 45008 45008 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1324 44975 44985 "src/unix/lwt_io.ml" 1324 44975 44988
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1324 44975 44991 "src/unix/lwt_io.ml" 1324 44975 45007
)
"src/unix/lwt_io.ml" 1324 44975 44991 "src/unix/lwt_io.ml" 1324 44975 44996
type(
  output channel -> string -> unit Lwt.t
)
ident(
  int_ref write "src/unix/lwt_io.ml" 1234 40816 40820 "src/unix/lwt_io.ml" 1234 40816 40825
)
"src/unix/lwt_io.ml" 1324 44975 44997 "src/unix/lwt_io.ml" 1324 44975 45003
type(
  output channel
)
ident(
  int_ref stdout "src/unix/lwt_io.ml" 1316 44665 44669 "src/unix/lwt_io.ml" 1316 44665 44675
)
"src/unix/lwt_io.ml" 1324 44975 45004 "src/unix/lwt_io.ml" 1324 44975 45007
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1324 44975 44985 "src/unix/lwt_io.ml" 1324 44975 44988
)
"src/unix/lwt_io.ml" 1324 44975 44991 "src/unix/lwt_io.ml" 1324 44975 45007
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1325 45008 45012 "src/unix/lwt_io.ml" 1325 45008 45018
type(
  string -> unit Lwt.t
)
ident(
  def printl "src/unix/lwt_io.ml" 1326 45047 45047 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1325 45008 45019 "src/unix/lwt_io.ml" 1325 45008 45022
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1325 45008 45025 "src/unix/lwt_io.ml" 1325 45008 45046
)
"src/unix/lwt_io.ml" 1325 45008 45025 "src/unix/lwt_io.ml" 1325 45008 45035
type(
  output channel -> string -> unit Lwt.t
)
ident(
  int_ref write_line "src/unix/lwt_io.ml" 1235 40884 40888 "src/unix/lwt_io.ml" 1235 40884 40898
)
"src/unix/lwt_io.ml" 1325 45008 45036 "src/unix/lwt_io.ml" 1325 45008 45042
type(
  output channel
)
ident(
  int_ref stdout "src/unix/lwt_io.ml" 1316 44665 44669 "src/unix/lwt_io.ml" 1316 44665 44675
)
"src/unix/lwt_io.ml" 1325 45008 45043 "src/unix/lwt_io.ml" 1325 45008 45046
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1325 45008 45019 "src/unix/lwt_io.ml" 1325 45008 45022
)
"src/unix/lwt_io.ml" 1325 45008 45025 "src/unix/lwt_io.ml" 1325 45008 45046
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1326 45047 45051 "src/unix/lwt_io.ml" 1326 45047 45057
type(
  ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  def printf "src/unix/lwt_io.ml" 1327 45090 45090 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1326 45047 45058 "src/unix/lwt_io.ml" 1326 45047 45061
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  def fmt "src/unix/lwt_io.ml" 1326 45047 45064 "src/unix/lwt_io.ml" 1326 45047 45089
)
"src/unix/lwt_io.ml" 1326 45047 45064 "src/unix/lwt_io.ml" 1326 45047 45079
type(
  (string -> unit Lwt.t) -> ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 1326 45047 45080 "src/unix/lwt_io.ml" 1326 45047 45085
type(
  string -> unit Lwt.t
)
ident(
  int_ref print "src/unix/lwt_io.ml" 1324 44975 44979 "src/unix/lwt_io.ml" 1324 44975 44984
)
"src/unix/lwt_io.ml" 1326 45047 45086 "src/unix/lwt_io.ml" 1326 45047 45089
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  int_ref fmt "src/unix/lwt_io.ml" 1326 45047 45058 "src/unix/lwt_io.ml" 1326 45047 45061
)
"src/unix/lwt_io.ml" 1326 45047 45064 "src/unix/lwt_io.ml" 1326 45047 45089
call(
  tail
)
type(
  'a
)
"src/unix/lwt_io.ml" 1327 45090 45094 "src/unix/lwt_io.ml" 1327 45090 45101
type(
  ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  def printlf "src/unix/lwt_io.ml" 1329 45136 45136 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1327 45090 45102 "src/unix/lwt_io.ml" 1327 45090 45105
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  def fmt "src/unix/lwt_io.ml" 1327 45090 45108 "src/unix/lwt_io.ml" 1327 45090 45134
)
"src/unix/lwt_io.ml" 1327 45090 45108 "src/unix/lwt_io.ml" 1327 45090 45123
type(
  (string -> unit Lwt.t) -> ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 1327 45090 45124 "src/unix/lwt_io.ml" 1327 45090 45130
type(
  string -> unit Lwt.t
)
ident(
  int_ref printl "src/unix/lwt_io.ml" 1325 45008 45012 "src/unix/lwt_io.ml" 1325 45008 45018
)
"src/unix/lwt_io.ml" 1327 45090 45131 "src/unix/lwt_io.ml" 1327 45090 45134
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  int_ref fmt "src/unix/lwt_io.ml" 1327 45090 45102 "src/unix/lwt_io.ml" 1327 45090 45105
)
"src/unix/lwt_io.ml" 1327 45090 45108 "src/unix/lwt_io.ml" 1327 45090 45134
call(
  tail
)
type(
  'a
)
"src/unix/lwt_io.ml" 1329 45136 45140 "src/unix/lwt_io.ml" 1329 45136 45146
type(
  string -> unit Lwt.t
)
ident(
  def eprint "src/unix/lwt_io.ml" 1330 45170 45170 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1329 45136 45147 "src/unix/lwt_io.ml" 1329 45136 45150
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1329 45136 45153 "src/unix/lwt_io.ml" 1329 45136 45169
)
"src/unix/lwt_io.ml" 1329 45136 45153 "src/unix/lwt_io.ml" 1329 45136 45158
type(
  output channel -> string -> unit Lwt.t
)
ident(
  int_ref write "src/unix/lwt_io.ml" 1234 40816 40820 "src/unix/lwt_io.ml" 1234 40816 40825
)
"src/unix/lwt_io.ml" 1329 45136 45159 "src/unix/lwt_io.ml" 1329 45136 45165
type(
  output channel
)
ident(
  int_ref stderr "src/unix/lwt_io.ml" 1317 44713 44717 "src/unix/lwt_io.ml" 1317 44713 44723
)
"src/unix/lwt_io.ml" 1329 45136 45166 "src/unix/lwt_io.ml" 1329 45136 45169
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1329 45136 45147 "src/unix/lwt_io.ml" 1329 45136 45150
)
"src/unix/lwt_io.ml" 1329 45136 45153 "src/unix/lwt_io.ml" 1329 45136 45169
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1330 45170 45174 "src/unix/lwt_io.ml" 1330 45170 45181
type(
  string -> unit Lwt.t
)
ident(
  def eprintl "src/unix/lwt_io.ml" 1331 45210 45210 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1330 45170 45182 "src/unix/lwt_io.ml" 1330 45170 45185
type(
  string
)
ident(
  def txt "src/unix/lwt_io.ml" 1330 45170 45188 "src/unix/lwt_io.ml" 1330 45170 45209
)
"src/unix/lwt_io.ml" 1330 45170 45188 "src/unix/lwt_io.ml" 1330 45170 45198
type(
  output channel -> string -> unit Lwt.t
)
ident(
  int_ref write_line "src/unix/lwt_io.ml" 1235 40884 40888 "src/unix/lwt_io.ml" 1235 40884 40898
)
"src/unix/lwt_io.ml" 1330 45170 45199 "src/unix/lwt_io.ml" 1330 45170 45205
type(
  output channel
)
ident(
  int_ref stderr "src/unix/lwt_io.ml" 1317 44713 44717 "src/unix/lwt_io.ml" 1317 44713 44723
)
"src/unix/lwt_io.ml" 1330 45170 45206 "src/unix/lwt_io.ml" 1330 45170 45209
type(
  string
)
ident(
  int_ref txt "src/unix/lwt_io.ml" 1330 45170 45182 "src/unix/lwt_io.ml" 1330 45170 45185
)
"src/unix/lwt_io.ml" 1330 45170 45188 "src/unix/lwt_io.ml" 1330 45170 45209
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1331 45210 45214 "src/unix/lwt_io.ml" 1331 45210 45221
type(
  ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  def eprintf "src/unix/lwt_io.ml" 1332 45255 45255 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1331 45210 45222 "src/unix/lwt_io.ml" 1331 45210 45225
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  def fmt "src/unix/lwt_io.ml" 1331 45210 45228 "src/unix/lwt_io.ml" 1331 45210 45254
)
"src/unix/lwt_io.ml" 1331 45210 45228 "src/unix/lwt_io.ml" 1331 45210 45243
type(
  (string -> unit Lwt.t) -> ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 1331 45210 45244 "src/unix/lwt_io.ml" 1331 45210 45250
type(
  string -> unit Lwt.t
)
ident(
  int_ref eprint "src/unix/lwt_io.ml" 1329 45136 45140 "src/unix/lwt_io.ml" 1329 45136 45146
)
"src/unix/lwt_io.ml" 1331 45210 45251 "src/unix/lwt_io.ml" 1331 45210 45254
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  int_ref fmt "src/unix/lwt_io.ml" 1331 45210 45222 "src/unix/lwt_io.ml" 1331 45210 45225
)
"src/unix/lwt_io.ml" 1331 45210 45228 "src/unix/lwt_io.ml" 1331 45210 45254
call(
  tail
)
type(
  'a
)
"src/unix/lwt_io.ml" 1332 45255 45259 "src/unix/lwt_io.ml" 1332 45255 45267
type(
  ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  def eprintlf "src/unix/lwt_io.ml" 1334 45303 45303 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1332 45255 45268 "src/unix/lwt_io.ml" 1332 45255 45271
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  def fmt "src/unix/lwt_io.ml" 1332 45255 45274 "src/unix/lwt_io.ml" 1332 45255 45301
)
"src/unix/lwt_io.ml" 1332 45255 45274 "src/unix/lwt_io.ml" 1332 45255 45289
type(
  (string -> unit Lwt.t) -> ('a, unit, string, unit Lwt.t) format4 -> 'a
)
ident(
  ext_ref Printf.ksprintf
)
"src/unix/lwt_io.ml" 1332 45255 45290 "src/unix/lwt_io.ml" 1332 45255 45297
type(
  string -> unit Lwt.t
)
ident(
  int_ref eprintl "src/unix/lwt_io.ml" 1330 45170 45174 "src/unix/lwt_io.ml" 1330 45170 45181
)
"src/unix/lwt_io.ml" 1332 45255 45298 "src/unix/lwt_io.ml" 1332 45255 45301
type(
  ('a, unit, string, unit Lwt.t) format4
)
ident(
  int_ref fmt "src/unix/lwt_io.ml" 1332 45255 45268 "src/unix/lwt_io.ml" 1332 45255 45271
)
"src/unix/lwt_io.ml" 1332 45255 45274 "src/unix/lwt_io.ml" 1332 45255 45301
call(
  tail
)
type(
  'a
)
"src/unix/lwt_io.ml" 1334 45303 45307 "src/unix/lwt_io.ml" 1334 45303 45311
type(
  ?in_buffer:Lwt_bytes.t ->
  ?out_buffer:Lwt_bytes.t -> 'a -> input channel * output channel
)
ident(
  def pipe "src/unix/lwt_io.ml" 1339 45471 45471 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1334 45303 45313 "src/unix/lwt_io.ml" 1334 45303 45322
type(
  Lwt_bytes.t option
)
ident(
  def in_buffer "src/unix/lwt_io.ml" 1334 45303 45323 "src/unix/lwt_io.ml" 1337 45423 45469
)
"src/unix/lwt_io.ml" 1334 45303 45324 "src/unix/lwt_io.ml" 1334 45303 45334
type(
  Lwt_bytes.t option
)
ident(
  def out_buffer "src/unix/lwt_io.ml" 1334 45303 45335 "src/unix/lwt_io.ml" 1337 45423 45469
)
"src/unix/lwt_io.ml" 1334 45303 45335 "src/unix/lwt_io.ml" 1334 45303 45336
type(
  'a
)
"src/unix/lwt_io.ml" 1335 45339 45345 "src/unix/lwt_io.ml" 1335 45339 45349
type(
  Lwt_unix.file_descr
)
ident(
  def fd_r "src/unix/lwt_io.ml" 1336 45378 45380 "src/unix/lwt_io.ml" 1337 45423 45469
)
"src/unix/lwt_io.ml" 1335 45339 45351 "src/unix/lwt_io.ml" 1335 45339 45355
type(
  Lwt_unix.file_descr
)
ident(
  def fd_w "src/unix/lwt_io.ml" 1336 45378 45380 "src/unix/lwt_io.ml" 1337 45423 45469
)
"src/unix/lwt_io.ml" 1335 45339 45345 "src/unix/lwt_io.ml" 1335 45339 45355
type(
  Lwt_unix.file_descr * Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 1335 45339 45358 "src/unix/lwt_io.ml" 1335 45339 45371
type(
  unit -> Lwt_unix.file_descr * Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.pipe
)
"src/unix/lwt_io.ml" 1335 45339 45372 "src/unix/lwt_io.ml" 1335 45339 45374
type(
  unit
)
"src/unix/lwt_io.ml" 1335 45339 45358 "src/unix/lwt_io.ml" 1335 45339 45374
call(
  stack
)
type(
  Lwt_unix.file_descr * Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 1336 45378 45381 "src/unix/lwt_io.ml" 1336 45378 45386
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:input mode -> Lwt_unix.file_descr -> input channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1336 45378 45395 "src/unix/lwt_io.ml" 1336 45378 45404
type(
  Lwt_bytes.t option
)
ident(
  int_ref in_buffer "src/unix/lwt_io.ml" 1334 45303 45313 "src/unix/lwt_io.ml" 1334 45303 45322
)
"src/unix/lwt_io.ml" 1336 45378 45411 "src/unix/lwt_io.ml" 1336 45378 45416
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1336 45378 45417 "src/unix/lwt_io.ml" 1336 45378 45421
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd_r "src/unix/lwt_io.ml" 1335 45339 45345 "src/unix/lwt_io.ml" 1335 45339 45349
)
"src/unix/lwt_io.ml" 1336 45378 45381 "src/unix/lwt_io.ml" 1336 45378 45421
call(
  stack
)
type(
  input channel
)
"src/unix/lwt_io.ml" 1337 45423 45426 "src/unix/lwt_io.ml" 1337 45423 45431
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:output mode -> Lwt_unix.file_descr -> output channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1337 45423 45440 "src/unix/lwt_io.ml" 1337 45423 45450
type(
  Lwt_bytes.t option
)
ident(
  int_ref out_buffer "src/unix/lwt_io.ml" 1334 45303 45324 "src/unix/lwt_io.ml" 1334 45303 45334
)
"src/unix/lwt_io.ml" 1337 45423 45457 "src/unix/lwt_io.ml" 1337 45423 45463
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1337 45423 45464 "src/unix/lwt_io.ml" 1337 45423 45468
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd_w "src/unix/lwt_io.ml" 1335 45339 45351 "src/unix/lwt_io.ml" 1335 45339 45355
)
"src/unix/lwt_io.ml" 1337 45423 45426 "src/unix/lwt_io.ml" 1337 45423 45468
call(
  stack
)
type(
  output channel
)
"src/unix/lwt_io.ml" 1336 45378 45380 "src/unix/lwt_io.ml" 1337 45423 45469
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1335 45339 45341 "src/unix/lwt_io.ml" 1337 45423 45469
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1341 45496 45500 "src/unix/lwt_io.ml" 1341 45496 45509
type(
  'm.
    ?buffer:Lwt_bytes.t ->
    ?flags:Unix.open_flag list ->
    ?perm:Unix.file_perm -> mode:'m mode -> file_name -> 'm channel Lwt.t
)
ident(
  def open_file "src/unix/lwt_io.ml" 1360 46142 46142 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1341 45496 45656 "src/unix/lwt_io.ml" 1341 45496 45662
type(
  Lwt_bytes.t option
)
ident(
  def buffer "src/unix/lwt_io.ml" 1341 45496 45663 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1341 45496 45664 "src/unix/lwt_io.ml" 1341 45496 45669
type(
  Unix.open_flag list option
)
ident(
  def flags "src/unix/lwt_io.ml" 1341 45496 45670 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1341 45496 45671 "src/unix/lwt_io.ml" 1341 45496 45675
type(
  Unix.file_perm option
)
ident(
  def perm "src/unix/lwt_io.ml" 1341 45496 45676 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1341 45496 45677 "src/unix/lwt_io.ml" 1341 45496 45681
type(
  m mode
)
ident(
  def mode "src/unix/lwt_io.ml" 1341 45496 45682 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1341 45496 45682 "src/unix/lwt_io.ml" 1341 45496 45690
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1342 45694 45696 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1342 45694 45700 "src/unix/lwt_io.ml" 1342 45694 45705
type(
  Unix.open_flag list
)
ident(
  def flags "src/unix/lwt_io.ml" 1357 46049 46051 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1342 45694 45714 "src/unix/lwt_io.ml" 1342 45694 45719
type(
  Unix.open_flag list option
)
ident(
  int_ref flags "src/unix/lwt_io.ml" 1341 45496 45664 "src/unix/lwt_io.ml" 1341 45496 45669
)
"src/unix/lwt_io.ml" 1342 45694 45721 "src/unix/lwt_io.ml" 1342 45694 45725
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 1341 45496 45677 "src/unix/lwt_io.ml" 1341 45496 45681
)
"src/unix/lwt_io.ml" 1342 45694 45714 "src/unix/lwt_io.ml" 1342 45694 45725
type(
  Unix.open_flag list option * m mode
)
"src/unix/lwt_io.ml" 1343 45731 45742 "src/unix/lwt_io.ml" 1343 45731 45743
type(
  Unix.open_flag list
)
ident(
  def l "src/unix/lwt_io.ml" 1344 45750 45758 "src/unix/lwt_io.ml" 1344 45750 45759
)
"src/unix/lwt_io.ml" 1343 45731 45737 "src/unix/lwt_io.ml" 1343 45731 45743
type(
  Unix.open_flag list option
)
"src/unix/lwt_io.ml" 1343 45731 45745 "src/unix/lwt_io.ml" 1343 45731 45746
type(
  m mode
)
"src/unix/lwt_io.ml" 1343 45731 45737 "src/unix/lwt_io.ml" 1343 45731 45746
type(
  Unix.open_flag list option * m mode
)
"src/unix/lwt_io.ml" 1344 45750 45758 "src/unix/lwt_io.ml" 1344 45750 45759
type(
  Unix.open_flag list
)
ident(
  int_ref l "src/unix/lwt_io.ml" 1343 45731 45742 "src/unix/lwt_io.ml" 1343 45731 45743
)
"src/unix/lwt_io.ml" 1345 45760 45766 "src/unix/lwt_io.ml" 1345 45760 45770
type(
  Unix.open_flag list option
)
"src/unix/lwt_io.ml" 1345 45760 45772 "src/unix/lwt_io.ml" 1345 45760 45777
type(
  m mode
)
"src/unix/lwt_io.ml" 1345 45760 45766 "src/unix/lwt_io.ml" 1345 45760 45777
type(
  Unix.open_flag list option * m mode
)
"src/unix/lwt_io.ml" 1346 45781 45790 "src/unix/lwt_io.ml" 1346 45781 45803
type(
  Unix.open_flag
)
"src/unix/lwt_io.ml" 1346 45781 45805 "src/unix/lwt_io.ml" 1346 45781 45820
type(
  Unix.open_flag
)
"src/unix/lwt_io.ml" 1346 45781 45789 "src/unix/lwt_io.ml" 1346 45781 45821
type(
  Unix.open_flag list
)
"src/unix/lwt_io.ml" 1347 45822 45828 "src/unix/lwt_io.ml" 1347 45822 45832
type(
  Unix.open_flag list option
)
"src/unix/lwt_io.ml" 1347 45822 45834 "src/unix/lwt_io.ml" 1347 45822 45840
type(
  m mode
)
"src/unix/lwt_io.ml" 1347 45822 45828 "src/unix/lwt_io.ml" 1347 45822 45840
type(
  Unix.open_flag list option * m mode
)
"src/unix/lwt_io.ml" 1348 45844 45853 "src/unix/lwt_io.ml" 1348 45844 45866
type(
  Unix.open_flag
)
"src/unix/lwt_io.ml" 1348 45844 45868 "src/unix/lwt_io.ml" 1348 45844 45880
type(
  Unix.open_flag
)
"src/unix/lwt_io.ml" 1348 45844 45882 "src/unix/lwt_io.ml" 1348 45844 45894
type(
  Unix.open_flag
)
"src/unix/lwt_io.ml" 1348 45844 45896 "src/unix/lwt_io.ml" 1348 45844 45911
type(
  Unix.open_flag
)
"src/unix/lwt_io.ml" 1348 45844 45852 "src/unix/lwt_io.ml" 1348 45844 45912
type(
  Unix.open_flag list
)
"src/unix/lwt_io.ml" 1342 45694 45708 "src/unix/lwt_io.ml" 1348 45844 45912
type(
  Unix.open_flag list
)
"src/unix/lwt_io.ml" 1349 45913 45919 "src/unix/lwt_io.ml" 1349 45913 45923
type(
  Unix.file_perm
)
ident(
  def perm "src/unix/lwt_io.ml" 1357 46049 46051 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1349 45913 45932 "src/unix/lwt_io.ml" 1349 45913 45936
type(
  Unix.file_perm option
)
ident(
  int_ref perm "src/unix/lwt_io.ml" 1341 45496 45671 "src/unix/lwt_io.ml" 1341 45496 45675
)
"src/unix/lwt_io.ml" 1349 45913 45938 "src/unix/lwt_io.ml" 1349 45913 45942
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 1341 45496 45677 "src/unix/lwt_io.ml" 1341 45496 45681
)
"src/unix/lwt_io.ml" 1349 45913 45932 "src/unix/lwt_io.ml" 1349 45913 45942
type(
  Unix.file_perm option * m mode
)
"src/unix/lwt_io.ml" 1350 45948 45959 "src/unix/lwt_io.ml" 1350 45948 45960
type(
  Unix.file_perm
)
ident(
  def p "src/unix/lwt_io.ml" 1351 45967 45975 "src/unix/lwt_io.ml" 1351 45967 45976
)
"src/unix/lwt_io.ml" 1350 45948 45954 "src/unix/lwt_io.ml" 1350 45948 45960
type(
  Unix.file_perm option
)
"src/unix/lwt_io.ml" 1350 45948 45962 "src/unix/lwt_io.ml" 1350 45948 45963
type(
  m mode
)
"src/unix/lwt_io.ml" 1350 45948 45954 "src/unix/lwt_io.ml" 1350 45948 45963
type(
  Unix.file_perm option * m mode
)
"src/unix/lwt_io.ml" 1351 45967 45975 "src/unix/lwt_io.ml" 1351 45967 45976
type(
  Unix.file_perm
)
ident(
  int_ref p "src/unix/lwt_io.ml" 1350 45948 45959 "src/unix/lwt_io.ml" 1350 45948 45960
)
"src/unix/lwt_io.ml" 1352 45977 45983 "src/unix/lwt_io.ml" 1352 45977 45987
type(
  Unix.file_perm option
)
"src/unix/lwt_io.ml" 1352 45977 45989 "src/unix/lwt_io.ml" 1352 45977 45994
type(
  m mode
)
"src/unix/lwt_io.ml" 1352 45977 45983 "src/unix/lwt_io.ml" 1352 45977 45994
type(
  Unix.file_perm option * m mode
)
"src/unix/lwt_io.ml" 1353 45998 46006 "src/unix/lwt_io.ml" 1353 45998 46007
type(
  Unix.file_perm
)
"src/unix/lwt_io.ml" 1354 46008 46014 "src/unix/lwt_io.ml" 1354 46008 46018
type(
  Unix.file_perm option
)
"src/unix/lwt_io.ml" 1354 46008 46020 "src/unix/lwt_io.ml" 1354 46008 46026
type(
  m mode
)
"src/unix/lwt_io.ml" 1354 46008 46014 "src/unix/lwt_io.ml" 1354 46008 46026
type(
  Unix.file_perm option * m mode
)
"src/unix/lwt_io.ml" 1355 46030 46038 "src/unix/lwt_io.ml" 1355 46030 46043
type(
  Unix.file_perm
)
"src/unix/lwt_io.ml" 1349 45913 45926 "src/unix/lwt_io.ml" 1355 46030 46043
type(
  Unix.file_perm
)
"src/unix/lwt_io.ml" 1357 46049 46051 "src/unix/lwt_io.ml" 1357 46049 46068
type(
  file_name ->
  Lwt_unix.open_flag list -> Lwt_unix.file_perm -> Lwt_unix.file_descr Lwt.t
)
ident(
  ext_ref Lwt_unix.openfile
)
"src/unix/lwt_io.ml" 1357 46049 46069 "src/unix/lwt_io.ml" 1357 46049 46077
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1341 45496 45682 "src/unix/lwt_io.ml" 1341 45496 45690
)
"src/unix/lwt_io.ml" 1357 46049 46078 "src/unix/lwt_io.ml" 1357 46049 46083
type(
  Lwt_unix.open_flag list
)
ident(
  int_ref flags "src/unix/lwt_io.ml" 1342 45694 45700 "src/unix/lwt_io.ml" 1342 45694 45705
)
"src/unix/lwt_io.ml" 1357 46049 46084 "src/unix/lwt_io.ml" 1357 46049 46088
type(
  Unix.file_perm
)
ident(
  int_ref perm "src/unix/lwt_io.ml" 1349 45913 45919 "src/unix/lwt_io.ml" 1349 45913 45923
)
"src/unix/lwt_io.ml" 1357 46049 46051 "src/unix/lwt_io.ml" 1357 46049 46088
call(
  stack
)
type(
  Lwt_unix.file_descr Lwt.t
)
"src/unix/lwt_io.ml" 1357 46049 46089 "src/unix/lwt_io.ml" 1357 46049 46092
type(
  Lwt_unix.file_descr Lwt.t ->
  (Lwt_unix.file_descr -> m channel Lwt.t) -> m channel Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1357 46049 46097 "src/unix/lwt_io.ml" 1357 46049 46099
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1358 46103 46105 "src/unix/lwt_io.ml" 1358 46103 46140
)
"src/unix/lwt_io.ml" 1358 46103 46105 "src/unix/lwt_io.ml" 1358 46103 46115
type(
  m channel -> m channel Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1358 46103 46117 "src/unix/lwt_io.ml" 1358 46103 46122
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:m mode -> Lwt_unix.file_descr -> m channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1358 46103 46124 "src/unix/lwt_io.ml" 1358 46103 46130
type(
  Lwt_bytes.t option
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1341 45496 45656 "src/unix/lwt_io.ml" 1341 45496 45662
)
"src/unix/lwt_io.ml" 1358 46103 46132 "src/unix/lwt_io.ml" 1358 46103 46136
type(
  m mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 1341 45496 45677 "src/unix/lwt_io.ml" 1341 45496 45681
)
"src/unix/lwt_io.ml" 1358 46103 46137 "src/unix/lwt_io.ml" 1358 46103 46139
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1357 46049 46097 "src/unix/lwt_io.ml" 1357 46049 46099
)
"src/unix/lwt_io.ml" 1358 46103 46116 "src/unix/lwt_io.ml" 1358 46103 46140
call(
  stack
)
type(
  m channel
)
"src/unix/lwt_io.ml" 1358 46103 46105 "src/unix/lwt_io.ml" 1358 46103 46140
call(
  tail
)
type(
  m channel Lwt.t
)
"src/unix/lwt_io.ml" 1357 46049 46093 "src/unix/lwt_io.ml" 1358 46103 46140
type(
  Lwt_unix.file_descr -> m channel Lwt.t
)
"src/unix/lwt_io.ml" 1357 46049 46051 "src/unix/lwt_io.ml" 1358 46103 46140
call(
  tail
)
type(
  m channel Lwt.t
)
"src/unix/lwt_io.ml" 1342 45694 45696 "src/unix/lwt_io.ml" 1358 46103 46140
type(
  m channel Lwt.t
)
"src/unix/lwt_io.ml" 1341 45496 45651 "src/unix/lwt_io.ml" 1358 46103 46140
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm -> mode:m mode -> file_name -> m channel Lwt.t
)
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm -> mode:m mode -> file_name -> m channel Lwt.t
)
"src/unix/lwt_io.ml" 1341 45496 45500 "src/unix/lwt_io.ml" 1358 46103 46140
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm -> mode:'m mode -> file_name -> 'm channel Lwt.t
)
"src/unix/lwt_io.ml" 1360 46142 46146 "src/unix/lwt_io.ml" 1360 46142 46155
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm ->
  mode:'a mode -> file_name -> ('a channel -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  def with_file "src/unix/lwt_io.ml" 1366 46320 46320 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1360 46142 46157 "src/unix/lwt_io.ml" 1360 46142 46163
type(
  Lwt_bytes.t option
)
ident(
  def buffer "src/unix/lwt_io.ml" 1360 46142 46164 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1360 46142 46165 "src/unix/lwt_io.ml" 1360 46142 46170
type(
  Unix.open_flag list option
)
ident(
  def flags "src/unix/lwt_io.ml" 1360 46142 46171 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1360 46142 46172 "src/unix/lwt_io.ml" 1360 46142 46176
type(
  Unix.file_perm option
)
ident(
  def perm "src/unix/lwt_io.ml" 1360 46142 46177 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1360 46142 46178 "src/unix/lwt_io.ml" 1360 46142 46182
type(
  'a mode
)
ident(
  def mode "src/unix/lwt_io.ml" 1360 46142 46183 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1360 46142 46183 "src/unix/lwt_io.ml" 1360 46142 46191
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1360 46142 46192 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1360 46142 46192 "src/unix/lwt_io.ml" 1360 46142 46193
type(
  'a channel -> 'b Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 1361 46196 46198 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1361 46196 46198 "src/unix/lwt_io.ml" 1361 46196 46207
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm -> mode:'a mode -> file_name -> 'a channel Lwt.t
)
ident(
  int_ref open_file "src/unix/lwt_io.ml" 1341 45496 45500 "src/unix/lwt_io.ml" 1341 45496 45509
)
"src/unix/lwt_io.ml" 1361 46196 46209 "src/unix/lwt_io.ml" 1361 46196 46215
type(
  Lwt_bytes.t option
)
ident(
  int_ref buffer "src/unix/lwt_io.ml" 1360 46142 46157 "src/unix/lwt_io.ml" 1360 46142 46163
)
"src/unix/lwt_io.ml" 1361 46196 46217 "src/unix/lwt_io.ml" 1361 46196 46222
type(
  Unix.open_flag list option
)
ident(
  int_ref flags "src/unix/lwt_io.ml" 1360 46142 46165 "src/unix/lwt_io.ml" 1360 46142 46170
)
"src/unix/lwt_io.ml" 1361 46196 46224 "src/unix/lwt_io.ml" 1361 46196 46228
type(
  Unix.file_perm option
)
ident(
  int_ref perm "src/unix/lwt_io.ml" 1360 46142 46172 "src/unix/lwt_io.ml" 1360 46142 46176
)
"src/unix/lwt_io.ml" 1361 46196 46230 "src/unix/lwt_io.ml" 1361 46196 46234
type(
  'a mode
)
ident(
  int_ref mode "src/unix/lwt_io.ml" 1360 46142 46178 "src/unix/lwt_io.ml" 1360 46142 46182
)
"src/unix/lwt_io.ml" 1361 46196 46235 "src/unix/lwt_io.ml" 1361 46196 46243
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1360 46142 46183 "src/unix/lwt_io.ml" 1360 46142 46191
)
"src/unix/lwt_io.ml" 1361 46196 46198 "src/unix/lwt_io.ml" 1361 46196 46243
call(
  stack
)
type(
  'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1361 46196 46244 "src/unix/lwt_io.ml" 1361 46196 46247
type(
  'a channel Lwt.t -> ('a channel -> 'b Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1361 46196 46252 "src/unix/lwt_io.ml" 1361 46196 46254
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1362 46258 46260 "src/unix/lwt_io.ml" 1364 46294 46318
)
"src/unix/lwt_io.ml" 1362 46258 46260 "src/unix/lwt_io.ml" 1362 46258 46272
type(
  (unit -> 'b Lwt.t) -> (unit -> unit Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 1363 46273 46282 "src/unix/lwt_io.ml" 1363 46273 46284
type(
  unit
)
"src/unix/lwt_io.ml" 1363 46273 46288 "src/unix/lwt_io.ml" 1363 46273 46289
type(
  'a channel -> 'b Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1360 46142 46192 "src/unix/lwt_io.ml" 1360 46142 46193
)
"src/unix/lwt_io.ml" 1363 46273 46290 "src/unix/lwt_io.ml" 1363 46273 46292
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1361 46196 46252 "src/unix/lwt_io.ml" 1361 46196 46254
)
"src/unix/lwt_io.ml" 1363 46273 46288 "src/unix/lwt_io.ml" 1363 46273 46292
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1363 46273 46277 "src/unix/lwt_io.ml" 1363 46273 46293
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 1364 46294 46303 "src/unix/lwt_io.ml" 1364 46294 46305
type(
  unit
)
"src/unix/lwt_io.ml" 1364 46294 46309 "src/unix/lwt_io.ml" 1364 46294 46314
type(
  'a channel -> unit Lwt.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 454 14632 14641
)
"src/unix/lwt_io.ml" 1364 46294 46315 "src/unix/lwt_io.ml" 1364 46294 46317
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1361 46196 46252 "src/unix/lwt_io.ml" 1361 46196 46254
)
"src/unix/lwt_io.ml" 1364 46294 46309 "src/unix/lwt_io.ml" 1364 46294 46317
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1364 46294 46298 "src/unix/lwt_io.ml" 1364 46294 46318
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1362 46258 46260 "src/unix/lwt_io.ml" 1364 46294 46318
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1361 46196 46248 "src/unix/lwt_io.ml" 1364 46294 46318
type(
  'a channel -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 1361 46196 46198 "src/unix/lwt_io.ml" 1364 46294 46318
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1366 46320 46324 "src/unix/lwt_io.ml" 1366 46320 46335
type(
  file_name -> int64 Lwt.t
)
ident(
  def file_length "src/unix/lwt_io.ml" 1368 46386 46386 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1366 46320 46336 "src/unix/lwt_io.ml" 1366 46320 46344
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1366 46320 46347 "src/unix/lwt_io.ml" 1366 46320 46384
)
"src/unix/lwt_io.ml" 1366 46320 46347 "src/unix/lwt_io.ml" 1366 46320 46356
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm ->
  mode:input mode ->
  file_name -> (input channel -> int64 Lwt.t) -> int64 Lwt.t
)
ident(
  int_ref with_file "src/unix/lwt_io.ml" 1360 46142 46146 "src/unix/lwt_io.ml" 1360 46142 46155
)
"src/unix/lwt_io.ml" 1366 46320 46363 "src/unix/lwt_io.ml" 1366 46320 46368
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1366 46320 46369 "src/unix/lwt_io.ml" 1366 46320 46377
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1366 46320 46336 "src/unix/lwt_io.ml" 1366 46320 46344
)
"src/unix/lwt_io.ml" 1366 46320 46378 "src/unix/lwt_io.ml" 1366 46320 46384
type(
  input channel -> int64 Lwt.t
)
ident(
  int_ref length "src/unix/lwt_io.ml" 1246 41722 41726 "src/unix/lwt_io.ml" 1246 41722 41732
)
"src/unix/lwt_io.ml" 1366 46320 46347 "src/unix/lwt_io.ml" 1366 46320 46384
call(
  tail
)
type(
  int64 Lwt.t
)
"src/unix/lwt_io.ml" 1368 46386 46390 "src/unix/lwt_io.ml" 1368 46386 46402
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  def close_socket "src/unix/lwt_io.ml" 1382 46792 46792 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1368 46386 46403 "src/unix/lwt_io.ml" 1368 46386 46405
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1369 46408 46410 "src/unix/lwt_io.ml" 1380 46766 46790
)
"src/unix/lwt_io.ml" 1369 46408 46410 "src/unix/lwt_io.ml" 1369 46408 46422
type(
  (unit -> unit Lwt.t) -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 1370 46423 46432 "src/unix/lwt_io.ml" 1370 46423 46434
type(
  unit
)
"src/unix/lwt_io.ml" 1371 46438 46444 "src/unix/lwt_io.ml" 1371 46438 46453
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 1372 46454 46467 "src/unix/lwt_io.ml" 1372 46454 46469
type(
  unit
)
"src/unix/lwt_io.ml" 1373 46473 46483 "src/unix/lwt_io.ml" 1373 46473 46500
type(
  Lwt_unix.file_descr -> Lwt_unix.shutdown_command -> unit
)
ident(
  ext_ref Lwt_unix.shutdown
)
"src/unix/lwt_io.ml" 1373 46473 46501 "src/unix/lwt_io.ml" 1373 46473 46503
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1368 46386 46403 "src/unix/lwt_io.ml" 1368 46386 46405
)
"src/unix/lwt_io.ml" 1373 46473 46504 "src/unix/lwt_io.ml" 1373 46473 46521
type(
  Lwt_unix.shutdown_command
)
"src/unix/lwt_io.ml" 1373 46473 46483 "src/unix/lwt_io.ml" 1373 46473 46521
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1374 46523 46533 "src/unix/lwt_io.ml" 1374 46523 46548
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1373 46473 46483 "src/unix/lwt_io.ml" 1374 46523 46548
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1372 46454 46462 "src/unix/lwt_io.ml" 1374 46523 46549
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1377 46630 46657 "src/unix/lwt_io.ml" 1377 46630 46670
type(
  Unix.error
)
"src/unix/lwt_io.ml" 1377 46630 46672 "src/unix/lwt_io.ml" 1377 46630 46673
type(
  string
)
"src/unix/lwt_io.ml" 1377 46630 46675 "src/unix/lwt_io.ml" 1377 46630 46676
type(
  string
)
"src/unix/lwt_io.ml" 1377 46630 46640 "src/unix/lwt_io.ml" 1377 46630 46677
type(
  exn
)
"src/unix/lwt_io.ml" 1377 46630 46681 "src/unix/lwt_io.ml" 1377 46630 46696
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1378 46697 46707 "src/unix/lwt_io.ml" 1378 46697 46710
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 1378 46697 46714 "src/unix/lwt_io.ml" 1378 46697 46726
)
"src/unix/lwt_io.ml" 1378 46697 46714 "src/unix/lwt_io.ml" 1378 46697 46722
type(
  exn -> unit Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 1378 46697 46723 "src/unix/lwt_io.ml" 1378 46697 46726
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 1378 46697 46707 "src/unix/lwt_io.ml" 1378 46697 46710
)
"src/unix/lwt_io.ml" 1378 46697 46714 "src/unix/lwt_io.ml" 1378 46697 46726
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1375 46550 46558 "src/unix/lwt_io.ml" 1378 46697 46727
type(
  exn -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1371 46438 46444 "src/unix/lwt_io.ml" 1378 46697 46727
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1370 46423 46427 "src/unix/lwt_io.ml" 1378 46697 46750
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1379 46751 46760 "src/unix/lwt_io.ml" 1379 46751 46762
type(
  unit
)
"src/unix/lwt_io.ml" 1380 46766 46772 "src/unix/lwt_io.ml" 1380 46766 46786
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  ext_ref Lwt_unix.close
)
"src/unix/lwt_io.ml" 1380 46766 46787 "src/unix/lwt_io.ml" 1380 46766 46789
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1368 46386 46403 "src/unix/lwt_io.ml" 1368 46386 46405
)
"src/unix/lwt_io.ml" 1380 46766 46772 "src/unix/lwt_io.ml" 1380 46766 46789
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1379 46751 46755 "src/unix/lwt_io.ml" 1380 46766 46790
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1369 46408 46410 "src/unix/lwt_io.ml" 1380 46766 46790
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1382 46792 46796 "src/unix/lwt_io.ml" 1382 46792 46811
type(
  ?fd:Lwt_unix.file_descr ->
  ?in_buffer:Lwt_bytes.t ->
  ?out_buffer:Lwt_bytes.t ->
  Lwt_unix.sockaddr -> (input channel * output channel) Lwt.t
)
ident(
  def open_connection "src/unix/lwt_io.ml" 1402 47530 47530 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1382 46792 46813 "src/unix/lwt_io.ml" 1382 46792 46815
type(
  Lwt_unix.file_descr option
)
ident(
  def fd "src/unix/lwt_io.ml" 1382 46792 46816 "src/unix/lwt_io.ml" 1400 47509 47528
)
"src/unix/lwt_io.ml" 1382 46792 46817 "src/unix/lwt_io.ml" 1382 46792 46826
type(
  Lwt_bytes.t option
)
ident(
  def in_buffer "src/unix/lwt_io.ml" 1382 46792 46827 "src/unix/lwt_io.ml" 1400 47509 47528
)
"src/unix/lwt_io.ml" 1382 46792 46828 "src/unix/lwt_io.ml" 1382 46792 46838
type(
  Lwt_bytes.t option
)
ident(
  def out_buffer "src/unix/lwt_io.ml" 1382 46792 46839 "src/unix/lwt_io.ml" 1400 47509 47528
)
"src/unix/lwt_io.ml" 1382 46792 46839 "src/unix/lwt_io.ml" 1382 46792 46847
type(
  Lwt_unix.sockaddr
)
ident(
  def sockaddr "src/unix/lwt_io.ml" 1383 46850 46852 "src/unix/lwt_io.ml" 1400 47509 47528
)
"src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1387 46984 46986 "src/unix/lwt_io.ml" 1400 47509 47528
)
"src/unix/lwt_io.ml" 1383 46850 46867 "src/unix/lwt_io.ml" 1383 46850 46869
type(
  Lwt_unix.file_descr option
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1382 46792 46813 "src/unix/lwt_io.ml" 1382 46792 46815
)
"src/unix/lwt_io.ml" 1384 46875 46881 "src/unix/lwt_io.ml" 1384 46875 46885
type(
  Lwt_unix.file_descr option
)
"src/unix/lwt_io.ml" 1384 46875 46889 "src/unix/lwt_io.ml" 1384 46875 46904
type(
  Lwt_unix.socket_domain ->
  Lwt_unix.socket_type -> int -> Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.socket
)
"src/unix/lwt_io.ml" 1384 46875 46906 "src/unix/lwt_io.ml" 1384 46875 46929
type(
  Lwt_unix.sockaddr -> Lwt_unix.socket_domain
)
ident(
  ext_ref Unix.domain_of_sockaddr
)
"src/unix/lwt_io.ml" 1384 46875 46930 "src/unix/lwt_io.ml" 1384 46875 46938
type(
  Lwt_unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1382 46792 46839 "src/unix/lwt_io.ml" 1382 46792 46847
)
"src/unix/lwt_io.ml" 1384 46875 46905 "src/unix/lwt_io.ml" 1384 46875 46939
call(
  stack
)
type(
  Lwt_unix.socket_domain
)
"src/unix/lwt_io.ml" 1384 46875 46940 "src/unix/lwt_io.ml" 1384 46875 46956
type(
  Lwt_unix.socket_type
)
"src/unix/lwt_io.ml" 1384 46875 46957 "src/unix/lwt_io.ml" 1384 46875 46958
type(
  int
)
"src/unix/lwt_io.ml" 1384 46875 46889 "src/unix/lwt_io.ml" 1384 46875 46958
call(
  stack
)
type(
  Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 1385 46959 46970 "src/unix/lwt_io.ml" 1385 46959 46972
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1385 46959 46976 "src/unix/lwt_io.ml" 1385 46959 46978
)
"src/unix/lwt_io.ml" 1385 46959 46965 "src/unix/lwt_io.ml" 1385 46959 46972
type(
  Lwt_unix.file_descr option
)
"src/unix/lwt_io.ml" 1385 46959 46976 "src/unix/lwt_io.ml" 1385 46959 46978
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1385 46959 46970 "src/unix/lwt_io.ml" 1385 46959 46972
)
"src/unix/lwt_io.ml" 1383 46850 46861 "src/unix/lwt_io.ml" 1385 46959 46978
type(
  Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 1387 46984 46990 "src/unix/lwt_io.ml" 1387 46984 46995
type(
  unit Lwt.t lazy_t
)
ident(
  def close "src/unix/lwt_io.ml" 1388 47024 47026 "src/unix/lwt_io.ml" 1400 47509 47528
)
"src/unix/lwt_io.ml" 1387 46984 47004 "src/unix/lwt_io.ml" 1387 46984 47016
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  int_ref close_socket "src/unix/lwt_io.ml" 1368 46386 46390 "src/unix/lwt_io.ml" 1368 46386 46402
)
"src/unix/lwt_io.ml" 1387 46984 47017 "src/unix/lwt_io.ml" 1387 46984 47019
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
)
"src/unix/lwt_io.ml" 1387 46984 47003 "src/unix/lwt_io.ml" 1387 46984 47020
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1387 46984 46998 "src/unix/lwt_io.ml" 1387 46984 47020
type(
  unit Lwt.t lazy_t
)
"src/unix/lwt_io.ml" 1388 47024 47026 "src/unix/lwt_io.ml" 1388 47024 47035
type(
  (unit -> (input channel * output channel) Lwt.t) ->
  (exn -> (input channel * output channel) Lwt.t) ->
  (input channel * output channel) Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 1389 47036 47045 "src/unix/lwt_io.ml" 1389 47036 47047
type(
  unit
)
"src/unix/lwt_io.ml" 1390 47051 47057 "src/unix/lwt_io.ml" 1390 47051 47073
type(
  Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit Lwt.t
)
ident(
  ext_ref Lwt_unix.connect
)
"src/unix/lwt_io.ml" 1390 47051 47074 "src/unix/lwt_io.ml" 1390 47051 47076
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
)
"src/unix/lwt_io.ml" 1390 47051 47077 "src/unix/lwt_io.ml" 1390 47051 47085
type(
  Lwt_unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1382 46792 46839 "src/unix/lwt_io.ml" 1382 46792 46847
)
"src/unix/lwt_io.ml" 1390 47051 47057 "src/unix/lwt_io.ml" 1390 47051 47085
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1390 47051 47086 "src/unix/lwt_io.ml" 1390 47051 47089
type(
  unit Lwt.t ->
  (unit -> (input channel * output channel) Lwt.t) ->
  (input channel * output channel) Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1390 47051 47094 "src/unix/lwt_io.ml" 1390 47051 47096
type(
  unit
)
"src/unix/lwt_io.ml" 1391 47100 47111 "src/unix/lwt_io.ml" 1391 47100 47137
type(
  Lwt_unix.file_descr -> unit
)
ident(
  ext_ref Lwt_unix.set_close_on_exec
)
"src/unix/lwt_io.ml" 1391 47100 47138 "src/unix/lwt_io.ml" 1391 47100 47140
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
)
"src/unix/lwt_io.ml" 1391 47100 47111 "src/unix/lwt_io.ml" 1391 47100 47140
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1391 47100 47163 "src/unix/lwt_io.ml" 1391 47100 47164
type(
  string
)
"src/unix/lwt_io.ml" 1391 47100 47146 "src/unix/lwt_io.ml" 1391 47100 47164
type(
  exn
)
"src/unix/lwt_io.ml" 1391 47100 47168 "src/unix/lwt_io.ml" 1391 47100 47170
type(
  unit
)
"src/unix/lwt_io.ml" 1391 47100 47106 "src/unix/lwt_io.ml" 1391 47100 47171
type(
  unit
)
"src/unix/lwt_io.ml" 1392 47173 47179 "src/unix/lwt_io.ml" 1392 47173 47189
type(
  input channel * output channel -> (input channel * output channel) Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1392 47173 47191 "src/unix/lwt_io.ml" 1392 47173 47195
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:input mode ->
  (Lwt_bytes.t -> int -> int -> int Lwt.t) -> input channel
)
ident(
  int_ref make "src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 493 15866 15874
)
"src/unix/lwt_io.ml" 1392 47173 47204 "src/unix/lwt_io.ml" 1392 47173 47213
type(
  Lwt_bytes.t option
)
ident(
  int_ref in_buffer "src/unix/lwt_io.ml" 1382 46792 46817 "src/unix/lwt_io.ml" 1382 46792 46826
)
"src/unix/lwt_io.ml" 1393 47214 47242 "src/unix/lwt_io.ml" 1393 47214 47243
type(
  unit
)
"src/unix/lwt_io.ml" 1393 47214 47247 "src/unix/lwt_io.ml" 1393 47214 47257
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1393 47214 47258 "src/unix/lwt_io.ml" 1393 47214 47263
type(
  unit Lwt.t Lazy.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 1387 46984 46990 "src/unix/lwt_io.ml" 1387 46984 46995
)
"src/unix/lwt_io.ml" 1393 47214 47247 "src/unix/lwt_io.ml" 1393 47214 47263
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1393 47214 47237 "src/unix/lwt_io.ml" 1393 47214 47264
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1394 47265 47287 "src/unix/lwt_io.ml" 1394 47265 47292
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1394 47265 47294 "src/unix/lwt_io.ml" 1394 47265 47308
type(
  Lwt_unix.file_descr -> Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  ext_ref Lwt_bytes.read
)
"src/unix/lwt_io.ml" 1394 47265 47309 "src/unix/lwt_io.ml" 1394 47265 47311
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
)
"src/unix/lwt_io.ml" 1394 47265 47293 "src/unix/lwt_io.ml" 1394 47265 47312
call(
  stack
)
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1392 47173 47191 "src/unix/lwt_io.ml" 1394 47265 47312
call(
  stack
)
type(
  input channel
)
"src/unix/lwt_io.ml" 1395 47314 47328 "src/unix/lwt_io.ml" 1395 47314 47332
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  ?seek:(int64 -> Unix.seek_command -> int64 Lwt.t) ->
  mode:output mode ->
  (Lwt_bytes.t -> int -> int -> int Lwt.t) -> output channel
)
ident(
  int_ref make "src/unix/lwt_io.ml" 493 15866 15870 "src/unix/lwt_io.ml" 493 15866 15874
)
"src/unix/lwt_io.ml" 1395 47314 47341 "src/unix/lwt_io.ml" 1395 47314 47351
type(
  Lwt_bytes.t option
)
ident(
  int_ref out_buffer "src/unix/lwt_io.ml" 1382 46792 46828 "src/unix/lwt_io.ml" 1382 46792 46838
)
"src/unix/lwt_io.ml" 1396 47352 47380 "src/unix/lwt_io.ml" 1396 47352 47381
type(
  unit
)
"src/unix/lwt_io.ml" 1396 47352 47385 "src/unix/lwt_io.ml" 1396 47352 47395
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1396 47352 47396 "src/unix/lwt_io.ml" 1396 47352 47401
type(
  unit Lwt.t Lazy.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 1387 46984 46990 "src/unix/lwt_io.ml" 1387 46984 46995
)
"src/unix/lwt_io.ml" 1396 47352 47385 "src/unix/lwt_io.ml" 1396 47352 47401
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1396 47352 47375 "src/unix/lwt_io.ml" 1396 47352 47402
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1397 47403 47425 "src/unix/lwt_io.ml" 1397 47403 47431
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1397 47403 47433 "src/unix/lwt_io.ml" 1397 47403 47448
type(
  Lwt_unix.file_descr -> Lwt_bytes.t -> int -> int -> int Lwt.t
)
ident(
  ext_ref Lwt_bytes.write
)
"src/unix/lwt_io.ml" 1397 47403 47449 "src/unix/lwt_io.ml" 1397 47403 47451
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
)
"src/unix/lwt_io.ml" 1397 47403 47432 "src/unix/lwt_io.ml" 1397 47403 47452
call(
  stack
)
type(
  Lwt_bytes.t -> int -> int -> int Lwt.t
)
"src/unix/lwt_io.ml" 1395 47314 47328 "src/unix/lwt_io.ml" 1397 47403 47452
call(
  stack
)
type(
  output channel
)
"src/unix/lwt_io.ml" 1392 47173 47190 "src/unix/lwt_io.ml" 1397 47403 47453
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1392 47173 47179 "src/unix/lwt_io.ml" 1397 47403 47453
call(
  tail
)
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1391 47100 47106 "src/unix/lwt_io.ml" 1397 47403 47453
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1390 47051 47090 "src/unix/lwt_io.ml" 1397 47403 47453
type(
  unit -> (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1390 47051 47057 "src/unix/lwt_io.ml" 1397 47403 47453
call(
  tail
)
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1389 47036 47040 "src/unix/lwt_io.ml" 1397 47403 47454
type(
  unit -> (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1398 47455 47464 "src/unix/lwt_io.ml" 1398 47455 47467
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 1399 47471 47477 "src/unix/lwt_io.ml" 1400 47509 47527
)
"src/unix/lwt_io.ml" 1399 47471 47477 "src/unix/lwt_io.ml" 1399 47471 47491
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  ext_ref Lwt_unix.close
)
"src/unix/lwt_io.ml" 1399 47471 47492 "src/unix/lwt_io.ml" 1399 47471 47494
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1383 46850 46856 "src/unix/lwt_io.ml" 1383 46850 46858
)
"src/unix/lwt_io.ml" 1399 47471 47477 "src/unix/lwt_io.ml" 1399 47471 47494
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1399 47471 47495 "src/unix/lwt_io.ml" 1399 47471 47498
type(
  unit Lwt.t ->
  (unit -> (input channel * output channel) Lwt.t) ->
  (input channel * output channel) Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1399 47471 47503 "src/unix/lwt_io.ml" 1399 47471 47505
type(
  unit
)
"src/unix/lwt_io.ml" 1400 47509 47515 "src/unix/lwt_io.ml" 1400 47509 47523
type(
  exn -> (input channel * output channel) Lwt.t
)
ident(
  ext_ref Lwt.fail
)
"src/unix/lwt_io.ml" 1400 47509 47524 "src/unix/lwt_io.ml" 1400 47509 47527
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 1398 47455 47464 "src/unix/lwt_io.ml" 1398 47455 47467
)
"src/unix/lwt_io.ml" 1400 47509 47515 "src/unix/lwt_io.ml" 1400 47509 47527
call(
  tail
)
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1399 47471 47499 "src/unix/lwt_io.ml" 1400 47509 47527
type(
  unit -> (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1399 47471 47477 "src/unix/lwt_io.ml" 1400 47509 47527
call(
  tail
)
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1398 47455 47459 "src/unix/lwt_io.ml" 1400 47509 47528
type(
  exn -> (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1388 47024 47026 "src/unix/lwt_io.ml" 1400 47509 47528
call(
  tail
)
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1387 46984 46986 "src/unix/lwt_io.ml" 1400 47509 47528
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1383 46850 46852 "src/unix/lwt_io.ml" 1400 47509 47528
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1402 47530 47534 "src/unix/lwt_io.ml" 1402 47530 47549
type(
  ?fd:Lwt_unix.file_descr ->
  ?in_buffer:Lwt_bytes.t ->
  ?out_buffer:Lwt_bytes.t ->
  Lwt_unix.sockaddr ->
  (input channel * output channel -> 'a Lwt.t) -> 'a Lwt.t
)
ident(
  def with_connection "src/unix/lwt_io.ml" 1414 48027 48027 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1402 47530 47551 "src/unix/lwt_io.ml" 1402 47530 47553
type(
  Lwt_unix.file_descr option
)
ident(
  def fd "src/unix/lwt_io.ml" 1402 47530 47554 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1402 47530 47555 "src/unix/lwt_io.ml" 1402 47530 47564
type(
  Lwt_bytes.t option
)
ident(
  def in_buffer "src/unix/lwt_io.ml" 1402 47530 47565 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1402 47530 47566 "src/unix/lwt_io.ml" 1402 47530 47576
type(
  Lwt_bytes.t option
)
ident(
  def out_buffer "src/unix/lwt_io.ml" 1402 47530 47577 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1402 47530 47577 "src/unix/lwt_io.ml" 1402 47530 47585
type(
  Lwt_unix.sockaddr
)
ident(
  def sockaddr "src/unix/lwt_io.ml" 1402 47530 47586 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1402 47530 47586 "src/unix/lwt_io.ml" 1402 47530 47587
type(
  input channel * output channel -> 'a Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 1403 47590 47592 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1403 47590 47592 "src/unix/lwt_io.ml" 1403 47590 47607
type(
  ?fd:Lwt_unix.file_descr ->
  ?in_buffer:Lwt_bytes.t ->
  ?out_buffer:Lwt_bytes.t ->
  Lwt_unix.sockaddr -> (input channel * output channel) Lwt.t
)
ident(
  int_ref open_connection "src/unix/lwt_io.ml" 1382 46792 46796 "src/unix/lwt_io.ml" 1382 46792 46811
)
"src/unix/lwt_io.ml" 1403 47590 47609 "src/unix/lwt_io.ml" 1403 47590 47611
type(
  Lwt_unix.file_descr option
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1402 47530 47551 "src/unix/lwt_io.ml" 1402 47530 47553
)
"src/unix/lwt_io.ml" 1403 47590 47613 "src/unix/lwt_io.ml" 1403 47590 47622
type(
  Lwt_bytes.t option
)
ident(
  int_ref in_buffer "src/unix/lwt_io.ml" 1402 47530 47555 "src/unix/lwt_io.ml" 1402 47530 47564
)
"src/unix/lwt_io.ml" 1403 47590 47624 "src/unix/lwt_io.ml" 1403 47590 47634
type(
  Lwt_bytes.t option
)
ident(
  int_ref out_buffer "src/unix/lwt_io.ml" 1402 47530 47566 "src/unix/lwt_io.ml" 1402 47530 47576
)
"src/unix/lwt_io.ml" 1403 47590 47635 "src/unix/lwt_io.ml" 1403 47590 47643
type(
  Lwt_unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1402 47530 47577 "src/unix/lwt_io.ml" 1402 47530 47585
)
"src/unix/lwt_io.ml" 1403 47590 47592 "src/unix/lwt_io.ml" 1403 47590 47643
call(
  stack
)
type(
  (input channel * output channel) Lwt.t
)
"src/unix/lwt_io.ml" 1403 47590 47644 "src/unix/lwt_io.ml" 1403 47590 47647
type(
  (input channel * output channel) Lwt.t ->
  (input channel * output channel -> 'a Lwt.t) -> 'a Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1403 47590 47653 "src/unix/lwt_io.ml" 1403 47590 47655
type(
  input channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1407 47813 47815 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1403 47590 47657 "src/unix/lwt_io.ml" 1403 47590 47659
type(
  output channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1407 47813 47815 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1403 47590 47652 "src/unix/lwt_io.ml" 1403 47590 47660
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1407 47813 47819 "src/unix/lwt_io.ml" 1407 47813 47838
type(
  'b channel -> unit Lwt.t
)
ident(
  def close_if_not_closed "src/unix/lwt_io.ml" 1410 47918 47920 "src/unix/lwt_io.ml" 1412 47960 48025
)
"src/unix/lwt_io.ml" 1407 47813 47839 "src/unix/lwt_io.ml" 1407 47813 47846
type(
  'b channel
)
ident(
  def channel "src/unix/lwt_io.ml" 1408 47849 47853 "src/unix/lwt_io.ml" 1408 47849 47913
)
"src/unix/lwt_io.ml" 1408 47849 47856 "src/unix/lwt_io.ml" 1408 47849 47865
type(
  'b channel -> bool
)
ident(
  int_ref is_closed "src/unix/lwt_io.ml" 472 15283 15287 "src/unix/lwt_io.ml" 472 15283 15296
)
"src/unix/lwt_io.ml" 1408 47849 47866 "src/unix/lwt_io.ml" 1408 47849 47873
type(
  'b channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1407 47813 47839 "src/unix/lwt_io.ml" 1407 47813 47846
)
"src/unix/lwt_io.ml" 1408 47849 47856 "src/unix/lwt_io.ml" 1408 47849 47873
call(
  stack
)
type(
  bool
)
"src/unix/lwt_io.ml" 1408 47849 47879 "src/unix/lwt_io.ml" 1408 47849 47894
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1408 47849 47900 "src/unix/lwt_io.ml" 1408 47849 47905
type(
  'b channel -> unit Lwt.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 454 14632 14641
)
"src/unix/lwt_io.ml" 1408 47849 47906 "src/unix/lwt_io.ml" 1408 47849 47913
type(
  'b channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1407 47813 47839 "src/unix/lwt_io.ml" 1407 47813 47846
)
"src/unix/lwt_io.ml" 1408 47849 47900 "src/unix/lwt_io.ml" 1408 47849 47913
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1408 47849 47853 "src/unix/lwt_io.ml" 1408 47849 47913
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1410 47918 47920 "src/unix/lwt_io.ml" 1410 47918 47932
type(
  (unit -> 'a Lwt.t) -> (unit -> unit Lwt.t) -> 'a Lwt.t
)
ident(
  ext_ref Lwt.finalize
)
"src/unix/lwt_io.ml" 1411 47933 47942 "src/unix/lwt_io.ml" 1411 47933 47944
type(
  unit
)
"src/unix/lwt_io.ml" 1411 47933 47948 "src/unix/lwt_io.ml" 1411 47933 47949
type(
  input channel * output channel -> 'a Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1402 47530 47586 "src/unix/lwt_io.ml" 1402 47530 47587
)
"src/unix/lwt_io.ml" 1411 47933 47951 "src/unix/lwt_io.ml" 1411 47933 47953
type(
  input channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1403 47590 47653 "src/unix/lwt_io.ml" 1403 47590 47655
)
"src/unix/lwt_io.ml" 1411 47933 47955 "src/unix/lwt_io.ml" 1411 47933 47957
type(
  output channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1403 47590 47657 "src/unix/lwt_io.ml" 1403 47590 47659
)
"src/unix/lwt_io.ml" 1411 47933 47950 "src/unix/lwt_io.ml" 1411 47933 47958
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1411 47933 47948 "src/unix/lwt_io.ml" 1411 47933 47958
call(
  tail
)
type(
  'a Lwt.t
)
"src/unix/lwt_io.ml" 1411 47933 47937 "src/unix/lwt_io.ml" 1411 47933 47959
type(
  unit -> 'a Lwt.t
)
"src/unix/lwt_io.ml" 1412 47960 47969 "src/unix/lwt_io.ml" 1412 47960 47971
type(
  unit
)
"src/unix/lwt_io.ml" 1412 47960 47975 "src/unix/lwt_io.ml" 1412 47960 47994
type(
  input channel -> unit Lwt.t
)
ident(
  int_ref close_if_not_closed "src/unix/lwt_io.ml" 1407 47813 47819 "src/unix/lwt_io.ml" 1407 47813 47838
)
"src/unix/lwt_io.ml" 1412 47960 47995 "src/unix/lwt_io.ml" 1412 47960 47997
type(
  input channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1403 47590 47653 "src/unix/lwt_io.ml" 1403 47590 47655
)
"src/unix/lwt_io.ml" 1412 47960 47975 "src/unix/lwt_io.ml" 1412 47960 47997
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1412 47960 47998 "src/unix/lwt_io.ml" 1412 47960 48001
type(
  unit Lwt.t -> unit Lwt.t -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( <&> )
)
"src/unix/lwt_io.ml" 1412 47960 48002 "src/unix/lwt_io.ml" 1412 47960 48021
type(
  output channel -> unit Lwt.t
)
ident(
  int_ref close_if_not_closed "src/unix/lwt_io.ml" 1407 47813 47819 "src/unix/lwt_io.ml" 1407 47813 47838
)
"src/unix/lwt_io.ml" 1412 47960 48022 "src/unix/lwt_io.ml" 1412 47960 48024
type(
  output channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1403 47590 47657 "src/unix/lwt_io.ml" 1403 47590 47659
)
"src/unix/lwt_io.ml" 1412 47960 48002 "src/unix/lwt_io.ml" 1412 47960 48024
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1412 47960 47975 "src/unix/lwt_io.ml" 1412 47960 48024
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1412 47960 47964 "src/unix/lwt_io.ml" 1412 47960 48025
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1410 47918 47920 "src/unix/lwt_io.ml" 1412 47960 48025
call(
  tail
)
type(
  'a Lwt.t
)
"src/unix/lwt_io.ml" 1407 47813 47815 "src/unix/lwt_io.ml" 1412 47960 48025
type(
  'a Lwt.t
)
"src/unix/lwt_io.ml" 1403 47590 47648 "src/unix/lwt_io.ml" 1412 47960 48025
type(
  input channel * output channel -> 'a Lwt.t
)
"src/unix/lwt_io.ml" 1403 47590 47592 "src/unix/lwt_io.ml" 1412 47960 48025
call(
  tail
)
type(
  'a Lwt.t
)
"src/unix/lwt_io.ml" 1418 48078 48082 "src/unix/lwt_io.ml" 1418 48078 48099
type(
  server -> unit Lwt.t
)
ident(
  def shutdown_server_2 "src/unix/lwt_io.ml" 1420 48137 48137 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1418 48078 48100 "src/unix/lwt_io.ml" 1418 48078 48106
type(
  server
)
ident(
  def server "src/unix/lwt_io.ml" 1418 48078 48109 "src/unix/lwt_io.ml" 1418 48078 48135
)
"src/unix/lwt_io.ml" 1418 48078 48109 "src/unix/lwt_io.ml" 1418 48078 48119
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1418 48078 48120 "src/unix/lwt_io.ml" 1418 48078 48126
type(
  server
)
ident(
  int_ref server "src/unix/lwt_io.ml" 1418 48078 48100 "src/unix/lwt_io.ml" 1418 48078 48106
)
"src/unix/lwt_io.ml" 1418 48078 48120 "src/unix/lwt_io.ml" 1418 48078 48135
type(
  unit Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 1418 48078 48109 "src/unix/lwt_io.ml" 1418 48078 48135
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1420 48137 48141 "src/unix/lwt_io.ml" 1420 48137 48156
type(
  server -> unit
)
ident(
  def shutdown_server "src/unix/lwt_io.ml" 1422 48214 48214 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1420 48137 48157 "src/unix/lwt_io.ml" 1420 48137 48163
type(
  server
)
ident(
  def server "src/unix/lwt_io.ml" 1420 48137 48166 "src/unix/lwt_io.ml" 1420 48137 48212
)
"src/unix/lwt_io.ml" 1420 48137 48166 "src/unix/lwt_io.ml" 1420 48137 48175
type(
  (unit -> unit Lwt.t) -> unit
)
ident(
  ext_ref Lwt.async
)
"src/unix/lwt_io.ml" 1420 48137 48181 "src/unix/lwt_io.ml" 1420 48137 48183
type(
  unit
)
"src/unix/lwt_io.ml" 1420 48137 48187 "src/unix/lwt_io.ml" 1420 48137 48204
type(
  server -> unit Lwt.t
)
ident(
  int_ref shutdown_server_2 "src/unix/lwt_io.ml" 1418 48078 48082 "src/unix/lwt_io.ml" 1418 48078 48099
)
"src/unix/lwt_io.ml" 1420 48137 48205 "src/unix/lwt_io.ml" 1420 48137 48211
type(
  server
)
ident(
  int_ref server "src/unix/lwt_io.ml" 1420 48137 48157 "src/unix/lwt_io.ml" 1420 48137 48163
)
"src/unix/lwt_io.ml" 1420 48137 48187 "src/unix/lwt_io.ml" 1420 48137 48211
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1420 48137 48176 "src/unix/lwt_io.ml" 1420 48137 48212
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1420 48137 48166 "src/unix/lwt_io.ml" 1420 48137 48212
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 1422 48214 48218 "src/unix/lwt_io.ml" 1422 48214 48239
type(
  (Lwt_unix.file_descr -> Unix.sockaddr -> unit Lwt.t) ->
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  Unix.sockaddr ->
  (input channel * output channel -> 'a) -> server * unit Lwt.t
)
ident(
  def establish_server_base "src/unix/lwt_io.ml" 1468 49969 49969 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1423 48240 48244 "src/unix/lwt_io.ml" 1423 48240 48248
type(
  Lwt_unix.file_descr -> Unix.sockaddr -> unit Lwt.t
)
ident(
  def bind "src/unix/lwt_io.ml" 1423 48240 48249 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1423 48240 48250 "src/unix/lwt_io.ml" 1423 48240 48252
type(
  Lwt_unix.file_descr option
)
ident(
  def fd "src/unix/lwt_io.ml" 1423 48240 48253 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1423 48240 48255 "src/unix/lwt_io.ml" 1423 48240 48266
type(
  int
)
"src/unix/lwt_io.ml" 1423 48240 48269 "src/unix/lwt_io.ml" 1423 48240 48270
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 1423 48240 48270 "src/unix/lwt_io.ml" 1423 48240 48289
type(
  int ref
)
ident(
  int_ref default_buffer_size "src/unix/lwt_io.ml" 41 1468 1472 "src/unix/lwt_io.ml" 41 1468 1491
)
"src/unix/lwt_io.ml" 1423 48240 48269 "src/unix/lwt_io.ml" 1423 48240 48289
type(
  int
)
type(
  int
)
ident(
  int_ref *sth* "src/unix/lwt_io.ml" 1423 48240 48269 "src/unix/lwt_io.ml" 1423 48240 48289
)
type(
  int option
)
type(
  int option
)
type(
  int
)
"src/unix/lwt_io.ml" 1423 48240 48293 "src/unix/lwt_io.ml" 1423 48240 48300
type(
  int
)
"src/unix/lwt_io.ml" 1423 48240 48301 "src/unix/lwt_io.ml" 1423 48240 48302
type(
  int
)
type(
  int
)
ident(
  int_ref *sth* "src/unix/lwt_io.ml" 1423 48240 48301 "src/unix/lwt_io.ml" 1423 48240 48302
)
type(
  int option
)
type(
  int option
)
type(
  int
)
"src/unix/lwt_io.ml" 1423 48240 48304 "src/unix/lwt_io.ml" 1423 48240 48312
type(
  Unix.sockaddr
)
ident(
  def sockaddr "src/unix/lwt_io.ml" 1423 48240 48313 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1423 48240 48313 "src/unix/lwt_io.ml" 1423 48240 48314
type(
  input channel * output channel -> 'a
)
ident(
  def f "src/unix/lwt_io.ml" 1424 48317 48319 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1424 48317 48323 "src/unix/lwt_io.ml" 1424 48317 48327
type(
  Lwt_unix.file_descr
)
ident(
  def sock "src/unix/lwt_io.ml" 1428 48453 48455 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1424 48317 48336 "src/unix/lwt_io.ml" 1424 48317 48338
type(
  Lwt_unix.file_descr option
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1423 48240 48250 "src/unix/lwt_io.ml" 1423 48240 48252
)
"src/unix/lwt_io.ml" 1425 48344 48350 "src/unix/lwt_io.ml" 1425 48344 48354
type(
  Lwt_unix.file_descr option
)
"src/unix/lwt_io.ml" 1425 48344 48358 "src/unix/lwt_io.ml" 1425 48344 48373
type(
  Lwt_unix.socket_domain ->
  Lwt_unix.socket_type -> int -> Lwt_unix.file_descr
)
ident(
  ext_ref Lwt_unix.socket
)
"src/unix/lwt_io.ml" 1425 48344 48375 "src/unix/lwt_io.ml" 1425 48344 48398
type(
  Unix.sockaddr -> Lwt_unix.socket_domain
)
ident(
  ext_ref Unix.domain_of_sockaddr
)
"src/unix/lwt_io.ml" 1425 48344 48399 "src/unix/lwt_io.ml" 1425 48344 48407
type(
  Unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1423 48240 48304 "src/unix/lwt_io.ml" 1423 48240 48312
)
"src/unix/lwt_io.ml" 1425 48344 48374 "src/unix/lwt_io.ml" 1425 48344 48408
call(
  stack
)
type(
  Lwt_unix.socket_domain
)
"src/unix/lwt_io.ml" 1425 48344 48409 "src/unix/lwt_io.ml" 1425 48344 48425
type(
  Lwt_unix.socket_type
)
"src/unix/lwt_io.ml" 1425 48344 48426 "src/unix/lwt_io.ml" 1425 48344 48427
type(
  int
)
"src/unix/lwt_io.ml" 1425 48344 48358 "src/unix/lwt_io.ml" 1425 48344 48427
call(
  stack
)
type(
  Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 1426 48428 48439 "src/unix/lwt_io.ml" 1426 48428 48441
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1426 48428 48445 "src/unix/lwt_io.ml" 1426 48428 48447
)
"src/unix/lwt_io.ml" 1426 48428 48434 "src/unix/lwt_io.ml" 1426 48428 48441
type(
  Lwt_unix.file_descr option
)
"src/unix/lwt_io.ml" 1426 48428 48445 "src/unix/lwt_io.ml" 1426 48428 48447
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1426 48428 48439 "src/unix/lwt_io.ml" 1426 48428 48441
)
"src/unix/lwt_io.ml" 1424 48317 48330 "src/unix/lwt_io.ml" 1426 48428 48447
type(
  Lwt_unix.file_descr
)
"src/unix/lwt_io.ml" 1428 48453 48455 "src/unix/lwt_io.ml" 1428 48453 48474
type(
  Lwt_unix.file_descr -> Lwt_unix.socket_bool_option -> bool -> unit
)
ident(
  ext_ref Lwt_unix.setsockopt
)
"src/unix/lwt_io.ml" 1428 48453 48475 "src/unix/lwt_io.ml" 1428 48453 48479
type(
  Lwt_unix.file_descr
)
ident(
  int_ref sock "src/unix/lwt_io.ml" 1424 48317 48323 "src/unix/lwt_io.ml" 1424 48317 48327
)
"src/unix/lwt_io.ml" 1428 48453 48480 "src/unix/lwt_io.ml" 1428 48453 48497
type(
  Lwt_unix.socket_bool_option
)
"src/unix/lwt_io.ml" 1428 48453 48498 "src/unix/lwt_io.ml" 1428 48453 48502
type(
  bool
)
"src/unix/lwt_io.ml" 1428 48453 48455 "src/unix/lwt_io.ml" 1428 48453 48502
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1430 48505 48511 "src/unix/lwt_io.ml" 1430 48505 48523
type(
  unit Lwt.t
)
ident(
  def abort_waiter "src/unix/lwt_io.ml" 1431 48556 48558 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1430 48505 48525 "src/unix/lwt_io.ml" 1430 48505 48538
type(
  unit Lwt.u
)
ident(
  def abort_wakener "src/unix/lwt_io.ml" 1431 48556 48558 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1430 48505 48511 "src/unix/lwt_io.ml" 1430 48505 48538
type(
  unit Lwt.t * unit Lwt.u
)
"src/unix/lwt_io.ml" 1430 48505 48541 "src/unix/lwt_io.ml" 1430 48505 48549
type(
  unit -> unit Lwt.t * unit Lwt.u
)
ident(
  ext_ref Lwt.wait
)
"src/unix/lwt_io.ml" 1430 48505 48550 "src/unix/lwt_io.ml" 1430 48505 48552
type(
  unit
)
"src/unix/lwt_io.ml" 1430 48505 48541 "src/unix/lwt_io.ml" 1430 48505 48552
call(
  stack
)
type(
  unit Lwt.t * unit Lwt.u
)
"src/unix/lwt_io.ml" 1431 48556 48562 "src/unix/lwt_io.ml" 1431 48556 48574
type(
  [> `Shutdown ] Lwt.t
)
ident(
  def abort_waiter "src/unix/lwt_io.ml" 1433 48687 48689 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1431 48556 48577 "src/unix/lwt_io.ml" 1431 48556 48589
type(
  unit Lwt.t
)
ident(
  int_ref abort_waiter "src/unix/lwt_io.ml" 1430 48505 48511 "src/unix/lwt_io.ml" 1430 48505 48523
)
"src/unix/lwt_io.ml" 1431 48556 48590 "src/unix/lwt_io.ml" 1431 48556 48593
type(
  unit Lwt.t -> (unit -> ([> `Shutdown ] as 'b) Lwt.t) -> 'b Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1431 48556 48598 "src/unix/lwt_io.ml" 1431 48556 48600
type(
  unit
)
"src/unix/lwt_io.ml" 1431 48556 48604 "src/unix/lwt_io.ml" 1431 48556 48614
type(
  'b -> 'b Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1431 48556 48615 "src/unix/lwt_io.ml" 1431 48556 48624
type(
  'b
)
"src/unix/lwt_io.ml" 1431 48556 48604 "src/unix/lwt_io.ml" 1431 48556 48624
call(
  tail
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1431 48556 48594 "src/unix/lwt_io.ml" 1431 48556 48624
type(
  unit -> 'b Lwt.t
)
"src/unix/lwt_io.ml" 1431 48556 48577 "src/unix/lwt_io.ml" 1431 48556 48624
call(
  stack
)
type(
  'b Lwt.t
)
"src/unix/lwt_io.ml" 1433 48687 48693 "src/unix/lwt_io.ml" 1433 48687 48706
type(
  unit Lwt.t
)
ident(
  def closed_waiter "src/unix/lwt_io.ml" 1434 48740 48742 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1433 48687 48708 "src/unix/lwt_io.ml" 1433 48687 48722
type(
  unit Lwt.u
)
ident(
  def closed_wakener "src/unix/lwt_io.ml" 1434 48740 48742 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1433 48687 48693 "src/unix/lwt_io.ml" 1433 48687 48722
type(
  unit Lwt.t * unit Lwt.u
)
"src/unix/lwt_io.ml" 1433 48687 48725 "src/unix/lwt_io.ml" 1433 48687 48733
type(
  unit -> unit Lwt.t * unit Lwt.u
)
ident(
  ext_ref Lwt.wait
)
"src/unix/lwt_io.ml" 1433 48687 48734 "src/unix/lwt_io.ml" 1433 48687 48736
type(
  unit
)
"src/unix/lwt_io.ml" 1433 48687 48725 "src/unix/lwt_io.ml" 1433 48687 48736
call(
  stack
)
type(
  unit Lwt.t * unit Lwt.u
)
"src/unix/lwt_io.ml" 1434 48740 48750 "src/unix/lwt_io.ml" 1434 48740 48754
type(
  unit -> unit Lwt.t
)
ident(
  def loop "src/unix/lwt_io.ml" 1434 48740 48742 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1434 48740 48755 "src/unix/lwt_io.ml" 1434 48740 48757
type(
  unit
)
"src/unix/lwt_io.ml" 1435 48760 48764 "src/unix/lwt_io.ml" 1435 48760 48772
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
  list ->
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
)
ident(
  ext_ref Lwt.pick
)
"src/unix/lwt_io.ml" 1435 48760 48774 "src/unix/lwt_io.ml" 1435 48760 48789
type(
  Lwt_unix.file_descr -> (Lwt_unix.file_descr * Lwt_unix.sockaddr) Lwt.t
)
ident(
  ext_ref Lwt_unix.accept
)
"src/unix/lwt_io.ml" 1435 48760 48790 "src/unix/lwt_io.ml" 1435 48760 48794
type(
  Lwt_unix.file_descr
)
ident(
  int_ref sock "src/unix/lwt_io.ml" 1424 48317 48323 "src/unix/lwt_io.ml" 1424 48317 48327
)
"src/unix/lwt_io.ml" 1435 48760 48774 "src/unix/lwt_io.ml" 1435 48760 48794
call(
  stack
)
type(
  (Lwt_unix.file_descr * Lwt_unix.sockaddr) Lwt.t
)
"src/unix/lwt_io.ml" 1435 48760 48795 "src/unix/lwt_io.ml" 1435 48760 48798
type(
  (Lwt_unix.file_descr * Lwt_unix.sockaddr) Lwt.t ->
  (Lwt_unix.file_descr * Lwt_unix.sockaddr ->
   [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ]) ->
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >|= )
)
"src/unix/lwt_io.ml" 1435 48760 48804 "src/unix/lwt_io.ml" 1435 48760 48805
type(
  Lwt_unix.file_descr * Lwt_unix.sockaddr
)
ident(
  def x "src/unix/lwt_io.ml" 1435 48760 48809 "src/unix/lwt_io.ml" 1435 48760 48818
)
"src/unix/lwt_io.ml" 1435 48760 48817 "src/unix/lwt_io.ml" 1435 48760 48818
type(
  Lwt_unix.file_descr * Lwt_unix.sockaddr
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1435 48760 48804 "src/unix/lwt_io.ml" 1435 48760 48805
)
"src/unix/lwt_io.ml" 1435 48760 48809 "src/unix/lwt_io.ml" 1435 48760 48818
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ]
)
"src/unix/lwt_io.ml" 1435 48760 48799 "src/unix/lwt_io.ml" 1435 48760 48819
type(
  Lwt_unix.file_descr * Lwt_unix.sockaddr ->
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ]
)
"src/unix/lwt_io.ml" 1435 48760 48774 "src/unix/lwt_io.ml" 1435 48760 48819
call(
  stack
)
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
)
"src/unix/lwt_io.ml" 1435 48760 48821 "src/unix/lwt_io.ml" 1435 48760 48833
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
)
ident(
  int_ref abort_waiter "src/unix/lwt_io.ml" 1431 48556 48562 "src/unix/lwt_io.ml" 1431 48556 48574
)
"src/unix/lwt_io.ml" 1435 48760 48773 "src/unix/lwt_io.ml" 1435 48760 48834
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
  list
)
"src/unix/lwt_io.ml" 1435 48760 48764 "src/unix/lwt_io.ml" 1435 48760 48834
call(
  stack
)
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t
)
"src/unix/lwt_io.ml" 1435 48760 48835 "src/unix/lwt_io.ml" 1435 48760 48838
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] Lwt.t ->
  ([ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] ->
   unit Lwt.t) ->
  unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1436 48848 48864 "src/unix/lwt_io.ml" 1436 48848 48866
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1437 48878 48888 "src/unix/lwt_io.ml" 1443 49255 49272
)
"src/unix/lwt_io.ml" 1436 48848 48868 "src/unix/lwt_io.ml" 1436 48848 48873
type(
  Lwt_unix.sockaddr
)
ident(
  def _addr "src/unix/lwt_io.ml" 1437 48878 48888 "src/unix/lwt_io.ml" 1443 49255 49272
)
"src/unix/lwt_io.ml" 1436 48848 48863 "src/unix/lwt_io.ml" 1436 48848 48874
type(
  Lwt_unix.file_descr * Lwt_unix.sockaddr
)
"src/unix/lwt_io.ml" 1436 48848 48856 "src/unix/lwt_io.ml" 1436 48848 48874
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ]
)
"src/unix/lwt_io.ml" 1437 48878 48893 "src/unix/lwt_io.ml" 1437 48878 48919
type(
  Lwt_unix.file_descr -> unit
)
ident(
  ext_ref Lwt_unix.set_close_on_exec
)
"src/unix/lwt_io.ml" 1437 48878 48920 "src/unix/lwt_io.ml" 1437 48878 48922
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1436 48848 48864 "src/unix/lwt_io.ml" 1436 48848 48866
)
"src/unix/lwt_io.ml" 1437 48878 48893 "src/unix/lwt_io.ml" 1437 48878 48922
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1437 48878 48945 "src/unix/lwt_io.ml" 1437 48878 48946
type(
  string
)
"src/unix/lwt_io.ml" 1437 48878 48928 "src/unix/lwt_io.ml" 1437 48878 48946
type(
  exn
)
"src/unix/lwt_io.ml" 1437 48878 48950 "src/unix/lwt_io.ml" 1437 48878 48952
type(
  unit
)
"src/unix/lwt_io.ml" 1437 48878 48888 "src/unix/lwt_io.ml" 1437 48878 48953
type(
  unit
)
"src/unix/lwt_io.ml" 1438 48955 48969 "src/unix/lwt_io.ml" 1438 48955 48974
type(
  unit Lwt.t lazy_t
)
ident(
  def close "src/unix/lwt_io.ml" 1439 49003 49013 "src/unix/lwt_io.ml" 1443 49255 49272
)
"src/unix/lwt_io.ml" 1438 48955 48983 "src/unix/lwt_io.ml" 1438 48955 48995
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  int_ref close_socket "src/unix/lwt_io.ml" 1368 46386 46390 "src/unix/lwt_io.ml" 1368 46386 46402
)
"src/unix/lwt_io.ml" 1438 48955 48996 "src/unix/lwt_io.ml" 1438 48955 48998
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1436 48848 48864 "src/unix/lwt_io.ml" 1436 48848 48866
)
"src/unix/lwt_io.ml" 1438 48955 48982 "src/unix/lwt_io.ml" 1438 48955 48999
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1438 48955 48977 "src/unix/lwt_io.ml" 1438 48955 48999
type(
  unit Lwt.t lazy_t
)
"src/unix/lwt_io.ml" 1439 49003 49013 "src/unix/lwt_io.ml" 1439 49003 49014
type(
  input channel * output channel -> 'a
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1423 48240 48313 "src/unix/lwt_io.ml" 1423 48240 48314
)
"src/unix/lwt_io.ml" 1439 49003 49016 "src/unix/lwt_io.ml" 1439 49003 49021
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:input mode -> Lwt_unix.file_descr -> input channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1439 49003 49031 "src/unix/lwt_io.ml" 1439 49003 49047
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 1439 49003 49048 "src/unix/lwt_io.ml" 1439 49003 49059
type(
  int
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 1423 48240 48255 "src/unix/lwt_io.ml" 1423 48240 48266
)
"src/unix/lwt_io.ml" 1439 49003 49030 "src/unix/lwt_io.ml" 1439 49003 49060
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1439 49003 49067 "src/unix/lwt_io.ml" 1439 49003 49072
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1440 49073 49100 "src/unix/lwt_io.ml" 1440 49073 49102
type(
  unit
)
"src/unix/lwt_io.ml" 1440 49073 49106 "src/unix/lwt_io.ml" 1440 49073 49116
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1440 49073 49117 "src/unix/lwt_io.ml" 1440 49073 49122
type(
  unit Lwt.t Lazy.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 1438 48955 48969 "src/unix/lwt_io.ml" 1438 48955 48974
)
"src/unix/lwt_io.ml" 1440 49073 49106 "src/unix/lwt_io.ml" 1440 49073 49122
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1440 49073 49095 "src/unix/lwt_io.ml" 1440 49073 49123
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1440 49073 49124 "src/unix/lwt_io.ml" 1440 49073 49126
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1436 48848 48864 "src/unix/lwt_io.ml" 1436 48848 48866
)
"src/unix/lwt_io.ml" 1439 49003 49016 "src/unix/lwt_io.ml" 1440 49073 49126
call(
  stack
)
type(
  input channel
)
"src/unix/lwt_io.ml" 1441 49128 49141 "src/unix/lwt_io.ml" 1441 49128 49146
type(
  ?buffer:Lwt_bytes.t ->
  ?close:(unit -> unit Lwt.t) ->
  mode:output mode -> Lwt_unix.file_descr -> output channel
)
ident(
  int_ref of_fd "src/unix/lwt_io.ml" 561 17751 17755 "src/unix/lwt_io.ml" 561 17751 17760
)
"src/unix/lwt_io.ml" 1441 49128 49156 "src/unix/lwt_io.ml" 1441 49128 49172
type(
  int -> Lwt_bytes.t
)
ident(
  ext_ref Lwt_bytes.create
)
"src/unix/lwt_io.ml" 1441 49128 49173 "src/unix/lwt_io.ml" 1441 49128 49184
type(
  int
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 1423 48240 48255 "src/unix/lwt_io.ml" 1423 48240 48266
)
"src/unix/lwt_io.ml" 1441 49128 49155 "src/unix/lwt_io.ml" 1441 49128 49185
call(
  stack
)
type(
  Lwt_bytes.t
)
"src/unix/lwt_io.ml" 1441 49128 49192 "src/unix/lwt_io.ml" 1441 49128 49198
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1442 49199 49226 "src/unix/lwt_io.ml" 1442 49199 49228
type(
  unit
)
"src/unix/lwt_io.ml" 1442 49199 49232 "src/unix/lwt_io.ml" 1442 49199 49242
type(
  unit Lwt.t Lazy.t -> unit Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1442 49199 49243 "src/unix/lwt_io.ml" 1442 49199 49248
type(
  unit Lwt.t Lazy.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 1438 48955 48969 "src/unix/lwt_io.ml" 1438 48955 48974
)
"src/unix/lwt_io.ml" 1442 49199 49232 "src/unix/lwt_io.ml" 1442 49199 49248
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1442 49199 49221 "src/unix/lwt_io.ml" 1442 49199 49249
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1442 49199 49250 "src/unix/lwt_io.ml" 1442 49199 49252
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1436 48848 48864 "src/unix/lwt_io.ml" 1436 48848 48866
)
"src/unix/lwt_io.ml" 1441 49128 49141 "src/unix/lwt_io.ml" 1442 49199 49252
call(
  stack
)
type(
  output channel
)
"src/unix/lwt_io.ml" 1439 49003 49015 "src/unix/lwt_io.ml" 1442 49199 49253
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1439 49003 49013 "src/unix/lwt_io.ml" 1442 49199 49253
call(
  stack
)
type(
  'a
)
"src/unix/lwt_io.ml" 1443 49255 49265 "src/unix/lwt_io.ml" 1443 49255 49269
type(
  unit -> unit Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 1434 48740 48750 "src/unix/lwt_io.ml" 1434 48740 48754
)
"src/unix/lwt_io.ml" 1443 49255 49270 "src/unix/lwt_io.ml" 1443 49255 49272
type(
  unit
)
"src/unix/lwt_io.ml" 1443 49255 49265 "src/unix/lwt_io.ml" 1443 49255 49272
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1439 49003 49013 "src/unix/lwt_io.ml" 1443 49255 49272
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1438 48955 48965 "src/unix/lwt_io.ml" 1443 49255 49272
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1437 48878 48888 "src/unix/lwt_io.ml" 1443 49255 49272
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1444 49273 49281 "src/unix/lwt_io.ml" 1444 49273 49290
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ]
)
"src/unix/lwt_io.ml" 1445 49294 49304 "src/unix/lwt_io.ml" 1445 49294 49318
type(
  Lwt_unix.file_descr -> unit Lwt.t
)
ident(
  ext_ref Lwt_unix.close
)
"src/unix/lwt_io.ml" 1445 49294 49319 "src/unix/lwt_io.ml" 1445 49294 49323
type(
  Lwt_unix.file_descr
)
ident(
  int_ref sock "src/unix/lwt_io.ml" 1424 48317 48323 "src/unix/lwt_io.ml" 1424 48317 48327
)
"src/unix/lwt_io.ml" 1445 49294 49304 "src/unix/lwt_io.ml" 1445 49294 49323
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1445 49294 49324 "src/unix/lwt_io.ml" 1445 49294 49327
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1445 49294 49332 "src/unix/lwt_io.ml" 1445 49294 49334
type(
  unit
)
"src/unix/lwt_io.ml" 1446 49338 49355 "src/unix/lwt_io.ml" 1446 49338 49363
type(
  Unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1423 48240 48304 "src/unix/lwt_io.ml" 1423 48240 48312
)
"src/unix/lwt_io.ml" 1447 49369 49398 "src/unix/lwt_io.ml" 1447 49369 49402
type(
  string
)
ident(
  def path "src/unix/lwt_io.ml" 1447 49369 49408 "src/unix/lwt_io.ml" 1449 49478 49509
)
"src/unix/lwt_io.ml" 1447 49369 49383 "src/unix/lwt_io.ml" 1447 49369 49402
type(
  Unix.sockaddr
)
"src/unix/lwt_io.ml" 1447 49369 49408 "src/unix/lwt_io.ml" 1447 49369 49412
type(
  string
)
ident(
  int_ref path "src/unix/lwt_io.ml" 1447 49369 49398 "src/unix/lwt_io.ml" 1447 49369 49402
)
"src/unix/lwt_io.ml" 1447 49369 49413 "src/unix/lwt_io.ml" 1447 49369 49415
type(
  string -> string -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/unix/lwt_io.ml" 1447 49369 49416 "src/unix/lwt_io.ml" 1447 49369 49418
type(
  string
)
"src/unix/lwt_io.ml" 1447 49369 49408 "src/unix/lwt_io.ml" 1447 49369 49418
type(
  bool
)
"src/unix/lwt_io.ml" 1447 49369 49419 "src/unix/lwt_io.ml" 1447 49369 49421
type(
  bool -> bool -> bool
)
ident(
  ext_ref Pervasives.( && )
)
"src/unix/lwt_io.ml" 1447 49369 49422 "src/unix/lwt_io.ml" 1447 49369 49426
type(
  string
)
ident(
  int_ref path "src/unix/lwt_io.ml" 1447 49369 49398 "src/unix/lwt_io.ml" 1447 49369 49402
)
"src/unix/lwt_io.ml" 1447 49369 49428 "src/unix/lwt_io.ml" 1447 49369 49429
type(
  int
)
"src/unix/lwt_io.ml" 1447 49369 49422 "src/unix/lwt_io.ml" 1447 49369 49430
type(
  char
)
"src/unix/lwt_io.ml" 1447 49369 49431 "src/unix/lwt_io.ml" 1447 49369 49433
type(
  char -> char -> bool
)
ident(
  ext_ref Pervasives.( <> )
)
"src/unix/lwt_io.ml" 1447 49369 49434 "src/unix/lwt_io.ml" 1447 49369 49440
type(
  char
)
"src/unix/lwt_io.ml" 1447 49369 49422 "src/unix/lwt_io.ml" 1447 49369 49440
type(
  bool
)
"src/unix/lwt_io.ml" 1447 49369 49408 "src/unix/lwt_io.ml" 1447 49369 49440
type(
  bool
)
"src/unix/lwt_io.ml" 1448 49444 49460 "src/unix/lwt_io.ml" 1448 49444 49471
type(
  string -> unit
)
ident(
  ext_ref Unix.unlink
)
"src/unix/lwt_io.ml" 1448 49444 49472 "src/unix/lwt_io.ml" 1448 49444 49476
type(
  string
)
ident(
  int_ref path "src/unix/lwt_io.ml" 1447 49369 49398 "src/unix/lwt_io.ml" 1447 49369 49402
)
"src/unix/lwt_io.ml" 1448 49444 49460 "src/unix/lwt_io.ml" 1448 49444 49476
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1449 49478 49494 "src/unix/lwt_io.ml" 1449 49478 49509
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1448 49444 49460 "src/unix/lwt_io.ml" 1449 49478 49509
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1450 49510 49524 "src/unix/lwt_io.ml" 1450 49510 49525
type(
  Unix.sockaddr
)
"src/unix/lwt_io.ml" 1451 49529 49545 "src/unix/lwt_io.ml" 1451 49529 49560
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1446 49338 49348 "src/unix/lwt_io.ml" 1451 49529 49561
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1451 49529 49584 "src/unix/lwt_io.ml" 1451 49529 49587
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1451 49529 49592 "src/unix/lwt_io.ml" 1451 49529 49594
type(
  unit
)
"src/unix/lwt_io.ml" 1452 49598 49608 "src/unix/lwt_io.ml" 1452 49598 49618
type(
  unit Lwt.u -> unit -> unit
)
ident(
  ext_ref Lwt.wakeup
)
"src/unix/lwt_io.ml" 1452 49598 49619 "src/unix/lwt_io.ml" 1452 49598 49633
type(
  unit Lwt.u
)
ident(
  int_ref closed_wakener "src/unix/lwt_io.ml" 1433 48687 48708 "src/unix/lwt_io.ml" 1433 48687 48722
)
"src/unix/lwt_io.ml" 1452 49598 49634 "src/unix/lwt_io.ml" 1452 49598 49636
type(
  unit
)
"src/unix/lwt_io.ml" 1452 49598 49608 "src/unix/lwt_io.ml" 1452 49598 49636
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1453 49638 49648 "src/unix/lwt_io.ml" 1453 49638 49663
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1452 49598 49608 "src/unix/lwt_io.ml" 1453 49638 49663
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1451 49529 49588 "src/unix/lwt_io.ml" 1453 49638 49663
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1446 49338 49348 "src/unix/lwt_io.ml" 1453 49638 49663
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1445 49294 49328 "src/unix/lwt_io.ml" 1453 49638 49663
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1445 49294 49304 "src/unix/lwt_io.ml" 1453 49638 49663
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1435 48760 48839 "src/unix/lwt_io.ml" 1453 49638 49663
type(
  [ `Accept of Lwt_unix.file_descr * Lwt_unix.sockaddr | `Shutdown ] ->
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1435 48760 48764 "src/unix/lwt_io.ml" 1453 49638 49663
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1456 49670 49676 "src/unix/lwt_io.ml" 1456 49670 49683
type(
  unit Lwt.t
)
ident(
  def started "src/unix/lwt_io.ml" 1457 49717 49719 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1456 49670 49685 "src/unix/lwt_io.ml" 1456 49670 49699
type(
  unit Lwt.u
)
ident(
  def signal_started "src/unix/lwt_io.ml" 1457 49717 49719 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1456 49670 49676 "src/unix/lwt_io.ml" 1456 49670 49699
type(
  unit Lwt.t * unit Lwt.u
)
"src/unix/lwt_io.ml" 1456 49670 49702 "src/unix/lwt_io.ml" 1456 49670 49710
type(
  unit -> unit Lwt.t * unit Lwt.u
)
ident(
  ext_ref Lwt.wait
)
"src/unix/lwt_io.ml" 1456 49670 49711 "src/unix/lwt_io.ml" 1456 49670 49713
type(
  unit
)
"src/unix/lwt_io.ml" 1456 49670 49702 "src/unix/lwt_io.ml" 1456 49670 49713
call(
  stack
)
type(
  unit Lwt.t * unit Lwt.u
)
"src/unix/lwt_io.ml" 1457 49717 49719 "src/unix/lwt_io.ml" 1457 49717 49736
type(
  unit Lwt.t -> unit
)
ident(
  ext_ref Lwt.ignore_result
)
"src/unix/lwt_io.ml" 1458 49743 49747 "src/unix/lwt_io.ml" 1458 49743 49751
type(
  Lwt_unix.file_descr -> Unix.sockaddr -> unit Lwt.t
)
ident(
  int_ref bind "src/unix/lwt_io.ml" 1423 48240 48244 "src/unix/lwt_io.ml" 1423 48240 48248
)
"src/unix/lwt_io.ml" 1458 49743 49752 "src/unix/lwt_io.ml" 1458 49743 49756
type(
  Lwt_unix.file_descr
)
ident(
  int_ref sock "src/unix/lwt_io.ml" 1424 48317 48323 "src/unix/lwt_io.ml" 1424 48317 48327
)
"src/unix/lwt_io.ml" 1458 49743 49757 "src/unix/lwt_io.ml" 1458 49743 49765
type(
  Unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1423 48240 48304 "src/unix/lwt_io.ml" 1423 48240 48312
)
"src/unix/lwt_io.ml" 1458 49743 49747 "src/unix/lwt_io.ml" 1458 49743 49765
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1458 49743 49766 "src/unix/lwt_io.ml" 1458 49743 49769
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1458 49743 49774 "src/unix/lwt_io.ml" 1458 49743 49776
type(
  unit
)
"src/unix/lwt_io.ml" 1459 49780 49784 "src/unix/lwt_io.ml" 1459 49780 49799
type(
  Lwt_unix.file_descr -> int -> unit
)
ident(
  ext_ref Lwt_unix.listen
)
"src/unix/lwt_io.ml" 1459 49780 49800 "src/unix/lwt_io.ml" 1459 49780 49804
type(
  Lwt_unix.file_descr
)
ident(
  int_ref sock "src/unix/lwt_io.ml" 1424 48317 48323 "src/unix/lwt_io.ml" 1424 48317 48327
)
"src/unix/lwt_io.ml" 1459 49780 49805 "src/unix/lwt_io.ml" 1459 49780 49812
type(
  int
)
ident(
  int_ref backlog "src/unix/lwt_io.ml" 1423 48240 48293 "src/unix/lwt_io.ml" 1423 48240 48300
)
"src/unix/lwt_io.ml" 1459 49780 49784 "src/unix/lwt_io.ml" 1459 49780 49812
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1460 49814 49818 "src/unix/lwt_io.ml" 1460 49814 49828
type(
  unit Lwt.u -> unit -> unit
)
ident(
  ext_ref Lwt.wakeup
)
"src/unix/lwt_io.ml" 1460 49814 49829 "src/unix/lwt_io.ml" 1460 49814 49843
type(
  unit Lwt.u
)
ident(
  int_ref signal_started "src/unix/lwt_io.ml" 1456 49670 49685 "src/unix/lwt_io.ml" 1456 49670 49699
)
"src/unix/lwt_io.ml" 1460 49814 49844 "src/unix/lwt_io.ml" 1460 49814 49846
type(
  unit
)
"src/unix/lwt_io.ml" 1460 49814 49818 "src/unix/lwt_io.ml" 1460 49814 49846
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1461 49848 49852 "src/unix/lwt_io.ml" 1461 49848 49856
type(
  unit -> unit Lwt.t
)
ident(
  int_ref loop "src/unix/lwt_io.ml" 1434 48740 48750 "src/unix/lwt_io.ml" 1434 48740 48754
)
"src/unix/lwt_io.ml" 1461 49848 49857 "src/unix/lwt_io.ml" 1461 49848 49859
type(
  unit
)
"src/unix/lwt_io.ml" 1461 49848 49852 "src/unix/lwt_io.ml" 1461 49848 49859
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1460 49814 49818 "src/unix/lwt_io.ml" 1461 49848 49859
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1459 49780 49784 "src/unix/lwt_io.ml" 1461 49848 49859
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1458 49743 49770 "src/unix/lwt_io.ml" 1461 49848 49859
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1457 49717 49737 "src/unix/lwt_io.ml" 1462 49860 49865
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1457 49717 49719 "src/unix/lwt_io.ml" 1462 49860 49865
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1464 49868 49874 "src/unix/lwt_io.ml" 1464 49868 49880
type(
  server
)
ident(
  def server "src/unix/lwt_io.ml" 1466 49950 49952 "src/unix/lwt_io.ml" 1466 49950 49967
)
"src/unix/lwt_io.ml" 1464 49868 49901 "src/unix/lwt_io.ml" 1464 49868 49911
type(
  unit Lwt.u -> unit -> unit
)
ident(
  ext_ref Lwt.wakeup
)
"src/unix/lwt_io.ml" 1464 49868 49912 "src/unix/lwt_io.ml" 1464 49868 49925
type(
  unit Lwt.u
)
ident(
  int_ref abort_wakener "src/unix/lwt_io.ml" 1430 48505 48525 "src/unix/lwt_io.ml" 1430 48505 48538
)
"src/unix/lwt_io.ml" 1464 49868 49926 "src/unix/lwt_io.ml" 1464 49868 49928
type(
  unit
)
"src/unix/lwt_io.ml" 1464 49868 49901 "src/unix/lwt_io.ml" 1464 49868 49928
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1464 49868 49930 "src/unix/lwt_io.ml" 1464 49868 49943
type(
  unit Lwt.t
)
ident(
  int_ref closed_waiter "src/unix/lwt_io.ml" 1433 48687 48693 "src/unix/lwt_io.ml" 1433 48687 48706
)
"src/unix/lwt_io.ml" 1464 49868 49900 "src/unix/lwt_io.ml" 1464 49868 49944
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1464 49868 49895 "src/unix/lwt_io.ml" 1464 49868 49944
type(
  unit Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 1464 49868 49883 "src/unix/lwt_io.ml" 1464 49868 49945
type(
  server
)
"src/unix/lwt_io.ml" 1466 49950 49952 "src/unix/lwt_io.ml" 1466 49950 49958
type(
  server
)
ident(
  int_ref server "src/unix/lwt_io.ml" 1464 49868 49874 "src/unix/lwt_io.ml" 1464 49868 49880
)
"src/unix/lwt_io.ml" 1466 49950 49960 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  unit Lwt.t
)
ident(
  int_ref started "src/unix/lwt_io.ml" 1456 49670 49676 "src/unix/lwt_io.ml" 1456 49670 49683
)
"src/unix/lwt_io.ml" 1466 49950 49952 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1464 49868 49870 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1457 49717 49719 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1456 49670 49672 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1434 48740 48742 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1433 48687 48689 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1431 48556 48558 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1430 48505 48507 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1428 48453 48455 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1424 48317 48319 "src/unix/lwt_io.ml" 1466 49950 49967
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1468 49969 49973 "src/unix/lwt_io.ml" 1468 49969 49989
type(
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  Lwt_unix.sockaddr -> (input channel * output channel -> 'a) -> server
)
ident(
  def establish_server "src/unix/lwt_io.ml" 1475 50222 50222 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1468 49969 49991 "src/unix/lwt_io.ml" 1468 49969 49993
type(
  Lwt_unix.file_descr option
)
ident(
  def fd "src/unix/lwt_io.ml" 1468 49969 49994 "src/unix/lwt_io.ml" 1473 50212 50220
)
"src/unix/lwt_io.ml" 1468 49969 49995 "src/unix/lwt_io.ml" 1468 49969 50006
type(
  int option
)
ident(
  def buffer_size "src/unix/lwt_io.ml" 1468 49969 50007 "src/unix/lwt_io.ml" 1473 50212 50220
)
"src/unix/lwt_io.ml" 1468 49969 50008 "src/unix/lwt_io.ml" 1468 49969 50015
type(
  int option
)
ident(
  def backlog "src/unix/lwt_io.ml" 1468 49969 50016 "src/unix/lwt_io.ml" 1473 50212 50220
)
"src/unix/lwt_io.ml" 1468 49969 50016 "src/unix/lwt_io.ml" 1468 49969 50024
type(
  Lwt_unix.sockaddr
)
ident(
  def sockaddr "src/unix/lwt_io.ml" 1468 49969 50025 "src/unix/lwt_io.ml" 1473 50212 50220
)
"src/unix/lwt_io.ml" 1468 49969 50025 "src/unix/lwt_io.ml" 1468 49969 50026
type(
  input channel * output channel -> 'a
)
ident(
  def f "src/unix/lwt_io.ml" 1469 50029 50031 "src/unix/lwt_io.ml" 1473 50212 50220
)
"src/unix/lwt_io.ml" 1469 50029 50035 "src/unix/lwt_io.ml" 1469 50029 50048
type(
  Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit Lwt.t
)
ident(
  def blocking_bind "src/unix/lwt_io.ml" 1472 50137 50139 "src/unix/lwt_io.ml" 1473 50212 50220
)
"src/unix/lwt_io.ml" 1469 50029 50049 "src/unix/lwt_io.ml" 1469 50029 50051
type(
  Lwt_unix.file_descr
)
ident(
  def fd "src/unix/lwt_io.ml" 1469 50029 50052 "src/unix/lwt_io.ml" 1470 50059 50131
)
"src/unix/lwt_io.ml" 1469 50029 50052 "src/unix/lwt_io.ml" 1469 50029 50056
type(
  Lwt_unix.sockaddr
)
ident(
  def addr "src/unix/lwt_io.ml" 1470 50059 50063 "src/unix/lwt_io.ml" 1470 50059 50109
)
"src/unix/lwt_io.ml" 1470 50059 50063 "src/unix/lwt_io.ml" 1470 50059 50073
type(
  unit -> unit Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1470 50059 50075 "src/unix/lwt_io.ml" 1470 50059 50100
type(
  Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit
)
ident(
  ext_ref Lwt_unix.Versioned.bind_1
)
"src/unix/lwt_io.ml" 1470 50059 50101 "src/unix/lwt_io.ml" 1470 50059 50103
type(
  Lwt_unix.file_descr
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1469 50029 50049 "src/unix/lwt_io.ml" 1469 50029 50051
)
"src/unix/lwt_io.ml" 1470 50059 50104 "src/unix/lwt_io.ml" 1470 50059 50108
type(
  Lwt_unix.sockaddr
)
ident(
  int_ref addr "src/unix/lwt_io.ml" 1469 50029 50052 "src/unix/lwt_io.ml" 1469 50029 50056
)
"src/unix/lwt_io.ml" 1470 50059 50074 "src/unix/lwt_io.ml" 1470 50059 50109
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1470 50059 50063 "src/unix/lwt_io.ml" 1470 50059 50109
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1472 50137 50139 "src/unix/lwt_io.ml" 1472 50137 50160
type(
  (Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit Lwt.t) ->
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  Lwt_unix.sockaddr ->
  (input channel * output channel -> 'a) -> server * unit Lwt.t
)
ident(
  int_ref establish_server_base "src/unix/lwt_io.ml" 1422 48214 48218 "src/unix/lwt_io.ml" 1422 48214 48239
)
"src/unix/lwt_io.ml" 1472 50137 50161 "src/unix/lwt_io.ml" 1472 50137 50174
type(
  Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit Lwt.t
)
ident(
  int_ref blocking_bind "src/unix/lwt_io.ml" 1469 50029 50035 "src/unix/lwt_io.ml" 1469 50029 50048
)
"src/unix/lwt_io.ml" 1472 50137 50176 "src/unix/lwt_io.ml" 1472 50137 50178
type(
  Lwt_unix.file_descr option
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1468 49969 49991 "src/unix/lwt_io.ml" 1468 49969 49993
)
"src/unix/lwt_io.ml" 1472 50137 50180 "src/unix/lwt_io.ml" 1472 50137 50191
type(
  int option
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 1468 49969 49995 "src/unix/lwt_io.ml" 1468 49969 50006
)
"src/unix/lwt_io.ml" 1472 50137 50193 "src/unix/lwt_io.ml" 1472 50137 50200
type(
  int option
)
ident(
  int_ref backlog "src/unix/lwt_io.ml" 1468 49969 50008 "src/unix/lwt_io.ml" 1468 49969 50015
)
"src/unix/lwt_io.ml" 1472 50137 50201 "src/unix/lwt_io.ml" 1472 50137 50209
type(
  Lwt_unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1468 49969 50016 "src/unix/lwt_io.ml" 1468 49969 50024
)
"src/unix/lwt_io.ml" 1472 50137 50210 "src/unix/lwt_io.ml" 1472 50137 50211
type(
  input channel * output channel -> 'a
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1468 49969 50025 "src/unix/lwt_io.ml" 1468 49969 50026
)
"src/unix/lwt_io.ml" 1472 50137 50139 "src/unix/lwt_io.ml" 1472 50137 50211
call(
  stack
)
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1473 50212 50214 "src/unix/lwt_io.ml" 1473 50212 50216
type(
  server * unit Lwt.t -> (server * unit Lwt.t -> server) -> server
)
ident(
  ext_ref Pervasives.( |> )
)
"src/unix/lwt_io.ml" 1473 50212 50217 "src/unix/lwt_io.ml" 1473 50212 50220
type(
  server * unit Lwt.t -> server
)
ident(
  ext_ref Pervasives.fst
)
"src/unix/lwt_io.ml" 1472 50137 50139 "src/unix/lwt_io.ml" 1473 50212 50220
type(
  server
)
"src/unix/lwt_io.ml" 1469 50029 50031 "src/unix/lwt_io.ml" 1473 50212 50220
type(
  server
)
"src/unix/lwt_io.ml" 1475 50222 50226 "src/unix/lwt_io.ml" 1475 50222 50247
type(
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  ?no_close:bool ->
  Lwt_unix.sockaddr ->
  (input channel * output channel -> unit Lwt.t) -> server Lwt.t
)
ident(
  def establish_server_safe "src/unix/lwt_io.ml" 1519 51735 51735 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1476 50248 50253 "src/unix/lwt_io.ml" 1476 50248 50255
type(
  Lwt_unix.file_descr option
)
ident(
  def fd "src/unix/lwt_io.ml" 1476 50248 50256 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1476 50248 50257 "src/unix/lwt_io.ml" 1476 50248 50268
type(
  int option
)
ident(
  def buffer_size "src/unix/lwt_io.ml" 1476 50248 50269 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1476 50248 50270 "src/unix/lwt_io.ml" 1476 50248 50277
type(
  int option
)
ident(
  def backlog "src/unix/lwt_io.ml" 1476 50248 50278 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1476 50248 50280 "src/unix/lwt_io.ml" 1476 50248 50288
type(
  bool
)
"src/unix/lwt_io.ml" 1476 50248 50291 "src/unix/lwt_io.ml" 1476 50248 50296
type(
  bool
)
type(
  bool
)
ident(
  int_ref *sth* "src/unix/lwt_io.ml" 1476 50248 50291 "src/unix/lwt_io.ml" 1476 50248 50296
)
type(
  bool option
)
type(
  bool option
)
type(
  bool
)
"src/unix/lwt_io.ml" 1476 50248 50298 "src/unix/lwt_io.ml" 1476 50248 50306
type(
  Lwt_unix.sockaddr
)
ident(
  def sockaddr "src/unix/lwt_io.ml" 1476 50248 50307 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1476 50248 50307 "src/unix/lwt_io.ml" 1476 50248 50308
type(
  input channel * output channel -> unit Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 1477 50311 50313 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1477 50311 50317 "src/unix/lwt_io.ml" 1477 50311 50334
type(
  'a channel -> unit Lwt.t
)
ident(
  def best_effort_close "src/unix/lwt_io.ml" 1494 50979 50981 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1477 50311 50335 "src/unix/lwt_io.ml" 1477 50311 50342
type(
  'a channel
)
ident(
  def channel "src/unix/lwt_io.ml" 1484 50774 50778 "src/unix/lwt_io.ml" 1491 50946 50972
)
"src/unix/lwt_io.ml" 1484 50774 50781 "src/unix/lwt_io.ml" 1484 50774 50790
type(
  'a channel -> bool
)
ident(
  int_ref is_closed "src/unix/lwt_io.ml" 472 15283 15287 "src/unix/lwt_io.ml" 472 15283 15296
)
"src/unix/lwt_io.ml" 1484 50774 50791 "src/unix/lwt_io.ml" 1484 50774 50798
type(
  'a channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1477 50311 50335 "src/unix/lwt_io.ml" 1477 50311 50342
)
"src/unix/lwt_io.ml" 1484 50774 50781 "src/unix/lwt_io.ml" 1484 50774 50798
call(
  stack
)
type(
  bool
)
"src/unix/lwt_io.ml" 1485 50804 50810 "src/unix/lwt_io.ml" 1485 50804 50825
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1487 50835 50841 "src/unix/lwt_io.ml" 1487 50835 50850
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 1488 50851 50864 "src/unix/lwt_io.ml" 1488 50851 50866
type(
  unit
)
"src/unix/lwt_io.ml" 1488 50851 50870 "src/unix/lwt_io.ml" 1488 50851 50875
type(
  'a channel -> unit Lwt.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 454 14632 14641
)
"src/unix/lwt_io.ml" 1488 50851 50876 "src/unix/lwt_io.ml" 1488 50851 50883
type(
  'a channel
)
ident(
  int_ref channel "src/unix/lwt_io.ml" 1477 50311 50335 "src/unix/lwt_io.ml" 1477 50311 50342
)
"src/unix/lwt_io.ml" 1488 50851 50870 "src/unix/lwt_io.ml" 1488 50851 50883
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1488 50851 50859 "src/unix/lwt_io.ml" 1488 50851 50884
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1489 50885 50898 "src/unix/lwt_io.ml" 1489 50885 50901
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 1490 50905 50915 "src/unix/lwt_io.ml" 1491 50946 50971
)
"src/unix/lwt_io.ml" 1490 50905 50915 "src/unix/lwt_io.ml" 1490 50905 50916
type(
  (exn -> unit) ref -> exn -> unit
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 1490 50905 50916 "src/unix/lwt_io.ml" 1490 50905 50940
type(
  (exn -> unit) ref
)
ident(
  ext_ref Lwt.async_exception_hook
)
"src/unix/lwt_io.ml" 1490 50905 50915 "src/unix/lwt_io.ml" 1490 50905 50940
type(
  exn -> unit
)
"src/unix/lwt_io.ml" 1490 50905 50941 "src/unix/lwt_io.ml" 1490 50905 50944
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 1489 50885 50898 "src/unix/lwt_io.ml" 1489 50885 50901
)
"src/unix/lwt_io.ml" 1490 50905 50915 "src/unix/lwt_io.ml" 1490 50905 50944
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1491 50946 50956 "src/unix/lwt_io.ml" 1491 50946 50971
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1490 50905 50915 "src/unix/lwt_io.ml" 1491 50946 50971
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1489 50885 50893 "src/unix/lwt_io.ml" 1491 50946 50972
type(
  exn -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1487 50835 50841 "src/unix/lwt_io.ml" 1491 50946 50972
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1484 50774 50778 "src/unix/lwt_io.ml" 1491 50946 50972
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1494 50979 50985 "src/unix/lwt_io.ml" 1494 50979 50992
type(
  input channel * output channel -> unit
)
ident(
  def handler "src/unix/lwt_io.ml" 1512 51556 51558 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1494 50979 50995 "src/unix/lwt_io.ml" 1494 50979 51008
type(
  input channel
)
ident(
  def input_channel "src/unix/lwt_io.ml" 1495 51041 51045 "src/unix/lwt_io.ml" 1509 51506 51549
)
"src/unix/lwt_io.ml" 1494 50979 51010 "src/unix/lwt_io.ml" 1494 50979 51024
type(
  output channel
)
ident(
  def output_channel "src/unix/lwt_io.ml" 1495 51041 51045 "src/unix/lwt_io.ml" 1509 51506 51549
)
"src/unix/lwt_io.ml" 1494 50979 50994 "src/unix/lwt_io.ml" 1494 50979 51025
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1494 50979 51029 "src/unix/lwt_io.ml" 1494 50979 51037
ident(
  def channels "src/unix/lwt_io.ml" 1495 51041 51045 "src/unix/lwt_io.ml" 1509 51506 51549
)
"src/unix/lwt_io.ml" 1494 50979 50993 "src/unix/lwt_io.ml" 1494 50979 51038
type(
  input channel * output channel
)
"src/unix/lwt_io.ml" 1495 51041 51045 "src/unix/lwt_io.ml" 1495 51041 51054
type(
  (unit -> unit Lwt.t) -> unit
)
ident(
  ext_ref Lwt.async
)
"src/unix/lwt_io.ml" 1495 51041 51060 "src/unix/lwt_io.ml" 1495 51041 51062
type(
  unit
)
"src/unix/lwt_io.ml" 1499 51240 51246 "src/unix/lwt_io.ml" 1499 51240 51255
type(
  (unit -> unit Lwt.t) -> (exn -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.catch
)
"src/unix/lwt_io.ml" 1500 51256 51269 "src/unix/lwt_io.ml" 1500 51256 51271
type(
  unit
)
"src/unix/lwt_io.ml" 1500 51256 51275 "src/unix/lwt_io.ml" 1500 51256 51276
type(
  input channel * output channel -> unit Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1476 50248 50307 "src/unix/lwt_io.ml" 1476 50248 50308
)
"src/unix/lwt_io.ml" 1500 51256 51277 "src/unix/lwt_io.ml" 1500 51256 51285
type(
  input channel * output channel
)
ident(
  int_ref channels "src/unix/lwt_io.ml" 1494 50979 50993 "src/unix/lwt_io.ml" 1494 50979 51038
)
"src/unix/lwt_io.ml" 1500 51256 51275 "src/unix/lwt_io.ml" 1500 51256 51285
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1500 51256 51264 "src/unix/lwt_io.ml" 1500 51256 51286
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1501 51287 51300 "src/unix/lwt_io.ml" 1501 51287 51303
type(
  exn
)
ident(
  def exn "src/unix/lwt_io.ml" 1502 51307 51317 "src/unix/lwt_io.ml" 1503 51348 51373
)
"src/unix/lwt_io.ml" 1502 51307 51317 "src/unix/lwt_io.ml" 1502 51307 51318
type(
  (exn -> unit) ref -> exn -> unit
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 1502 51307 51318 "src/unix/lwt_io.ml" 1502 51307 51342
type(
  (exn -> unit) ref
)
ident(
  ext_ref Lwt.async_exception_hook
)
"src/unix/lwt_io.ml" 1502 51307 51317 "src/unix/lwt_io.ml" 1502 51307 51342
type(
  exn -> unit
)
"src/unix/lwt_io.ml" 1502 51307 51343 "src/unix/lwt_io.ml" 1502 51307 51346
type(
  exn
)
ident(
  int_ref exn "src/unix/lwt_io.ml" 1501 51287 51300 "src/unix/lwt_io.ml" 1501 51287 51303
)
"src/unix/lwt_io.ml" 1502 51307 51317 "src/unix/lwt_io.ml" 1502 51307 51346
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1503 51348 51358 "src/unix/lwt_io.ml" 1503 51348 51373
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1502 51307 51317 "src/unix/lwt_io.ml" 1503 51348 51373
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1501 51287 51295 "src/unix/lwt_io.ml" 1503 51348 51374
type(
  exn -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1499 51240 51246 "src/unix/lwt_io.ml" 1503 51348 51374
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1505 51376 51382 "src/unix/lwt_io.ml" 1505 51376 51385
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1505 51376 51390 "src/unix/lwt_io.ml" 1505 51376 51392
type(
  unit
)
"src/unix/lwt_io.ml" 1506 51396 51407 "src/unix/lwt_io.ml" 1506 51396 51415
type(
  bool
)
ident(
  int_ref no_close "src/unix/lwt_io.ml" 1476 50248 50280 "src/unix/lwt_io.ml" 1476 50248 50288
)
"src/unix/lwt_io.ml" 1506 51396 51421 "src/unix/lwt_io.ml" 1506 51396 51436
type(
  unit Lwt.t
)
ident(
  ext_ref Lwt.return_unit
)
"src/unix/lwt_io.ml" 1508 51450 51460 "src/unix/lwt_io.ml" 1508 51450 51477
type(
  input channel -> unit Lwt.t
)
ident(
  int_ref best_effort_close "src/unix/lwt_io.ml" 1477 50311 50317 "src/unix/lwt_io.ml" 1477 50311 50334
)
"src/unix/lwt_io.ml" 1508 51450 51478 "src/unix/lwt_io.ml" 1508 51450 51491
type(
  input channel
)
ident(
  int_ref input_channel "src/unix/lwt_io.ml" 1494 50979 50995 "src/unix/lwt_io.ml" 1494 50979 51008
)
"src/unix/lwt_io.ml" 1508 51450 51460 "src/unix/lwt_io.ml" 1508 51450 51491
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1508 51450 51492 "src/unix/lwt_io.ml" 1508 51450 51495
type(
  unit Lwt.t -> (unit -> unit Lwt.t) -> unit Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1508 51450 51500 "src/unix/lwt_io.ml" 1508 51450 51502
type(
  unit
)
"src/unix/lwt_io.ml" 1509 51506 51516 "src/unix/lwt_io.ml" 1509 51506 51533
type(
  output channel -> unit Lwt.t
)
ident(
  int_ref best_effort_close "src/unix/lwt_io.ml" 1477 50311 50317 "src/unix/lwt_io.ml" 1477 50311 50334
)
"src/unix/lwt_io.ml" 1509 51506 51534 "src/unix/lwt_io.ml" 1509 51506 51548
type(
  output channel
)
ident(
  int_ref output_channel "src/unix/lwt_io.ml" 1494 50979 51010 "src/unix/lwt_io.ml" 1494 50979 51024
)
"src/unix/lwt_io.ml" 1509 51506 51516 "src/unix/lwt_io.ml" 1509 51506 51548
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1508 51450 51496 "src/unix/lwt_io.ml" 1509 51506 51548
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1508 51450 51460 "src/unix/lwt_io.ml" 1509 51506 51548
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1506 51396 51404 "src/unix/lwt_io.ml" 1509 51506 51548
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1505 51376 51386 "src/unix/lwt_io.ml" 1509 51506 51548
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1499 51240 51246 "src/unix/lwt_io.ml" 1509 51506 51548
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1495 51041 51055 "src/unix/lwt_io.ml" 1509 51506 51549
type(
  unit -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1495 51041 51045 "src/unix/lwt_io.ml" 1509 51506 51549
call(
  tail
)
type(
  unit
)
"src/unix/lwt_io.ml" 1512 51556 51562 "src/unix/lwt_io.ml" 1512 51556 51568
type(
  server
)
ident(
  def server "src/unix/lwt_io.ml" 1516 51690 51692 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1512 51556 51570 "src/unix/lwt_io.ml" 1512 51556 51577
type(
  unit Lwt.t
)
ident(
  def started "src/unix/lwt_io.ml" 1516 51690 51692 "src/unix/lwt_io.ml" 1517 51714 51733
)
"src/unix/lwt_io.ml" 1512 51556 51562 "src/unix/lwt_io.ml" 1512 51556 51577
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1513 51580 51584 "src/unix/lwt_io.ml" 1513 51580 51605
type(
  (Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit Lwt.t) ->
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  Lwt_unix.sockaddr ->
  (input channel * output channel -> unit) -> server * unit Lwt.t
)
ident(
  int_ref establish_server_base "src/unix/lwt_io.ml" 1422 48214 48218 "src/unix/lwt_io.ml" 1422 48214 48239
)
"src/unix/lwt_io.ml" 1514 51606 51612 "src/unix/lwt_io.ml" 1514 51606 51637
type(
  Lwt_unix.file_descr -> Lwt_unix.sockaddr -> unit Lwt.t
)
ident(
  ext_ref Lwt_unix.Versioned.bind_2
)
"src/unix/lwt_io.ml" 1515 51638 51645 "src/unix/lwt_io.ml" 1515 51638 51647
type(
  Lwt_unix.file_descr option
)
ident(
  int_ref fd "src/unix/lwt_io.ml" 1476 50248 50253 "src/unix/lwt_io.ml" 1476 50248 50255
)
"src/unix/lwt_io.ml" 1515 51638 51649 "src/unix/lwt_io.ml" 1515 51638 51660
type(
  int option
)
ident(
  int_ref buffer_size "src/unix/lwt_io.ml" 1476 50248 50257 "src/unix/lwt_io.ml" 1476 50248 50268
)
"src/unix/lwt_io.ml" 1515 51638 51662 "src/unix/lwt_io.ml" 1515 51638 51669
type(
  int option
)
ident(
  int_ref backlog "src/unix/lwt_io.ml" 1476 50248 50270 "src/unix/lwt_io.ml" 1476 50248 50277
)
"src/unix/lwt_io.ml" 1515 51638 51670 "src/unix/lwt_io.ml" 1515 51638 51678
type(
  Lwt_unix.sockaddr
)
ident(
  int_ref sockaddr "src/unix/lwt_io.ml" 1476 50248 50298 "src/unix/lwt_io.ml" 1476 50248 50306
)
"src/unix/lwt_io.ml" 1515 51638 51679 "src/unix/lwt_io.ml" 1515 51638 51686
type(
  input channel * output channel -> unit
)
ident(
  int_ref handler "src/unix/lwt_io.ml" 1494 50979 50985 "src/unix/lwt_io.ml" 1494 50979 50992
)
"src/unix/lwt_io.ml" 1513 51580 51584 "src/unix/lwt_io.ml" 1515 51638 51686
call(
  stack
)
type(
  server * unit Lwt.t
)
"src/unix/lwt_io.ml" 1516 51690 51692 "src/unix/lwt_io.ml" 1516 51690 51699
type(
  unit Lwt.t
)
ident(
  int_ref started "src/unix/lwt_io.ml" 1512 51556 51570 "src/unix/lwt_io.ml" 1512 51556 51577
)
"src/unix/lwt_io.ml" 1516 51690 51700 "src/unix/lwt_io.ml" 1516 51690 51703
type(
  unit Lwt.t -> (unit -> server Lwt.t) -> server Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1516 51690 51708 "src/unix/lwt_io.ml" 1516 51690 51710
type(
  unit
)
"src/unix/lwt_io.ml" 1517 51714 51716 "src/unix/lwt_io.ml" 1517 51714 51726
type(
  server -> server Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1517 51714 51727 "src/unix/lwt_io.ml" 1517 51714 51733
type(
  server
)
ident(
  int_ref server "src/unix/lwt_io.ml" 1512 51556 51562 "src/unix/lwt_io.ml" 1512 51556 51568
)
"src/unix/lwt_io.ml" 1517 51714 51716 "src/unix/lwt_io.ml" 1517 51714 51733
call(
  tail
)
type(
  server Lwt.t
)
"src/unix/lwt_io.ml" 1516 51690 51704 "src/unix/lwt_io.ml" 1517 51714 51733
type(
  unit -> server Lwt.t
)
"src/unix/lwt_io.ml" 1516 51690 51692 "src/unix/lwt_io.ml" 1517 51714 51733
call(
  tail
)
type(
  server Lwt.t
)
"src/unix/lwt_io.ml" 1512 51556 51558 "src/unix/lwt_io.ml" 1517 51714 51733
type(
  server Lwt.t
)
"src/unix/lwt_io.ml" 1494 50979 50981 "src/unix/lwt_io.ml" 1517 51714 51733
type(
  server Lwt.t
)
"src/unix/lwt_io.ml" 1477 50311 50313 "src/unix/lwt_io.ml" 1517 51714 51733
type(
  server Lwt.t
)
"src/unix/lwt_io.ml" 1519 51735 51739 "src/unix/lwt_io.ml" 1519 51735 51751
type(
  'a channel -> unit
)
ident(
  def ignore_close "src/unix/lwt_io.ml" 1522 51778 51778 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1519 51735 51752 "src/unix/lwt_io.ml" 1519 51735 51754
type(
  'a channel
)
ident(
  def ch "src/unix/lwt_io.ml" 1520 51757 51759 "src/unix/lwt_io.ml" 1520 51757 51776
)
"src/unix/lwt_io.ml" 1520 51757 51759 "src/unix/lwt_io.ml" 1520 51757 51765
type(
  unit Lwt.t -> unit
)
ident(
  ext_ref Pervasives.ignore
)
"src/unix/lwt_io.ml" 1520 51757 51767 "src/unix/lwt_io.ml" 1520 51757 51772
type(
  'a channel -> unit Lwt.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 454 14632 14641
)
"src/unix/lwt_io.ml" 1520 51757 51773 "src/unix/lwt_io.ml" 1520 51757 51775
type(
  'a channel
)
ident(
  int_ref ch "src/unix/lwt_io.ml" 1519 51735 51752 "src/unix/lwt_io.ml" 1519 51735 51754
)
"src/unix/lwt_io.ml" 1520 51757 51766 "src/unix/lwt_io.ml" 1520 51757 51776
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1520 51757 51759 "src/unix/lwt_io.ml" 1520 51757 51776
type(
  unit
)
"src/unix/lwt_io.ml" 1522 51778 51782 "src/unix/lwt_io.ml" 1522 51778 51793
type(
  ('a channel -> 'b option Lwt.t) ->
  'a channel Lwt.t Lazy.t -> 'b Lwt_stream.t
)
ident(
  def make_stream "src/unix/lwt_io.ml" 1537 52236 52236 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1522 51778 51794 "src/unix/lwt_io.ml" 1522 51778 51795
type(
  'a channel -> 'b option Lwt.t
)
ident(
  def f "src/unix/lwt_io.ml" 1522 51778 51796 "src/unix/lwt_io.ml" 1535 52198 52234
)
"src/unix/lwt_io.ml" 1522 51778 51796 "src/unix/lwt_io.ml" 1522 51778 51803
type(
  'a channel Lwt.t Lazy.t
)
ident(
  def lazy_ic "src/unix/lwt_io.ml" 1523 51806 51808 "src/unix/lwt_io.ml" 1535 52198 52234
)
"src/unix/lwt_io.ml" 1523 51806 51812 "src/unix/lwt_io.ml" 1523 51806 51819
type(
  'a channel Lwt.t lazy_t
)
ident(
  def lazy_ic "src/unix/lwt_io.ml" 1528 51931 51933 "src/unix/lwt_io.ml" 1535 52198 52234
)
"src/unix/lwt_io.ml" 1524 51822 51831 "src/unix/lwt_io.ml" 1524 51822 51841
type(
  'a channel Lwt.t Lazy.t -> 'a channel Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1524 51822 51842 "src/unix/lwt_io.ml" 1524 51822 51849
type(
  'a channel Lwt.t Lazy.t
)
ident(
  int_ref lazy_ic "src/unix/lwt_io.ml" 1522 51778 51796 "src/unix/lwt_io.ml" 1522 51778 51803
)
"src/unix/lwt_io.ml" 1524 51822 51831 "src/unix/lwt_io.ml" 1524 51822 51849
call(
  stack
)
type(
  'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1524 51822 51850 "src/unix/lwt_io.ml" 1524 51822 51853
type(
  'a channel Lwt.t -> ('a channel -> 'a channel Lwt.t) -> 'a channel Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1524 51822 51858 "src/unix/lwt_io.ml" 1524 51822 51860
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1525 51864 51873 "src/unix/lwt_io.ml" 1526 51902 51924
)
"src/unix/lwt_io.ml" 1525 51864 51873 "src/unix/lwt_io.ml" 1525 51864 51884
type(
  ('a channel -> unit) -> 'a channel -> unit
)
ident(
  ext_ref Gc.finalise
)
"src/unix/lwt_io.ml" 1525 51864 51885 "src/unix/lwt_io.ml" 1525 51864 51897
type(
  'a channel -> unit
)
ident(
  int_ref ignore_close "src/unix/lwt_io.ml" 1519 51735 51739 "src/unix/lwt_io.ml" 1519 51735 51751
)
"src/unix/lwt_io.ml" 1525 51864 51898 "src/unix/lwt_io.ml" 1525 51864 51900
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1524 51822 51858 "src/unix/lwt_io.ml" 1524 51822 51860
)
"src/unix/lwt_io.ml" 1525 51864 51873 "src/unix/lwt_io.ml" 1525 51864 51900
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1526 51902 51911 "src/unix/lwt_io.ml" 1526 51902 51921
type(
  'a channel -> 'a channel Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1526 51902 51922 "src/unix/lwt_io.ml" 1526 51902 51924
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1524 51822 51858 "src/unix/lwt_io.ml" 1524 51822 51860
)
"src/unix/lwt_io.ml" 1526 51902 51911 "src/unix/lwt_io.ml" 1526 51902 51924
call(
  tail
)
type(
  'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1525 51864 51873 "src/unix/lwt_io.ml" 1526 51902 51924
type(
  'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1524 51822 51854 "src/unix/lwt_io.ml" 1526 51902 51924
type(
  'a channel -> 'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1524 51822 51830 "src/unix/lwt_io.ml" 1526 51902 51925
call(
  tail
)
type(
  'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1524 51822 51826 "src/unix/lwt_io.ml" 1526 51902 51925
type(
  'a channel Lwt.t lazy_t
)
"src/unix/lwt_io.ml" 1528 51931 51933 "src/unix/lwt_io.ml" 1528 51931 51948
type(
  (unit -> 'b option Lwt.t) -> 'b Lwt_stream.t
)
ident(
  ext_ref Lwt_stream.from
)
"src/unix/lwt_io.ml" 1528 51931 51954 "src/unix/lwt_io.ml" 1528 51931 51955
type(
  unit
)
"src/unix/lwt_io.ml" 1529 51959 51980 "src/unix/lwt_io.ml" 1529 51959 51990
type(
  'a channel Lwt.t Lazy.t -> 'a channel Lwt.t
)
ident(
  ext_ref Lazy.force
)
"src/unix/lwt_io.ml" 1529 51959 51991 "src/unix/lwt_io.ml" 1529 51959 51998
type(
  'a channel Lwt.t Lazy.t
)
ident(
  int_ref lazy_ic "src/unix/lwt_io.ml" 1523 51806 51812 "src/unix/lwt_io.ml" 1523 51806 51819
)
"src/unix/lwt_io.ml" 1529 51959 51980 "src/unix/lwt_io.ml" 1529 51959 51998
call(
  stack
)
type(
  'a channel Lwt.t
)
"src/unix/lwt_io.ml" 1529 51959 51999 "src/unix/lwt_io.ml" 1529 51959 52002
type(
  'a channel Lwt.t -> ('a channel -> 'b option Lwt.t) -> 'b option Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1529 51959 52007 "src/unix/lwt_io.ml" 1529 51959 52009
type(
  'a channel
)
ident(
  def ic "src/unix/lwt_io.ml" 1530 52013 52034 "src/unix/lwt_io.ml" 1535 52198 52233
)
"src/unix/lwt_io.ml" 1530 52013 52034 "src/unix/lwt_io.ml" 1530 52013 52035
type(
  'a channel -> 'b option Lwt.t
)
ident(
  int_ref f "src/unix/lwt_io.ml" 1522 51778 51794 "src/unix/lwt_io.ml" 1522 51778 51795
)
"src/unix/lwt_io.ml" 1530 52013 52036 "src/unix/lwt_io.ml" 1530 52013 52038
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1529 51959 52007 "src/unix/lwt_io.ml" 1529 51959 52009
)
"src/unix/lwt_io.ml" 1530 52013 52034 "src/unix/lwt_io.ml" 1530 52013 52038
call(
  stack
)
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1530 52013 52039 "src/unix/lwt_io.ml" 1530 52013 52042
type(
  'b option Lwt.t -> ('b option -> 'b option Lwt.t) -> 'b option Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1530 52013 52047 "src/unix/lwt_io.ml" 1530 52013 52048
type(
  'b option
)
ident(
  def x "src/unix/lwt_io.ml" 1531 52052 52073 "src/unix/lwt_io.ml" 1535 52198 52233
)
"src/unix/lwt_io.ml" 1531 52052 52076 "src/unix/lwt_io.ml" 1531 52052 52077
type(
  'b option
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1530 52013 52047 "src/unix/lwt_io.ml" 1530 52013 52048
)
"src/unix/lwt_io.ml" 1531 52052 52078 "src/unix/lwt_io.ml" 1531 52052 52079
type(
  'b option -> 'b option -> bool
)
ident(
  ext_ref Pervasives.( = )
)
"src/unix/lwt_io.ml" 1531 52052 52080 "src/unix/lwt_io.ml" 1531 52052 52084
type(
  'b option
)
"src/unix/lwt_io.ml" 1531 52052 52076 "src/unix/lwt_io.ml" 1531 52052 52084
type(
  bool
)
"src/unix/lwt_io.ml" 1532 52090 52113 "src/unix/lwt_io.ml" 1532 52090 52118
type(
  'a channel -> unit Lwt.t
)
ident(
  int_ref close "src/unix/lwt_io.ml" 454 14632 14636 "src/unix/lwt_io.ml" 454 14632 14641
)
"src/unix/lwt_io.ml" 1532 52090 52119 "src/unix/lwt_io.ml" 1532 52090 52121
type(
  'a channel
)
ident(
  int_ref ic "src/unix/lwt_io.ml" 1529 51959 52007 "src/unix/lwt_io.ml" 1529 51959 52009
)
"src/unix/lwt_io.ml" 1532 52090 52113 "src/unix/lwt_io.ml" 1532 52090 52121
call(
  stack
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1532 52090 52122 "src/unix/lwt_io.ml" 1532 52090 52125
type(
  unit Lwt.t -> (unit -> 'b option Lwt.t) -> 'b option Lwt.t
)
ident(
  ext_ref Lwt.Infix.( >>= )
)
"src/unix/lwt_io.ml" 1532 52090 52130 "src/unix/lwt_io.ml" 1532 52090 52132
type(
  unit
)
"src/unix/lwt_io.ml" 1533 52136 52159 "src/unix/lwt_io.ml" 1533 52136 52169
type(
  'b option -> 'b option Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1533 52136 52170 "src/unix/lwt_io.ml" 1533 52136 52171
type(
  'b option
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1530 52013 52047 "src/unix/lwt_io.ml" 1530 52013 52048
)
"src/unix/lwt_io.ml" 1533 52136 52159 "src/unix/lwt_io.ml" 1533 52136 52171
call(
  tail
)
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1532 52090 52126 "src/unix/lwt_io.ml" 1533 52136 52171
type(
  unit -> 'b option Lwt.t
)
"src/unix/lwt_io.ml" 1532 52090 52113 "src/unix/lwt_io.ml" 1533 52136 52171
call(
  tail
)
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1535 52198 52221 "src/unix/lwt_io.ml" 1535 52198 52231
type(
  'b option -> 'b option Lwt.t
)
ident(
  ext_ref Lwt.return
)
"src/unix/lwt_io.ml" 1535 52198 52232 "src/unix/lwt_io.ml" 1535 52198 52233
type(
  'b option
)
ident(
  int_ref x "src/unix/lwt_io.ml" 1530 52013 52047 "src/unix/lwt_io.ml" 1530 52013 52048
)
"src/unix/lwt_io.ml" 1535 52198 52221 "src/unix/lwt_io.ml" 1535 52198 52233
call(
  tail
)
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1531 52052 52073 "src/unix/lwt_io.ml" 1535 52198 52233
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1530 52013 52043 "src/unix/lwt_io.ml" 1535 52198 52233
type(
  'b option -> 'b option Lwt.t
)
"src/unix/lwt_io.ml" 1530 52013 52034 "src/unix/lwt_io.ml" 1535 52198 52233
call(
  tail
)
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1529 51959 52003 "src/unix/lwt_io.ml" 1535 52198 52233
type(
  'a channel -> 'b option Lwt.t
)
"src/unix/lwt_io.ml" 1529 51959 51980 "src/unix/lwt_io.ml" 1535 52198 52233
call(
  tail
)
type(
  'b option Lwt.t
)
"src/unix/lwt_io.ml" 1528 51931 51949 "src/unix/lwt_io.ml" 1535 52198 52234
type(
  unit -> 'b option Lwt.t
)
"src/unix/lwt_io.ml" 1528 51931 51933 "src/unix/lwt_io.ml" 1535 52198 52234
call(
  tail
)
type(
  'b Lwt_stream.t
)
"src/unix/lwt_io.ml" 1523 51806 51808 "src/unix/lwt_io.ml" 1535 52198 52234
type(
  'b Lwt_stream.t
)
"src/unix/lwt_io.ml" 1537 52236 52240 "src/unix/lwt_io.ml" 1537 52236 52253
type(
  file_name -> string Lwt_stream.t
)
ident(
  def lines_of_file "src/unix/lwt_io.ml" 1540 52333 52333 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1537 52236 52254 "src/unix/lwt_io.ml" 1537 52236 52262
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1538 52265 52267 "src/unix/lwt_io.ml" 1538 52265 52331
)
"src/unix/lwt_io.ml" 1538 52265 52267 "src/unix/lwt_io.ml" 1538 52265 52278
type(
  (input channel -> string option Lwt.t) ->
  input channel Lwt.t Lazy.t -> string Lwt_stream.t
)
ident(
  int_ref make_stream "src/unix/lwt_io.ml" 1522 51778 51782 "src/unix/lwt_io.ml" 1522 51778 51793
)
"src/unix/lwt_io.ml" 1538 52265 52279 "src/unix/lwt_io.ml" 1538 52265 52292
type(
  input channel -> string option Lwt.t
)
ident(
  int_ref read_line_opt "src/unix/lwt_io.ml" 1210 39868 39872 "src/unix/lwt_io.ml" 1210 39868 39885
)
"src/unix/lwt_io.ml" 1538 52265 52299 "src/unix/lwt_io.ml" 1538 52265 52308
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm -> mode:input mode -> file_name -> input channel Lwt.t
)
ident(
  int_ref open_file "src/unix/lwt_io.ml" 1341 45496 45500 "src/unix/lwt_io.ml" 1341 45496 45509
)
"src/unix/lwt_io.ml" 1538 52265 52315 "src/unix/lwt_io.ml" 1538 52265 52320
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1538 52265 52321 "src/unix/lwt_io.ml" 1538 52265 52329
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1537 52236 52254 "src/unix/lwt_io.ml" 1537 52236 52262
)
"src/unix/lwt_io.ml" 1538 52265 52298 "src/unix/lwt_io.ml" 1538 52265 52330
call(
  tail
)
type(
  input channel Lwt.t
)
"src/unix/lwt_io.ml" 1538 52265 52293 "src/unix/lwt_io.ml" 1538 52265 52331
type(
  input channel Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 1538 52265 52267 "src/unix/lwt_io.ml" 1538 52265 52331
call(
  tail
)
type(
  string Lwt_stream.t
)
"src/unix/lwt_io.ml" 1540 52333 52337 "src/unix/lwt_io.ml" 1540 52333 52350
type(
  file_name -> string Lwt_stream.t -> unit Lwt.t
)
ident(
  def lines_to_file "src/unix/lwt_io.ml" 1543 52436 52436 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1540 52333 52351 "src/unix/lwt_io.ml" 1540 52333 52359
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1540 52333 52360 "src/unix/lwt_io.ml" 1541 52368 52434
)
"src/unix/lwt_io.ml" 1540 52333 52360 "src/unix/lwt_io.ml" 1540 52333 52365
type(
  string Lwt_stream.t
)
ident(
  def lines "src/unix/lwt_io.ml" 1541 52368 52370 "src/unix/lwt_io.ml" 1541 52368 52434
)
"src/unix/lwt_io.ml" 1541 52368 52370 "src/unix/lwt_io.ml" 1541 52368 52379
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm ->
  mode:output mode ->
  file_name -> (output channel -> unit Lwt.t) -> unit Lwt.t
)
ident(
  int_ref with_file "src/unix/lwt_io.ml" 1360 46142 46146 "src/unix/lwt_io.ml" 1360 46142 46155
)
"src/unix/lwt_io.ml" 1541 52368 52386 "src/unix/lwt_io.ml" 1541 52368 52392
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1541 52368 52393 "src/unix/lwt_io.ml" 1541 52368 52401
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1540 52333 52351 "src/unix/lwt_io.ml" 1540 52333 52359
)
"src/unix/lwt_io.ml" 1541 52368 52407 "src/unix/lwt_io.ml" 1541 52368 52409
type(
  output channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1541 52368 52413 "src/unix/lwt_io.ml" 1541 52368 52433
)
"src/unix/lwt_io.ml" 1541 52368 52413 "src/unix/lwt_io.ml" 1541 52368 52424
type(
  output channel -> string Lwt_stream.t -> unit Lwt.t
)
ident(
  int_ref write_lines "src/unix/lwt_io.ml" 1299 44158 44162 "src/unix/lwt_io.ml" 1299 44158 44173
)
"src/unix/lwt_io.ml" 1541 52368 52425 "src/unix/lwt_io.ml" 1541 52368 52427
type(
  output channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1541 52368 52407 "src/unix/lwt_io.ml" 1541 52368 52409
)
"src/unix/lwt_io.ml" 1541 52368 52428 "src/unix/lwt_io.ml" 1541 52368 52433
type(
  string Lwt_stream.t
)
ident(
  int_ref lines "src/unix/lwt_io.ml" 1540 52333 52360 "src/unix/lwt_io.ml" 1540 52333 52365
)
"src/unix/lwt_io.ml" 1541 52368 52413 "src/unix/lwt_io.ml" 1541 52368 52433
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1541 52368 52402 "src/unix/lwt_io.ml" 1541 52368 52434
type(
  output channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1541 52368 52370 "src/unix/lwt_io.ml" 1541 52368 52434
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1543 52436 52440 "src/unix/lwt_io.ml" 1543 52436 52453
type(
  file_name -> char Lwt_stream.t
)
ident(
  def chars_of_file "src/unix/lwt_io.ml" 1546 52533 52533 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1543 52436 52454 "src/unix/lwt_io.ml" 1543 52436 52462
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1544 52465 52467 "src/unix/lwt_io.ml" 1544 52465 52531
)
"src/unix/lwt_io.ml" 1544 52465 52467 "src/unix/lwt_io.ml" 1544 52465 52478
type(
  (input channel -> char option Lwt.t) ->
  input channel Lwt.t Lazy.t -> char Lwt_stream.t
)
ident(
  int_ref make_stream "src/unix/lwt_io.ml" 1522 51778 51782 "src/unix/lwt_io.ml" 1522 51778 51793
)
"src/unix/lwt_io.ml" 1544 52465 52479 "src/unix/lwt_io.ml" 1544 52465 52492
type(
  input channel -> char option Lwt.t
)
ident(
  int_ref read_char_opt "src/unix/lwt_io.ml" 1200 39517 39521 "src/unix/lwt_io.ml" 1200 39517 39534
)
"src/unix/lwt_io.ml" 1544 52465 52499 "src/unix/lwt_io.ml" 1544 52465 52508
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm -> mode:input mode -> file_name -> input channel Lwt.t
)
ident(
  int_ref open_file "src/unix/lwt_io.ml" 1341 45496 45500 "src/unix/lwt_io.ml" 1341 45496 45509
)
"src/unix/lwt_io.ml" 1544 52465 52515 "src/unix/lwt_io.ml" 1544 52465 52520
type(
  input mode
)
ident(
  int_ref input "src/unix/lwt_io.ml" 54 1809 1813 "src/unix/lwt_io.ml" 54 1809 1818
)
"src/unix/lwt_io.ml" 1544 52465 52521 "src/unix/lwt_io.ml" 1544 52465 52529
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1543 52436 52454 "src/unix/lwt_io.ml" 1543 52436 52462
)
"src/unix/lwt_io.ml" 1544 52465 52498 "src/unix/lwt_io.ml" 1544 52465 52530
call(
  tail
)
type(
  input channel Lwt.t
)
"src/unix/lwt_io.ml" 1544 52465 52493 "src/unix/lwt_io.ml" 1544 52465 52531
type(
  input channel Lwt.t Lazy.t
)
"src/unix/lwt_io.ml" 1544 52465 52467 "src/unix/lwt_io.ml" 1544 52465 52531
call(
  tail
)
type(
  char Lwt_stream.t
)
"src/unix/lwt_io.ml" 1546 52533 52537 "src/unix/lwt_io.ml" 1546 52533 52550
type(
  file_name -> char Lwt_stream.t -> unit Lwt.t
)
ident(
  def chars_to_file "src/unix/lwt_io.ml" 1549 52636 52636 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1546 52533 52551 "src/unix/lwt_io.ml" 1546 52533 52559
type(
  file_name
)
ident(
  def filename "src/unix/lwt_io.ml" 1546 52533 52560 "src/unix/lwt_io.ml" 1547 52568 52634
)
"src/unix/lwt_io.ml" 1546 52533 52560 "src/unix/lwt_io.ml" 1546 52533 52565
type(
  char Lwt_stream.t
)
ident(
  def chars "src/unix/lwt_io.ml" 1547 52568 52570 "src/unix/lwt_io.ml" 1547 52568 52634
)
"src/unix/lwt_io.ml" 1547 52568 52570 "src/unix/lwt_io.ml" 1547 52568 52579
type(
  ?buffer:Lwt_bytes.t ->
  ?flags:Unix.open_flag list ->
  ?perm:Unix.file_perm ->
  mode:output mode ->
  file_name -> (output channel -> unit Lwt.t) -> unit Lwt.t
)
ident(
  int_ref with_file "src/unix/lwt_io.ml" 1360 46142 46146 "src/unix/lwt_io.ml" 1360 46142 46155
)
"src/unix/lwt_io.ml" 1547 52568 52586 "src/unix/lwt_io.ml" 1547 52568 52592
type(
  output mode
)
ident(
  int_ref output "src/unix/lwt_io.ml" 55 1840 1844 "src/unix/lwt_io.ml" 55 1840 1850
)
"src/unix/lwt_io.ml" 1547 52568 52593 "src/unix/lwt_io.ml" 1547 52568 52601
type(
  file_name
)
ident(
  int_ref filename "src/unix/lwt_io.ml" 1546 52533 52551 "src/unix/lwt_io.ml" 1546 52533 52559
)
"src/unix/lwt_io.ml" 1547 52568 52607 "src/unix/lwt_io.ml" 1547 52568 52609
type(
  output channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1547 52568 52613 "src/unix/lwt_io.ml" 1547 52568 52633
)
"src/unix/lwt_io.ml" 1547 52568 52613 "src/unix/lwt_io.ml" 1547 52568 52624
type(
  output channel -> char Lwt_stream.t -> unit Lwt.t
)
ident(
  int_ref write_chars "src/unix/lwt_io.ml" 1297 44010 44014 "src/unix/lwt_io.ml" 1297 44010 44025
)
"src/unix/lwt_io.ml" 1547 52568 52625 "src/unix/lwt_io.ml" 1547 52568 52627
type(
  output channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1547 52568 52607 "src/unix/lwt_io.ml" 1547 52568 52609
)
"src/unix/lwt_io.ml" 1547 52568 52628 "src/unix/lwt_io.ml" 1547 52568 52633
type(
  char Lwt_stream.t
)
ident(
  int_ref chars "src/unix/lwt_io.ml" 1546 52533 52560 "src/unix/lwt_io.ml" 1546 52533 52565
)
"src/unix/lwt_io.ml" 1547 52568 52613 "src/unix/lwt_io.ml" 1547 52568 52633
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1547 52568 52602 "src/unix/lwt_io.ml" 1547 52568 52634
type(
  output channel -> unit Lwt.t
)
"src/unix/lwt_io.ml" 1547 52568 52570 "src/unix/lwt_io.ml" 1547 52568 52634
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1549 52636 52640 "src/unix/lwt_io.ml" 1549 52636 52654
type(
  'a channel -> char Lwt_stream.t -> unit Lwt.t
)
ident(
  def hexdump_stream "src/unix/lwt_io.ml" 1550 52710 52710 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1549 52636 52655 "src/unix/lwt_io.ml" 1549 52636 52657
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1549 52636 52658 "src/unix/lwt_io.ml" 1549 52636 52709
)
"src/unix/lwt_io.ml" 1549 52636 52658 "src/unix/lwt_io.ml" 1549 52636 52664
type(
  char Lwt_stream.t
)
ident(
  def stream "src/unix/lwt_io.ml" 1549 52636 52667 "src/unix/lwt_io.ml" 1549 52636 52709
)
"src/unix/lwt_io.ml" 1549 52636 52667 "src/unix/lwt_io.ml" 1549 52636 52678
type(
  'a channel -> string Lwt_stream.t -> unit Lwt.t
)
ident(
  int_ref write_lines "src/unix/lwt_io.ml" 1299 44158 44162 "src/unix/lwt_io.ml" 1299 44158 44173
)
"src/unix/lwt_io.ml" 1549 52636 52679 "src/unix/lwt_io.ml" 1549 52636 52681
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1549 52636 52655 "src/unix/lwt_io.ml" 1549 52636 52657
)
"src/unix/lwt_io.ml" 1549 52636 52683 "src/unix/lwt_io.ml" 1549 52636 52701
type(
  char Lwt_stream.t -> string Lwt_stream.t
)
ident(
  ext_ref Lwt_stream.hexdump
)
"src/unix/lwt_io.ml" 1549 52636 52702 "src/unix/lwt_io.ml" 1549 52636 52708
type(
  char Lwt_stream.t
)
ident(
  int_ref stream "src/unix/lwt_io.ml" 1549 52636 52658 "src/unix/lwt_io.ml" 1549 52636 52664
)
"src/unix/lwt_io.ml" 1549 52636 52682 "src/unix/lwt_io.ml" 1549 52636 52709
call(
  stack
)
type(
  string Lwt_stream.t
)
"src/unix/lwt_io.ml" 1549 52636 52667 "src/unix/lwt_io.ml" 1549 52636 52709
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1550 52710 52714 "src/unix/lwt_io.ml" 1550 52710 52721
type(
  'a channel -> string -> unit Lwt.t
)
ident(
  def hexdump "src/unix/lwt_io.ml" 1552 52777 52777 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1550 52710 52722 "src/unix/lwt_io.ml" 1550 52710 52724
type(
  'a channel
)
ident(
  def oc "src/unix/lwt_io.ml" 1550 52710 52725 "src/unix/lwt_io.ml" 1550 52710 52775
)
"src/unix/lwt_io.ml" 1550 52710 52725 "src/unix/lwt_io.ml" 1550 52710 52728
type(
  string
)
ident(
  def buf "src/unix/lwt_io.ml" 1550 52710 52731 "src/unix/lwt_io.ml" 1550 52710 52775
)
"src/unix/lwt_io.ml" 1550 52710 52731 "src/unix/lwt_io.ml" 1550 52710 52745
type(
  'a channel -> char Lwt_stream.t -> unit Lwt.t
)
ident(
  int_ref hexdump_stream "src/unix/lwt_io.ml" 1549 52636 52640 "src/unix/lwt_io.ml" 1549 52636 52654
)
"src/unix/lwt_io.ml" 1550 52710 52746 "src/unix/lwt_io.ml" 1550 52710 52748
type(
  'a channel
)
ident(
  int_ref oc "src/unix/lwt_io.ml" 1550 52710 52722 "src/unix/lwt_io.ml" 1550 52710 52724
)
"src/unix/lwt_io.ml" 1550 52710 52750 "src/unix/lwt_io.ml" 1550 52710 52770
type(
  string -> char Lwt_stream.t
)
ident(
  ext_ref Lwt_stream.of_string
)
"src/unix/lwt_io.ml" 1550 52710 52771 "src/unix/lwt_io.ml" 1550 52710 52774
type(
  string
)
ident(
  int_ref buf "src/unix/lwt_io.ml" 1550 52710 52725 "src/unix/lwt_io.ml" 1550 52710 52728
)
"src/unix/lwt_io.ml" 1550 52710 52749 "src/unix/lwt_io.ml" 1550 52710 52775
call(
  stack
)
type(
  char Lwt_stream.t
)
"src/unix/lwt_io.ml" 1550 52710 52731 "src/unix/lwt_io.ml" 1550 52710 52775
call(
  tail
)
type(
  unit Lwt.t
)
"src/unix/lwt_io.ml" 1552 52777 52781 "src/unix/lwt_io.ml" 1552 52777 52804
type(
  int -> unit
)
ident(
  def set_default_buffer_size "src/unix/lwt_io.ml" 1555 52894 52894 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1552 52777 52805 "src/unix/lwt_io.ml" 1552 52777 52809
type(
  int
)
ident(
  def size "src/unix/lwt_io.ml" 1553 52812 52814 "src/unix/lwt_io.ml" 1554 52864 52893
)
"src/unix/lwt_io.ml" 1553 52812 52814 "src/unix/lwt_io.ml" 1553 52812 52831
type(
  string -> int -> unit
)
ident(
  int_ref check_buffer_size "src/unix/lwt_io.ml" 30 1042 1046 "src/unix/lwt_io.ml" 30 1042 1063
)
"src/unix/lwt_io.ml" 1553 52812 52832 "src/unix/lwt_io.ml" 1553 52812 52857
type(
  string
)
"src/unix/lwt_io.ml" 1553 52812 52858 "src/unix/lwt_io.ml" 1553 52812 52862
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 1552 52777 52805 "src/unix/lwt_io.ml" 1552 52777 52809
)
"src/unix/lwt_io.ml" 1553 52812 52814 "src/unix/lwt_io.ml" 1553 52812 52862
call(
  stack
)
type(
  unit
)
"src/unix/lwt_io.ml" 1554 52864 52866 "src/unix/lwt_io.ml" 1554 52864 52885
type(
  int ref
)
ident(
  int_ref default_buffer_size "src/unix/lwt_io.ml" 41 1468 1472 "src/unix/lwt_io.ml" 41 1468 1491
)
"src/unix/lwt_io.ml" 1554 52864 52886 "src/unix/lwt_io.ml" 1554 52864 52888
type(
  int ref -> int -> unit
)
ident(
  ext_ref Pervasives.( := )
)
"src/unix/lwt_io.ml" 1554 52864 52889 "src/unix/lwt_io.ml" 1554 52864 52893
type(
  int
)
ident(
  int_ref size "src/unix/lwt_io.ml" 1552 52777 52805 "src/unix/lwt_io.ml" 1552 52777 52809
)
"src/unix/lwt_io.ml" 1554 52864 52866 "src/unix/lwt_io.ml" 1554 52864 52893
type(
  unit
)
"src/unix/lwt_io.ml" 1553 52812 52814 "src/unix/lwt_io.ml" 1554 52864 52893
type(
  unit
)
"src/unix/lwt_io.ml" 1555 52894 52898 "src/unix/lwt_io.ml" 1555 52894 52917
type(
  'a -> int
)
ident(
  def default_buffer_size "src/unix/lwt_io.ml" 1557 52944 52944 "src/unix/lwt_io.ml" 1 0 -1
)
"src/unix/lwt_io.ml" 1555 52894 52918 "src/unix/lwt_io.ml" 1555 52894 52919
type(
  'a
)
"src/unix/lwt_io.ml" 1555 52894 52922 "src/unix/lwt_io.ml" 1555 52894 52923
type(
  int ref -> int
)
ident(
  ext_ref Pervasives.( ! )
)
"src/unix/lwt_io.ml" 1555 52894 52923 "src/unix/lwt_io.ml" 1555 52894 52942
type(
  int ref
)
ident(
  int_ref default_buffer_size "src/unix/lwt_io.ml" 41 1468 1472 "src/unix/lwt_io.ml" 41 1468 1491
)
"src/unix/lwt_io.ml" 1555 52894 52922 "src/unix/lwt_io.ml" 1555 52894 52942
type(
  int
)
"src/unix/lwt_io.ml" 1559 52970 52976 "src/unix/lwt_io.ml" 1559 52970 52994
type(
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  Lwt_unix.sockaddr -> (input channel * output channel -> 'a) -> server
)
ident(
  def establish_server_1 "src/unix/lwt_io.ml" 1560 53014 53016 "src/unix/lwt_io.ml" 1564 53150 53153
)
"src/unix/lwt_io.ml" 1559 52970 52997 "src/unix/lwt_io.ml" 1559 52970 53013
type(
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  Lwt_unix.sockaddr -> (input channel * output channel -> 'a) -> server
)
ident(
  int_ref establish_server "src/unix/lwt_io.ml" 1468 49969 49973 "src/unix/lwt_io.ml" 1468 49969 49989
)
"src/unix/lwt_io.ml" 1560 53014 53020 "src/unix/lwt_io.ml" 1560 53014 53038
type(
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  ?no_close:bool ->
  Lwt_unix.sockaddr ->
  (input channel * output channel -> unit Lwt.t) -> server Lwt.t
)
ident(
  def establish_server_2 "src/unix/lwt_io.ml" 1562 53064 53066 "src/unix/lwt_io.ml" 1564 53150 53153
)
"src/unix/lwt_io.ml" 1560 53014 53041 "src/unix/lwt_io.ml" 1560 53014 53062
type(
  ?fd:Lwt_unix.file_descr ->
  ?buffer_size:int ->
  ?backlog:int ->
  ?no_close:bool ->
  Lwt_unix.sockaddr ->
  (input channel * output channel -> unit Lwt.t) -> server Lwt.t
)
ident(
  int_ref establish_server_safe "src/unix/lwt_io.ml" 1475 50222 50226 "src/unix/lwt_io.ml" 1475 50222 50247
)
"src/unix/lwt_io.ml" 1562 53064 53070 "src/unix/lwt_io.ml" 1562 53064 53087
type(
  server -> unit
)
ident(
  def shutdown_server_1 "src/unix/lwt_io.ml" 1563 53106 53108 "src/unix/lwt_io.ml" 1564 53150 53153
)
"src/unix/lwt_io.ml" 1562 53064 53090 "src/unix/lwt_io.ml" 1562 53064 53105
type(
  server -> unit
)
ident(
  int_ref shutdown_server "src/unix/lwt_io.ml" 1420 48137 48141 "src/unix/lwt_io.ml" 1420 48137 48156
)
"src/unix/lwt_io.ml" 1563 53106 53112 "src/unix/lwt_io.ml" 1563 53106 53129
type(
  server -> unit Lwt.t
)
ident(
  def shutdown_server_2 "src/unix/lwt_io.ml" 1563 53106 53149 "src/unix/lwt_io.ml" 1564 53150 53153
)
"src/unix/lwt_io.ml" 1563 53106 53132 "src/unix/lwt_io.ml" 1563 53106 53149
type(
  server -> unit Lwt.t
)
ident(
  int_ref shutdown_server_2 "src/unix/lwt_io.ml" 1418 48078 48082 "src/unix/lwt_io.ml" 1418 48078 48099
)