PROGRAM example3
  IMPLICIT NONE

  INTEGER :: i

  DO i=0,19
     PRINT *, 2**i
  ENDDO

END PROGRAM example3
