0010 REM 
0020 REM See https://theweeklychallenge.org/blog/perl-weekly-challenge-149
0030 REM 

0040 REM 
0050 REM Run as: basic ch-2.bas < input-file
0060 REM 


1000 maxbase = 25

1010 INPUT N
1015 IF N <  0 THEN END

1020 IF N =  2 THEN PRINT                         "1"
1030 IF N =  3 THEN PRINT                         "1"
1040 IF N =  4 THEN PRINT                      "3201"
1050 IF N =  5 THEN PRINT                      "4301"
1060 IF N =  6 THEN PRINT                    "452013"
1070 IF N =  7 THEN PRINT                   "6250341"
1080 IF N =  8 THEN PRINT                  "47302651"
1090 IF N =  9 THEN PRINT                 "823146570"
1100 IF N = 10 THEN PRINT                "9814072356"
1110 IF N = 11 THEN PRINT               "A8701245369"
1120 IF N = 12 THEN PRINT              "B8750A649321"
1130 IF N = 13 THEN PRINT              "CBA504216873"
1140 IF N = 14 THEN PRINT            "DC71B30685A924"
1150 IF N = 15 THEN PRINT           "EDAC93B24658701"
1160 IF N = 16 THEN PRINT          "FED5B39A42706C81"
1170 IF N = 17 THEN PRINT          "GFED5A31C6B79802"
1180 IF N = 18 THEN PRINT        "HGF80ADC53712EB649"
1190 IF N = 19 THEN PRINT       "IHGFD3408C6E715A2B9"
1200 IF N = 20 THEN PRINT      "JIHG03DAC457BFE96281"
1210 IF N = 22 THEN PRINT    "LKJIG5D14B9032FHAC867E"
1220 IF N = 23 THEN PRINT   "MLKJEFG5IC1D9H8042AB376"
1230 IF N = 24 THEN PRINT  "NMLKJ2BD0639GFE7C8IH5A41"
1240 IF N = 25 THEN PRINT "ONMLKD8CJE2H47F6395I0B1AG"

1500 IF N = 21      THEN PRINT "Too hard to calculate"
1510 IF N > maxbase THEN PRINT "Too hard to calculate"

5000 GOTO 1000