#!/usr/bin/perl

while($x = <STDIN>)
{
   chomp $x;
   $x .= '`_';
   $expr = join '+', (unpack 'C*', $x);
   $sum = eval $expr;
   print "$x = $expr = $sum, ($sum % 247) + 3 = ", ($sum % 247) + 3, "\n";
}