sub format_add{
  my ($x, $y) = @_;
  my $ret = $x + $y;
  my $digs = length $x;
  sprintf("%0${digs}d", $ret );
}