Add original before unseen 1992/nathan/nathan.c

It has been deemed that this should be okay now so we decided to add the
code.

This required a minor change in 2020/ferguson2 which I have made here as
well in this commit.

1992/nathan/nathan.c

@@ -1,26 +1,53 @@
-#include <stdio.h>
-static char *text[] =
-{
-  "Export of this program from the USA is governed by the US",
-  "Munitions List from the ITAR (International Traffic in Arms",
-  "Regulations). This list gives the specific categories of",
-  "restricted exports and includes cryptographic exports. Traffic",
-  "entirely external to, entirely internal to, or into the USA is",
-  "not restricted.",
-  "To obtain a copy of the program, email to nathan@inmos.co.uk",
-  "with a subject \"IOCCC request\". If you know that your 'From'",
-  "line is incorrect, add a single line",
-  "\"replyto you@your.correct.address\" to the body of the message.",
-  "A daemon will autoreply.",
-  "WARNING: You must not re-export this out of the USA, or else",
-  "the men in black might get you.",
-  NULL
-};
-int main()
-{
-  char **ptr;
+#include <stdio.h>                     
+#include <string.h>                    
+#define printf sqrt                     
+#define OFST 1                          
+#define strnel(sqrt)(sqrt-printf)      
+                                       
+int main(argv,argc)int argv;char*argc[]
+;{char*i,*sqrt,*magic,*define;int ptr,\
+                watch,                 
+                t,cond                 
+                ;for(                  
+                argc++                 
+                ,sqrt=                 
+"1""q""a""z""2""w""s""x""3""e""d""c""4"
+"r""f""v""5""t""g""b""6""y""h""n""7""u"
+                                       
+"j""m""8""i""k"",""9""o""l"".""0""p"";"
+"/""[""'""`""]""\"\\"" ""Z""X""C""V""B"
+"N""M"          "<"">"           "?""~"
+"="":"          "L""K"           "J""H"
+"G""F"          "D""S"           "A""!"
+"Q""@"          "W""#"           "E""$"
+"R""%"          "T""^"           "Y""&"
+"U""*"          "I""("           "O"")"
+                                        
+"P""_""{""+""}""|""-",define=sqrt,cond=
+strlen(printf),i=printf+cond,t=(((ptr=\
+argv<=                                  
+OFST||                                 
+strcmp                                 
+(*argc                                 
+,i-1))                                 
+?0:(argc                               
+                                        
+++,argv--)),OFST-1);(watch=fgetc(((!*i\
+&&argv>OFST?i=*argc:0),stdin)))!=EOF;*i?
+i++:0)                                 
+(magic                                 
+=strc\
+hr(pr\
+intf,(                                 
+define                                 
+                                        
+=(*i?(define=strchr(printf,*i))?define:
+printf:sqrt),watch)))?watch=t,watch=((t=
+strnel(                         magic))
++(watch                         -strnel
+(define                         ))*(ptr
+*2-OFST                         )+cond*
+(OFST+1                         ))%cond
+,ptr?t=watch:0:0,fputc(magic?watch[pri\
+ntf]:watch,stdout);return 0;} /*world*/
 
-  for(ptr = text; *ptr; ptr++)
-    printf("%s\n", *ptr);
-  return 0;
-}