program prog
      implicit double precision(a-h, o-z)
      write(6, *) f
      write(6, *) q
      end