--- a/postprocess.pl	Fri Jul 06 18:58:28 2018 +0300
+++ b/postprocess.pl	Fri Jul 06 19:43:56 2018 +0300
@@ -15,12 +15,20 @@
 
 while (defined(my $line = <STDIN>))
 {
+    # The $p.parseByte()s are useless, really
     $line =~ s@.p\.parseByte\(@(@g;
+
+    # Transform $p.parseInt(new $p.Character('x')) to direct ASCII number of the character
     $line =~ s@.p\.parseInt\(\(new\s+.p\.Character\('(.)'\)\)\)@sprintf('%d',ord($1))@eg;
+
+    # Same for (new $p.Character('x'))
     $line =~ s@\(new\s+.p\.Character\('(.)'\)\)@sprintf('%d',ord($1))@eg;
+
+    # Using parseInt() is wasteful, Math.trunc() is more efficient
     $line =~ s@.p\.parseInt\(@Math.trunc(@g;
 
-    # Kludge
+    # Kludge. The switch() in help() in Interface.pde needs this to work after our
+    # previous transformations done in this script.
     $line =~ s@switch\s*\(.p\.parseChar\(mode\)\)@switch (mode)@g;
     print $line;
 }