(while(print(apply +(map digit->integer(string->list #`",(expt 4(read))")))))