anchor.diff:   *)
   
   
  -// Hacky merge between two VSep sequences 
  -let vmerge a b = 
  +// Hacky merge between two VSep sequences
  +let vmerge a b =
     let rec interleave = function //same as: let rec interleave (xs, ys) = match xs, ys with
       |([], ys) -> ys
       |(xs, []) -> xs
       |(x::xs, y::ys) -> x :: y :: interleave (xs,ys)
   
  -  match a, b with 
  -    | (VSep (xs, i), VSep (ys, j))  -> 
  -           let xy = interleave (List.ofSeq xs, List.ofSeq ys) in 
  +  match a, b with
  +    | (VSep (xs, i), VSep (ys, j))  ->
  +           let xy = interleave (List.ofSeq xs, List.ofSeq ys) in
              VSep (Seq.ofList xy, Nop)
       | _ -> Nop
   
  
positive.code: let syntaxIdent d = Styled([Cyan], d)
  let syntaxView d = Styled([Yellow], d)
  
  /// <summary>
  ///     Styles a string with ANSI escape sequences.
  /// </summary>
  /// <param name="s">
  ///     The list of styles to turn into ANSI codes and apply to the result.
  /// </param>
  /// <param name="d">
  ///     The string to stylise.
  /// </param>
  /// <returns>
  ///     The stylised (ANSI-escaped) string.
  /// </param>
  let stylise s d =
      let colCode =
          function
          | Black -> 0
  
negative.code: /// <summary>
  ///     Prints a <see cref="Doc"/> with full styling.
  /// </summary>
  let printStyled = printState { Level = 0; CurrentStyle = None; UseStyles = true }
  
  /// <summary>
  ///     Prints a <see cref="Doc"/> with no styling.
  /// </summary>
  let printUnstyled = printState { Level = 0; CurrentStyle = None; UseStyles = false }
  
  
  /// <summary>
  