anchor.diff:          | Entity(entity, _, _) ->
               match entity with
               | FSharpModule -> writeModule true ctx entity
  -            | AbbreviatedType abbreviatedType -> writeTypeAbbrev ctx entity abbreviatedType
  -            | FSharpException -> writeFSharpExceptionType ctx entity
  -            | Delegate when entity.IsFSharp -> writeDelegateType ctx entity
  -            | _ -> writeType ctx entity
  +            | AbbreviatedType abbreviatedType -> writeTypeAbbrev false ctx entity abbreviatedType
  +            | FSharpException -> writeFSharpExceptionType false ctx entity
  +            | Delegate when entity.IsFSharp -> writeDelegateType false ctx entity
  +            | _ -> writeType false ctx entity
               |> Some
           | MemberFunctionOrValue mem ->
               writeSymbol mem.LogicalEnclosingEntity
  
positive.code:     for entity in modul.NestedEntities do
          match entity with
          | FSharpModule -> writeModule false ctx entity
          | AbbreviatedType abbreviatedType -> writeTypeAbbrev ctx entity abbreviatedType
          | FSharpException -> writeFSharpExceptionType ctx entity
          | Delegate when entity.IsFSharp -> writeDelegateType ctx entity
          | _ -> writeType ctx entity
  
          ctx.Writer.WriteLine("")
      if not isTopLevel then
          ctx.Writer.Unindent ctx.Indentation
  
  and internal writeType ctx (typ: FSharpEntity) =
      Debug.Assert(not typ.IsFSharpModule, "The entity should be a type.")
      match typ.Namespace with
      | Some ns -> ctx.Writer.WriteLine("namespace {0}", ns)
      | None -> ctx.Writer.WriteLine("module {0}", typ.AccessPath)
      ctx.Writer.WriteLine("")
  
      writeDocs ctx typ.XmlDoc
      writeAttributes ctx (Some typ) typ.Attributes
  
negative.code:     else
          ctx.Writer.WriteLine("exception {0}", QuoteIdentifierIfNeeded exn.LogicalName)
  
  and internal writeDelegateType isNestedEntity ctx (del: FSharpEntity) =
      if not isNestedEntity then
          match del.Namespace with
          | Some ns -> ctx.Writer.WriteLine("namespace {0}", ns)
          | None -> ctx.Writer.WriteLine("module {0}", del.AccessPath)
          ctx.Writer.WriteLine("")
      writeDocs ctx del.XmlDoc
  
      let argsPart =
  