c charo
      program charo
      write(*) 'a'
      stop
      end