extra: use bl when possible instead of ``" " write``.

extra/euler/b-rep/io/obj/obj.factor

@@ -7,11 +7,11 @@ IN: euler.b-rep.io.obj
 <PRIVATE
 : write-obj-vertex ( vertex -- )
     "v " write
-    position>> 3 head-slice [ " " write ] [ number>string write ] interleave nl ;
+    position>> 3 head-slice [ bl ] [ number>string write ] interleave nl ;
 
 : write-obj-face ( face vx-indices -- )
     "f" write
-    [ edge>> ] dip '[ " " write vertex>> _ at 1 + number>string write ] each-face-edge nl ;
+    [ edge>> ] dip '[ bl vertex>> _ at 1 + number>string write ] each-face-edge nl ;
 PRIVATE>
 
 :: write-obj ( b-rep -- )

extra/html/parser/printer/printer.factor

@@ -56,7 +56,7 @@ M: text-printer print-closing-tag
     [
         { "ul" "ol" "li" "tr" } member? [ nl ] when
     ]
-    [ "td" = [ " " write ] when ] tri ;
+    [ "td" = [ bl ] when ] tri ;
 
 M: text-printer print-comment-tag drop ;
 

extra/rosetta-code/metronome/metronome.factor

@@ -57,7 +57,7 @@ M: metronome-gadget pref-dim* drop { 200 200 } ;
 
 : print-defaults ( -- )
   metronome-defaults swap prefix
-  [ " " write ] [ number>string write ] interleave nl ;
+  [ bl ] [ number>string write ] interleave nl ;
 
 : metronome-usage ( -- )
     "Usage: metronome [BPM FREQUENCIES...]" print