DO;1<-#1DO;1SUB#1<-#4DO;2<-#3DO;2SUB#1<-#127DO;2SUB#2<-#373DO;2SUB#3<-#4182DO;3<-#4DO;3SUB#1<-#38DO;3SUB#2<-#663DO;3SUB#3<-#382DO;3SUB#4<-#251DO,1<-#1DO.1<-#512DOCOMEFROM.3~.3DO.3<-#0(1)DO.2<-.1~#68DOREADOUT;1+;3+;2+;3+;2+;3+;2+;3DOCOMEFROM.2~.2DO.2<-#0DOREADOUT,1DO.1<-.1~#1022(1)DO.3<-.1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).