anchor.diff:  
   /// Write a list of MarkdownParagraph values to a TextWriter
   and formatBlocks ctx blocks = 
  +  ctx.Writer.Write("""<style>body{font-family:"Courier Prime","Courier New",Courier,monospace;}"</style>""")
     let length = List.length blocks
     let smallCtx = { ctx with LineBreak = smallBreak ctx }
     let bigCtx = { ctx with LineBreak = bigBreak ctx }
  
positive.code:       formatSpans ctx spans
        ctx.Writer.Write("</h" + string n + ">")
    | SceneHeading (spans) ->
        ctx.Writer.Write("<div>")
        for span in spans do 
          formatSpan ctx span
        ctx.Writer.Write("</div>")
    | PageBreak ->
        ctx.Writer.Write("<hr>")
    | Synopses (spans) ->
  
negative.code:         formatSpan ctx span
        ctx.Writer.Write("</em></div>")
    | Transition spans ->
        ctx.Writer.Write("""<div style="text-align:right;"><strong>""")
        for span in spans do 
          formatSpan ctx span
        ctx.Writer.Write("</strong><br/></div>")
    | Character spans ->
        ctx.Writer.Write("""<div style="text-align:center;"><br/>""")
        for span in spans do 
          formatSpan ctx span
        ctx.Writer.Write("</div>")
    | Dialogue spans
    | Centered spans ->
        ctx.Writer.Write("""<div style="text-align:center;">""")
  