anchor.diff:                                      prs
                                       |> this.``chomp lines`` ps2 
                                       |> this.``join lines``
  +#if DEBUG
                                   logger (sprintf "c-l+literal value: %s" s) ps2
  +#endif
                                   (s, ps2 |> ParseState.Advance)
                                   )
  +                            |> FallibleOption.bind mapScalar 
                       )
                   )
               )
           )
  +        |> this.PostProcessAndValidateNode
           |> ParseState.TrackParseLocation ps
           |> this.LogReturn "c-l+literal" ps
   
  
positive.code:                         Value aut
                      |   _  -> ErrorResult [MessageAtLine.CreateContinue (prs2.Location) ErrTooLessIndentedLiteral "Could not detect indentation of literal block scalar after '>'"]
                  |> FallibleOption.bind(fun m ->
                      (``folded-content`` (prs2 |> ParseState.SetIndent (prs2.n+m) |> ParseState.SetSubIndent 0))
                      |> FallibleOption.map(fun (ms, ps2) -> 
                          let s = 
  
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
  