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