(while(print(apply +(map digit->integer(string->list(x->string(ash 1(*(read)2))))))))