# 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]] 
                % #(split (remove empties)):[[chr]] 
                    fstLine #(@):[chr] 
                    ~ #(auto = words):auto 
            sets A 
            \B 
            >> #(tail):[[chr]] 
                A #(@):[[chr]] 
            ~ #(zipop: by):null 
            \D C 
            - #(subtract):int 
                , #(length):int 
                    % #(split (remove empties)):[[chr]] 
                        C #(@):[chr] 
                        D #($):[chr] 
                ~ #(auto = 1):auto 
    \E 
    "YES" #(string):[chr] 
    "NO" #(string):[chr]