Editing 2012-10-30 (section)

==Transcript==
{{Computertranscript}}
:[Describe panel here]
:True weinersmith tales:
:I had this idea that all political speech could be improved.
:If you changed
:Everything- but
:The nouns to " nurble, you
:Could still
:Follow
:Everything
:One of my twitter followers, Jeff Lee posted a quick and dirty program: <i>The Political Speech Nurbler.</i>
&lt;&quest;Php
:11 Extremety quick-and-dirty political speech nurbler (changes everything except nouns to
:11
:suggested by Zach Weinersmith (https://twitter.com/ZachWeiner/status/261840134218063
:11
:11 Requres PHP, and part-of-speech txt from the "Part of Speech Database", available at
:http://wordlist.sourceforge. net
:11
:11
:Usage: php nurbler.php input-file
:11
:if ($argc != 2) exit("Usage: php {$argv[0]} input-file\n");
:if (ifile_exists(Sargv[1])) exit("Error: could not find {$argv[i]}\n"); $part array();
:$pos file("part-of-speech.txt");
:foreach($pos as $line) {
::if (preg_match("/<[^\t]*)\t(.*)$/", $line, $parts $part[trim(strtolower($parts[1l))] $parts[2];
::}
:}
:$infile implode("", file("sotu.txt"));
:while ($infile) (
:if Sinfile, $matches >> {
:echo nurble(Smatches[1] $matches[2];
:$infile trim( substr( $infile, strlen(Smatches[1])+strlen(Smatches[2])));
:function nurble( $what
:global Spart;
:$check -trim(strtolower($what))
:if (lisset($part[$check])) return "nurble"; 11 better to nurble unknown words
:return (strpos(Spart[Scheck], "N")