!%constinteger one=1, two=one+one
constinteger one=1, two=2

constintegerarray fred(1:4) = one, one+one, two+one, two*two

begin
  switch x(1:4)
  x(one):
  x(one+one):
  x(two+one):
  x(two*two):
endofprogram