program prog
      implicit integer(a)
      write(6, *) a
      end