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