program hitachi
	implicit none
	character :: x
    read(*,*) x
    if(x == 'hi' .or. x == 'hihi' .or. x == 'hihihi' .or. x == 'hihihihi' .or. x == 'hihihihihi') then
    	write(*,*) "Yes"
    else
    	write(*,*) "No"
    end if
    stop
end program hitachi