( ( I
  =   buffer
    .   (new$=):?freshEmptyBuffer
      &
        ' ( buffer avg
          .   ( avg
              =   L S n
                .   0:?L:?S
                  &   whl
                    ' ( !arg:%?n ?arg
                      & !n+!S:?S
                      & 1+!L:?L
                      )
                  & (!L:0&0|!S*!L^-1)
              )
            & (buffer=$freshEmptyBuffer)
            & !arg !(buffer.):?(buffer.)
            & ( !(buffer.):?(buffer.) [($arg) ?
              |
              )
            & avg$!(buffer.)
          )
  )
& ( pad
  =   len w
    .   @(!arg:? [?len)
      & @("     ":? [!len ?w)
      & !w !arg
  )
& I$3:(=?sma3)
& I$5:(=?sma5)
& 1 2 3 4 5 5 4 3 2 1:?K
&   whl
  ' ( !K:%?k ?K
    &   out
      $ (str$(!k " - sma3:" pad$(sma3$!k) "  sma5:" pad$(sma5$!k)))
    )
);