# code: http://golf.shinh.org/reveal.rb?Strings+in+Strings/darrenks_1640285972&nbb
# target Nibbles version: 0.2
# commenter version: 0.1.2.181

? #(if/else):[chr] 
    `* #(product):int 
        ! #(zip with):[int] 
            ; #(let):[[chr]] -->let( A:[[chr]] ) 
                % #(split (remove empties)):[[chr]] 
                    @ #(= fstLine):[chr] 
                    ~ #(auto = words):auto 
            >> #(tail):[[chr]] <--arg( B:[chr] ) 
                @ #(= A):[[chr]] 
            ~ #(zipop: by):null 
            - #(subtract):int <--arg( D:[chr] C:[chr] ) 
                , #(length):int 
                    % #(split (remove empties)):[[chr]] 
                        @ #(= C):[chr] 
                        $ #(= D):[chr] 
                ~ #(auto = 1):auto 
    "YES" #(string):[chr] <--arg( E:int ) 
    "NO" #(string):[chr]