sig val bp : float -> Mlpost.Num.scale val pt : float -> Mlpost.Num.scale val cm : float -> Mlpost.Num.scale val mm : float -> Mlpost.Num.scale val inch : float -> Mlpost.Num.scale end