#!/usr/bin/perl -l
print$_=shift;while($_>9){s/.(?=(.))/($&+$1)%10+($&+$1>9)/ge;chop;print}