#!perl -nl
print"digital_root($_)=",$_%9||9