Add script for removing <CR> on windows.

This caused bad stuff to be generated on windows, specifically
the amalg file. We cause totally strip <CR> from files on windows
using this script.

tools/amalg.janet

@@ -9,4 +9,4 @@
 
 # Body
 (each path (tuple/slice (dyn :args) 1)
-  (print (slurp path)))
+  (print (slurp path :r)))

tools/removecr.janet

@@ -0,0 +1,9 @@
+# Remove carriage returns from file. Since piping things on 
+# windows may add bad line endings, we can just force removal
+# with this script.
+(def fname ((dyn :args) 1))
+(with [f (file/open fname :rb+)]
+  (def source (:read f :all))
+  (def new-source (string/replace-all "\r" "" source))
+  (:seek f :set 0)
+  (:write f new-source))