let rec fold_int f v n =  if n > 9 then fold_int f (f (n mod 10) v) (n/10)   else (f n v)