program hitachi
	implicit none
	character(len=10) :: x, y
    integer :: i
    read(*,*) x
    y = "hi"
    do i = 1,5
    	if(x == y) then
        	write(*,*) "Yes"
            stop
        end if
        y = trim(y) // "hi"
    end do
    
    write(*,*) "No"
    stop
end program hitachi