type text = int list

type glue =
  {glen : float;
   stretch : float}

type code =
  Text of text
| HGlue of glue
| VGlue of glue
| NewLine
| NewPage
| Font of Pdftext.font

type t = code list

val typeset : Pdfpaper.t -> t -> Pdfpage.t list