Categorize files based on the first letter

a/ada.ada

@@ -0,0 +1,5 @@
+with Text_IO;
+procedure Hello_World is
+	begin
+		Text_IO.Put_line("Hello World!");
+	end Hello_World;

a/apc.apc

@@ -0,0 +1,4 @@
+probe program
+{
+	on_entry log ("Hello, World!\n");
+}

a/applescript.scpt

@@ -0,0 +1 @@
+display dialog "Hello World"  

a/awk.awk

@@ -0,0 +1,2 @@
+# awk -f awk.awk
+BEGIN { print "Hello World" }