// test array

enum
  10 max
N = array max
M = array {11 22 33 44}
S = "this is a string"

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

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

// print string s1, s1 is som-string
to prints s1 | a i c1 c2 c3 c4 =
	i = 0
	a = s1[i]
	while a != 0
		c4 = a & 255
		c3 = (a >> 8) & 255
		c2 = (a >> 16) & 255
		c1 = (a >> 24) & 255
		if c1 != 0 printc c1
		if c2 != 0 printc c2
		if c3 != 0 printc c3
		if c4 != 0 printc c4
		i = i + 1
		a = s1[i]

to main =
  fill N max pr N max nl 
  print M[0] space print M[1] nl
  prints S nl

main
