// test macro

: add3 x y = x + y
: add2 x = add3 x 2
: add1 x = add2 x

: swap a b c =
  c = a
  a = b
  b = c

ax = array 10

to main | a b c =
  ax[1] = 10
  ax[2] = 11
  swap ax[1] ax[2] c
  print ax[1] space print ax[2] nl
