(let('car,cdr)(do((l(string->list(read-line)),l))(#f)(if(memq'l,l)(print'l": "((rec,@r(if(eq?'l'r)1(+,@,r 1))),l)))))