#!/usr/bin/perl
sub _{print@_,$/;$#_&&_(map{($;=$_[$_]+$_[$_+1])-($;>9)*9}0..@_-2)}_ pop=~/./g