let rec d a n=function 0->a|i->d(if n mod i=0 then i+a else a)n(i-1)and l()=let n=read_int()in Printf.printf"%d: %d\n"n(d 0 n n);l();;l()