let carre_signe = function (x:float) ->
 x *. ( abs_float x )