Ton

1
global int x, y, z;
2
global (cell, slice) y;
3
global ((int, int) -> int) op;
4

5
_ get() {
6
  var t = z + 1;
7
  return x;
8
}
9

10
_ pre_next() {
11
  return x + 1;
12
}
13

14
() init() impure {
15
  ;; global x;
16
  x = 0;
17
}
18

19
int next() impure {
20
  ;; global x;
21
  return x += 1;
22
}
23

24
_ set_y(x, w) {
25
  y = (w, x);
26
}
27

28
_ get_y() impure {
29
  return y;
30
}
31

32
int main(int c) {
33
  init();
34
  c += next();
35
  return c + pre_next();
36
}
37

38