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

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

fn DoIt

HandleEvents