DO,1<-#11DO.1<-#64DOCOMEFROM#9DOWRITEIN,1(1)DO.2<-,1SUB#3DDOCOMEFROM.2~.1DO.2<-#0DO,1SUB#3<-#23(1)DO.3<-,1SUB#4(2)DONOTxDOCOMEFROM.3~.1DO.3<-#0DO,1SUB#4<-#19(1)DO.4<-,1SUB#5(2)DONOTxDOCOMEFROM.4~.1DO.4<-#0DO,1SUB#5<-#1(1)DO.5<-,1SUB#6(2)DONOTxDOCOMEFROM.5~.1DO.5<-#0DO,1SUB#6<-#10(1)DO.6<-,1SUB#7(2)DONOTxDOCOMEFROM.6~.1DO.6<-#0DO,1SUB#7<-#16(1)DO.7<-,1SUB#8(2)DONOTxDOCOMEFROM.7~.1DO.7<-#0DO,1SUB#8<-#21(1)DO.8<-,1SUB#9(2)DONOTxDOCOMEFROM.8~.1DO.8<-#0DO,1SUB#9<-#7(1)DO.9<-,1SUB#10(2)DONOTxDOCOMEFROM.9~.1DO.9<-#0DO,1SUB#10<-#6(1)DO:1<-,1SUB#11(2)DONOTxDOCOMEFROM:1~.1DO:1<-#0DO,1SUB#11<-#24DOCOMEFROM#2(9)DOREADOUT,1