anchor.diff:              writer.WriteLine x.description
           )
   
  -    let processParameters (writer:TextWriter) headline (items:CRefDescription list) =
  -        headline "Parameters"
  -        items |> renderCRefDescriptions writer
  -
  -    let processReturns (writer:TextWriter) headline (items:Inline list) =
  -        headline "Return value"
  -        items |> processInlines writer 
  -
  -    let processExceptions (writer:TextWriter) headline (items:CRefDescription list) =
  -        headline "Exceptions"
  -        items |> renderCRefDescriptions writer
  -
  -    let processRemarks (writer:TextWriter) headline (items:Inline list) =
  -        headline "Remarks"
  -        items |> processInlines writer 
  -
  -    let processExample (writer:TextWriter) headline (items:Inline list) =
  -        headline "Example"
  -        items |> processInlines writer 
  -
  -    let processPermissions (writer:TextWriter) headline (items:CRefDescription list) =
  -        headline "Permissions"
  -        items |> renderCRefDescriptions writer
  -
  -    let processSeeAlso (writer:TextWriter) headline (doc:ApiDoc) =
  +    let renderSeeAlso (writer:TextWriter) headline (doc:ApiDoc) =
           let seeAlso = [ doc.Summary
                           doc.Remarks
                           doc.Returns
  
positive.code: 
          writer.WriteLine ( marker + " " + headline)
  
      let renderCRefDescriptions (writer:TextWriter) items =
          items 
          |> Seq.iter( fun x -> 
  
negative.code: 
      let (>>=) m f = ifNotEmpty(m,f)
  
      let renderInline inl =
          let renderText txt =
              // TODO: insert NewLine after e.g. 100 characters
              normalizeSpace txt         
  
          match inl with
          | Text x -> renderText x
          | C x -> sprintf "`%s`" (x.Trim())  
          | Code x -> sprintf "%s```%s%s%s```%s" nl nl (x.Trim()) nl nl  
          | Para x -> sprintf "%s%s%s" nl (renderText x) nl  
          | ParamRef x -> let (CRef cref) = x  
                          sprintf "*%s*" cref
          | TypeParamRef x -> let (CRef cref) = x  
                              sprintf "_%s_" cref
          | See x -> let (CRef cref) = x  
                     sprintf "*See:* %s" (cref.Trim())
          | SeeAlso x -> String.Empty // ignore here - will be rendered later
  
      let renderHeadline (writer:TextWriter) level headline =
          writer.WriteLine ()
  
  