RosettaCodeData/Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-1.basic

void local fn DoIt
  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
  CFStringRef key

  for key in dict
    print key, dict[key]
  next
end fn

fn DoIt

HandleEvents