Vocabulary
pdf.layout

Inputs
nan object


Outputs
stran object


Definition


: pdf-pages ( n -- str )
[
"<<" , "/Type /Pages" , "/MediaBox [ 0 0 612 792 ]" ,
[ "/Count %d" sprintf , ] [
16 swap 2 range boa [ "%d 0 R " sprintf ] map
concat "/Kids [ " "]" surround ,
] bi ">>" ,
] { } make "\n" join ;