subroutine main()
	integer :: i, j
	integer :: k, z
	
	!<<<<<START
	do i = 2, 15
	    do j = 1, 10
	        print *, i                   
	        if (i .gt. j) then
	            print *, i * 10
	        end if                      
	        print *, i
	    end do
	end do
	!<<<<<END

end subroutine