# code: http://golf.shinh.org/reveal.rb?The+B+Programming+Language/tails_1644306412&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

/ #(foldr1):[chr] 
    / #(foldr):[[chr]] 
        ; #(save):[[chr]] -->let( A:[[chr]] ) 
            % #(split (remove empties)):[[chr]] 
                @ #(= fstLine):[chr] 
                ~ #(auto = words):auto 
        _ #(= A):[[chr]] <--arg( C:[chr] B:[chr] ) 
        ? #(if/else):[[chr]] <--arg( E:[chr] D:[[chr]] ) 
            - #(subtract):int 
                3 #(integer):int 
                , #(length):int 
                    $ #(= E):[chr] 
            : #(append):[[chr]] <--arg( F:int ) 
                = #(subscript (wrapped)):[chr] 
                    * #(multiply):int 
                        , #(length):int 
                            / #(foldr1):[chr] 
                                _ #(= D):[[chr]] 
                                $ #(= H):[chr] <--arg( H:[chr] G:[chr] ) 
                        ~ #(auto = 2):auto 
                    `< #(take also drop):[[chr]] -->let( I:[[chr]] ) 
                        5 #(integer):int 
                        _ #(= D):[[chr]] 
                $ #(= I):[[chr]] 
            : #(append):[[chr]] 
                @ #(= E):[chr] 
                _ #(= D):[[chr]] 
    #(implicit arg = K):[chr] <--arg( K:[chr] J:[chr] )