# let rec sum = function
[] -> 0
| i :: l -> i + sum l;;