fn archive(document: &Document, name: &Name) -> Result<Vec<u8>>
document as a packed container: one seeded rev creating all of it, and its projection beside it.
document