Initial data commit

Task/Letter-frequency/FutureBasic/letter-frequency.basic

@@ -0,0 +1,29 @@
+include "NSLog.incl"
+include resources "MyTextFile.txt"
+
+void local fn DoIt
+  CFURLRef      url
+  CFStringRef   string
+  NSUInteger    length, index
+  unichar       chr
+  CountedSetRef set
+  CFNumberRef   number
+
+  url = fn BundleURLForResource( fn BundleMain, @"MyTextFile", @"txt", NULL )
+  string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, NULL )
+  if ( string )
+    set = fn CountedSetWithCapacity(0)
+    length = len(string)
+    for index = 0 to length - 1
+      chr = fn StringCharacterAtIndex( string, index )
+      CountedSetAddObject( set, @(chr) )
+    next
+    for number in set
+      NSLog(@"%C = %ld",intVal(number),fn CountedSetCountForObject( set, number ))
+    next
+  end if
+end fn
+
+fn DoIt
+
+HandleEvents