begin

 var s := 'dfh hkjh hjhlhl nbmn n mn dfh';

 var Count := s.ToWords

 .Where(x -> x[x.Length] = 'h').Println.Count;

 if Count = 0 then

   Print('no')

end.