(while(print(ucs->char((^'\(div(apply +\)'\))length(map char->ucs(string->list(read-line)))))))