program one2ten
      m=0
      do i=1,10
        m=m+i
      enddo
      write(*,*)'The answer is',m
      end