Problem: Magic square

Code: Magic+square/darrenks_1640145890

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)

. (map):[[[chr]]] 
    , (range from 1):[int] 
        $ (= fstInt):int 
    . (map):[[chr]] <--arg( A:int ) 
        , (range from 1):[int] 
            @ (= fstInt):int 
        & (justify):[chr] <--arg( B:int ) 
            " " (string):[chr] 
            3 (integer):int 
            + (add):int 
                + (add):int 
                    % (modulus):int 
                        + (add):int 
                            + (add):int 
                                - (subtract):int 
                                    @ (= A):int 
                                    * (multiply):int 
                                        $ (= B):int 
                                        ~ (auto = 2):auto 
                                $ (= B):int 
                            / (divide):int 
                                _ (= fstInt):int 
                                ~ (auto = 2):auto 
                        _ (= fstInt):int 
                    ~ (auto = 1):auto 
                * (multiply):int 
                    % (modulus):int 
                        - (subtract):int 
                            @ (= A):int 
                            * (multiply):int 
                                $ (= B):int 
                                ~ (auto = 2):auto 
                        _ (= fstInt):int 
                    _ (= fstInt):int