void local fn DoIt
  CFArrayRef a1 = @[@"a",@"b",@"c"]
  CFArrayRef a2 = @[@"A",@"B",@"C"]
  CFArrayRef a3 = @[@"1",@"2",@"3"]

  long i, count = len(a1)
  for i = 0 to count - 1
    print a1[i]a2[i]a3[i]
  next
end fn

fn DoIt

HandleEvents