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

#(implicit map):[chr,[chr],[chr]] 
    `\ #(special scans):[[chr]] 
        ;;@ #(= allLines):[[chr]] 
        #(foldop: undefined nibble 0xc (try Nibbles version >=0.22)):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( I:chr ) 
                        \ #(reverse):[chr] 
                            `p #(int to str):[chr] 
                                / #(divide):int 
                                    + #(sum):int 
                                        ; #(let):[int] -->let( H:[int] ) 
                                            . #(map):[int] 
                                                < #(take):[chr] 
                                                    5 #(integer):int 
                                                    \ #(reverse):[chr] 
                                                        $ #(= B):[chr] 
                                                r #(read str at base):int <--arg( E:chr ) 
                                                    : #(append):[chr] 
                                                        ? #(if/else):[chr] 
                                                            $ #(= E):chr 
                                                            ; #(let):[chr] <--arg( F:chr ) -->let( G:[chr] ) 
                                                                "." #(string):[chr] 
                                                            5 #(integer):int 
                                                        2 #(integer):int 
                                                    , #(length):int 
                                                        $ #(= G):[chr] 
                                    10 #(integer):int 
                _ #(= G):[chr] 
            #(implicit arg = I):chr