program main implicit none integer:: bw=0,han=1,i,j character pl*6,ban*8 read(*,*)pl if(pl(1:1)=="o")han=han*(-1) do i=1,8 read(*,*)ban do j=1,8 if(ban(j:j)/=".")bw=bw+1 enddo enddo if(mod(bw,2)==0)han=han*(-1) if(han/=1)then write(*,"(a6)")"yukiko" else write(*,"(a3)")"oda" endif end program main