anchor.diff:     doc.Blocks
      |> should equal [Character [Literal "LINDSEY"]; Dialogue [Literal "Hello, friend."]]
   
  -// WTF won't this compile?
  -//[<Test>]
  -//let ``Dialogue - After Parenthetical`` () =
  -//   let doc = "LINDSEY\r\n(quietly)\r\nHello, friend." |> Fountain.Parse
  -//   doc.Blocks
  -//   |> should equal [Character [Literal "LINDSEY"]; Parenthetical [Literal "(quietly)"]; Dialogue [Literal "Hello, friend."]]
  +[<Test>]
  +let ``Dialogue - After Parenthetical`` () =
  +   let doc = "LINDSEY\r\n(quietly)\r\nHello, friend." |> Fountain.Parse
  +   doc.Blocks
  +   |> should equal [Character [Literal "LINDSEY"]; Parenthetical [Literal "(quietly)"]; Dialogue [Literal "Hello, friend."]]
   
   
   //===== Page Break
  
positive.code: //===== Parenthetical
  
  [<Test>]
  let ``Parenthetical`` () =
     let doc = "LINDSEY\r\n(quietly)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY"]; Parenthetical [Literal "(quietly)"]];
  
negative.code: //   doc.Blocks
  //   |> should equal [Centered [Literal "The End"]]
  
  //===== Notes
  [<Test>]
  let ``Notes - Inline`` () =
     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 [Literal "Some text and then a "];[Note [Literal"bit of a note"]]; Literal ". And some more text."]
  
  [<Test>]
  let ``Notes - Block`` () =
     let doc = "[[It was supposed to be Vietnamese, right?]]" |> Fountain.Parse
     doc.Blocks
     |> should equal [Note [Literal "It was supposed to be Vietnamese, right?"]]
  
  //===== Boneyard (Comments)
  //TODO: not implemented yet.
  
  //===== Span Elements ==============================================================
  
  