# code: http://golf.shinh.org/reveal.rb?Major+Scales/darrenks_1645763323&nbb
# target Nibbles version: 0.25
# 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 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] 
                                                                                ; #(save):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):[chr] 
                                #(sorry, i don't understand this code. please report.):??? 
                                "0 q" #(string):[chr] 
                        fstInt #(@):int 
                    ; #(save):[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 (hex): fstInt)
303638a60828a13653f7041f1632f7541f1632f7441f1632f7341f1632f7241f1632f7141f1632f7746041d1632f7541d1632f7441d1632f7341d1632f7241d1632f7141d1632f7746f1632f7041541441341241141746f1632f7541f1632f7441f1632f7341241f1632f7141f1632f7741f1632f7046d1632f7541d1632f7441d1632f7341b13653f7241d1632f7141d1632f7741d1632f7046541441341d1632f7241141741046a13653f7441a13653f7341f1632f7241f1632f7141a13653f7741a13653f7041f1632f7546441341d1632f7241d1632f7141741041d1632f7546f1632f7441f1632f7341241141f1632f7741f1632f7041546a13653f7341f1632f7241f1632f7141f1632f7741a13653f7041f1632f7541f1632f7446341d1632f7241d1632f7141d1632f7741041d1632f7541d1632f7446f1632f7341241141741f1632f7041541446f1632f7241f1632f7141f1632f7741f1632f7041f1632f7541f1632f7441f1632f7346d1632f7241d1632f7141d1632f7741d1632f7041d1632f7541d1632f7441d1632f7346241141741041541441346a13653f7141a13653f7741a13653f7041f1632f7541a13653f7441a13653f7341f1632f7246141741041d1632f7541441341d1632f7246f1632f7141f1632f7741f1632f7041541f1632f7441f1632f7341246a13