let plusetfois a b = (a+b, a*b);;

assert (plusetfois 5 6 == (11, 30));;