let
clear (stack:
'
data stack) : unit =
stack.stack <- [| |];
stack.size <- 0