#!/usr/bin/perl
print$_=pop()."\n";$_>9&&do{for$i(2..y/0-9//){pos=$-[2];/\G(.)(.)/;$o.=($a=$1+$2)>9?$a-9:$a}exec$^X,$0,$o}