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