real r
      read *,r
      print *,r
      end