#!/usr/bin/perl
{$x=!print$_=$x||pop,$/;1while s/(.)(.)/$x.=($1+$2)*1.1%10;$2/e;$x&&redo}