#!/usr/bin/perl
do{print(chr($c+=$1>=1000&&1000-$1||$1*1))while/\G(\d{4})/g}for<DATA>;
__DATA__
010600111002000110840065
001300010005101210030013
108200801011001310061076
007210070002000810060013
110200000000000000001002