[ dup 1 119 within not if
      [ $ "Unknown element." fail ]
    [ table 0
      [ 118 times
          [ i^ 1+
            ' [  1   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   2
                 3   4   -   -   -   -   -   -   -   -   -   -   5   6   7   8   9  10
                11  12   -   -   -   -   -   -   -   -   -   -  13  14  15  16  17  18
                19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36
                37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54
                55  56   -  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86
                87  88   - 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118
                 -   -   -  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71
                 -   -   -  89  90  91  92  93  94  95  96  97  98  99 100 101 102 103 ]
            find 18 /mod 1+ dip 1+
            join nested swap dip join ] ] now! ] ]                   is task ( n --> [ )

  ' [ 1 2 29 42 57 58 59 71 72 89 90 103 113 ]
  witheach [ dup echo say " -> " task echo cr ]