let teste al i= function  (a,b,c) ->  ((if i=al then a+1 else a), al+b, c+1)