// test array

to print x = syscall {1 x}
to space = syscall {2 32}

to fill ar n | i =
  i = 0
  while i < n 
    ar[i] = i
    i = i + 1

to pr ar n | i =
  for i 0 n-1
    print ar[i] space

to main = 
  max = 10
  N = array max
  fill N max 
  pr N max
