#!/usr/bin/perl
$_=shift;while(/.+/){$;='';print$_,$/;($==($1+$2))>9?$==$=%10+1:1,$;.=$=while+s/^(.)(.)/$2/;$_=$;}