anarchy golf - packed UTF 9 で 1 byte 差で負けた件について

1 byte の差は、スタックトップにある数の下位 7 byte を出力する部分の

( )dup 0 3 index 127 and put print

( )dup 0 127 4 index and put print

の違い。

( )dup 0 3 index put print

というパターンに慣れすぎていたかな。0 と "n index" の間に 127 を入れるというのは盲点だった。この部分が縮むのかもとチラリとは思ったのだけど、127 まで考えが伸びなかった。
あとはまあ、readhexstring がこの問題の入力の読み込みに便利過ぎだった。これだけで 10 byte 以上縮んだ。