sig
type symbol = int
type plain_text = Huffman.symbol MyStream.t
type cipher_text = bool MyStream.t
type encoding_dictionary
type decoding_dictionary
val dictionaries_from_text :
Huffman.plain_text ->
int * Huffman.encoding_dictionary * Huffman.decoding_dictionary
val encode_symbol :
Huffman.encoding_dictionary -> Huffman.symbol -> Huffman.cipher_text
val decode_symbol :
Huffman.decoding_dictionary ->
Huffman.cipher_text -> Huffman.symbol * Huffman.cipher_text
val push_decoding_dictionary :
Huffman.decoding_dictionary -> int MyStream.t -> int MyStream.t
val pop_decoding_dictionary :
int MyStream.t -> Huffman.decoding_dictionary * int MyStream.t
end