RosettaCodeData/Task/Even-or-odd/FutureBasic/even-or-odd.basic

local fn OddOrEven( i as NSInteger ) as CFStringRef
  CFStringRef result
  if ( i mod 2 ) == 0 then result = @"Even" else result = @"Odd"
end fn = result

NSUInteger i

for i = 1 to 10
  printf @"%d is %@", i, fn OddOrEven( i )
next

HandleEvents