: z85>base85 ( seq -- translated ) [ dup ascii? [ 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 ] when ] map ;