void local fn DoIt
  CFArrayRef yy = @[@"yang",@"yin"]
  CFArrayRef elements = @[@"Wood",@"Fire",@"Earth",@"Metal",@"Water"]
  CFArrayRef animals = @[@"Rat",@"Ox",@"Tiger",@"Rabbit",@"Dragon",
  @"Snake",@"Horse",@"Goat",@"Monkey",@"Rooster",@"Dog",@"Pig"]
  long yr, y, e, a, i, tests(5) = {1801,1861,1984,2020,2186,76543}
  CFStringRef outstr

  for i = 0 to 5
    yr = tests(i)
    y = yr % 2
    e = (yr-4) % 5
    a = (yr-4) %12
    outstr = concat(@"",@(yr),@" is the year of the ",elements[e],@" ",animals[a],@" (",yy[y],@")")
    print outstr
  next
end fn

fn DoIt

HandleEvents