program e
  do
    write(*, "(a)", advance="no") "e"
  enddo
endprogram e