# code: http://golf.shinh.org/reveal.rb?Old+Magician/tails_1642263306&nbb
# target Nibbles version: 0.21
# commenter version: 0.1.2.181

! #(zip with):[[chr],[chr]] 
    , #(range from 1):[int] 
        ~ #(auto = infinity):auto 
    >> #(tail):[[int]] <--arg( A:int ) 
        ;;@ #(= intMatrix):[[int]] 
    ~ #(zipop: by):null 
    ~ #(tuple):[chr],[chr] <--arg( C:int B:[int] ) 
        : #(append):[chr] 
            : #(append):[chr] 
                "Case #" #(string):[chr] 
                $ #(= C):int 
            ":" #(string):[chr] 
        = #(subscript (wrapped)):[chr] 
            / #(foldr1):int 
                @ #(= B):[int] 
                @ #(= D):int <--arg( E:int D:int ) 
            "BLACK""WHITE" #(string list):[[chr]]