let
top () =
let
(s, _) =
Stack
.top stack
in
s