module Main where

import           Control.Arrow
import           Data.List     (isSubsequenceOf)

main = interact $ lines >>> solve

solve :: [String] -> String
solve [s, t] = if isSubsequenceOf s t then "Yes" else "No"
solve _      = "No"
