let antigain_lent_reel = function (x:float) ->
 antigain_lent ( int_of_float x )