val optimize : Ast.character -> Ast.character

val opti_duration : float ref