(* Simple typesetter *)
type box =
  Text of string
| Glue of float
| Newline
| Font of string
| BoldOn
| BoldOff
| ItalicOn
| ItalicOff

type t = box list

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