// test

//to fx x | a b c d =
//  a[4] = b + c + 2
//  b = a + c + d

//data = array 10

//to swap a b | t =
//  t = data[a]
//  data[a] = data[b]
//  data[b] = t

//to main =
//  data[2] = 22
//  data[4] = 44
//  swap 2 4
//  print data[2] space
//  print data[4]

//to sum1 x =
//  dd = 10 + 11
//  x = array 5

//to ff | i a =
//  a = 0
//  for i 3 5
//    a = a + i
//  a

//to sum a b =
//  a + b

//to main | c =
//  c = sum 1 2

//: andx a b = if a b else 0

//to ifx | a b c =
//  if andx a andx b c 2 else 3

//to wh | i a =
//  a = 0
//  while i < 3
//     a = a + i
//     i = i + 1
//  a

//to main = 
//  print ifx

//dd = array 10

//: copy a b | c = a = b + c

//to me | a c =
//  c = getc
//  print c
//  copy a c

//dd = 0
//dd = 1 + 2
//print dd

//aa = array {11 22 33 44}

//to pa | i =
//  aa[1] = 88
//  for i 0 3
//    print aa[i] space

//pa

: set ar a n = ar[a] = n

aa = array {11 22 33 44}
bb = 3

to tx = 
  set aa 1 3
  print aa[0] space print aa[1]
  print bb

cc = 44

to main =
  cc = 5


 