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.
