dim digit(6)
for a = 1 to 1000000
inc digit(6)
if digit(6)=10
   inc digit(5)
   digit(6)=0
   if digit(5)=10
      inc digit(4)
      digit(5)=0
      if digit(4)=10
         inc digit(3)
         digit(4)=0
         if digit(3)=10
            inc digit(2)
            digit(3)=0
            if digit(2)=10
               inc digit(1)
               digit(2)=0
            endif
         endif
      endif
   endif
endif
if digit(2)>=digit(1) and digit(3)>=digit(2) and digit(4)>=digit(3) and digit(5)>=digit(4) and digit(6)>=digit(5) then inc count
next a
print count
suspend for key