Problem: I love haskell

Code: I+love+haskell/tails_1647508165

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)

^ (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]