anchor.diff:  
   let mutable currentOutputKind = OutputKind.Html
   let InlineMultiformatBlock(html, latex) =
  -  let block =
  -    { new MarkdownEmbedParagraphs with
  -        member x.Render() =
  -          if currentOutputKind = OutputKind.Html then [ InlineBlock html ] else [ InlineBlock latex ] }
  -  EmbedParagraphs(block, None)
  +    let block =
  +        { new MarkdownEmbedParagraphs with
  +            member x.Render() =
  +                if currentOutputKind = OutputKind.Html then
  +                    [ InlineBlock html ]
  +                else
  +                    [ InlineBlock latex ] }
  +    EmbedParagraphs(block, None)
   
   let MathDisplay(latex) = Span([ LatexDisplayMath latex ], None)
   
  
positive.code: 
  /// Checks if the given directory exists. If not then this functions creates the directory.
  let ensureDirectory dir =
    let di = new DirectoryInfo(dir)
    if not di.Exists then di.Create()
  
  /// Combine two paths
  let (@@) a b = Path.Combine(a, b)
  
negative.code:         [ InlineMultiformatBlock(("<div class=\"deedleseries\">", None), ("\\vspace{1em}", None))
            TableBlock(Some ((td "Keys")::heads), AlignDefault::aligns, [ (td "Values")::row ], None) 
            InlineMultiformatBlock(("</div>", None), ("\\vspace{1em}", None))] |> Some
      | :? IFrame as f ->
          // Pretty print frame!
          { new IFrameOperation<_> with
              member x.Invoke(f) = 
                  let heads  = f.ColumnKeys |> mapSteps fcols id (function Some k -> td (k.ToString()) | _ -> td " ... ")
                  let aligns = f.ColumnKeys |> mapSteps fcols id (fun _ -> AlignDefault)
                  let rows = 
                    f.Rows |> Series.observationsAll |> mapSteps frows id (fun item ->
                      let def, k, data = 
                        match item with 
                        | Some(k, Some d) -> "N/A", k.ToString(), Series.observationsAll d |> Seq.map snd 
                        | Some(k, _) -> "N/A", k.ToString(), f.ColumnKeys |> Seq.map (fun _ -> None)
                        | None -> " ... ", " ... ", f.ColumnKeys |> Seq.map (fun _ -> None)
                      let row = data |> mapSteps fcols id (function Some v -> formatValue floatFormat def v | _ -> td " ... ")
                      (td k)::row )
                  [ 
                    InlineMultiformatBlock(("<div class=\"deedleframe\">", None),("\\vspace{1em}", None))
                    TableBlock(Some ([]::heads), AlignDefault::aligns, rows, None) 
                    InlineMultiformatBlock(("</div>", None), ("\\vspace{1em}", None))
                  ] |> Some }
          |> f.Apply
      | _ ->
          None 
      
    // Create FSI evaluator, register transformations & return
    let fsiEvaluator = FsiEvaluator() 
  