anchor.diff:                          Value aut
                       |   _  -> ErrorResult [MessageAtLine.CreateContinue (prs2.Location) ErrTooLessIndentedLiteral "Could not detect indentation of literal block scalar after '>'"]
                   |> FallibleOption.bind(fun m ->
  +                    let mapScalar (s, prs) =  
  +                        CreateScalarNode (NonSpecific.NonSpecificTagQT) (getParseInfo ps prs) (s)
  +                        |> this.ResolveTag prs NonSpecificQT (prs.Location)
                       (``folded-content`` (prs2 |> ParseState.SetIndent (prs2.n+m) |> ParseState.SetSubIndent 0))
                       |> FallibleOption.map(fun (ms, ps2) -> 
                           let s = 
  
positive.code:                             |> this.``join lines``
                          (s, ps2 |> ParseState.Advance)
                      )
                  )
              )
           )
          |> ParseState.ResetEnv ps
          |> ParseState.TrackParseLocation ps
          |> this.LogReturn "c-l+folded" ps 
  
negative.code:                         |   _ -> trimMain sin sout
              trimHead slist []
  
  
          ps |> ParseState.``Match and Advance`` (RGP ("\\|", [Token.``t-pipe``])) (fun prs ->
              let ``literal-content`` (ps:ParseState) =
                  let ps = if ps.n < 1 then (ps.SetIndent 1) else ps
  