character*8::S character*8::yukiko='yukiko',oda='oda',teban character*8::board(8) integer::t=0,i,j read *,S read *,board do i=1,8 do j=1,8 if(board(i)(j:j).ne.'.') then t = t + 1 end if end do end do if(TRIM(S).eq.yukiko) then if(MOD(t,2).eq.0) then teban = yukiko else teban = oda end if else if(MOD(t,2).eq.0) then teban = oda else teban = yukiko end if end if print '(a)', teban end program