Up
module
Stack
:
sig
#
type
'a t
#
exception
Empty
#
val
create : unit
->
'a
t
#
val
push : 'a
->
'a
t
->
unit
#
val
pop : 'a
t
->
'a
#
val
top : 'a
t
->
'a
#
val
clear : 'a
t
->
unit
#
val
copy : 'a
t
->
'a
t
#
val
is_empty : 'a
t
->
bool
#
val
length : 'a
t
->
int
#
val
iter : ('a
->
unit)
->
'a
t
->
unit
end