Problem: Major Scales

Code: Major+Scales/darrenks_1645763323

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 string concatenation) 
    (implicit string concatenation) 
        (implicit string concatenation) 
            (implicit string concatenation) 
                (implicit string concatenation) 
                    (implicit string concatenation) 
                        (implicit string concatenation) 
                            (implicit string concatenation) 
                                (implicit string concatenation) 
                                    (implicit string concatenation) 
                                        (implicit string concatenation) 
                                            (implicit string concatenation) 
                                                (implicit string concatenation) 
                                                    (implicit string concatenation) 
                                                        (implicit string concatenation) 
                                                            (implicit string concatenation) 
                                                                (implicit string concatenation) 
                                                                    (implicit string concatenation) 
                                                                        (implicit string concatenation) 
                                                                            (implicit string concatenation) 
                                                                                (implicit string concatenation) 
                                                                                    (implicit string concatenation) 
                                                                                        (implicit string concatenation) 
                                                                                            (implicit string concatenation) 
                                                                                                (implicit string concatenation) 
                                                                                                    (implicit string concatenation) 
                                                                                                        (implicit string concatenation) 
                                                                                                            (implicit string concatenation) 
                                                                                                                (implicit string concatenation) 
                                                                                                                    (implicit string concatenation) 
                                                                                                                        (implicit foldl1) 
                                                                                                                            ! (zip with) 
                                                                                                                                % (split (remove empties)) 
                                                                                                                                    "\nA B C#\n q" (string) 
                                                                                                                                    @ (= fstLine) 
                                                                                                                                @ (= fstInt) <--arg( A ) 
                                                                                                                                : (zipop: cons) 
                                                                                                                            @ (= B) <--arg( C B ) 
                                                                                                                        _ (= ints) 
                                                                                                                    2495 (integer) 
                                                                                                                "0 q" (string) 
                                                                                                            @ (= fstLine) 
                                                                                                        : (append) 
                                                                                                            : (append) 
                                                                                                                - (diff) 
                                                                                                                    "0 p" (string) 
                                                                                                                    @ (= fstLine) 
                                                                                                                63 (integer) 
                                                                                                            "0 Q" (string) 
                                                                                                    @ (= fstLine) 
                                                                                                "#\n Q" (string) 
                                                                                            @ (= fstLine) 
                                                                                        $ (= fstInt) 
                                                                                    2367 (integer) 
                                                                                "0 Q" (string) 
                                                                            @ (= fstLine) 
                                                                        _ (= ints) 
                                                                    : (append) 
                                                                        - (diff) 
                                                                            "0 Q" (string) 
                                                                            @ (= fstLine) 
                                                                        ; (let) -->let( D ) 
                                                                            1280127 (integer) 
                                                                "0 q" (string) 
                                                            @ (= fstInt) 
                                                        "#\n q" (string) 
                                                    @ (= fstInt) 
                                                $ (= D) 
                                            : (append) 
                                                ? (if/else) 
                                                    $ (= D) 
                                                    _ (= fstInt) <--arg( E ) 
                                                    ~ (default) 
                                                $ (= D) 
                                        2 (integer) 
                                    2367 (integer) 
                                "0 q" (string) 
                            @ (= fstInt) 
                        _ (= fstLine) 
                    : (append) 
                        r (read str at base) 
                            "0 q" (string) 
                            @ (= fstInt) 
                        ; (let) -->let( G ) 
                            : (append) 
                                ? (if/else) 
                                    $ (= D) 
                                    _ (= fstInt) <--arg( F ) 
                                    ~ (default) 
                                $ (= D) 
                2 (integer) 
            2559 (integer) 
        $ (= G) 
    _ (= fstInt) 
~ (postdata (dec): fstInt)
147970846390927164607186048461285268115285797027869703311646705745291649688002628316377818451742741237427551762399173939238131830599770692273772695335391786111686722834134000711594301177076966502497616463978015587559863807307425538336051436493698303158691767765773056260713892162930060211255571848883723322553574466883049046825854591643587725061062864051669824813844100019316109579455690574036724367024467564390443914077983604066499561779648545381321711808048935176015140703275652825722722187980281425579514092215466616150438717061766073159308761998073577302785285099470882908506468787474187665293869857666961286121078720613768832363816136946133886788665652398652233110396935466324651332514127343396819949315219598093534865712760296358023114919206399761154673658513495085680734440791590144620795897807759054676112993101926844048096897891299189934497340512004430679459091311855776222688409649129733797125144344691619599412531123703587410321308701057503967060816362672487476840117993562247256866486679225743902041130969379647561052532912880536331158813974190715388552319533987475257510780770736442494350235630438758083282141940262348053465745203041543268214983035248992215246851930486129766986705427