DO;1<-#1DO;1SUB#1<-#125DO;2<-#1DO;2SUB#1<-#22DO;3<-#1DO;3SUB#1<-#45DO;4<-#1DO;4SUB#1<-#48DO;5<-#1DO;5SUB#1<-#54DO;6<-#1DO;6SUB#1<-#32DO;7<-#1DO;7SUB#1<-#117DO;8<-#1DO;8SUB#1<-#58DO;9<-#1DO;9SUB#1<-#38DO;10<-#1DO;10SUB#1<-#39DO;11<-#1DO;11SUB#1<-#37DO;12<-#1DO;12SUB#1<-#123DO;13<-#1DO;13SUB#1<-#27DO;14<-#1DO;14SUB#1<-#52DO;15<-#1DO;15SUB#1<-#63DO;16<-#1DO;16SUB#1<-#34DO;17<-#1DO;17SUB#1<-#60DO;18<-#1DO;18SUB#1<-#49DO;19<-#1DO;19SUB#1<-#61DO;20<-#1DO;20SUB#1<-#59DO;21<-#1DO;21SUB#1<-#124DOREADOUT;1+;2+;3+;4+;5+;6+;6+;7+;8+;9+;10+;11+;9+;10+;12+;7+;13+;8+;10+;7+;14+;15+;15+;7+;8+;9+;10+;11+;9+;10+;7+;16+;17+;15+;15+;7+;18+;5+;7+;6+;19+;8+;16+;20+;21
Note that non-ascii characters in the above source code will be escaped (such as \x9f).