( dup length 5 swap 2 range boa zip)'
( [ pdf-page , pdf-text , ] assoc-each)'
( ] { } make)'
-( dup length [1,b] zip [ first2 pdf-object ] map ;)'
+( dup length [1..b] zip [ first2 pdf-object ] map ;)'
( )'
(: objects>pdf \( objects -- str \))'
( [ "\\n" join "\\n" append "%PDF-1.4\\n" ])'