void local fn MyDictEnumerator( dict as CFDictionaryRef, key as CFTypeRef, obj as CFTypeRef, stp as ^BOOL, userData as ptr )
  print key, obj
end fn

void local fn DoIt
  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
  DictionaryEnumerateKeysAndObjects( dict, @fn MyDictEnumerator, NULL )
end fn

fn DoIt

HandleEvents