sub palindrate
{
   my $number = shift . '';
   my $front = substr($number, 0, (length($number)+1)/2);
   my $back = reverse($front);
   chop($front) if not (length($front) % 2);
   return $front . $back;
}