DO;1<-#10 DONOTE str KI-YO-SHI!
DO;1SUB#1<-#24
DO;1SUB#2<-#247
DO;1SUB#3<-#283
DO;1SUB#4<-#99
DO;1SUB#5<-#218
DO;1SUB#6<-#179
DO;1SUB#7<-#66
DO;1SUB#8<-#209
DO;1SUB#9<-#1374
DO;1SUB#10<-#279

DO,1<-#9 DONOTE writeinonly

DO.1<-#8 DONOTEcounter for zun but 2^n

DOCOMEFROM#7

DOWRITEIN,1
DO,2<-,1SUB#1 DONOTE is for LF after ;1, and also aborts when empty line
DOREADOUT,1

(73)DO.2<-,1SUB#3
(7)DO.1<-.1~#14

DONOTe for doko because tail1submesh3 should be 73 for letter d
DOCOMEFROM.2
(1)DO.3<-.1~.1
DOREADOUT;1+,2
DOCOMEFROM.3
(7)DO.1<-#8