character*72 a write(*,100) 100 format("Content-type: text/html"//) write(*,*)'' do 10 i=1,20 read (*,'(a72)',end=99) a write(*,'(i2,1x,a72,a4)') i,a,"
" 10 continue 99 continue write(*,*) "" stop end