let map (func: 'data -> 'data) (stack: 'data stack) : 'data stack =
  { stack with
      stack = Array.map func stack.stack;
  }