#!/usr/bin/perl
$_=pop;print"$_\n";while(/../){s/(\d)(?=(\d))/chr($1+$2).$2/eg;y/\0-\xff/0-91-9/d;print"$_\n"}