anchor.diff:     let doc = "Some text and then a [[bit a of a note]]. And some more text." |> Fountain.Parse
      doc.Blocks
      // TODO: figure out the right output here. 
  -   |> should equal [Action [Literal "fails anyway, it drops the note right now."]]
  +   |> should equal [Action (false, [Literal "fails anyway, it drops the note right now."])]
      //|> should equal [Action [Literal "Some text and then a "];[Note [Literal"bit of a note"]]; Literal ". And some more text."]
   
   [<Test>]
  
positive.code: let ``Parenthetical `` () =
     let doc = "LINDSEY\r\n(quietly)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [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 [Literal "LINDSEY"]; Parenthetical [Literal "quietly"]; Dialogue [Literal "Hello, friend."]; Parenthetical [Literal "loudly"]; Dialogue [Literal "Friendo!"]];
  
  
  //===== Dialogue
  
negative.code: let ``Character - Normal`` () =
     let doc = "LINDSEY" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (false, [Literal "LINDSEY"])]
  
  [<Test>]
  let ``Character - With parenthetical extension`` () =
     let doc = "LINDSEY (on the radio)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (false, [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 (false, [Literal "THIS IS ALL UPPERCASE BUT HAS WHITESPACE"])]
      
  [<Test>]
  let ``Character - With Numbers`` () =
     let doc = "R2D2" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (false, [Literal "R2D2"])]
  
  [<Test>]
  let ``Character - Number first`` () =
     let doc = "25D2" |> Fountain.Parse
     doc.Blocks
     |> should equal [Action (false, [Literal "25D2"])]
  
  [<Test>]
  let ``Character - Forced with at sign`` () =
     let doc = "@McAvoy" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (true, [Literal "McAvoy"])]
  
  [<Test>]
  let ``Character - with forced at and parenthetical extension`` () =
     let doc = "@McAvoy (OS)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character (true, [Literal "McAvoy (OS)"])]
  
  
  //===== Parenthetical
  