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