(while:prn:sum[- int._ 48](+""(expt 4(read))))