let fold (func: 'a -> element -> 'a) (acc: 'a) (context: context) : 'a =
  Stack.fold func acc context.context