program ch1401

! Simple character i/o

  character (80) :: line

  read *, line
  print *, line
end program ch1401