sub Prefix {
  my ($m,$n) = (sort @_)[0,-1];
  my $dif = $m ^ $n;
  my $len= length( ( $dif =~ /^(\0*)/ )[0] );
  substr( $m, 0,$len );
}