From 296f0f31e6f189cd0140fe91201a93f4ad3af94a Mon Sep 17 00:00:00 2001
From: Tomas Petricek <info@tomasp.net>
Date: Wed, 3 Apr 2019 10:24:22 +0100
Subject: [PATCH] Remove unnecessary upcast and add missing helper

---
 docs/conceptual/snippets/fssequences/snippet180.fs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/docs/conceptual/snippets/fssequences/snippet180.fs b/docs/conceptual/snippets/fssequences/snippet180.fs
index a7e58367..91901848 100644
--- a/docs/conceptual/snippets/fssequences/snippet180.fs
+++ b/docs/conceptual/snippets/fssequences/snippet180.fs
@@ -1,10 +1,14 @@
+    let printSeq seq1 = 
+      for v in seq1 do printf "%A " v
+      printfn ""
 
-    let seqNumbers = [ 1.0; 1.5; 2.0; 1.5; 1.0; 1.5 ] :> seq<float>
+    let seqNumbers = [ 1.0; 1.5; 2.0; 1.5; 1.0; 1.5 ]
     let seqWindows = Seq.windowed 3 seqNumbers
     let seqMovingAverage = Seq.map Array.average seqWindows
+
     printfn "Initial sequence: "
     printSeq seqNumbers
     printfn "\nWindows of length 3: "
     printSeq seqWindows
     printfn "\nMoving average: "
-    printSeq seqMovingAverage
\ No newline at end of file
+    printSeq seqMovingAverage