(port-map(^n(print"digital_root("n")="(+(mod(- n 1)9)1)))read)