# code: http://golf.shinh.org/reveal.rb?I+love+haskell/tails_1647508165&nbb
# target Nibbles version: 0.25
# commenter version: 0.1.2.181

^ #(pow):int 
    -1 #(integer):int 
    , #(length):int 
        <~ #(take while):[[chr]] 
            / #(foldr1):[[chr]] 
                `/ #(chunks of):[[[chr]]] 
                    ~ #(auto = 2):auto 
                    << #(init):[[chr]] 
                        << #(init):[[chr]] 
                            % #(split (remove empties)):[[chr]] 
                                @ #(= fstLine):[chr] 
                                ~ #(auto = words):auto 
                ? #(if/else):[[chr]] <--arg( B:[[chr]] A:[[chr]] ) 
                    ? #(index):int 
                        + #(concat):[chr] 
                            `) #(swapped uncons):[[chr]] -->let( E:[chr] ) 
                                $ #(= B):[[chr]] 
                        '<' #(char):chr 
                    : #(append):[[chr]] <--arg( F:int ) 
                        @ #(= E):[chr] 
                        ;$ #(= A):[[chr]] 
                    : #(append):[[chr]] 
                        _ #(= A):[[chr]] 
                        $ #(= E):[chr] 
            > #(drop):[chr] <--arg( G:[chr] ) 
                3 #(integer):int 
                #(implicit arg = G):[chr]