Problem: nightmare problem

Code: nightmare+problem/tails_1682912421

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)

(implicit map):[[[chr],int,[chr],int,[chr]]] 
    =~ (group by (also sorts)):[[int,int,chr]] 
        | (filter):[int,int,chr] 
            ! (zip with):[int,int,chr] 
                . (map):[int,int] 
                    `* (nary cartesian product):[[int]] 
                        `: (list of 2 lists):[[int]] 
                            ; (save):[int] -->let( A:[int] ) 
                                + (add):[int] 
                                    -16 (integer):int 
                                    , (range from 1):[int] 
                                        32 (integer):int 
                            $ (= A):[int] 
                    ~ (tuple):int,int <--arg( B:[int] ) 
                        / (foldr1):int 
                            $ (= B):[int] 
                            $ (= D):int <--arg( D:int C:int ) 
                        / (foldr1):int 
                            $ (= B):[int] 
                            @ (= E):int <--arg( F:int E:int ) 
                ;;_ (= allInput):[chr] <--arg( H:int G:int ) 
                , (zipop: make tuple):null 
            ? (index):int <--arg( K:int J:int I:chr ) 
                "*" (string):[chr] 
                _ (= I):chr 
        : (append):[int] <--arg( N:int M:int L:chr ) 
            `$ (signum):int 
                $ (= N):int 
            / (divide):int 
                * (multiply):int 
                    ;@ (= fstInt):int 
                    @ (= M):int 
                $ (= N):int 
    . (map):[[chr],int,[chr],int,[chr]] <--arg( P:[int,int,chr] O:[int,int,chr] ) 
        $ (= P):[int,int,chr] 
        ~~~~ (5-ary tuple):[chr],int,[chr],int,[chr] <--arg( S:int R:int Q:chr ) 
            "(" (string):[chr] 
            @ (= R):int 
            ", " (string):[chr] 
            * (multiply):int 
                ~ (auto = -1):auto 
                $ (= S):int 
            ")" (string):[chr]