program main implicit none character*100::S integer*8::N,i,count read *,S count = 0 do i=1,LEN_TRIM(S) if(S(i:i).eq.'n') then count = count + 1 end if end do print '(i0)',count end program main