(while([prn"digital_root("_")="(+(mod --._ 9)1)](read)))