Problem: Major Scales

Code: Major+Scales/tails+%28guess+%2A+%22+%22+must+be+needless+in+future+versions%29_1646456921

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)

* (join):[chr] 
    " " (string):[chr] 
    =\ (scanl):[[chr]] 
        , (range from 1):[int] 
            6 (integer):int 
        ;$ (= fstLine):[chr] <--arg( B:int A:int ) 
        : (append):[chr] <--arg( D:int C:[chr] ) 
            + (add):chr 
                ; (save):int -->let( F:int ) 
                    % (modulus):int 
                        % (modulus):int 
                            `( (uncons):chr -->let( E:[chr] ) 
                                @ (= C):[chr] 
                            8 (integer):int 
                        7 (integer):int 
                'A' (char):chr 
            = (subscript (wrapped)):[chr] 
                + (add):int 
                    ? (index):int 
                        ; (save):[[chr]] -->let( N:[[chr]] ) 
                            : (append):[[chr]] 
                                : (append):[[chr]] 
                                    : (append):[[chr]] 
                                        `: (list of 2 lists):[[chr]] 
                                            ; (save):[chr] -->let( I:[chr] ) 
                                                `> (drop also take):[chr] -->let( H:[chr] ) 
                                                    3 (integer):int 
                                                    . (map):[chr] 
                                                        `D (to base from data):[int] 
                                                            256 (to base from data arg):null 
                                                        ch (chr):chr <--arg( G:int ) 
                                                            $ (= G):int 
                                            @ (= H):[chr] 
                                        "" (string):[chr] 
                                    : (append):[chr] 
                                        << (init):[chr] 
                                            @ (= H):[chr] 
                                        + (add):chr 
                                            / (foldr1):chr 
                                                @ (= H):[chr] 
                                                @ (= J):chr <--arg( K:chr J:chr ) 
                                            2 (integer):int 
                                : (append):[chr] 
                                    << (init):[chr] 
                                        $ (= I):[chr] 
                                    - (subtract):chr 
                                        / (foldr1):chr 
                                            $ (= I):[chr] 
                                            @ (= L):chr <--arg( M:chr L:chr ) 
                                        ~ (auto = 1):auto 
                        ;@ (= E):[chr] 
                    - (subtract):int 
                        / (divide):int 
                            % (modulus):int 
                                ;$ (= F):int 
                                3 (integer):int 
                            ~ (auto = 2):auto 
                        == (equal?):int 
                            ;_ (= D):int 
                            3 (integer):int <--arg( O:int ) 
                $ (= N):[[chr]] 
(postdata (hex): to base from data)
e299adf09d84ab