diff --git a/Anagrams/Anagrams.Specs.Unit/AnagramsUnitSpecs.fs b/Anagrams/Anagrams.Specs.Unit/AnagramsUnitSpecs.fs
index 098825b..aee10e6 100644
--- a/Anagrams/Anagrams.Specs.Unit/AnagramsUnitSpecs.fs
+++ b/Anagrams/Anagrams.Specs.Unit/AnagramsUnitSpecs.fs
@@ -11,6 +11,7 @@ let specs =
                 AnagramList.empty
                 |> AnagramList.add "foo"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "foo")
         ]
         context "when I add 'foo' and 'bar'" [
@@ -19,6 +20,7 @@ let specs =
                 |> AnagramList.add "foo"
                 |> AnagramList.add "bar"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "bar\nfoo")
         ]
         context "when I add 'dog' and 'god'" [
@@ -27,6 +29,7 @@ let specs =
                 |> AnagramList.add "dog"
                 |> AnagramList.add "god"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "dog god")
         ]
         context "when I add a variety of words, some of which are anagrams of each other" [
@@ -39,6 +42,7 @@ let specs =
                 |> AnagramList.add "no"
                 |> AnagramList.add "on"
                 |> AnagramList.format
+                |> String.concat "\n"
                 |> should (equal "bar\ndog god\nfoo\nno on")
         ]
         context "when I stream in lines, each of which has a word on it" [
@@ -46,6 +50,7 @@ let specs =
                 let input = "boaster\nboaters\nborates\nenlist\ninlets\nkinship\nlisten\npinkish"
                 input.Split [|'\n'|]
                 |> AnagramList.findAnagrams
+                |> String.concat "\n"
                 |> should (equal "boaster boaters borates\nenlist inlets listen\nkinship pinkish")
         ]
     ]
diff --git a/Anagrams/Anagrams/Anagrams.fs b/Anagrams/Anagrams/Anagrams.fs
index dc629cc..a88f59a 100644
--- a/Anagrams/Anagrams/Anagrams.fs
+++ b/Anagrams/Anagrams/Anagrams.fs
@@ -25,7 +25,6 @@ module AnagramList =
             Seq.sort anagrams |> String.concat " "
         listsOfAnagrams 
         |> Seq.map formatLine
-        |> String.concat "\n"
 
     let findAnagrams lines =
         lines
diff --git a/Anagrams/Anagrams/Program.fs b/Anagrams/Anagrams/Program.fs
index dcd36ad..a9d5d94 100644
--- a/Anagrams/Anagrams/Program.fs
+++ b/Anagrams/Anagrams/Program.fs
@@ -11,5 +11,7 @@ module Main =
 
     [<EntryPoint>]
     let main _ = 
-        linesFromStdin() |> AnagramList.findAnagrams |> Console.Write
-        0
+        let anagrams = linesFromStdin() |> AnagramList.findAnagrams
+        for line in anagrams do
+            Console.WriteLine line
+        0
\ No newline at end of file