anchor.diff:  let ``Transition - normal`` () =
      let doc = "CUT TO:" |> Fountain.Parse
      doc.Blocks
  -   |> should equal [Transition [Literal "CUT TO:"]]
  +   |> should equal [Transition (false, [Literal "CUT TO:"])]
   
   [<Test>]
   let ``Transition - forced`` () =
      let doc = "> Burn to White." |> Fountain.Parse
      doc.Blocks
  -   |> should equal [Transition [Literal "Burn to White."]]
  +   |> should equal [Transition (true, [Literal "Burn to White."])]
   
   //===== Centered
   
  
positive.code: let ``Character - Normal`` () =
     let doc = "LINDSEY" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY"]]
  
  [<Test>]
  let ``Character - With parenthetical extension`` () =
     let doc = "LINDSEY (on the radio)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY (on the radio)"]]
  
  [<Test>]
  let ``Character - With whitespace`` () =
     let doc = "THIS IS ALL UPPERCASE BUT HAS WHITESPACE" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "THIS IS ALL UPPERCASE BUT HAS WHITESPACE"]]
  
  [<Test>]
  let ``Character - With Numbers`` () =
     let doc = "R2D2" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "R2D2"]]
  
  [<Test>]
  let ``Character - Number first`` () =
     let doc = "25D2" |> Fountain.Parse
     doc.Blocks
     |> should equal [Action [Literal "25D2"]]
  
  [<Test>]
  let ``Character - Forced with at sign`` () =
     let doc = "@McAvoy" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "McAvoy"]]
  
  [<Test>]
  let ``Character - with forced at and parenthetical extension`` () =
     let doc = "@McAvoy (OS)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "McAvoy (OS)"]]
  
  
  //===== Parenthetical
  
negative.code: let ``Parenthetical `` () =
     let doc = "LINDSEY\r\n(quietly)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (false, [Literal "LINDSEY"]); Parenthetical [Literal "quietly"]];
  
  [<Test>]
  let ``Parenthetical - After Dialogue`` () =
     let doc = "LINDSEY\r\n(quietly)\r\nHello, friend.\r\n(loudly)\r\nFriendo!" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (false, [Literal "LINDSEY"]); Parenthetical [Literal "quietly"]; Dialogue [Literal "Hello, friend."]; Parenthetical [Literal "loudly"]; Dialogue [Literal "Friendo!"]];
  
  
  //===== Dialogue
  