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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).