use List::Util 'reduce';
print reduce{$a+$b-2*$a%$b}map{10**(19&654115/ord)%1645}<>=~/./g