Prettify: Implement 'compact :: Doc -> String'