import Utils

procedure main(A)
    sma1 := closure(SMA,[],3)
    sma2 := closure(SMA,[],4)
    every every n := !A do write(left(sma1(n),20), sma2(n))
end

procedure SMA(stream,P,n)
    put(stream, n)
    if *stream > P then pop(stream)
    every (avg := 0.0) +:= !stream
    return avg / *stream
end