let w = "kadomatsu" let s = stdin.ReadLine() let mutable i = 0 let mutable flg = false for c in w do if not flg then if c = s.[i] then i <- i + 1 if i >= s.Length then flg <- true if flg then "Yes" else "No" |> printfn "%s"