program prog
      write(6, '(a)') 'OK'
      call flush(2*5-4)
      end