Categorize files based on the first letter

p/pascal.p

@@ -0,0 +1,4 @@
+program HelloWorld(output);
+begin
+        writeln('Hello World')
+end

p/perl.pl

@@ -0,0 +1,2 @@
+#!/usr/bin/perl
+print "Hello World\n";

p/php.php

@@ -0,0 +1,3 @@
+<?php
+	print("Hello World");
+?>

p/postscript.ps

@@ -0,0 +1,2 @@
+% run> gs -q -sDEVICE=nullpage postscript.ps
+(Hello world!\n) print quit

p/postscript_page.ps

@@ -0,0 +1,11 @@
+% run> gs -q postscript_page.ps
+/pt {72 div} def
+/y 9 def
+/textdraw {/Courier findfont 12 pt scalefont setfont 8 pt y moveto show} def
+
+72 72 scale
+0 0 0 setrgbcolor
+
+(Hello world!) textdraw
+showpage
+quit

p/prolog.pro

@@ -0,0 +1 @@
+write('Hello World').

p/python.py

@@ -0,0 +1,2 @@
+#!/usr/bin/env python
+print "Hello World"