anchor.diff:      | Separator ->
           "----"
       | Styled (s, d) when state.UseStyles ->
  -        stylise s <| printState state d
  +        stylise s state.CurrentStyle <| printState { state with CurrentStyle = Some s } d
       | Styled (s, d) ->
           printState state d
       | VSkip ->
  
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:       ///     The current indent level of the printer.
        /// </summary>
        Level : int
  
        /// <summary>
        ///     The current style in use.
        /// </summary>
        CurrentStyle : (FontColor list) option
  
        /// <summary>
        ///     Whether or not styling is to be used.
  