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