# code: http://golf.shinh.org/reveal.rb?I+love+haskell/tails_1647508165&nbb
# target Nibbles version: 0.2
# 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 
                \B A 
                ? #(if/else):[[chr]] 
                    ? #(index):int 
                        + #(concat):[chr] 
                            `) #(swapped uncons):[[chr]] 
                                B #($):[[chr]] 
                            sets C 
                        '<' #(char):chr 
                    \D 
                    : #(append):[[chr]] 
                        C #(@):[chr] 
                        A #(;$):[[chr]] 
                    : #(append):[[chr]] 
                        A #(_):[[chr]] 
                        C #($):[chr] 
            \E 
            > #(drop):[chr] 
                3 #(integer):int 
                #(implicit arg = E):[chr]