#!perl -lp
$_=pack A25,"digital_root($_)=".($_%9||9)