Problem: polarised political climate

Code: polarised+political+climate/tails_1664261509

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)

/ (foldr):[chr] -->let( G:[chr] ) 
    @ (= fstLine):[chr] 
    ~ (tuple):[chr],[chr] 
        "\n" (string):[chr] 
        \ (reverse):[chr] 
            `< (sort):[chr] 
                @ (= fstLine):[chr] 
    (implicit tuple):[chr],[chr] <--arg( C:chr B:[chr] A:[chr] ) 
        : (append):[chr] 
            ? (if/else):chr -->let( F:[chr] ) 
                $ (= C):chr 
                ~ (tuple):chr,[chr] <--arg( D:chr ) 
                    `( (uncons):chr -->let( E:[chr] ) 
                        ;$ (= A):[chr] 
                    $ (= E):[chr] 
                (implicit tuple):chr,[chr] 
                    @ (= C):chr 
                    ;$ (= A):[chr] 
            ;$ (= B):[chr] 
        (implicit arg = F):[chr]