# code: http://golf.shinh.org/reveal.rb?ZunDokoKiyoshi/tails_1658467086&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

+ #(concat):[[chr]] 
    =\ #(scanl1):[[[chr]]] 
        `% #(split list (keep empties)):[[[chr]]] 
            ;@ #(= allLines):[[chr]] 
            ; #(save):[[chr]] -->let( B:[[chr]] ) 
                : #(append):[[chr]] 
                    ^ #(replicate):[[chr]] 
                        4 #(integer):int 
                        `) #(swapped uncons):[[chr]] -->let( A:[chr] ) 
                            `$ #(uniq):[[chr]] 
                                ;@ #(= allLines):[[chr]] 
                    $ #(= A):[chr] 
        : #(append):[[chr]] <--arg( D:[[chr]] C:[[chr]] ) 
            : #(append):[[chr]] 
                _ #(= B):[[chr]] 
                "KI-YO-SHI!" #(string):[chr] 
            #(implicit arg = D):[[chr]]