# code: http://golf.shinh.org/reveal.rb?Major+Scales/darrenks_1645763323&nbb
# target Nibbles version: 0.21
# commenter version: 0.1.2.181

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