type complex = { r : float; i : float };;