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