PROGRAM silmukka
  IMPLICIT NONE
  REAL :: x
  INTEGER :: i
  DO i = 1, 10
    x = REAL(2**i)
    WRITE (*,*) 'arvot:', x, (1 + 1/x)**x
  END DO
END PROGRAM silmukka