(def n (read-string (read-line))) (def words (repeatedly n read-line)) (doseq [w words] (println (if (re-find #"h.*?a.*?c.*?k.*?e.*?r.*?r.*?a.*?n.*?k" w) "YES" "NO")))