Week 149, part 2: preprocessing data

17 files changed, 562 insertions, 0 deletions

diff --git a/challenge-149/abigail/data/a287298.awk b/challenge-149/abigail/data/a287298.awk
new file mode 100644
index 0000000000..8ae03ba3aa
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.awk
@@ -0,0 +1,22 @@
+BEGIN {
+    A287298 [ 2] =                      "1"
+    A287298 [ 3] =                      "1"
+    A287298 [ 4] =                   "3201"
+    A287298 [ 5] =                   "4301"
+    A287298 [ 6] =                 "452013"
+    A287298 [ 7] =                "6250341"
+    A287298 [ 8] =               "47302651"
+    A287298 [ 9] =              "823146570"
+    A287298 [10] =             "9814072356"
+    A287298 [11] =            "A8701245369"
+    A287298 [12] =           "B8750A649321"
+    A287298 [13] =           "CBA504216873"
+    A287298 [14] =         "DC71B30685A924"
+    A287298 [15] =        "EDAC93B24658701"
+    A287298 [16] =       "FED5B39A42706C81"
+    A287298 [17] =       "GFED5A31C6B79802"
+    A287298 [18] =     "HGF80ADC53712EB649"
+    A287298 [19] =    "IHGFD3408C6E715A2B9"
+    A287298 [20] =   "JIHG03DAC457BFE96281"
+    A287298 [22] = "LKJIG5D14B9032FHAC867E"
+}
diff --git a/challenge-149/abigail/data/a287298.bas b/challenge-149/abigail/data/a287298.bas
new file mode 100644
index 0000000000..110decb347
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.bas
@@ -0,0 +1,23 @@
+1000 INPUT N
+
+
+1010 IF N =  2 THEN PRINT                      "1"
+1020 IF N =  3 THEN PRINT                      "1"
+1030 IF N =  4 THEN PRINT                   "3201"
+1040 IF N =  5 THEN PRINT                   "4301"
+1050 IF N =  6 THEN PRINT                 "452013"
+1060 IF N =  7 THEN PRINT                "6250341"
+1070 IF N =  8 THEN PRINT               "47302651"
+1080 IF N =  9 THEN PRINT              "823146570"
+1090 IF N = 10 THEN PRINT             "9814072356"
+1100 IF N = 11 THEN PRINT            "A8701245369"
+1110 IF N = 12 THEN PRINT           "B8750A649321"
+1120 IF N = 13 THEN PRINT           "CBA504216873"
+1130 IF N = 14 THEN PRINT         "DC71B30685A924"
+1140 IF N = 15 THEN PRINT        "EDAC93B24658701"
+1150 IF N = 16 THEN PRINT       "FED5B39A42706C81"
+1160 IF N = 17 THEN PRINT       "GFED5A31C6B79802"
+1170 IF N = 18 THEN PRINT     "HGF80ADC53712EB649"
+1180 IF N = 19 THEN PRINT    "IHGFD3408C6E715A2B9"
+1190 IF N = 20 THEN PRINT   "JIHG03DAC457BFE96281"
+1200 IF N = 22 THEN PRINT "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/a287298.bc b/challenge-149/abigail/data/a287298.bc
new file mode 100644
index 0000000000..2578cbfcd8
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.bc
@@ -0,0 +1,15 @@
+a287298 [ 2] =                              1
+a287298 [ 3] =                              1
+a287298 [ 4] =                            225
+a287298 [ 5] =                            576
+a287298 [ 6] =                          38025
+a287298 [ 7] =                         751689
+a287298 [ 8] =                       10323369
+a287298 [ 9] =                      355624164
+a287298 [10] =                     9814072356
+a287298 [11] =                   279740499025
+a287298 [12] =                  8706730814089
+a287298 [13] =                 23132511879129
+a287298 [14] =              11027486960232964
+a287298 [15] =             435408094460869201
+a287298 [16] =           18362780530794065025
diff --git a/challenge-149/abigail/data/a287298.c b/challenge-149/abigail/data/a287298.c
new file mode 100644
index 0000000000..be71166f71
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.c
@@ -0,0 +1,27 @@
+int main (void) {
+    char * A287298 [23];
+
+    A287298 [ 0] =                     NULL;
+    A287298 [ 1] =                     NULL;
+    A287298 [ 2] =                      "1";
+    A287298 [ 3] =                      "1";
+    A287298 [ 4] =                   "3201";
+    A287298 [ 5] =                   "4301";
+    A287298 [ 6] =                 "452013";
+    A287298 [ 7] =                "6250341";
+    A287298 [ 8] =               "47302651";
+    A287298 [ 9] =              "823146570";
+    A287298 [10] =             "9814072356";
+    A287298 [11] =            "A8701245369";
+    A287298 [12] =           "B8750A649321";
+    A287298 [13] =           "CBA504216873";
+    A287298 [14] =         "DC71B30685A924";
+    A287298 [15] =        "EDAC93B24658701";
+    A287298 [16] =       "FED5B39A42706C81";
+    A287298 [17] =       "GFED5A31C6B79802";
+    A287298 [18] =     "HGF80ADC53712EB649";
+    A287298 [19] =    "IHGFD3408C6E715A2B9";
+    A287298 [20] =   "JIHG03DAC457BFE96281";
+    A287298 [21] =                     NULL;
+    A287298 [22] = "LKJIG5D14B9032FHAC867E";
+}
diff --git a/challenge-149/abigail/data/a287298.go b/challenge-149/abigail/data/a287298.go
new file mode 100644
index 0000000000..95cdbfc96c
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.go
@@ -0,0 +1,27 @@
+func main () {
+    var A287298 [23] string
+
+    A287298 [ 0] =                       ""
+    A287298 [ 1] =                       ""
+    A287298 [ 2] =                      "1"
+    A287298 [ 3] =                      "1"
+    A287298 [ 4] =                   "3201"
+    A287298 [ 5] =                   "4301"
+    A287298 [ 6] =                 "452013"
+    A287298 [ 7] =                "6250341"
+    A287298 [ 8] =               "47302651"
+    A287298 [ 9] =              "823146570"
+    A287298 [10] =             "9814072356"
+    A287298 [11] =            "A8701245369"
+    A287298 [12] =           "B8750A649321"
+    A287298 [13] =           "CBA504216873"
+    A287298 [14] =         "DC71B30685A924"
+    A287298 [15] =        "EDAC93B24658701"
+    A287298 [16] =       "FED5B39A42706C81"
+    A287298 [17] =       "GFED5A31C6B79802"
+    A287298 [18] =     "HGF80ADC53712EB649"
+    A287298 [19] =    "IHGFD3408C6E715A2B9"
+    A287298 [20] =   "JIHG03DAC457BFE96281"
+    A287298 [21] =                       ""
+    A287298 [22] = "LKJIG5D14B9032FHAC867E"
+}
diff --git a/challenge-149/abigail/data/a287298.java b/challenge-149/abigail/data/a287298.java
new file mode 100644
index 0000000000..80dc1fddf8
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.java
@@ -0,0 +1,26 @@
+    public static void main (String [] args) {
+        String [] A287298 = new String [23];
+        A287298 [ 0] =                       "";
+        A287298 [ 1] =                       "";
+        A287298 [ 2] =                      "1";
+        A287298 [ 3] =                      "1";
+        A287298 [ 4] =                   "3201";
+        A287298 [ 5] =                   "4301";
+        A287298 [ 6] =                 "452013";
+        A287298 [ 7] =                "6250341";
+        A287298 [ 8] =               "47302651";
+        A287298 [ 9] =              "823146570";
+        A287298 [10] =             "9814072356";
+        A287298 [11] =            "A8701245369";
+        A287298 [12] =           "B8750A649321";
+        A287298 [13] =           "CBA504216873";
+        A287298 [14] =         "DC71B30685A924";
+        A287298 [15] =        "EDAC93B24658701";
+        A287298 [16] =       "FED5B39A42706C81";
+        A287298 [17] =       "GFED5A31C6B79802";
+        A287298 [18] =     "HGF80ADC53712EB649";
+        A287298 [19] =    "IHGFD3408C6E715A2B9";
+        A287298 [20] =   "JIHG03DAC457BFE96281";
+        A287298 [21] =                       "";
+        A287298 [22] = "LKJIG5D14B9032FHAC867E";
+    }
diff --git a/challenge-149/abigail/data/a287298.js b/challenge-149/abigail/data/a287298.js
new file mode 100644
index 0000000000..a66464a663
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.js
@@ -0,0 +1,22 @@
+let A287298 = []
+
+A287298 [ 2] =                      "1"
+A287298 [ 3] =                      "1"
+A287298 [ 4] =                   "3201"
+A287298 [ 5] =                   "4301"
+A287298 [ 6] =                 "452013"
+A287298 [ 7] =                "6250341"
+A287298 [ 8] =               "47302651"
+A287298 [ 9] =              "823146570"
+A287298 [10] =             "9814072356"
+A287298 [11] =            "A8701245369"
+A287298 [12] =           "B8750A649321"
+A287298 [13] =           "CBA504216873"
+A287298 [14] =         "DC71B30685A924"
+A287298 [15] =        "EDAC93B24658701"
+A287298 [16] =       "FED5B39A42706C81"
+A287298 [17] =       "GFED5A31C6B79802"
+A287298 [18] =     "HGF80ADC53712EB649"
+A287298 [19] =    "IHGFD3408C6E715A2B9"
+A287298 [20] =   "JIHG03DAC457BFE96281"
+A287298 [22] = "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/a287298.lua b/challenge-149/abigail/data/a287298.lua
new file mode 100644
index 0000000000..9d074430e3
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.lua
@@ -0,0 +1,22 @@
+A287298 = {}
+
+A287298 [ 2] =                      "1"
+A287298 [ 3] =                      "1"
+A287298 [ 4] =                   "3201"
+A287298 [ 5] =                   "4301"
+A287298 [ 6] =                 "452013"
+A287298 [ 7] =                "6250341"
+A287298 [ 8] =               "47302651"
+A287298 [ 9] =              "823146570"
+A287298 [10] =             "9814072356"
+A287298 [11] =            "A8701245369"
+A287298 [12] =           "B8750A649321"
+A287298 [13] =           "CBA504216873"
+A287298 [14] =         "DC71B30685A924"
+A287298 [15] =        "EDAC93B24658701"
+A287298 [16] =       "FED5B39A42706C81"
+A287298 [17] =       "GFED5A31C6B79802"
+A287298 [18] =     "HGF80ADC53712EB649"
+A287298 [19] =    "IHGFD3408C6E715A2B9"
+A287298 [20] =   "JIHG03DAC457BFE96281"
+A287298 [22] = "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/a287298.p b/challenge-149/abigail/data/a287298.p
new file mode 100644
index 0000000000..10f45e6e45
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.p
@@ -0,0 +1,28 @@
+var
+    A287298: array [0 .. 22] of string;
+
+begin
+    A287298 [ 0] =                       '';
+    A287298 [ 1] =                       '';
+    A287298 [ 2] =                      '1';
+    A287298 [ 3] =                      '1';
+    A287298 [ 4] =                   '3201';
+    A287298 [ 5] =                   '4301';
+    A287298 [ 6] =                 '452013';
+    A287298 [ 7] =                '6250341';
+    A287298 [ 8] =               '47302651';
+    A287298 [ 9] =              '823146570';
+    A287298 [10] =             '9814072356';
+    A287298 [11] =            'A8701245369';
+    A287298 [12] =           'B8750A649321';
+    A287298 [13] =           'CBA504216873';
+    A287298 [14] =         'DC71B30685A924';
+    A287298 [15] =        'EDAC93B24658701';
+    A287298 [16] =       'FED5B39A42706C81';
+    A287298 [17] =       'GFED5A31C6B79802';
+    A287298 [18] =     'HGF80ADC53712EB649';
+    A287298 [19] =    'IHGFD3408C6E715A2B9';
+    A287298 [20] =   'JIHG03DAC457BFE96281';
+    A287298 [21] =                       '';
+    A287298 [22] = 'LKJIG5D14B9032FHAC867E';
+end.
diff --git a/challenge-149/abigail/data/a287298.pl b/challenge-149/abigail/data/a287298.pl
new file mode 100644
index 0000000000..5842553b70
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.pl
@@ -0,0 +1,22 @@
+my @A287298;
+
+$A287298 [ 2] =                      "1";
+$A287298 [ 3] =                      "1";
+$A287298 [ 4] =                   "3201";
+$A287298 [ 5] =                   "4301";
+$A287298 [ 6] =                 "452013";
+$A287298 [ 7] =                "6250341";
+$A287298 [ 8] =               "47302651";
+$A287298 [ 9] =              "823146570";
+$A287298 [10] =             "9814072356";
+$A287298 [11] =            "A8701245369";
+$A287298 [12] =           "B8750A649321";
+$A287298 [13] =           "CBA504216873";
+$A287298 [14] =         "DC71B30685A924";
+$A287298 [15] =        "EDAC93B24658701";
+$A287298 [16] =       "FED5B39A42706C81";
+$A287298 [17] =       "GFED5A31C6B79802";
+$A287298 [18] =     "HGF80ADC53712EB649";
+$A287298 [19] =    "IHGFD3408C6E715A2B9";
+$A287298 [20] =   "JIHG03DAC457BFE96281";
+$A287298 [22] = "LKJIG5D14B9032FHAC867E";
diff --git a/challenge-149/abigail/data/a287298.py b/challenge-149/abigail/data/a287298.py
new file mode 100644
index 0000000000..9d074430e3
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.py
@@ -0,0 +1,22 @@
+A287298 = {}
+
+A287298 [ 2] =                      "1"
+A287298 [ 3] =                      "1"
+A287298 [ 4] =                   "3201"
+A287298 [ 5] =                   "4301"
+A287298 [ 6] =                 "452013"
+A287298 [ 7] =                "6250341"
+A287298 [ 8] =               "47302651"
+A287298 [ 9] =              "823146570"
+A287298 [10] =             "9814072356"
+A287298 [11] =            "A8701245369"
+A287298 [12] =           "B8750A649321"
+A287298 [13] =           "CBA504216873"
+A287298 [14] =         "DC71B30685A924"
+A287298 [15] =        "EDAC93B24658701"
+A287298 [16] =       "FED5B39A42706C81"
+A287298 [17] =       "GFED5A31C6B79802"
+A287298 [18] =     "HGF80ADC53712EB649"
+A287298 [19] =    "IHGFD3408C6E715A2B9"
+A287298 [20] =   "JIHG03DAC457BFE96281"
+A287298 [22] = "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/a287298.r b/challenge-149/abigail/data/a287298.r
new file mode 100644
index 0000000000..43c2377e66
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.r
@@ -0,0 +1,22 @@
+A287298 <- c ()
+
+A287298 [[ 2]] <-                      "1"
+A287298 [[ 3]] <-                      "1"
+A287298 [[ 4]] <-                   "3201"
+A287298 [[ 5]] <-                   "4301"
+A287298 [[ 6]] <-                 "452013"
+A287298 [[ 7]] <-                "6250341"
+A287298 [[ 8]] <-               "47302651"
+A287298 [[ 9]] <-              "823146570"
+A287298 [[10]] <-             "9814072356"
+A287298 [[11]] <-            "A8701245369"
+A287298 [[12]] <-           "B8750A649321"
+A287298 [[13]] <-           "CBA504216873"
+A287298 [[14]] <-         "DC71B30685A924"
+A287298 [[15]] <-        "EDAC93B24658701"
+A287298 [[16]] <-       "FED5B39A42706C81"
+A287298 [[17]] <-       "GFED5A31C6B79802"
+A287298 [[18]] <-     "HGF80ADC53712EB649"
+A287298 [[19]] <-    "IHGFD3408C6E715A2B9"
+A287298 [[20]] <-   "JIHG03DAC457BFE96281"
+A287298 [[22]] <- "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/a287298.rb b/challenge-149/abigail/data/a287298.rb
new file mode 100644
index 0000000000..eb03f29a33
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.rb
@@ -0,0 +1,22 @@
+A287298 = []
+
+A287298[ 2] =                      "1"
+A287298[ 3] =                      "1"
+A287298[ 4] =                   "3201"
+A287298[ 5] =                   "4301"
+A287298[ 6] =                 "452013"
+A287298[ 7] =                "6250341"
+A287298[ 8] =               "47302651"
+A287298[ 9] =              "823146570"
+A287298[10] =             "9814072356"
+A287298[11] =            "A8701245369"
+A287298[12] =           "B8750A649321"
+A287298[13] =           "CBA504216873"
+A287298[14] =         "DC71B30685A924"
+A287298[15] =        "EDAC93B24658701"
+A287298[16] =       "FED5B39A42706C81"
+A287298[17] =       "GFED5A31C6B79802"
+A287298[18] =     "HGF80ADC53712EB649"
+A287298[19] =    "IHGFD3408C6E715A2B9"
+A287298[20] =   "JIHG03DAC457BFE96281"
+A287298[22] = "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/a287298.scm b/challenge-149/abigail/data/a287298.scm
new file mode 100644
index 0000000000..0c0bc9f3a4
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.scm
@@ -0,0 +1,25 @@
+(define A287298 '())
+
+(set! A287298 (append A287298 (list                       "")))
+(set! A287298 (append A287298 (list                       "")))
+(set! A287298 (append A287298 (list                      "1")))
+(set! A287298 (append A287298 (list                      "1")))
+(set! A287298 (append A287298 (list                   "3201")))
+(set! A287298 (append A287298 (list                   "4301")))
+(set! A287298 (append A287298 (list                 "452013")))
+(set! A287298 (append A287298 (list                "6250341")))
+(set! A287298 (append A287298 (list               "47302651")))
+(set! A287298 (append A287298 (list              "823146570")))
+(set! A287298 (append A287298 (list             "9814072356")))
+(set! A287298 (append A287298 (list            "A8701245369")))
+(set! A287298 (append A287298 (list           "B8750A649321")))
+(set! A287298 (append A287298 (list           "CBA504216873")))
+(set! A287298 (append A287298 (list         "DC71B30685A924")))
+(set! A287298 (append A287298 (list        "EDAC93B24658701")))
+(set! A287298 (append A287298 (list       "FED5B39A42706C81")))
+(set! A287298 (append A287298 (list       "GFED5A31C6B79802")))
+(set! A287298 (append A287298 (list     "HGF80ADC53712EB649")))
+(set! A287298 (append A287298 (list    "IHGFD3408C6E715A2B9")))
+(set! A287298 (append A287298 (list   "JIHG03DAC457BFE96281")))
+(set! A287298 (append A287298 (list                       "")))
+(set! A287298 (append A287298 (list "LKJIG5D14B9032FHAC867E")))
diff --git a/challenge-149/abigail/data/a287298.sh b/challenge-149/abigail/data/a287298.sh
new file mode 100644
index 0000000000..01bac4a026
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.sh
@@ -0,0 +1,22 @@
+declare -a A287298
+
+A287298[2]=1
+A287298[3]=1
+A287298[4]=3201
+A287298[5]=4301
+A287298[6]=452013
+A287298[7]=6250341
+A287298[8]=47302651
+A287298[9]=823146570
+A287298[10]=9814072356
+A287298[11]=A8701245369
+A287298[12]=B8750A649321
+A287298[13]=CBA504216873
+A287298[14]=DC71B30685A924
+A287298[15]=EDAC93B24658701
+A287298[16]=FED5B39A42706C81
+A287298[17]=GFED5A31C6B79802
+A287298[18]=HGF80ADC53712EB649
+A287298[19]=IHGFD3408C6E715A2B9
+A287298[20]=JIHG03DAC457BFE96281
+A287298[22]=LKJIG5D14B9032FHAC867E
diff --git a/challenge-149/abigail/data/a287298.tcl b/challenge-149/abigail/data/a287298.tcl
new file mode 100644
index 0000000000..6d144950e9
--- /dev/null
+++ b/challenge-149/abigail/data/a287298.tcl
@@ -0,0 +1,25 @@
+set A287298 list
+
+lset A287298  0                       ""
+lset A287298  1                       ""
+lset A287298  2                      "1"
+lset A287298  3                      "1"
+lset A287298  4                   "3201"
+lset A287298  5                   "4301"
+lset A287298  6                 "452013"
+lset A287298  7                "6250341"
+lset A287298  8               "47302651"
+lset A287298  9              "823146570"
+lset A287298 10             "9814072356"
+lset A287298 11            "A8701245369"
+lset A287298 12           "B8750A649321"
+lset A287298 13           "CBA504216873"
+lset A287298 14         "DC71B30685A924"
+lset A287298 15        "EDAC93B24658701"
+lset A287298 16       "FED5B39A42706C81"
+lset A287298 17       "GFED5A31C6B79802"
+lset A287298 18     "HGF80ADC53712EB649"
+lset A287298 19    "IHGFD3408C6E715A2B9"
+lset A287298 20   "JIHG03DAC457BFE96281"
+lset A287298 21                       ""
+lset A287298 22 "LKJIG5D14B9032FHAC867E"
diff --git a/challenge-149/abigail/data/preprocess b/challenge-149/abigail/data/preprocess
new file mode 100755
index 0000000000..830cde7df1
--- /dev/null
+++ b/challenge-149/abigail/data/preprocess
@@ -0,0 +1,190 @@
+#!/opt/perl/bin/perl
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+use experimental 'lexical_subs';
+
+use LWP::Simple;
+
+my $lang = lc (shift // "Perl");
+
+my $URL = "https://oeis.org/A287298/b287298.txt";
+
+my @chars = (0 .. 9, 'A' .. 'Z');
+my @A287298;
+
+foreach my $line (split (/\n/ => get $URL),
+                 "22 340653564758245010607213613056") {
+    next unless $line =~ /^([0-9]+)\s+([0-9]+)/;
+    my ($base, $value) = ($1, $2);
+    my $value_in_base = `echo "obase=$base; $value" | bc`
+                      =~ s/ ([0-9]{2})/$chars [0 + $1]/egr
+                      =~ s/\n//r;
+    $A287298 [$base] = [$value_in_base, $value];
+} 
+
+open my $awk_h,    ">", "a287298.awk"   or die "open a287298.awk: $!";
+open my $bash_h,   ">", "a287298.sh"    or die "open a287298.sh: $!";
+open my $basic_h,  ">", "a287298.bas"   or die "open a287298.bas: $!";
+open my $bc_h,     ">", "a287298.bc"    or die "open a287298.bc: $!";
+open my $c_h,      ">", "a287298.c"     or die "open a287298.c: $!";
+open my $go_h,     ">", "a287298.go"    or die "open a287298.go: $!";
+open my $java_h,   ">", "a287298.java"  or die "open a287298.java: $!";
+open my $lua_h,    ">", "a287298.lua"   or die "open a287298.lua: $!";
+open my $node_h,   ">", "a287298.js"    or die "open a287298.js: $!";
+open my $pascal_h, ">", "a287298.p"     or die "open a287298.p: $!";
+open my $perl_h,   ">", "a287298.pl"    or die "open a287298.pl: $!";
+open my $python_h, ">", "a287298.py"    or die "open a287298.py: $!";
+open my $r_h,      ">", "a287298.r"     or die "open a287298.r: $!";
+open my $ruby_h,   ">", "a287298.rb"    or die "open a287298.rb: $!";
+open my $scheme_h, ">", "a287298.scm"   or die "open a287298.scm: $!";
+open my $tcl_h,    ">", "a287298.tcl"   or die "open a287298.tcl: $!";
+
+my  $basic_ln = 1000;
+
+say $awk_h      "BEGIN {";
+say $bash_h     "declare -a A287298\n";
+say $basic_h    "$basic_ln INPUT N\n\n";
+say $c_h        "int main (void) {";
+say $c_h        "    char * A287298 [23];\n";
+say $go_h       "func main () {";
+say $go_h       "    var A287298 [23] string\n";
+say $java_h     "    public static void main (String [] args) {";
+say $java_h     "        String [] A287298 = new String [23];";
+say $lua_h      "A287298 = {}\n";
+say $node_h     "let A287298 = []\n";
+say $pascal_h   "var";
+say $pascal_h   "    A287298: array [0 .. 22] of string;\n";
+say $pascal_h   "begin";
+say $perl_h     "my \@A287298;\n";
+say $python_h   "A287298 = {}\n";
+say $r_h        "A287298 <- c ()\n";
+say $ruby_h     "A287298 = []\n";
+say $scheme_h   "(define A287298 '())\n";
+say $tcl_h      "set A287298 list\n";
+
+while (my ($i, $info) = each @A287298) {
+    if (!defined $info) {
+        printf $c_h      "    A287298 [%2d] = %24s;\n",     $i, "NULL";
+        printf $go_h     "    A287298 [%2d] = %24s\n",      $i,   '""';
+        printf $java_h   "        A287298 [%2d] = %24s;\n", $i,   '""';
+        printf $pascal_h "    A287298 [%2d] = %24s;\n",     $i,   "''";
+        printf $scheme_h "(set! A287298 (append A287298 (list %24s)))\n", '""';
+        printf $tcl_h    "lset A287298 %2d %24s\n",         $i,   '""';
+        next;
+    }
+    my ($value, $decimal_value) = @$info;
+    my $dqvalue = qq ["$value"];
+    my $sqvalue = qq ['$value'];
+        
+    #
+    # AWK
+    #
+    printf $awk_h    "    A287298 [%2d] = %24s\n", $i, $dqvalue;
+
+    #
+    # Bash
+    #
+    printf $bash_h   "A287298[%d]=%s\n", $i, $value;
+
+    #
+    # BASIC
+    #
+    printf $basic_h  "%04d IF N = %2d THEN PRINT %24s\n",
+                     ($basic_ln += 10), $i, $dqvalue;
+
+    #
+    # bc
+    #
+    if ($i <= 16) {
+        printf $bc_h     "a287298 [%2d] = %30s\n", $i, $decimal_value;
+    }
+
+    #
+    # C
+    #
+    printf $c_h      "    A287298 [%2d] = %24s;\n", $i, $dqvalue;
+
+    #
+    # Go
+    #
+    printf $go_h     "    A287298 [%2d] = %24s\n", $i, $dqvalue;
+
+    #
+    # Java
+    #
+    printf $java_h   "        A287298 [%2d] = %24s;\n", $i, $dqvalue;
+
+    #
+    # Lua
+    #
+    printf $lua_h    "A287298 [%2d] = %24s\n", $i, $dqvalue;
+
+    #
+    # Node.js
+    #
+    printf $node_h   "A287298 [%2d] = %24s\n", $i, $dqvalue;
+
+    #
+    # Pascal
+    #
+    printf $pascal_h "    A287298 [%2d] = %24s;\n", $i, $sqvalue;
+
+    #
+    # Perl
+    #
+    printf $perl_h   "\$A287298 [%2d] = %24s;\n", $i, $dqvalue;
+
+    #
+    # Python
+    #
+    printf $python_h "A287298 [%2d] = %24s\n", $i, $dqvalue;
+
+    #
+    # R
+    #
+    printf $r_h      "A287298 [[%2d]] <- %24s\n", $i, $dqvalue;
+
+    #
+    # Ruby
+    #
+    printf $ruby_h   "A287298[%2d] = %24s\n", $i, $dqvalue;
+
+    #
+    # Scheme
+    #
+    printf $scheme_h "(set! A287298 (append A287298 (list %24s)))\n", $dqvalue;
+
+    #
+    # Tcl
+    #
+    printf $tcl_h    "lset A287298 %2d %24s\n", $i, $dqvalue;
+}
+say $awk_h    "}";
+say $c_h      "}";
+say $go_h     "}";
+say $java_h   "    }";
+say $pascal_h "end.";
+
+
+close $awk_h     or die "close a287298.awk: $!";
+close $bash_h    or die "close a287298.sh: $!";
+close $basic_h   or die "close a287298.bas: $!";
+close $bc_h      or die "close a287298.bc: $!";
+close $c_h       or die "close a287298.c: $!";
+close $go_h      or die "close a287298.go: $!";
+close $java_h    or die "close a287298.java: $!";
+close $lua_h     or die "close a287298.lua: $!";
+close $node_h    or die "close a287298.js: $!";
+close $pascal_h  or die "close a287298.p: $!";
+close $perl_h    or die "close a287298.pl: $!";
+close $python_h  or die "close a287298.py: $!";
+close $r_h       or die "close a287298.r: $!";
+close $ruby_h    or die "close a287298.rb: $!";
+close $scheme_h  or die "close a287298.scm: $!";
+close $tcl_h     or die "close a287298.tcl: $!";