dumpTo(out, indent, blk)
		}

	case *Heading:
		fmt.Fprintf(out, "Heading")
		dumpTo(out, indent+1, x.Text)

	case *List:
		fmt.Fprintf(out, "List ForceBlankBefore=%v ForceBlankBetween=%v", x.ForceBlankBefore, x.ForceBlankBetween)
		dumpTo(out, indent+1, x.Items)

	case []*ListItem:
		for _, item := range x {
			dumpNL(out, indent)
			dumpTo(out, indent, item)
		}

	case *ListItem:

		{"LinkDef", Type, 19},
		{"LinkDef.Text", Field, 19},
		{"LinkDef.URL", Field, 19},
		{"LinkDef.Used", Field, 19},
		{"List", Type, 19},
		{"List.ForceBlankBefore", Field, 19},
		{"List.ForceBlankBetween", Field, 19},
		{"List.Items", Field, 19},
		{"ListItem", Type, 19},
		{"ListItem.Content", Field, 19},
		{"ListItem.Number", Field, 19},
		{"Paragraph", Type, 19},
		{"Paragraph.Text", Field, 19},