package sek
Module Emulated.StackSource
include module type of struct include S.Emulated.Stack end
type 'a t = 'a S.E.tval push : 'a -> 'a t -> unitval pop : 'a t -> 'aval pop_opt : 'a t -> 'a optionval top : 'a t -> 'aval top_opt : 'a t -> 'a optionval clear : 'a t -> unitval is_empty : 'a t -> boolval length : 'a t -> intval iter : ('a -> unit) -> 'a t -> unitval fold : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a