module Deque_stream:sig..end
type 'a t
val empty : 'a tval cons : int ->
'a It_type.IT.stream ->
'a t -> 'a tval cons_sl : 'a It_type.IT.sl ->
'a t -> 'a tval snoc : 'a t ->
int -> 'a It_type.IT.stream -> 'a tval concat : 'a t -> 'a It_type.IT.slval destr_head : 'a t ->
((int * 'a It_type.IT.stream) * 'a t) optionval is_empty : 'a t -> bool