anchor.diff:          let ``literal or folded`` (psp:ParseState) =
               let psp1 = psp.SetIndent (psp.n + 1)
               psp1 |> ParseState.``Match and Advance`` (this.``s-separate`` psp1) (fun prs ->
  -                let mapScalar (s, prs) = 
  -                    Value(CreateScalarNode (NonSpecific.NonSpecificTagQT) (getParseInfo ps prs) (s), prs)
  -                    |> this.PostProcessAndValidateNode
                   (prs |> ParseState.SetIndent (prs.n-1) |> ParseState.OneOf)
                       {
  -                        either   (this.``c-l+literal`` >> FallibleOption.bind mapScalar)
  -                        either   (this.``c-l+folded``  >> FallibleOption.bind mapScalar)
  +                        either   (this.``c-l+literal``)
  +                        either   (this.``c-l+folded``)
                           ifneither NoResult
                       }
                       |> ParseState.PreserveErrors psp
               )
           psp1 |> ParseState.``Match and Advance`` (this.``s-separate`` psp1) (fun prs ->
  -            let mapScalar (s, prs) = 
  -                CreateScalarNode (NonSpecific.NonSpecificTagQT) (getParseInfo ps prs) (s) 
  -                |> this.ResolveTag prs NonSpecificQT (prs.Location)
  -                |> this.PostProcessAndValidateNode
               (prs |> ParseState.SetIndent (prs.n-1) |> ParseState.OneOf)
                   {
                       either(this.``content with properties`` ``literal or folded``)
  -                    either   (this.``c-l+literal`` >> FallibleOption.bind mapScalar)
  -                    either   (this.``c-l+folded``  >> FallibleOption.bind mapScalar)
  +                    either   (this.``c-l+literal``)
  +                    either   (this.``c-l+folded``)
                       ifneither NoResult
                   }
                   |> ParseState.PreserveErrors ps
  
positive.code:                             |   _ ->        ErrorResult [MessageAtLine.CreateContinue (ps2.Location) ErrBadFormatLiteral "The literal has bad syntax."]
                          else
                              let split = ms |> this.``split by linefeed`` 
                              split 
                              |> trimIndent ps2
                              |> FallibleOption.map(fun prs -> 
  
negative.code:                                     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
  
  