      character a
      read 100,a
100   format(a1)
      print *,a
      end
