let top (stack: 'data stack) : 'data =
  if stack.size = 0 then
    raise Not_found;

  stack.stack.(stack.size - 1)