let movingAverage (period : int) (values : float seq) =
    Seq.zip values (Seq.skip period values)
    |> Seq.scan (fun last (prev, cur) -> last - prev + cur) (values |> Seq.take period |> Seq.sum)
    |> Seq.map (fun x -> x / float(period))