type t = | PdfPoint| Inch| Centimetre| Millimetre| Pixel
val conversions : float -> (t * (t * float) list) listval index : ('a * 'b) list -> ('a * int) listval conv_array :
('a * 'b) list ->
('a * ('a * 'c) list) list ->
('b * 'c) list arraytype colour = | White| Grey| Black
val breadth_first : ('a * int) list -> (int * 'b) list array -> 'a -> int arrayval convert : float -> t -> t -> float -> float