let rec formatEqual format string = 
 match format with 
    | "" -> string.Equals("")
    | s -> match format.Chars(0) with
       // | "?" 
       // | "*"
        | c -> c.Equals(string.Chars(0)) && formatEqual format.[1..] string.[1..]

let format = System.Console.ReadLine()
let name = System.Console.ReadLine()
let res = formatEqual format name

printfn "%b" res