program yukicoder_2535 use, intrinsic :: iso_fortran_env implicit none integer(int32) :: n logical :: b character(len=3) :: p_str integer(int32) :: i read(input_unit, *) n b = .true. do i = 1, n read(input_unit, *) p_str select case(trim(p_str)) case("Yes") b = b .eqv. .true. case("No") b = b .eqv. .false. end select write(output_unit, '(a)') trim(merge("Yes", "No ", b)) end do end program yukicoder_2535