: z85>base85-fast ( seq -- ) [ B{ 0 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 41 34 126 125
124 59 39 62 63 43 37 44 35 33 42 48 49 50 51 52 53
54 55 56 57 36 0 60 38 61 45 123 97 98 99 100 101
102 103 104 105 106 107 108 109 110 111 112 113 114
115 116 117 118 119 120 121 122 64 92 94 40 0 0 65
66 ~29 more~
} tr-nth ] map! drop ;