type word = {text : string;width : float;
}type params = {measure : float;space : float;stretch : float;shrink : float;
}type line = {first : int;last : int;ratio : float;demerits : float;
}val total : line list -> floatval badness : line -> float