Sourceval peek_bits :
int ->
((Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res) ->
(Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res Sourceval put_byte :
int ->
((Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res) ->
(Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res Sourceval fill_byte :
int ->
int ->
((Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res) ->
(Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res Sourceval get :
Lookup.t ->
(int ->
(Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res) ->
(Safe.ro, 'a) Safe.t ->
(Safe.wo, 'b) Safe.t ->
('a, 'b, 'c) t ->
('a, 'b, 'c) res