diff --git a/src/milkwood_clj/analyse.clj b/src/milkwood_clj/analyse.clj
index 86664f6..cfbbf85 100644
--- a/src/milkwood_clj/analyse.clj
+++ b/src/milkwood_clj/analyse.clj
@@ -56,4 +56,7 @@
   file: the path name of a file to read;
   depth: the depth of rules/length of window we're considering"
   [file depth]
-  (analyse-tokens nil nil (map (fn [string] (.toLowerCase string)) (re-seq  #"\w+\'[st]|\w+|\p{Punct}" (slurp file))) depth))
+  (analyse-tokens nil nil
+                  (map
+                   (fn [string] (.toLowerCase string))
+                   (re-seq  #"\w+\'[stdm]|\w+|\p{Punct}" (slurp file))) depth))
diff --git a/src/milkwood_clj/core.clj b/src/milkwood_clj/core.clj
index f7085da..0f997b8 100644
--- a/src/milkwood_clj/core.clj
+++ b/src/milkwood_clj/core.clj
@@ -20,7 +20,8 @@
                        ["-t" "--tuple-length"
                         "The length of the sequences to analyse it into (integer)"
                         :parse-fn #(Integer. %)
-                        :default 2]) file (arguments :file)]
+                        :default 2])
+        file (arguments :file)]
     (cond
      (= file nil) (print banner)
      (arguments :help) (print banner)
@@ -28,6 +29,6 @@
            (synthesise/compose-nonsense
             (analyse/analyse-file file (arguments :tuple-length))
             (arguments :output-length))))
-    (prn "\n")))
+    (flush)))