# code: http://golf.shinh.org/reveal.rb?Moving+Average/tails_1645678436&nbb
# target Nibbles version: 0.23
# commenter version: 0.1.2.181

#(implicit map):[[chr],[chr],[chr]] 
    `\ #(special scans):[[[chr]]] 
        allLines #(;;@):[[chr]] 
        : #(foldop: cons):null 
    \B A 
    ~~ #(3-ary tuple):[chr],[chr],[chr] 
        / #(foldr1):[chr] 
            B #($):[[chr]] 
            \D C 
            C #(@):[chr] 
        "Average:" #(string):[chr] 
        : #(append):[chr] 
            : #(append):[chr] 
                \ #(reverse):[chr] 
                    `) #(swapped uncons):[chr] 
                        \ #(reverse):[chr] 
                            `p #(int to str):[chr] 
                                / #(divide):int 
                                    + #(sum):int 
                                        ; #(save):[int] 
                                            . #(map):[int] 
                                                < #(take):[[chr]] 
                                                    5 #(integer):int 
                                                    \ #(reverse):[[chr]] 
                                                        B #($):[[chr]] 
                                                \E 
                                                `r #(read int):int 
                                                    : #(append):[chr] 
                                                        - #(diff):[chr] 
                                                            E #($):[chr] 
                                                            ; #(save):[chr] 
                                                                "." #(string):[chr] 
                                                            sets F 
                                                        5 #(integer):int 
                                        sets G 
                                    * #(multiply):int 
                                        , #(length):int 
                                            G #($):[int] 
                                        10 #(integer):int 
                    sets H 
                F #(_):[chr] 
            #(implicit arg = H):chr