DO;1<-#10DO;1SUB#1<-#24DO;1SUB#2<-#247DO;1SUB#3<-#283DO;1SUB#4<-#99DO;1SUB#5<-#218DO;1SUB#6<-#179DO;1SUB#7<-#66DO;1SUB#8<-#209DO;1SUB#9<-#1374DO;1SUB#10<-#279DO,1<-#9DO.1<-#8DOCOMEFROM#7DOWRITEIN,1DO,2<-,1SUB#1DOREADOUT,1(73)DO.2<-,1SUB#3(7)DO.1<-.1~#14DOCOMEFROM.2(1)DO.3<-.1~.1DOREADOUT;1+,2DOCOMEFROM.3(7)DO.1<-#8