let deforme = fun (exposant:int) (x:float) ->
 match x with
 | pos when pos > 0. -> Etat.int_pow exposant ( abs_float x )
 | neg when neg < 0. -> ~-. ( Etat.int_pow exposant ( abs_float x ) )
 | _ -> 0.