gcc/libgcc/config/libbid/bid128.c

/* Copyright (C) 2007, 2009  Free Software Foundation, Inc.

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.

GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.

You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
<http://www.gnu.org/licenses/>.  */

#include "bid_internal.h"

// the first entry of nr_digits[i - 1] (where 1 <= i <= 113), indicates 
// the number of decimal digits needed to represent a binary number with i bits;
// however, if a binary number of i bits may require either k or k + 1 decimal
// digits, then the first entry of nr_digits[i - 1] is 0; in this case if the
// number is less than the value represented by the second and third entries
// concatenated, then the number of decimal digits k is the fourth entry, else
// the number of decimal digits is the fourth entry plus 1
DEC_DIGITS nr_digits[] = {	// only the first entry is used if it is not 0
  {1, 0x0000000000000000ULL, 0x000000000000000aULL, 1}
  ,	//   1-bit n < 10^1
  {1, 0x0000000000000000ULL, 0x000000000000000aULL, 1}
  ,	//   2-bit n < 10^1
  {1, 0x0000000000000000ULL, 0x000000000000000aULL, 1}
  ,	//   3-bit n < 10^1
  {0, 0x0000000000000000ULL, 0x000000000000000aULL, 1}
  ,	//   4-bit n ? 10^1
  {2, 0x0000000000000000ULL, 0x0000000000000064ULL, 2}
  ,	//   5-bit n < 10^2
  {2, 0x0000000000000000ULL, 0x0000000000000064ULL, 2}
  ,	//   6-bit n < 10^2
  {0, 0x0000000000000000ULL, 0x0000000000000064ULL, 2}
  ,	//   7-bit n ? 10^2
  {3, 0x0000000000000000ULL, 0x00000000000003e8ULL, 3}
  ,	//   8-bit n < 10^3
  {3, 0x0000000000000000ULL, 0x00000000000003e8ULL, 3}
  ,	//   9-bit n < 10^3
  {0, 0x0000000000000000ULL, 0x00000000000003e8ULL, 3}
  ,	//  10-bit n ? 10^3
  {4, 0x0000000000000000ULL, 0x0000000000002710ULL, 4}
  ,	//  11-bit n < 10^4
  {4, 0x0000000000000000ULL, 0x0000000000002710ULL, 4}
  ,	//  12-bit n < 10^4
  {4, 0x0000000000000000ULL, 0x0000000000002710ULL, 4}
  ,	//  13-bit n < 10^4
  {0, 0x0000000000000000ULL, 0x0000000000002710ULL, 4}
  ,	//  14-bit n ? 10^4
  {5, 0x0000000000000000ULL, 0x00000000000186a0ULL, 5}
  ,	//  15-bit n < 10^5
  {5, 0x0000000000000000ULL, 0x00000000000186a0ULL, 5}
  ,	//  16-bit n < 10^5
  {0, 0x0000000000000000ULL, 0x00000000000186a0ULL, 5}
  ,	//  17-bit n ? 10^5
  {6, 0x0000000000000000ULL, 0x00000000000f4240ULL, 6}
  ,	//  18-bit n < 10^6
  {6, 0x0000000000000000ULL, 0x00000000000f4240ULL, 6}
  ,	//  19-bit n < 10^6
  {0, 0x0000000000000000ULL, 0x00000000000f4240ULL, 6}
  ,	//  20-bit n ? 10^6
  {7, 0x0000000000000000ULL, 0x0000000000989680ULL, 7}
  ,	//  21-bit n < 10^7
  {7, 0x0000000000000000ULL, 0x0000000000989680ULL, 7}
  ,	//  22-bit n < 10^7
  {7, 0x0000000000000000ULL, 0x0000000000989680ULL, 7}
  ,	//  23-bit n < 10^7
  {0, 0x0000000000000000ULL, 0x0000000000989680ULL, 7}
  ,	//  24-bit n ? 10^7
  {8, 0x0000000000000000ULL, 0x0000000005f5e100ULL, 8}
  ,	//  25-bit n < 10^8
  {8, 0x0000000000000000ULL, 0x0000000005f5e100ULL, 8}
  ,	//  26-bit n < 10^8
  {0, 0x0000000000000000ULL, 0x0000000005f5e100ULL, 8}
  ,	//  27-bit n ? 10^8
  {9, 0x0000000000000000ULL, 0x000000003b9aca00ULL, 9}
  ,	//  28-bit n < 10^9
  {9, 0x0000000000000000ULL, 0x000000003b9aca00ULL, 9}
  ,	//  29-bit n < 10^9
  {0, 0x0000000000000000ULL, 0x000000003b9aca00ULL, 9}
  ,	//  30-bit n ? 10^9
  {10, 0x0000000000000000ULL, 0x00000002540be400ULL, 10}
  ,	//  31-bit n < 10^10
  {10, 0x0000000000000000ULL, 0x00000002540be400ULL, 10}
  ,	//  32-bit n < 10^10
  {10, 0x0000000000000000ULL, 0x00000002540be400ULL, 10}
  ,	//  33-bit n < 10^10
  {0, 0x0000000000000000ULL, 0x00000002540be400ULL, 10}
  ,	//  34-bit n ? 10^10
  {11, 0x0000000000000000ULL, 0x000000174876e800ULL, 11}
  ,	//  35-bit n < 10^11
  {11, 0x0000000000000000ULL, 0x000000174876e800ULL, 11}
  ,	//  36-bit n < 10^11
  {0, 0x0000000000000000ULL, 0x000000174876e800ULL, 11}
  ,	//  37-bit n ? 10^11
  {12, 0x0000000000000000ULL, 0x000000e8d4a51000ULL, 12}
  ,	//  38-bit n < 10^12
  {12, 0x0000000000000000ULL, 0x000000e8d4a51000ULL, 12}
  ,	//  39-bit n < 10^12
  {0, 0x0000000000000000ULL, 0x000000e8d4a51000ULL, 12}
  ,	//  40-bit n ? 10^12
  {13, 0x0000000000000000ULL, 0x000009184e72a000ULL, 13}
  ,	//  41-bit n < 10^13
  {13, 0x0000000000000000ULL, 0x000009184e72a000ULL, 13}
  ,	//  42-bit n < 10^13
  {13, 0x0000000000000000ULL, 0x000009184e72a000ULL, 13}
  ,	//  43-bit n < 10^13
  {0, 0x0000000000000000ULL, 0x000009184e72a000ULL, 13}
  ,	//  44-bit n ? 10^13
  {14, 0x0000000000000000ULL, 0x00005af3107a4000ULL, 14}
  ,	//  45-bit n < 10^14
  {14, 0x0000000000000000ULL, 0x00005af3107a4000ULL, 14}
  ,	//  46-bit n < 10^14
  {0, 0x0000000000000000ULL, 0x00005af3107a4000ULL, 14}
  ,	//  47-bit n ? 10^14
  {15, 0x0000000000000000ULL, 0x00038d7ea4c68000ULL, 15}
  ,	//  48-bit n < 10^15
  {15, 0x0000000000000000ULL, 0x00038d7ea4c68000ULL, 15}
  ,	//  49-bit n < 10^15
  {0, 0x0000000000000000ULL, 0x00038d7ea4c68000ULL, 15}
  ,	//  50-bit n ? 10^15
  {16, 0x0000000000000000ULL, 0x002386f26fc10000ULL, 16}
  ,	//  51-bit n < 10^16
  {16, 0x0000000000000000ULL, 0x002386f26fc10000ULL, 16}
  ,	//  52-bit n < 10^16
  {16, 0x0000000000000000ULL, 0x002386f26fc10000ULL, 16}
  ,	//  53-bit n < 10^16
  {0, 0x0000000000000000ULL, 0x002386f26fc10000ULL, 16}
  ,	//  54-bit n ? 10^16
  {17, 0x0000000000000000ULL, 0x016345785d8a0000ULL, 17}
  ,	//  55-bit n < 10^17
  {17, 0x0000000000000000ULL, 0x016345785d8a0000ULL, 17}
  ,	//  56-bit n < 10^17
  {0, 0x0000000000000000ULL, 0x016345785d8a0000ULL, 17}
  ,	//  57-bit n ? 10^17
  {18, 0x0000000000000000ULL, 0x0de0b6b3a7640000ULL, 18}
  ,	//  58-bit n < 10^18
  {18, 0x0000000000000000ULL, 0x0de0b6b3a7640000ULL, 18}
  ,	//  59-bit n < 10^18
  {0, 0x0000000000000000ULL, 0x0de0b6b3a7640000ULL, 18}
  ,	//  60-bit n ? 10^18
  {19, 0x0000000000000000ULL, 0x8ac7230489e80000ULL, 19}
  ,	//  61-bit n < 10^19
  {19, 0x0000000000000000ULL, 0x8ac7230489e80000ULL, 19}
  ,	//  62-bit n < 10^19
  {19, 0x0000000000000000ULL, 0x8ac7230489e80000ULL, 19}
  ,	//  63-bit n < 10^19
  {0, 0x0000000000000000ULL, 0x8ac7230489e80000ULL, 19}
  ,	//  64-bit n ? 10^19
  {20, 0x0000000000000005ULL, 0x6bc75e2d63100000ULL, 20}
  ,	//  65-bit n < 10^20
  {20, 0x0000000000000005ULL, 0x6bc75e2d63100000ULL, 20}
  ,	//  66-bit n < 10^20
  {0, 0x0000000000000005ULL, 0x6bc75e2d63100000ULL, 20}
  ,	//  67-bit n ? 10^20
  {21, 0x0000000000000036ULL, 0x35c9adc5dea00000ULL, 21}
  ,	//  68-bit n < 10^21
  {21, 0x0000000000000036ULL, 0x35c9adc5dea00000ULL, 21}
  ,	//  69-bit n < 10^21
  {0, 0x0000000000000036ULL, 0x35c9adc5dea00000ULL, 21}
  ,	//  70-bit n ? 10^21
  {22, 0x000000000000021eULL, 0x19e0c9bab2400000ULL, 22}
  ,	//  71-bit n < 10^22
  {22, 0x000000000000021eULL, 0x19e0c9bab2400000ULL, 22}
  ,	//  72-bit n < 10^22
  {22, 0x000000000000021eULL, 0x19e0c9bab2400000ULL, 22}
  ,	//  73-bit n < 10^22
  {0, 0x000000000000021eULL, 0x19e0c9bab2400000ULL, 22}
  ,	//  74-bit n ? 10^22
  {23, 0x000000000000152dULL, 0x02c7e14af6800000ULL, 23}
  ,	//  75-bit n < 10^23
  {23, 0x000000000000152dULL, 0x02c7e14af6800000ULL, 23}
  ,	//  76-bit n < 10^23
  {0, 0x000000000000152dULL, 0x02c7e14af6800000ULL, 23}
  ,	//  77-bit n ? 10^23
  {24, 0x000000000000d3c2ULL, 0x1bcecceda1000000ULL, 24}
  ,	//  78-bit n < 10^24
  {24, 0x000000000000d3c2ULL, 0x1bcecceda1000000ULL, 24}
  ,	//  79-bit n < 10^24
  {0, 0x000000000000d3c2ULL, 0x1bcecceda1000000ULL, 24}
  ,	//  80-bit n ? 10^24
  {25, 0x0000000000084595ULL, 0x161401484a000000ULL, 25}
  ,	//  81-bit n < 10^25
  {25, 0x0000000000084595ULL, 0x161401484a000000ULL, 25}
  ,	//  82-bit n < 10^25
  {25, 0x0000000000084595ULL, 0x161401484a000000ULL, 25}
  ,	//  83-bit n < 10^25
  {0, 0x0000000000084595ULL, 0x161401484a000000ULL, 25}
  ,	//  84-bit n ? 10^25
  {26, 0x000000000052b7d2ULL, 0xdcc80cd2e4000000ULL, 26}
  ,	//  85-bit n < 10^26
  {26, 0x000000000052b7d2ULL, 0xdcc80cd2e4000000ULL, 26}
  ,	//  86-bit n < 10^26
  {0, 0x000000000052b7d2ULL, 0xdcc80cd2e4000000ULL, 26}
  ,	//  87-bit n ? 10^26
  {27, 0x00000000033b2e3cULL, 0x9fd0803ce8000000ULL, 27}
  ,	//  88-bit n < 10^27
  {27, 0x00000000033b2e3cULL, 0x9fd0803ce8000000ULL, 27}
  ,	//  89-bit n < 10^27
  {0, 0x00000000033b2e3cULL, 0x9fd0803ce8000000ULL, 27}
  ,	//  90-bit n ? 10^27
  {28, 0x00000000204fce5eULL, 0x3e25026110000000ULL, 28}
  ,	//  91-bit n < 10^28
  {28, 0x00000000204fce5eULL, 0x3e25026110000000ULL, 28}
  ,	//  92-bit n < 10^28
  {28, 0x00000000204fce5eULL, 0x3e25026110000000ULL, 28}
  ,	//  93-bit n < 10^28
  {0, 0x00000000204fce5eULL, 0x3e25026110000000ULL, 28}
  ,	//  94-bit n ? 10^28
  {29, 0x00000001431e0faeULL, 0x6d7217caa0000000ULL, 29}
  ,	//  95-bit n < 10^29
  {29, 0x00000001431e0faeULL, 0x6d7217caa0000000ULL, 29}
  ,	//  96-bit n < 10^29
  {0, 0x00000001431e0faeULL, 0x6d7217caa0000000ULL, 29}
  ,	//  97-bit n ? 10^29
  {30, 0x0000000c9f2c9cd0ULL, 0x4674edea40000000ULL, 30}
  ,	//  98-bit n < 10^30
  {30, 0x0000000c9f2c9cd0ULL, 0x4674edea40000000ULL, 30}
  ,	//  99-bit n < 10^30
  {0, 0x0000000c9f2c9cd0ULL, 0x4674edea40000000ULL, 30}
  ,	// 100-bit n ? 10^30
  {31, 0x0000007e37be2022ULL, 0xc0914b2680000000ULL, 31}
  ,	// 101-bit n < 10^31
  {31, 0x0000007e37be2022ULL, 0xc0914b2680000000ULL, 31}
  ,	// 102-bit n < 10^31
  {0, 0x0000007e37be2022ULL, 0xc0914b2680000000ULL, 31}
  ,	// 103-bit n ? 10^31
  {32, 0x000004ee2d6d415bULL, 0x85acef8100000000ULL, 32}
  ,	// 104-bit n < 10^32
  {32, 0x000004ee2d6d415bULL, 0x85acef8100000000ULL, 32}
  ,	// 105-bit n < 10^32
  {32, 0x000004ee2d6d415bULL, 0x85acef8100000000ULL, 32}
  ,	// 106-bit n < 10^32
  {0, 0x000004ee2d6d415bULL, 0x85acef8100000000ULL, 32}
  ,	// 107-bit n ? 10^32
  {33, 0x0000314dc6448d93ULL, 0x38c15b0a00000000ULL, 33}
  ,	// 108-bit n < 10^33
  {33, 0x0000314dc6448d93ULL, 0x38c15b0a00000000ULL, 33}
  ,	// 109-bit n < 10^33
  {0, 0x0000314dc6448d93ULL, 0x38c15b0a00000000ULL, 33}
  ,	// 100-bit n ? 10^33
  {34, 0x0001ed09bead87c0ULL, 0x378d8e6400000000ULL, 34}
  ,	// 111-bit n < 10^34
  {34, 0x0001ed09bead87c0ULL, 0x378d8e6400000000ULL, 34}
  ,	// 112-bit n < 10^34
  {0, 0x0001ed09bead87c0ULL, 0x378d8e6400000000ULL, 34}	// 113-bit n ? 10^34
//{ 35, 0x0013426172c74d82ULL, 0x2b878fe800000000ULL, 35 }  // 114-bit n < 10^35
};

// midpoint64[i - 1] = 1/2 * 10^i = 5 * 10^(i-1), 1 <= i <= 19
UINT64 midpoint64[] = {
  0x0000000000000005ULL,	// 1/2 * 10^1 = 5 * 10^0
  0x0000000000000032ULL,	// 1/2 * 10^2 = 5 * 10^1
  0x00000000000001f4ULL,	// 1/2 * 10^3 = 5 * 10^2
  0x0000000000001388ULL,	// 1/2 * 10^4 = 5 * 10^3
  0x000000000000c350ULL,	// 1/2 * 10^5 = 5 * 10^4
  0x000000000007a120ULL,	// 1/2 * 10^6 = 5 * 10^5
  0x00000000004c4b40ULL,	// 1/2 * 10^7 = 5 * 10^6
  0x0000000002faf080ULL,	// 1/2 * 10^8 = 5 * 10^7
  0x000000001dcd6500ULL,	// 1/2 * 10^9 = 5 * 10^8
  0x000000012a05f200ULL,	// 1/2 * 10^10 = 5 * 10^9
  0x0000000ba43b7400ULL,	// 1/2 * 10^11 = 5 * 10^10
  0x000000746a528800ULL,	// 1/2 * 10^12 = 5 * 10^11
  0x0000048c27395000ULL,	// 1/2 * 10^13 = 5 * 10^12
  0x00002d79883d2000ULL,	// 1/2 * 10^14 = 5 * 10^13
  0x0001c6bf52634000ULL,	// 1/2 * 10^15 = 5 * 10^14
  0x0011c37937e08000ULL,	// 1/2 * 10^16 = 5 * 10^15
  0x00b1a2bc2ec50000ULL,	// 1/2 * 10^17 = 5 * 10^16
  0x06f05b59d3b20000ULL,	// 1/2 * 10^18 = 5 * 10^17
  0x4563918244f40000ULL	// 1/2 * 10^19 = 5 * 10^18
};

// midpoint128[i - 20] = 1/2 * 10^i = 5 * 10^(i-1), 20 <= i <= 38
UINT128 midpoint128[] = {	// the 64-bit word order is L, H
  {{0xb5e3af16b1880000ULL, 0x0000000000000002ULL}
   }
  ,	// 1/2 * 10^20 = 5 * 10^19
  {{0x1ae4d6e2ef500000ULL, 0x000000000000001bULL}
   }
  ,	// 1/2 * 10^21 = 5 * 10^20
  {{0x0cf064dd59200000ULL, 0x000000000000010fULL}
   }
  ,	// 1/2 * 10^22 = 5 * 10^21
  {{0x8163f0a57b400000ULL, 0x0000000000000a96ULL}
   }
  ,	// 1/2 * 10^23 = 5 * 10^22
  {{0x0de76676d0800000ULL, 0x00000000000069e1ULL}
   }
  ,	// 1/2 * 10^24 = 5 * 10^23
  {{0x8b0a00a425000000ULL, 0x00000000000422caULL}
   }
  ,	// 1/2 * 10^25 = 5 * 10^24
  {{0x6e64066972000000ULL, 0x0000000000295be9ULL}
   }
  ,	// 1/2 * 10^26 = 5 * 10^25
  {{0x4fe8401e74000000ULL, 0x00000000019d971eULL}
   }
  ,	// 1/2 * 10^27 = 5 * 10^26
  {{0x1f12813088000000ULL, 0x000000001027e72fULL}
   }
  ,	// 1/2 * 10^28 = 5 * 10^27
  {{0x36b90be550000000ULL, 0x00000000a18f07d7ULL}
   }
  ,	// 1/2 * 10^29 = 5 * 10^28
  {{0x233a76f520000000ULL, 0x000000064f964e68ULL}
   }
  ,	// 1/2 * 10^30 = 5 * 10^29
  {{0x6048a59340000000ULL, 0x0000003f1bdf1011ULL}
   }
  ,	// 1/2 * 10^31 = 5 * 10^30
  {{0xc2d677c080000000ULL, 0x0000027716b6a0adULL}
   }
  ,	// 1/2 * 10^32 = 5 * 10^31
  {{0x9c60ad8500000000ULL, 0x000018a6e32246c9ULL}
   }
  ,	// 1/2 * 10^33 = 5 * 10^32
  {{0x1bc6c73200000000ULL, 0x0000f684df56c3e0ULL}
   }
  ,	// 1/2 * 10^34 = 5 * 10^33
  {{0x15c3c7f400000000ULL, 0x0009a130b963a6c1ULL}
   }
  ,	// 1/2 * 10^35 = 5 * 10^34
  {{0xd9a5cf8800000000ULL, 0x00604be73de4838aULL}
   }
  ,	// 1/2 * 10^36 = 5 * 10^35
  {{0x807a1b5000000000ULL, 0x03c2f7086aed236cULL}
   }
  ,	// 1/2 * 10^37 = 5 * 10^36
  {{0x04c5112000000000ULL, 0x259da6542d43623dULL}
   }	// 1/2 * 10^38 = 5 * 10^37
};

// midpoint192[i - 39] = 1/2 * 10^i = 5 * 10^(i-1), 39 <= i <= 58
UINT192 midpoint192[] = {	// the 64-bit word order is L, M, H
  {{0x2fb2ab4000000000ULL, 0x78287f49c4a1d662ULL, 0x0000000000000001ULL}
   }
  ,
  // 1/2 * 10^39 = 5 * 10^38
  {{0xdcfab08000000000ULL, 0xb194f8e1ae525fd5ULL, 0x000000000000000eULL}
   }
  ,
  // 1/2 * 10^40 = 5 * 10^39
  {{0xa1cae50000000000ULL, 0xefd1b8d0cf37be5aULL, 0x0000000000000092ULL}
   }
  ,
  // 1/2 * 10^41 = 5 * 10^40
  {{0x51ecf20000000000ULL, 0x5e313828182d6f8aULL, 0x00000000000005bdULL}
   }
  ,
  // 1/2 * 10^42 = 5 * 10^41
  {{0x3341740000000000ULL, 0xadec3190f1c65b67ULL, 0x0000000000003965ULL}
   }
  ,
  // 1/2 * 10^43 = 5 * 10^42
  {{0x008e880000000000ULL, 0xcb39efa971bf9208ULL, 0x0000000000023df8ULL}
   }
  ,
  // 1/2 * 10^44 = 5 * 10^43
  {{0x0591500000000000ULL, 0xf0435c9e717bb450ULL, 0x0000000000166bb7ULL}
   }
  ,
  // 1/2 * 10^45 = 5 * 10^44
  {{0x37ad200000000000ULL, 0x62a19e306ed50b20ULL, 0x0000000000e0352fULL}
   }
  ,
  // 1/2 * 10^46 = 5 * 10^45
  {{0x2cc3400000000000ULL, 0xda502de454526f42ULL, 0x0000000008c213d9ULL}
   }
  ,
  // 1/2 * 10^47 = 5 * 10^46
  {{0xbfa0800000000000ULL, 0x8721caeb4b385895ULL, 0x000000005794c682ULL}
   }
  ,
  // 1/2 * 10^48 = 5 * 10^47
  {{0x7c45000000000000ULL, 0x4751ed30f03375d9ULL, 0x000000036bcfc119ULL}
   }
  ,
  // 1/2 * 10^49 = 5 * 10^48
  {{0xdab2000000000000ULL, 0xc93343e962029a7eULL, 0x00000022361d8afcULL}
   }
  ,
  // 1/2 * 10^50 = 5 * 10^49
  {{0x8af4000000000000ULL, 0xdc00a71dd41a08f4ULL, 0x000001561d276ddfULL}
   }
  ,
  // 1/2 * 10^51 = 5 * 10^50
  {{0x6d88000000000000ULL, 0x9806872a4904598dULL, 0x00000d5d238a4abeULL}
   }
  ,
  // 1/2 * 10^52 = 5 * 10^51
  {{0x4750000000000000ULL, 0xf04147a6da2b7f86ULL, 0x000085a36366eb71ULL}
   }
  ,
  // 1/2 * 10^53 = 5 * 10^52
  {{0xc920000000000000ULL, 0x628ccc8485b2fb3eULL, 0x00053861e2053273ULL}
   }
  ,
  // 1/2 * 10^54 = 5 * 10^53
  {{0xdb40000000000000ULL, 0xd97ffd2d38fdd073ULL, 0x003433d2d433f881ULL}
   }
  ,
  // 1/2 * 10^55 = 5 * 10^54
  {{0x9080000000000000ULL, 0x7effe3c439ea2486ULL, 0x020a063c4a07b512ULL}
   }
  ,
  // 1/2 * 10^56 = 5 * 10^55
  {{0xa500000000000000ULL, 0xf5fee5aa43256d41ULL, 0x14643e5ae44d12b8ULL}
   }
  ,
  // 1/2 * 10^57 = 5 * 10^56
  {{0x7200000000000000ULL, 0x9bf4f8a69f764490ULL, 0xcbea6f8ceb02bb39ULL}
   }
  // 1/2 * 10^58 = 5 * 10^57
};

// midpoint256[i - 59] = 1/2 * 10^i = 5 * 10^(i-1), 59 <= i <= 68
UINT256 midpoint256[] = {	// the 64-bit word order is LL, LH, HL, HH
  {{0x7400000000000000ULL, 0x1791b6823a9eada4ULL,
    0xf7285b812e1b5040ULL, 0x0000000000000007ULL}
   }
  ,	// 1/2 * 10^59 = 5 * 10^58
  {{0x8800000000000000ULL, 0xebb121164a32c86cULL,
    0xa793930bcd112280ULL, 0x000000000000004fULL}
   }
  ,	// 1/2 * 10^60 = 5 * 10^59
  {{0x5000000000000000ULL, 0x34eb4adee5fbd43dULL,
    0x8bc3be7602ab5909ULL, 0x000000000000031cULL}
   }
  ,	// 1/2 * 10^61 = 5 * 10^60
  {{0x2000000000000000ULL, 0x1130ecb4fbd64a65ULL,
    0x75a5709c1ab17a5cULL, 0x0000000000001f1dULL}
   }
  ,	// 1/2 * 10^62 = 5 * 10^61
  {{0x4000000000000000ULL, 0xabe93f11d65ee7f3ULL,
    0x987666190aeec798ULL, 0x0000000000013726ULL}
   }
  ,	// 1/2 * 10^63 = 5 * 10^62
  {{0x8000000000000000ULL, 0xb71c76b25fb50f80ULL,
    0xf49ffcfa6d53cbf6ULL, 0x00000000000c2781ULL}
   }
  ,	// 1/2 * 10^64 = 5 * 10^63
  {{0x0000000000000000ULL, 0x271ca2f7bd129b05ULL,
    0x8e3fe1c84545f7a3ULL, 0x0000000000798b13ULL}
   }
  ,	// 1/2 * 10^65 = 5 * 10^64
  {{0x0000000000000000ULL, 0x871e5dad62ba0e32ULL,
    0x8e7ed1d2b4bbac5fULL, 0x0000000004bf6ec3ULL}
   }
  ,	// 1/2 * 10^66 = 5 * 10^65
  {{0x0000000000000000ULL, 0x472fa8c5db448df4ULL,
    0x90f4323b0f54bbbbULL, 0x000000002f7a53a3ULL}
   }
  ,	// 1/2 * 10^67 = 5 * 10^66
  {{0x0000000000000000ULL, 0xc7dc97ba90ad8b88ULL,
    0xa989f64e994f5550ULL, 0x00000001dac74463ULL}
   }
  ,	// 1/2 * 10^68 = 5 * 10^67
  {{0x0000000000000000ULL, 0xce9ded49a6c77350ULL,
    0x9f639f11fd195527ULL, 0x000000128bc8abe4ULL}
   }
  ,	// 1/2 * 10^69 = 5 * 10^68
  {{0x0000000000000000ULL, 0x122b44e083ca8120ULL,
    0x39e436b3e2fd538eULL, 0x000000b975d6b6eeULL}
   }
  ,	// 1/2 * 10^70 = 5 * 10^69
  {{0x0000000000000000ULL, 0xb5b0b0c525e90b40ULL,
    0x42ea2306dde5438cULL, 0x0000073e9a63254eULL}
   }
  ,	// 1/2 * 10^71 = 5 * 10^70
  {{0x0000000000000000ULL, 0x18e6e7b37b1a7080ULL,
    0x9d255e44aaf4a37fULL, 0x0000487207df750eULL}
   }
  ,	// 1/2 * 10^72 = 5 * 10^71
  {{0x0000000000000000ULL, 0xf9050d02cf086500ULL,
    0x2375aeaead8e62f6ULL, 0x0002d4744eba9292ULL}
   }
  ,	// 1/2 * 10^73 = 5 * 10^72
  {{0x0000000000000000ULL, 0xba32821c1653f200ULL,
    0x6298d2d2c78fdda5ULL, 0x001c4c8b1349b9b5ULL}
   }
  ,	// 1/2 * 10^74 = 5 * 10^73
  {{0x0000000000000000ULL, 0x45f91518df477400ULL,
    0xd9f83c3bcb9ea879ULL, 0x011afd6ec0e14115ULL}
   }
  ,	// 1/2 * 10^75 = 5 * 10^74
  {{0x0000000000000000ULL, 0xbbbad2f8b8ca8800ULL,
    0x83b25a55f43294bcULL, 0x0b0de65388cc8adaULL}
   }
  ,	// 1/2 * 10^76 = 5 * 10^75
  {{0x0000000000000000ULL, 0x554c3db737e95000ULL,
    0x24f7875b89f9cf5fULL, 0x6e8aff4357fd6c89ULL}
   }	// 1/2 * 10^77 = 5 * 10^76
};

// ten2k64[i] = 10^i, 0 <= i <= 19
UINT64 ten2k64[] = {
  0x0000000000000001ULL,	// 10^0
  0x000000000000000aULL,	// 10^1
  0x0000000000000064ULL,	// 10^2
  0x00000000000003e8ULL,	// 10^3
  0x0000000000002710ULL,	// 10^4
  0x00000000000186a0ULL,	// 10^5
  0x00000000000f4240ULL,	// 10^6
  0x0000000000989680ULL,	// 10^7
  0x0000000005f5e100ULL,	// 10^8
  0x000000003b9aca00ULL,	// 10^9
  0x00000002540be400ULL,	// 10^10
  0x000000174876e800ULL,	// 10^11
  0x000000e8d4a51000ULL,	// 10^12
  0x000009184e72a000ULL,	// 10^13
  0x00005af3107a4000ULL,	// 10^14
  0x00038d7ea4c68000ULL,	// 10^15
  0x002386f26fc10000ULL,	// 10^16
  0x016345785d8a0000ULL,	// 10^17
  0x0de0b6b3a7640000ULL,	// 10^18
  0x8ac7230489e80000ULL	// 10^19 (20 digits)
};


// ten2k128[i - 20] = 10^i, 20 <= i <= 38
UINT128 ten2k128[] = {	// the 64-bit word order is L, H
  {{0x6bc75e2d63100000ULL, 0x0000000000000005ULL}
   }
  ,	// 10^20
  {{0x35c9adc5dea00000ULL, 0x0000000000000036ULL}
   }
  ,	// 10^21
  {{0x19e0c9bab2400000ULL, 0x000000000000021eULL}
   }
  ,	// 10^22
  {{0x02c7e14af6800000ULL, 0x000000000000152dULL}
   }
  ,	// 10^23
  {{0x1bcecceda1000000ULL, 0x000000000000d3c2ULL}
   }
  ,	// 10^24
  {{0x161401484a000000ULL, 0x0000000000084595ULL}
   }
  ,	// 10^25
  {{0xdcc80cd2e4000000ULL, 0x000000000052b7d2ULL}
   }
  ,	// 10^26
  {{0x9fd0803ce8000000ULL, 0x00000000033b2e3cULL}
   }
  ,	// 10^27
  {{0x3e25026110000000ULL, 0x00000000204fce5eULL}
   }
  ,	// 10^28
  {{0x6d7217caa0000000ULL, 0x00000001431e0faeULL}
   }
  ,	// 10^29
  {{0x4674edea40000000ULL, 0x0000000c9f2c9cd0ULL}
   }
  ,	// 10^30
  {{0xc0914b2680000000ULL, 0x0000007e37be2022ULL}
   }
  ,	// 10^31
  {{0x85acef8100000000ULL, 0x000004ee2d6d415bULL}
   }
  ,	// 10^32
  {{0x38c15b0a00000000ULL, 0x0000314dc6448d93ULL}
   }
  ,	// 10^33
  {{0x378d8e6400000000ULL, 0x0001ed09bead87c0ULL}
   }
  ,	// 10^34
  {{0x2b878fe800000000ULL, 0x0013426172c74d82ULL}
   }
  ,	// 10^35
  {{0xb34b9f1000000000ULL, 0x00c097ce7bc90715ULL}
   }
  ,	// 10^36
  {{0x00f436a000000000ULL, 0x0785ee10d5da46d9ULL}
   }
  ,	// 10^37
  {{0x098a224000000000ULL, 0x4b3b4ca85a86c47aULL}
   }	// 10^38 (39 digits)
};

// might split into ten2k192[] and ten2k256[]

// ten2k256[i - 39] = 10^i, 39 <= i <= 68
UINT256 ten2k256[] = {	// the 64-bit word order is LL, LH, HL, HH
  {{0x5f65568000000000ULL, 0xf050fe938943acc4ULL,
    0x0000000000000002ULL, 0x0000000000000000ULL}
   }
  ,	// 10^39
  {{0xb9f5610000000000ULL, 0x6329f1c35ca4bfabULL,
    0x000000000000001dULL, 0x0000000000000000ULL}
   }
  ,	// 10^40
  {{0x4395ca0000000000ULL, 0xdfa371a19e6f7cb5ULL,
    0x0000000000000125ULL, 0x0000000000000000ULL}
   }
  ,	// 10^41
  {{0xa3d9e40000000000ULL, 0xbc627050305adf14ULL,
    0x0000000000000b7aULL, 0x0000000000000000ULL}
   }
  ,	// 10^42
  {{0x6682e80000000000ULL, 0x5bd86321e38cb6ceULL,
    0x00000000000072cbULL, 0x0000000000000000ULL}
   }
  ,	// 10^43
  {{0x011d100000000000ULL, 0x9673df52e37f2410ULL,
    0x0000000000047bf1ULL, 0x0000000000000000ULL}
   }
  ,	// 10^44
  {{0x0b22a00000000000ULL, 0xe086b93ce2f768a0ULL,
    0x00000000002cd76fULL, 0x0000000000000000ULL}
   }
  ,	// 10^45
  {{0x6f5a400000000000ULL, 0xc5433c60ddaa1640ULL,
    0x0000000001c06a5eULL, 0x0000000000000000ULL}
   }
  ,	// 10^46
  {{0x5986800000000000ULL, 0xb4a05bc8a8a4de84ULL,
    0x00000000118427b3ULL, 0x0000000000000000ULL}
   }
  ,	// 10^47
  {{0x7f41000000000000ULL, 0x0e4395d69670b12bULL,
    0x00000000af298d05ULL, 0x0000000000000000ULL}
   }
  ,	// 10^48
  {{0xf88a000000000000ULL, 0x8ea3da61e066ebb2ULL,
    0x00000006d79f8232ULL, 0x0000000000000000ULL}
   }
  ,	// 10^49
  {{0xb564000000000000ULL, 0x926687d2c40534fdULL,
    0x000000446c3b15f9ULL, 0x0000000000000000ULL}
   }
  ,	// 10^50
  {{0x15e8000000000000ULL, 0xb8014e3ba83411e9ULL,
    0x000002ac3a4edbbfULL, 0x0000000000000000ULL}
   }
  ,	// 10^51
  {{0xdb10000000000000ULL, 0x300d0e549208b31aULL,
    0x00001aba4714957dULL, 0x0000000000000000ULL}
   }
  ,	// 10^52
  {{0x8ea0000000000000ULL, 0xe0828f4db456ff0cULL,
    0x00010b46c6cdd6e3ULL, 0x0000000000000000ULL}
   }
  ,	// 10^53
  {{0x9240000000000000ULL, 0xc51999090b65f67dULL,
    0x000a70c3c40a64e6ULL, 0x0000000000000000ULL}
   }
  ,	// 10^54
  {{0xb680000000000000ULL, 0xb2fffa5a71fba0e7ULL,
    0x006867a5a867f103ULL, 0x0000000000000000ULL}
   }
  ,	// 10^55
  {{0x2100000000000000ULL, 0xfdffc78873d4490dULL,
    0x04140c78940f6a24ULL, 0x0000000000000000ULL}
   }
  ,	// 10^56
  {{0x4a00000000000000ULL, 0xebfdcb54864ada83ULL,
    0x28c87cb5c89a2571ULL, 0x0000000000000000ULL}
   }
  ,	// 10^57 (58 digits)
  {{0xe400000000000000ULL, 0x37e9f14d3eec8920ULL,
    0x97d4df19d6057673ULL, 0x0000000000000001ULL}
   }
  ,	// 10^58
  {{0xe800000000000000ULL, 0x2f236d04753d5b48ULL,
    0xee50b7025c36a080ULL, 0x000000000000000fULL}
   }
  ,	// 10^59
  {{0x1000000000000000ULL, 0xd762422c946590d9ULL,
    0x4f2726179a224501ULL, 0x000000000000009fULL}
   }
  ,	// 10^60
  {{0xa000000000000000ULL, 0x69d695bdcbf7a87aULL,
    0x17877cec0556b212ULL, 0x0000000000000639ULL}
   }
  ,	// 10^61
  {{0x4000000000000000ULL, 0x2261d969f7ac94caULL,
    0xeb4ae1383562f4b8ULL, 0x0000000000003e3aULL}
   }
  ,	// 10^62
  {{0x8000000000000000ULL, 0x57d27e23acbdcfe6ULL,
    0x30eccc3215dd8f31ULL, 0x0000000000026e4dULL}
   }
  ,	// 10^63
  {{0x0000000000000000ULL, 0x6e38ed64bf6a1f01ULL,
    0xe93ff9f4daa797edULL, 0x0000000000184f03ULL}
   }
  ,	// 10^64
  {{0x0000000000000000ULL, 0x4e3945ef7a25360aULL,
    0x1c7fc3908a8bef46ULL, 0x0000000000f31627ULL}
   }
  ,	// 10^65
  {{0x0000000000000000ULL, 0x0e3cbb5ac5741c64ULL,
    0x1cfda3a5697758bfULL, 0x00000000097edd87ULL}
   }
  ,	// 10^66
  {{0x0000000000000000ULL, 0x8e5f518bb6891be8ULL,
    0x21e864761ea97776ULL, 0x000000005ef4a747ULL}
   }
  ,	// 10^67
  {{0x0000000000000000ULL, 0x8fb92f75215b1710ULL,
    0x5313ec9d329eaaa1ULL, 0x00000003b58e88c7ULL}
   }
  ,	// 10^68
  {{0x0000000000000000ULL, 0x9d3bda934d8ee6a0ULL,
    0x3ec73e23fa32aa4fULL, 0x00000025179157c9ULL}
   }
  ,	// 10^69
  {{0x0000000000000000ULL, 0x245689c107950240ULL,
    0x73c86d67c5faa71cULL, 0x00000172ebad6ddcULL}
   }
  ,	// 10^70
  {{0x0000000000000000ULL, 0x6b61618a4bd21680ULL,
    0x85d4460dbbca8719ULL, 0x00000e7d34c64a9cULL}
   }
  ,	// 10^71
  {{0x0000000000000000ULL, 0x31cdcf66f634e100ULL,
    0x3a4abc8955e946feULL, 0x000090e40fbeea1dULL}
   }
  ,	// 10^72
  {{0x0000000000000000ULL, 0xf20a1a059e10ca00ULL,
    0x46eb5d5d5b1cc5edULL, 0x0005a8e89d752524ULL}
   }
  ,	// 10^73
  {{0x0000000000000000ULL, 0x746504382ca7e400ULL,
    0xc531a5a58f1fbb4bULL, 0x003899162693736aULL}
   }
  ,	// 10^74
  {{0x0000000000000000ULL, 0x8bf22a31be8ee800ULL,
    0xb3f07877973d50f2ULL, 0x0235fadd81c2822bULL}
   }
  ,	// 10^75
  {{0x0000000000000000ULL, 0x7775a5f171951000ULL,
    0x0764b4abe8652979ULL, 0x161bcca7119915b5ULL}
   }
  ,	// 10^76
  {{0x0000000000000000ULL, 0xaa987b6e6fd2a000ULL,
    0x49ef0eb713f39ebeULL, 0xdd15fe86affad912ULL}
   }	// 10^77
};

// ten2mk128[k - 1] = 10^(-k) * 2^exp (k), where 1 <= k <= 34 and
// exp (k) = shiftright128[k - 1] + 128
UINT128 ten2mk128[] = {
  {{0x999999999999999aULL, 0x1999999999999999ULL}
   }
  ,	//  10^(-1) * 2^128
  {{0x28f5c28f5c28f5c3ULL, 0x028f5c28f5c28f5cULL}
   }
  ,	//  10^(-2) * 2^128
  {{0x9db22d0e56041894ULL, 0x004189374bc6a7efULL}
   }
  ,	//  10^(-3) * 2^128
  {{0x4af4f0d844d013aaULL, 0x00346dc5d6388659ULL}
   }
  ,	//  10^(-4) * 2^131
  {{0x08c3f3e0370cdc88ULL, 0x0029f16b11c6d1e1ULL}
   }
  ,	//  10^(-5) * 2^134
  {{0x6d698fe69270b06dULL, 0x00218def416bdb1aULL}
   }
  ,	//  10^(-6) * 2^137
  {{0xaf0f4ca41d811a47ULL, 0x0035afe535795e90ULL}
   }
  ,	//  10^(-7) * 2^141
  {{0xbf3f70834acdaea0ULL, 0x002af31dc4611873ULL}
   }
  ,	//  10^(-8) * 2^144
  {{0x65cc5a02a23e254dULL, 0x00225c17d04dad29ULL}
   }
  ,	//  10^(-9) * 2^147
  {{0x6fad5cd10396a214ULL, 0x0036f9bfb3af7b75ULL}
   }
  ,	// 10^(-10) * 2^151
  {{0xbfbde3da69454e76ULL, 0x002bfaffc2f2c92aULL}
   }
  ,	// 10^(-11) * 2^154
  {{0x32fe4fe1edd10b92ULL, 0x00232f33025bd422ULL}
   }
  ,	// 10^(-12) * 2^157
  {{0x84ca19697c81ac1cULL, 0x00384b84d092ed03ULL}
   }
  ,	// 10^(-13) * 2^161
  {{0x03d4e1213067bce4ULL, 0x002d09370d425736ULL}
   }
  ,	// 10^(-14) * 2^164
  {{0x3643e74dc052fd83ULL, 0x0024075f3dceac2bULL}
   }
  ,	// 10^(-15) * 2^167
  {{0x56d30baf9a1e626bULL, 0x0039a5652fb11378ULL}
   }
  ,	// 10^(-16) * 2^171
  {{0x12426fbfae7eb522ULL, 0x002e1dea8c8da92dULL}
   }
  ,	// 10^(-17) * 2^174
  {{0x41cebfcc8b9890e8ULL, 0x0024e4bba3a48757ULL}
   }
  ,	// 10^(-18) * 2^177
  {{0x694acc7a78f41b0dULL, 0x003b07929f6da558ULL}
   }
  ,	// 10^(-19) * 2^181
  {{0xbaa23d2ec729af3eULL, 0x002f394219248446ULL}
   }
  ,	// 10^(-20) * 2^184
  {{0xfbb4fdbf05baf298ULL, 0x0025c768141d369eULL}
   }
  ,	// 10^(-21) * 2^187
  {{0x2c54c931a2c4b759ULL, 0x003c7240202ebdcbULL}
   }
  ,	// 10^(-22) * 2^191
  {{0x89dd6dc14f03c5e1ULL, 0x00305b66802564a2ULL}
   }
  ,	// 10^(-23) * 2^194
  {{0xd4b1249aa59c9e4eULL, 0x0026af8533511d4eULL}
   }
  ,	// 10^(-24) * 2^197
  {{0x544ea0f76f60fd49ULL, 0x003de5a1ebb4fbb1ULL}
   }
  ,	// 10^(-25) * 2^201
  {{0x76a54d92bf80caa1ULL, 0x00318481895d9627ULL}
   }
  ,	// 10^(-26) * 2^204
  {{0x921dd7a89933d54eULL, 0x00279d346de4781fULL}
   }
  ,	// 10^(-27) * 2^207
  {{0x8362f2a75b862215ULL, 0x003f61ed7ca0c032ULL}
   }
  ,	// 10^(-28) * 2^211
  {{0xcf825bb91604e811ULL, 0x0032b4bdfd4d668eULL}
   }
  ,	// 10^(-29) * 2^214
  {{0x0c684960de6a5341ULL, 0x00289097fdd7853fULL}
   }
  ,	// 10^(-30) * 2^217
  {{0x3d203ab3e521dc34ULL, 0x002073accb12d0ffULL}
   }
  ,	// 10^(-31) * 2^220
  {{0x2e99f7863b696053ULL, 0x0033ec47ab514e65ULL}
   }
  ,	// 10^(-32) * 2^224
  {{0x587b2c6b62bab376ULL, 0x002989d2ef743eb7ULL}
   }
  ,	// 10^(-33) * 2^227
  {{0xad2f56bc4efbc2c5ULL, 0x00213b0f25f69892ULL}
   }
  ,	// 10^(-34) * 2^230
};


// shiftright128[] contains the right shift count to obtain C2* from the top
// 128 bits of the 128x128-bit product C2 * Kx
int shiftright128[] = {
  0,	// 128 - 128
  0,	// 128 - 128
  0,	// 128 - 128

  3,	// 131 - 128
  6,	// 134 - 128
  9,	// 137 - 128
  13,	// 141 - 128
  16,	// 144 - 128
  19,	// 147 - 128
  23,	// 151 - 128
  26,	// 154 - 128
  29,	// 157 - 128
  33,	// 161 - 128
  36,	// 164 - 128
  39,	// 167 - 128
  43,	// 171 - 128
  46,	// 174 - 128
  49,	// 177 - 128
  53,	// 181 - 128
  56,	// 184 - 128
  59,	// 187 - 128
  63,	// 191 - 128

  66,	// 194 - 128
  69,	// 197 - 128
  73,	// 201 - 128
  76,	// 204 - 128
  79,	// 207 - 128
  83,	// 211 - 128
  86,	// 214 - 128
  89,	// 217 - 128
  92,	// 220 - 128
  96,	// 224 - 128
  99,	// 227 - 128
  102	// 230 - 128
};


// maskhigh128[] contains the mask to apply to the top 128 bits of the 
// 128x128-bit product in order to obtain the high bits of f2*
// the 64-bit word order is L, H
UINT64 maskhigh128[] = {
  0x0000000000000000ULL,	//  0 = 128 - 128 bits
  0x0000000000000000ULL,	//  0 = 128 - 128 bits
  0x0000000000000000ULL,	//  0 = 128 - 128 bits
  0x0000000000000007ULL,	//  3 = 131 - 128 bits
  0x000000000000003fULL,	//  6 = 134 - 128 bits
  0x00000000000001ffULL,	//  9 = 137 - 128 bits
  0x0000000000001fffULL,	// 13 = 141 - 128 bits
  0x000000000000ffffULL,	// 16 = 144 - 128 bits
  0x000000000007ffffULL,	// 19 = 147 - 128 bits
  0x00000000007fffffULL,	// 23 = 151 - 128 bits
  0x0000000003ffffffULL,	// 26 = 154 - 128 bits
  0x000000001fffffffULL,	// 29 = 157 - 128 bits
  0x00000001ffffffffULL,	// 33 = 161 - 128 bits
  0x0000000fffffffffULL,	// 36 = 164 - 128 bits
  0x0000007fffffffffULL,	// 39 = 167 - 128 bits
  0x000007ffffffffffULL,	// 43 = 171 - 128 bits
  0x00003fffffffffffULL,	// 46 = 174 - 128 bits
  0x0001ffffffffffffULL,	// 49 = 177 - 128 bits
  0x001fffffffffffffULL,	// 53 = 181 - 128 bits
  0x00ffffffffffffffULL,	// 56 = 184 - 128 bits
  0x07ffffffffffffffULL,	// 59 = 187 - 128 bits
  0x7fffffffffffffffULL,	// 63 = 191 - 128 bits
  0x0000000000000003ULL,	//  2 = 194 - 192 bits
  0x000000000000001fULL,	//  5 = 197 - 192 bits
  0x00000000000001ffULL,	//  9 = 201 - 192 bits
  0x0000000000000fffULL,	// 12 = 204 - 192 bits
  0x0000000000007fffULL,	// 15 = 207 - 192 bits
  0x000000000007ffffULL,	// 21 = 211 - 192 bits
  0x00000000003fffffULL,	// 22 = 214 - 192 bits
  0x0000000001ffffffULL,	// 25 = 217 - 192 bits
  0x000000000fffffffULL,	// 28 = 220 - 192 bits
  0x00000000ffffffffULL,	// 32 = 224 - 192 bits
  0x00000007ffffffffULL,	// 35 = 227 - 192 bits
  0x0000003fffffffffULL	// 38 = 230 - 192 bits
};


// onehalf128[] contains the high bits of 1/2 positioned correctly for 
// comparison with the high bits of f2*
// the 64-bit word order is L, H
UINT64 onehalf128[] = {
  0x0000000000000000ULL,	//  0 bits
  0x0000000000000000ULL,	//  0 bits
  0x0000000000000000ULL,	//  0 bits
  0x0000000000000004ULL,	//  3 bits
  0x0000000000000020ULL,	//  6 bits
  0x0000000000000100ULL,	//  9 bits
  0x0000000000001000ULL,	// 13 bits
  0x0000000000008000ULL,	// 16 bits
  0x0000000000040000ULL,	// 19 bits
  0x0000000000400000ULL,	// 23 bits
  0x0000000002000000ULL,	// 26 bits
  0x0000000010000000ULL,	// 29 bits
  0x0000000100000000ULL,	// 33 bits
  0x0000000800000000ULL,	// 36 bits
  0x0000004000000000ULL,	// 39 bits
  0x0000040000000000ULL,	// 43 bits
  0x0000200000000000ULL,	// 46 bits
  0x0001000000000000ULL,	// 49 bits
  0x0010000000000000ULL,	// 53 bits
  0x0080000000000000ULL,	// 56 bits
  0x0400000000000000ULL,	// 59 bits
  0x4000000000000000ULL,	// 63 bits
  0x0000000000000002ULL,	// 66 bits
  0x0000000000000010ULL,	// 69 bits
  0x0000000000000100ULL,	// 73 bits
  0x0000000000000800ULL,	// 76 bits
  0x0000000000004000ULL,	// 79 bits
  0x0000000000040000ULL,	// 83 bits
  0x0000000000200000ULL,	// 86 bits
  0x0000000001000000ULL,	// 89 bits
  0x0000000008000000ULL,	// 92 bits
  0x0000000080000000ULL,	// 96 bits
  0x0000000400000000ULL,	// 99 bits
  0x0000002000000000ULL	// 102 bits
};

UINT64 ten2mk64[] = {
  0x199999999999999aULL,	//  10^(-1) * 2^ 64
  0x028f5c28f5c28f5dULL,	//  10^(-2) * 2^ 64 
  0x004189374bc6a7f0ULL,	//  10^(-3) * 2^ 64 
  0x00346dc5d638865aULL,	//  10^(-4) * 2^ 67 
  0x0029f16b11c6d1e2ULL,	//  10^(-5) * 2^ 70 
  0x00218def416bdb1bULL,	//  10^(-6) * 2^ 73 
  0x0035afe535795e91ULL,	//  10^(-7) * 2^ 77 
  0x002af31dc4611874ULL,	//  10^(-8) * 2^ 80 
  0x00225c17d04dad2aULL,	//  10^(-9) * 2^ 83 
  0x0036f9bfb3af7b76ULL,	// 10^(-10) * 2^ 87 
  0x002bfaffc2f2c92bULL,	// 10^(-11) * 2^ 90 
  0x00232f33025bd423ULL,	// 10^(-12) * 2^ 93 
  0x00384b84d092ed04ULL,	// 10^(-13) * 2^ 97 
  0x002d09370d425737ULL,	// 10^(-14) * 2^100 
  0x0024075f3dceac2cULL,	// 10^(-15) * 2^103 
  0x0039a5652fb11379ULL,	// 10^(-16) * 2^107 
};

// ten2mk128trunc[] contains T*, the top Ex >= 128 bits of 10^(-k), 
// for 1 <= k <= 34 
// the 64-bit word order is L, H
UINT128 ten2mk128trunc[] = {
  {{0x9999999999999999ULL, 0x1999999999999999ULL}},	//  10^(-1) * 2^128
  {{0x28f5c28f5c28f5c2ULL, 0x028f5c28f5c28f5cULL}},	//  10^(-2) * 2^128 
  {{0x9db22d0e56041893ULL, 0x004189374bc6a7efULL}},	//  10^(-3) * 2^128 
  {{0x4af4f0d844d013a9ULL, 0x00346dc5d6388659ULL}},	//  10^(-4) * 2^131 
  {{0x08c3f3e0370cdc87ULL, 0x0029f16b11c6d1e1ULL}},	//  10^(-5) * 2^134 
  {{0x6d698fe69270b06cULL, 0x00218def416bdb1aULL}},	//  10^(-6) * 2^137 
  {{0xaf0f4ca41d811a46ULL, 0x0035afe535795e90ULL}},	//  10^(-7) * 2^141 
  {{0xbf3f70834acdae9fULL, 0x002af31dc4611873ULL}},	//  10^(-8) * 2^144 
  {{0x65cc5a02a23e254cULL, 0x00225c17d04dad29ULL}},	//  10^(-9) * 2^147 
  {{0x6fad5cd10396a213ULL, 0x0036f9bfb3af7b75ULL}},	// 10^(-10) * 2^151 
  {{0xbfbde3da69454e75ULL, 0x002bfaffc2f2c92aULL}},	// 10^(-11) * 2^154 
  {{0x32fe4fe1edd10b91ULL, 0x00232f33025bd422ULL}},	// 10^(-12) * 2^157 
  {{0x84ca19697c81ac1bULL, 0x00384b84d092ed03ULL}},	// 10^(-13) * 2^161 
  {{0x03d4e1213067bce3ULL, 0x002d09370d425736ULL}},	// 10^(-14) * 2^164 
  {{0x3643e74dc052fd82ULL, 0x0024075f3dceac2bULL}},	// 10^(-15) * 2^167 
  {{0x56d30baf9a1e626aULL, 0x0039a5652fb11378ULL}},	// 10^(-16) * 2^171 
  {{0x12426fbfae7eb521ULL, 0x002e1dea8c8da92dULL}},	// 10^(-17) * 2^174 
  {{0x41cebfcc8b9890e7ULL, 0x0024e4bba3a48757ULL}},	// 10^(-18) * 2^177 
  {{0x694acc7a78f41b0cULL, 0x003b07929f6da558ULL}},	// 10^(-19) * 2^181 
  {{0xbaa23d2ec729af3dULL, 0x002f394219248446ULL}},	// 10^(-20) * 2^184 
  {{0xfbb4fdbf05baf297ULL, 0x0025c768141d369eULL}},	// 10^(-21) * 2^187 
  {{0x2c54c931a2c4b758ULL, 0x003c7240202ebdcbULL}},	// 10^(-22) * 2^191 
  {{0x89dd6dc14f03c5e0ULL, 0x00305b66802564a2ULL}},	// 10^(-23) * 2^194 
  {{0xd4b1249aa59c9e4dULL, 0x0026af8533511d4eULL}},	// 10^(-24) * 2^197 
  {{0x544ea0f76f60fd48ULL, 0x003de5a1ebb4fbb1ULL}},	// 10^(-25) * 2^201 
  {{0x76a54d92bf80caa0ULL, 0x00318481895d9627ULL}},	// 10^(-26) * 2^204 
  {{0x921dd7a89933d54dULL, 0x00279d346de4781fULL}},	// 10^(-27) * 2^207 
  {{0x8362f2a75b862214ULL, 0x003f61ed7ca0c032ULL}},	// 10^(-28) * 2^211 
  {{0xcf825bb91604e810ULL, 0x0032b4bdfd4d668eULL}},	// 10^(-29) * 2^214 
  {{0x0c684960de6a5340ULL, 0x00289097fdd7853fULL}},	// 10^(-30) * 2^217 
  {{0x3d203ab3e521dc33ULL, 0x002073accb12d0ffULL}},	// 10^(-31) * 2^220 
  {{0x2e99f7863b696052ULL, 0x0033ec47ab514e65ULL}},	// 10^(-32) * 2^224 
  {{0x587b2c6b62bab375ULL, 0x002989d2ef743eb7ULL}},	// 10^(-33) * 2^227 
  {{0xad2f56bc4efbc2c4ULL, 0x00213b0f25f69892ULL}},	// 10^(-34) * 2^230 
};

// ten2mk128M[k - 1] = 10^(-k) * 2^exp (k), where 1 <= k <= 4 and
// exp (k) = shiftright128[k - 1] + 128
// the 64-bit word order is L, H
UINT128 ten2mk128M[] = {
  {{0xcccccccccccccccdULL, 0xccccccccccccccccULL}},	//  10^(-1) * 2^131
  {{0x3d70a3d70a3d70a4ULL, 0xa3d70a3d70a3d70aULL}},	//  10^(-2) * 2^134
  {{0x645a1cac083126eaULL, 0x83126e978d4fdf3bULL}},	//  10^(-3) * 2^137
  {{0xd3c36113404ea4a9ULL, 0xd1b71758e219652bULL}}	//  10^(-4) * 2^141
};

// ten2mk128truncM[] contains T*, the top Ex >= 128 bits of 10^(-k),
// for 1 <= k <= 4; the top bits which are 0 are not represented
// the 64-bit word order is L, H
UINT128 ten2mk128truncM[] = {
  {{0xccccccccccccccccULL, 0xccccccccccccccccULL}},	//  10^(-1) * 2^131
  {{0x3d70a3d70a3d70a3ULL, 0xa3d70a3d70a3d70aULL}},	//  10^(-2) * 2^134
  {{0x645a1cac083126e9ULL, 0x83126e978d4fdf3bULL}},	//  10^(-3) * 2^137
  {{0xd3c36113404ea4a8ULL, 0xd1b71758e219652bULL}}	//  10^(-4) * 2^141
};

// shiftright128M[] contains the right shift count to obtain C2* from the top
// 128 bits of the 128x128-bit product C2 * Kx
int shiftright128M[] = {
  3,	// 131 - 128
  6,	// 134 - 128
  9,	// 137 - 128
  13	// 141 - 128
};

// maskhigh128M[] contains the mask to apply to the top 128 bits of the
// 128x128-bit product in order to obtain the high bits of f*
// the high 64 bits of the mask are 0, so only the low 64 bits are represented
UINT64 maskhigh128M[] = {
  0x0000000000000007ULL,	//  3 = 131 - 128 bits
  0x000000000000003fULL,	//  6 = 134 - 128 bits
  0x00000000000001ffULL,	//  9 = 137 - 128 bits
  0x0000000000001fffULL	// 13 = 141 - 128 bits
};

// onehalf128M[] contains 1/2 positioned correctly for
// comparison with the high bits of f*
// the high 64 bits are 0, so only the low 64 bits are represented
UINT64 onehalf128M[] = {
  0x0000000000000004ULL,	//  3 bits
  0x0000000000000020ULL,	//  6 bits
  0x0000000000000100ULL,	//  9 bits
  0x0000000000001000ULL	// 13 bits
};

// ten2mk192M[k - 1] = 10^(-k-4) * 2^exp (k), where 1 <= k <= 19 and
// exp (k) = shiftright128[k - 1] + 128
// the 64-bit word order is L, M, H
UINT192 ten2mk192M[] = {
  {{0xcddd6e04c0592104ULL, 0x0fcf80dc33721d53ULL,
    0xa7c5ac471b478423ULL}},
  //  10^(-5) * 2^208
  {{0xd7e45803cd141a6aULL, 0xa63f9a49c2c1b10fULL,
    0x8637bd05af6c69b5ULL}},
  //  10^(-6) * 2^211
  {{0x8ca08cd2e1b9c3dcULL, 0x3d32907604691b4cULL,
    0xd6bf94d5e57a42bcULL}},
  //  10^(-7) * 2^215
  {{0x3d4d3d758161697dULL, 0xfdc20d2b36ba7c3dULL,
    0xabcc77118461cefcULL}},
  //  10^(-8) * 2^218
  {{0xfdd7645e011abacaULL, 0x31680a88f8953030ULL,
    0x89705f4136b4a597ULL}},
  //  10^(-9) * 2^221
  {{0x2fbf06fcce912addULL, 0xb573440e5a884d1bULL,
    0xdbe6fecebdedd5beULL}},
  //  10^(-10) * 2^225
  {{0xf2ff38ca3eda88b1ULL, 0xf78f69a51539d748ULL,
    0xafebff0bcb24aafeULL}},
  //  10^(-11) * 2^228
  {{0xf598fa3b657ba08eULL, 0xf93f87b7442e45d3ULL,
    0x8cbccc096f5088cbULL}},
  //  10^(-12) * 2^231
  {{0x88f4c3923bf900e3ULL, 0x2865a5f206b06fb9ULL,
    0xe12e13424bb40e13ULL}},
  //  10^(-13) * 2^235
  {{0x6d909c74fcc733e9ULL, 0x538484c19ef38c94ULL,
    0xb424dc35095cd80fULL}},
  //  10^(-14) * 2^238
  {{0x57a6e390ca38f654ULL, 0x0f9d37014bf60a10ULL,
    0x901d7cf73ab0acd9ULL}},
  //  10^(-15) * 2^241
  {{0xbf716c1add27f086ULL, 0x4c2ebe687989a9b3ULL,
    0xe69594bec44de15bULL}},
  //  10^(-16) * 2^245
  {{0xff8df0157db98d38ULL, 0x09befeb9fad487c2ULL,
    0xb877aa3236a4b449ULL}},
  //  10^(-17) * 2^248
  {{0x32d7f344649470faULL, 0x3aff322e62439fcfULL,
    0x9392ee8e921d5d07ULL}},
  //  10^(-18) * 2^251
  {{0x1e2652070753e7f5ULL, 0x2b31e9e3d06c32e5ULL,
    0xec1e4a7db69561a5ULL}},
  //  10^(-19) * 2^255
  {{0x181ea8059f76532bULL, 0x88f4bb1ca6bcf584ULL,
    0xbce5086492111aeaULL}},
  //  10^(-20) * 2^258
  {{0x467eecd14c5ea8efULL, 0xd3f6fc16ebca5e03ULL,
    0x971da05074da7beeULL}},
  //  10^(-21) * 2^261
  {{0x70cb148213caa7e5ULL, 0x5324c68b12dd6338ULL,
    0xf1c90080baf72cb1ULL}},
  //  10^(-22) * 2^265
  {{0x8d6f439b43088651ULL, 0x75b7053c0f178293ULL, 0xc16d9a0095928a27ULL}}
  //  10^(-23) * 2^268
};

// ten2mk192truncM[] contains T*, the top Ex >= 192 bits of 10^(-k),
// for 5 <= k <= 23; the top bits which are 0 are not represented
// the 64-bit word order is L, M, H
UINT192 ten2mk192truncM[] = {
  {{0xcddd6e04c0592103ULL, 0x0fcf80dc33721d53ULL,
    0xa7c5ac471b478423ULL}},
  //  10^(-5) * 2^208
  {{0xd7e45803cd141a69ULL, 0xa63f9a49c2c1b10fULL,
    0x8637bd05af6c69b5ULL}},
  //  10^(-6) * 2^211
  {{0x8ca08cd2e1b9c3dbULL, 0x3d32907604691b4cULL,
    0xd6bf94d5e57a42bcULL}},
  //  10^(-7) * 2^215
  {{0x3d4d3d758161697cULL, 0xfdc20d2b36ba7c3dULL,
    0xabcc77118461cefcULL}},
  //  10^(-8) * 2^218
  {{0xfdd7645e011abac9ULL, 0x31680a88f8953030ULL,
    0x89705f4136b4a597ULL}},
  //  10^(-9) * 2^221
  {{0x2fbf06fcce912adcULL, 0xb573440e5a884d1bULL,
    0xdbe6fecebdedd5beULL}},
  //  10^(-10) * 2^225
  {{0xf2ff38ca3eda88b0ULL, 0xf78f69a51539d748ULL,
    0xafebff0bcb24aafeULL}},
  //  10^(-11) * 2^228
  {{0xf598fa3b657ba08dULL, 0xf93f87b7442e45d3ULL,
    0x8cbccc096f5088cbULL}},
  //  10^(-12) * 2^231
  {{0x88f4c3923bf900e2ULL, 0x2865a5f206b06fb9ULL,
    0xe12e13424bb40e13ULL}},
  //  10^(-13) * 2^235
  {{0x6d909c74fcc733e8ULL, 0x538484c19ef38c94ULL,
    0xb424dc35095cd80fULL}},
  //  10^(-14) * 2^238
  {{0x57a6e390ca38f653ULL, 0x0f9d37014bf60a10ULL,
    0x901d7cf73ab0acd9ULL}},
  //  10^(-15) * 2^241
  {{0xbf716c1add27f085ULL, 0x4c2ebe687989a9b3ULL,
    0xe69594bec44de15bULL}},
  //  10^(-16) * 2^245
  {{0xff8df0157db98d37ULL, 0x09befeb9fad487c2ULL,
    0xb877aa3236a4b449ULL}},
  //  10^(-17) * 2^248
  {{0x32d7f344649470f9ULL, 0x3aff322e62439fcfULL,
    0x9392ee8e921d5d07ULL}},
  //  10^(-18) * 2^251
  {{0x1e2652070753e7f4ULL, 0x2b31e9e3d06c32e5ULL,
    0xec1e4a7db69561a5ULL}},
  //  10^(-19) * 2^255
  {{0x181ea8059f76532aULL, 0x88f4bb1ca6bcf584ULL,
    0xbce5086492111aeaULL}},
  //  10^(-20) * 2^258
  {{0x467eecd14c5ea8eeULL, 0xd3f6fc16ebca5e03ULL,
    0x971da05074da7beeULL}},
  //  10^(-21) * 2^261
  {{0x70cb148213caa7e4ULL, 0x5324c68b12dd6338ULL,
    0xf1c90080baf72cb1ULL}},
  //  10^(-22) * 2^265
  {{0x8d6f439b43088650ULL, 0x75b7053c0f178293ULL, 0xc16d9a0095928a27ULL}}
  //  10^(-23) * 2^268
};

// shiftright192M[] contains the right shift count to obtain C2* from the top
// 192 bits of the 192x192-bit product C2 * Kx if 0 <= ind <= 14 where ind is 
// the index in the table, or from the top 128 bits if 15 <= ind <= 18
int shiftright192M[] = {
  16,	// 208 - 192
  19,	// 211 - 192
  23,	// 215 - 192
  26,	// 218 - 192
  29,	// 221 - 192
  33,	// 225 - 192
  36,	// 228 - 192
  39,	// 231 - 192
  43,	// 235 - 192
  46,	// 238 - 192
  49,	// 241 - 192
  53,	// 245 - 192
  56,	// 248 - 192
  59,	// 251 - 192
  63,	// 255 - 192
  2,	// 258 - 256
  5,	// 261 - 256
  9,	// 265 - 256
  12	// 268 - 256
};

// maskhigh192M[] contains the mask to apply to the top 192 bits of the
// 192x192-bit product in order to obtain the high bits of f*
// if 0 <= ind <= 14 where ind is the index in the table, then the high 128 bits
// of the 384-bit mask are 0;  if 15 <= ind <= 18 then the high 64 bits are 0
UINT64 maskhigh192M[] = {
  0x000000000000ffffULL,	//  16 = 208 - 192 bits
  0x000000000007ffffULL,	//  19 = 211 - 192 bits
  0x00000000007fffffULL,	//  23 = 215 - 192 bits
  0x0000000003ffffffULL,	//  26 = 218 - 192 bits
  0x000000001fffffffULL,	//  29 = 221 - 192 bits
  0x00000001ffffffffULL,	//  33 = 225 - 192 bits
  0x0000000fffffffffULL,	//  36 = 228 - 192 bits
  0x0000007fffffffffULL,	//  39 = 231 - 192 bits
  0x000007ffffffffffULL,	//  43 = 235 - 192 bits
  0x00003fffffffffffULL,	//  46 = 238 - 192 bits
  0x0001ffffffffffffULL,	//  49 = 241 - 192 bits
  0x001fffffffffffffULL,	//  53 = 245 - 192 bits
  0x00ffffffffffffffULL,	//  56 = 248 - 192 bits
  0x07ffffffffffffffULL,	//  59 = 251 - 192 bits
  0x7fffffffffffffffULL,	//  63 = 255 - 192 bits
  0x0000000000000003ULL,	//   2 = 258 - 256 bits
  0x000000000000001fULL,	//   5 = 261 - 256 bits
  0x00000000000001ffULL,	//   9 = 265 - 256 bits
  0x0000000000000fffULL	//  12 = 268 - 256 bits
};

// onehalf192M[] contains 1/2 positioned correctly for
// comparison with the high bits of f*
// if 0 <= ind <= 14 where ind is the index in the table, then the high 128 bits
// of the 384-bit mask are 0;  if 15 <= ind <= 18 then the high 648 bits are 0
UINT64 onehalf192M[] = {
  0x0000000000008000ULL,	//  16 = 208 - 192 bits
  0x0000000000040000ULL,	//  19 = 211 - 192 bits
  0x0000000000400000ULL,	//  23 = 215 - 192 bits
  0x0000000002000000ULL,	//  26 = 218 - 192 bits
  0x0000000010000000ULL,	//  29 = 221 - 192 bits
  0x0000000100000000ULL,	//  33 = 225 - 192 bits
  0x0000000800000000ULL,	//  36 = 228 - 192 bits
  0x0000004000000000ULL,	//  39 = 231 - 192 bits
  0x0000040000000000ULL,	//  43 = 235 - 192 bits
  0x0000200000000000ULL,	//  46 = 238 - 192 bits
  0x0001000000000000ULL,	//  49 = 241 - 192 bits
  0x0010000000000000ULL,	//  53 = 245 - 192 bits
  0x0080000000000000ULL,	//  56 = 248 - 192 bits
  0x0400000000000000ULL,	//  59 = 251 - 192 bits
  0x4000000000000000ULL,	//  63 = 255 - 192 bits
  0x0000000000000002ULL,	//   2 = 258 - 256 bits
  0x0000000000000010ULL,	//   5 = 261 - 256 bits
  0x0000000000000100ULL,	//   9 = 265 - 256 bits
  0x0000000000000800ULL	//  12 = 268 - 256 bits
};

// ten2mk256M[k - 1] = 10^(-k-23) * 2^exp (k), where 1 <= k <= 11 and
// exp (k) = shiftright128[k - 1] + 128
UINT256 ten2mk256M[] = {	// the 64-bit word order is LL, LH, HL, HH
  {{0xf23472530ce6e3edULL, 0xd78c3615cf3a050cULL,
    0xc4926a9672793542ULL, 0x9abe14cd44753b52ULL}},	//  10^(-24) * 2^335
  {{0xe9ed83b814a49fe1ULL, 0x8c1389bc7ec33b47ULL,
    0x3a83ddbd83f52204ULL, 0xf79687aed3eec551ULL}},	//  10^(-25) * 2^339
  {{0x87f1362cdd507fe7ULL, 0x3cdc6e306568fc39ULL,
    0x95364afe032a819dULL, 0xc612062576589ddaULL}},	//  10^(-26) * 2^342
  {{0x9ff42b5717739986ULL, 0xca49f1c05120c9c7ULL,
    0x775ea264cf55347dULL, 0x9e74d1b791e07e48ULL}},	//  10^(-27) * 2^345
  {{0xccb9def1bf1f5c09ULL, 0x76dcb60081ce0fa5ULL,
    0x8bca9d6e188853fcULL, 0xfd87b5f28300ca0dULL}},	//  10^(-28) * 2^349
  {{0xa3c7e58e327f7cd4ULL, 0x5f16f80067d80c84ULL,
    0x096ee45813a04330ULL, 0xcad2f7f5359a3b3eULL}},	//  10^(-29) * 2^352
  {{0xb6398471c1ff9710ULL, 0x18df2ccd1fe00a03ULL,
    0xa1258379a94d028dULL, 0xa2425ff75e14fc31ULL}},	//  10^(-30) * 2^355
  {{0xf82e038e34cc78daULL, 0x4718f0a419800802ULL,
    0x80eacf948770ced7ULL, 0x81ceb32c4b43fcf4ULL}},	//  10^(-31) * 2^358
  {{0x59e338e387ad8e29ULL, 0x0b5b1aa028ccd99eULL,
    0x67de18eda5814af2ULL, 0xcfb11ead453994baULL}},	//  10^(-32) * 2^362
  {{0x47e8fa4f9fbe0b54ULL, 0x6f7c154ced70ae18ULL,
    0xecb1ad8aeacdd58eULL, 0xa6274bbdd0fadd61ULL}},	//  10^(-33) * 2^365
  {{0xd320c83fb2fe6f76ULL, 0xbf967770bdf3be79ULL,
    0xbd5af13bef0b113eULL, 0x84ec3c97da624ab4ULL}}	//  10^(-34) * 2^368
};

// ten2mk256truncM[] contains T*, the top Ex >= 256 bits of 10^(-k),
// for 24 <= k <= 34; the top bits which are 0 are not represented
UINT256 ten2mk256truncM[] = {	// the 64-bit word order is LL, LH, HL, HH
  {{0xf23472530ce6e3ecULL, 0xd78c3615cf3a050cULL,
    0xc4926a9672793542ULL, 0x9abe14cd44753b52ULL}},	//  10^(-24) * 2^335
  {{0xe9ed83b814a49fe0ULL, 0x8c1389bc7ec33b47ULL,
    0x3a83ddbd83f52204ULL, 0xf79687aed3eec551ULL}},	//  10^(-25) * 2^339
  {{0x87f1362cdd507fe6ULL, 0x3cdc6e306568fc39ULL,
    0x95364afe032a819dULL, 0xc612062576589ddaULL}},	//  10^(-26) * 2^342
  {{0x775ea264cf55347cULL, 0x9ff42b5717739986ULL,
    0xca49f1c05120c9c7ULL, 0x9e74d1b791e07e48ULL}},	//  10^(-27) * 2^345
  {{0xccb9def1bf1f5c08ULL, 0x76dcb60081ce0fa5ULL,
    0x8bca9d6e188853fcULL, 0xfd87b5f28300ca0dULL}},	//  10^(-28) * 2^349
  {{0xa3c7e58e327f7cd3ULL, 0x5f16f80067d80c84ULL,
    0x096ee45813a04330ULL, 0xcad2f7f5359a3b3eULL}},	//  10^(-29) * 2^352
  {{0xb6398471c1ff970fULL, 0x18df2ccd1fe00a03ULL,
    0xa1258379a94d028dULL, 0xa2425ff75e14fc31ULL}},	//  10^(-30) * 2^355
  {{0xf82e038e34cc78d9ULL, 0x4718f0a419800802ULL,
    0x80eacf948770ced7ULL, 0x81ceb32c4b43fcf4ULL}},	//  10^(-31) * 2^358
  {{0x59e338e387ad8e28ULL, 0x0b5b1aa028ccd99eULL,
    0x67de18eda5814af2ULL, 0xcfb11ead453994baULL}},	//  10^(-32) * 2^362
  {{0x47e8fa4f9fbe0b53ULL, 0x6f7c154ced70ae18ULL,
    0xecb1ad8aeacdd58eULL, 0xa6274bbdd0fadd61ULL}},	//  10^(-33) * 2^365
  {{0xd320c83fb2fe6f75ULL, 0xbf967770bdf3be79ULL,
    0xbd5af13bef0b113eULL, 0x84ec3c97da624ab4ULL}}	//  10^(-34) * 2^368
};

// shiftright256M[] contains the right shift count to obtain C2* from the top
// 192 bits of the 256x256-bit product C2 * Kx 
int shiftright256M[] = {
  15,	// 335 - 320
  19,	// 339 - 320
  22,	// 342 - 320
  25,	// 345 - 320
  29,	// 349 - 320
  32,	// 352 - 320 // careful of 32-bit machines!
  35,	// 355 - 320
  38,	// 358 - 320
  42,	// 362 - 320
  45,	// 365 - 320
  48	// 368 - 320
};

// maskhigh256M[] contains the mask to apply to the top 192 bits of the
// 256x256-bit product in order to obtain the high bits of f*
UINT64 maskhigh256M[] = {
  0x0000000000007fffULL,	//  15 = 335 - 320 bits
  0x000000000007ffffULL,	//  19 = 339 - 320 bits
  0x00000000003fffffULL,	//  22 = 342 - 320 bits
  0x0000000001ffffffULL,	//  25 = 345 - 320 bits
  0x000000001fffffffULL,	//  29 = 349 - 320 bits
  0x00000000ffffffffULL,	//  32 = 352 - 320 bits
  0x00000007ffffffffULL,	//  35 = 355 - 320 bits
  0x0000003fffffffffULL,	//  38 = 358 - 320 bits
  0x000003ffffffffffULL,	//  42 = 362 - 320 bits
  0x00001fffffffffffULL,	//  45 = 365 - 320 bits
  0x0000ffffffffffffULL	//  48 = 368 - 320 bits
};

// onehalf256M[] contains 1/2 positioned correctly for comparison with the 
// high bits of f*; the high 128 bits of the 512-bit mask are 0
UINT64 onehalf256M[] = {
  0x0000000000004000ULL,	//  15 = 335 - 320 bits
  0x0000000000040000ULL,	//  19 = 339 - 320 bits
  0x0000000000200000ULL,	//  22 = 342 - 320 bits
  0x0000000001000000ULL,	//  25 = 345 - 320 bits
  0x0000000010000000ULL,	//  29 = 349 - 320 bits
  0x0000000080000000ULL,	//  32 = 352 - 320 bits
  0x0000000400000000ULL,	//  35 = 355 - 320 bits
  0x0000002000000000ULL,	//  38 = 358 - 320 bits
  0x0000020000000000ULL,	//  42 = 362 - 320 bits
  0x0000100000000000ULL,	//  45 = 365 - 320 bits
  0x0000800000000000ULL	//  48 = 368 - 320 bits
};


// char_table2[] is used to convert n to string, where 10 <= n <= 99
unsigned char char_table2[180] = {
  '1', '0',
  '1', '1',
  '1', '2',
  '1', '3',
  '1', '4',
  '1', '5',
  '1', '6',
  '1', '7',
  '1', '8',
  '1', '9',
  '2', '0',
  '2', '1',
  '2', '2',
  '2', '3',
  '2', '4',
  '2', '5',
  '2', '6',
  '2', '7',
  '2', '8',
  '2', '9',
  '3', '0',
  '3', '1',
  '3', '2',
  '3', '3',
  '3', '4',
  '3', '5',
  '3', '6',
  '3', '7',
  '3', '8',
  '3', '9',
  '4', '0',
  '4', '1',
  '4', '2',
  '4', '3',
  '4', '4',
  '4', '5',
  '4', '6',
  '4', '7',
  '4', '8',
  '4', '9',
  '5', '0',
  '5', '1',
  '5', '2',
  '5', '3',
  '5', '4',
  '5', '5',
  '5', '6',
  '5', '7',
  '5', '8',
  '5', '9',
  '6', '0',
  '6', '1',
  '6', '2',
  '6', '3',
  '6', '4',
  '6', '5',
  '6', '6',
  '6', '7',
  '6', '8',
  '6', '9',
  '7', '0',
  '7', '1',
  '7', '2',
  '7', '3',
  '7', '4',
  '7', '5',
  '7', '6',
  '7', '7',
  '7', '8',
  '7', '9',
  '8', '0',
  '8', '1',
  '8', '2',
  '8', '3',
  '8', '4',
  '8', '5',
  '8', '6',
  '8', '7',
  '8', '8',
  '8', '9',
  '9', '0',
  '9', '1',
  '9', '2',
  '9', '3',
  '9', '4',
  '9', '5',
  '9', '6',
  '9', '7',
  '9', '8',
  '9', '9'
};


// char_table3[] is used to convert n to string, where 000 <= n <= 999
unsigned char char_table3[3000] = {
  '0', '0', '0',
  '0', '0', '1',
  '0', '0', '2',
  '0', '0', '3',
  '0', '0', '4',
  '0', '0', '5',
  '0', '0', '6',
  '0', '0', '7',
  '0', '0', '8',
  '0', '0', '9',
  '0', '1', '0',
  '0', '1', '1',
  '0', '1', '2',
  '0', '1', '3',
  '0', '1', '4',
  '0', '1', '5',
  '0', '1', '6',
  '0', '1', '7',
  '0', '1', '8',
  '0', '1', '9',
  '0', '2', '0',
  '0', '2', '1',
  '0', '2', '2',
  '0', '2', '3',
  '0', '2', '4',
  '0', '2', '5',
  '0', '2', '6',
  '0', '2', '7',
  '0', '2', '8',
  '0', '2', '9',
  '0', '3', '0',
  '0', '3', '1',
  '0', '3', '2',
  '0', '3', '3',
  '0', '3', '4',
  '0', '3', '5',
  '0', '3', '6',
  '0', '3', '7',
  '0', '3', '8',
  '0', '3', '9',
  '0', '4', '0',
  '0', '4', '1',
  '0', '4', '2',
  '0', '4', '3',
  '0', '4', '4',
  '0', '4', '5',
  '0', '4', '6',
  '0', '4', '7',
  '0', '4', '8',
  '0', '4', '9',
  '0', '5', '0',
  '0', '5', '1',
  '0', '5', '2',
  '0', '5', '3',
  '0', '5', '4',
  '0', '5', '5',
  '0', '5', '6',
  '0', '5', '7',
  '0', '5', '8',
  '0', '5', '9',
  '0', '6', '0',
  '0', '6', '1',
  '0', '6', '2',
  '0', '6', '3',
  '0', '6', '4',
  '0', '6', '5',
  '0', '6', '6',
  '0', '6', '7',
  '0', '6', '8',
  '0', '6', '9',
  '0', '7', '0',
  '0', '7', '1',
  '0', '7', '2',
  '0', '7', '3',
  '0', '7', '4',
  '0', '7', '5',
  '0', '7', '6',
  '0', '7', '7',
  '0', '7', '8',
  '0', '7', '9',
  '0', '8', '0',
  '0', '8', '1',
  '0', '8', '2',
  '0', '8', '3',
  '0', '8', '4',
  '0', '8', '5',
  '0', '8', '6',
  '0', '8', '7',
  '0', '8', '8',
  '0', '8', '9',
  '0', '9', '0',
  '0', '9', '1',
  '0', '9', '2',
  '0', '9', '3',
  '0', '9', '4',
  '0', '9', '5',
  '0', '9', '6',
  '0', '9', '7',
  '0', '9', '8',
  '0', '9', '9',
  '1', '0', '0',
  '1', '0', '1',
  '1', '0', '2',
  '1', '0', '3',
  '1', '0', '4',
  '1', '0', '5',
  '1', '0', '6',
  '1', '0', '7',
  '1', '0', '8',
  '1', '0', '9',
  '1', '1', '0',
  '1', '1', '1',
  '1', '1', '2',
  '1', '1', '3',
  '1', '1', '4',
  '1', '1', '5',
  '1', '1', '6',
  '1', '1', '7',
  '1', '1', '8',
  '1', '1', '9',
  '1', '2', '0',
  '1', '2', '1',
  '1', '2', '2',
  '1', '2', '3',
  '1', '2', '4',
  '1', '2', '5',
  '1', '2', '6',
  '1', '2', '7',
  '1', '2', '8',
  '1', '2', '9',
  '1', '3', '0',
  '1', '3', '1',
  '1', '3', '2',
  '1', '3', '3',
  '1', '3', '4',
  '1', '3', '5',
  '1', '3', '6',
  '1', '3', '7',
  '1', '3', '8',
  '1', '3', '9',
  '1', '4', '0',
  '1', '4', '1',
  '1', '4', '2',
  '1', '4', '3',
  '1', '4', '4',
  '1', '4', '5',
  '1', '4', '6',
  '1', '4', '7',
  '1', '4', '8',
  '1', '4', '9',
  '1', '5', '0',
  '1', '5', '1',
  '1', '5', '2',
  '1', '5', '3',
  '1', '5', '4',
  '1', '5', '5',
  '1', '5', '6',
  '1', '5', '7',
  '1', '5', '8',
  '1', '5', '9',
  '1', '6', '0',
  '1', '6', '1',
  '1', '6', '2',
  '1', '6', '3',
  '1', '6', '4',
  '1', '6', '5',
  '1', '6', '6',
  '1', '6', '7',
  '1', '6', '8',
  '1', '6', '9',
  '1', '7', '0',
  '1', '7', '1',
  '1', '7', '2',
  '1', '7', '3',
  '1', '7', '4',
  '1', '7', '5',
  '1', '7', '6',
  '1', '7', '7',
  '1', '7', '8',
  '1', '7', '9',
  '1', '8', '0',
  '1', '8', '1',
  '1', '8', '2',
  '1', '8', '3',
  '1', '8', '4',
  '1', '8', '5',
  '1', '8', '6',
  '1', '8', '7',
  '1', '8', '8',
  '1', '8', '9',
  '1', '9', '0',
  '1', '9', '1',
  '1', '9', '2',
  '1', '9', '3',
  '1', '9', '4',
  '1', '9', '5',
  '1', '9', '6',
  '1', '9', '7',
  '1', '9', '8',
  '1', '9', '9',
  '2', '0', '0',
  '2', '0', '1',
  '2', '0', '2',
  '2', '0', '3',
  '2', '0', '4',
  '2', '0', '5',
  '2', '0', '6',
  '2', '0', '7',
  '2', '0', '8',
  '2', '0', '9',
  '2', '1', '0',
  '2', '1', '1',
  '2', '1', '2',
  '2', '1', '3',
  '2', '1', '4',
  '2', '1', '5',
  '2', '1', '6',
  '2', '1', '7',
  '2', '1', '8',
  '2', '1', '9',
  '2', '2', '0',
  '2', '2', '1',
  '2', '2', '2',
  '2', '2', '3',
  '2', '2', '4',
  '2', '2', '5',
  '2', '2', '6',
  '2', '2', '7',
  '2', '2', '8',
  '2', '2', '9',
  '2', '3', '0',
  '2', '3', '1',
  '2', '3', '2',
  '2', '3', '3',
  '2', '3', '4',
  '2', '3', '5',
  '2', '3', '6',
  '2', '3', '7',
  '2', '3', '8',
  '2', '3', '9',
  '2', '4', '0',
  '2', '4', '1',
  '2', '4', '2',
  '2', '4', '3',
  '2', '4', '4',
  '2', '4', '5',
  '2', '4', '6',
  '2', '4', '7',
  '2', '4', '8',
  '2', '4', '9',
  '2', '5', '0',
  '2', '5', '1',
  '2', '5', '2',
  '2', '5', '3',
  '2', '5', '4',
  '2', '5', '5',
  '2', '5', '6',
  '2', '5', '7',
  '2', '5', '8',
  '2', '5', '9',
  '2', '6', '0',
  '2', '6', '1',
  '2', '6', '2',
  '2', '6', '3',
  '2', '6', '4',
  '2', '6', '5',
  '2', '6', '6',
  '2', '6', '7',
  '2', '6', '8',
  '2', '6', '9',
  '2', '7', '0',
  '2', '7', '1',
  '2', '7', '2',
  '2', '7', '3',
  '2', '7', '4',
  '2', '7', '5',
  '2', '7', '6',
  '2', '7', '7',
  '2', '7', '8',
  '2', '7', '9',
  '2', '8', '0',
  '2', '8', '1',
  '2', '8', '2',
  '2', '8', '3',
  '2', '8', '4',
  '2', '8', '5',
  '2', '8', '6',
  '2', '8', '7',
  '2', '8', '8',
  '2', '8', '9',
  '2', '9', '0',
  '2', '9', '1',
  '2', '9', '2',
  '2', '9', '3',
  '2', '9', '4',
  '2', '9', '5',
  '2', '9', '6',
  '2', '9', '7',
  '2', '9', '8',
  '2', '9', '9',
  '3', '0', '0',
  '3', '0', '1',
  '3', '0', '2',
  '3', '0', '3',
  '3', '0', '4',
  '3', '0', '5',
  '3', '0', '6',
  '3', '0', '7',
  '3', '0', '8',
  '3', '0', '9',
  '3', '1', '0',
  '3', '1', '1',
  '3', '1', '2',
  '3', '1', '3',
  '3', '1', '4',
  '3', '1', '5',
  '3', '1', '6',
  '3', '1', '7',
  '3', '1', '8',
  '3', '1', '9',
  '3', '2', '0',
  '3', '2', '1',
  '3', '2', '2',
  '3', '2', '3',
  '3', '2', '4',
  '3', '2', '5',
  '3', '2', '6',
  '3', '2', '7',
  '3', '2', '8',
  '3', '2', '9',
  '3', '3', '0',
  '3', '3', '1',
  '3', '3', '2',
  '3', '3', '3',
  '3', '3', '4',
  '3', '3', '5',
  '3', '3', '6',
  '3', '3', '7',
  '3', '3', '8',
  '3', '3', '9',
  '3', '4', '0',
  '3', '4', '1',
  '3', '4', '2',
  '3', '4', '3',
  '3', '4', '4',
  '3', '4', '5',
  '3', '4', '6',
  '3', '4', '7',
  '3', '4', '8',
  '3', '4', '9',
  '3', '5', '0',
  '3', '5', '1',
  '3', '5', '2',
  '3', '5', '3',
  '3', '5', '4',
  '3', '5', '5',
  '3', '5', '6',
  '3', '5', '7',
  '3', '5', '8',
  '3', '5', '9',
  '3', '6', '0',
  '3', '6', '1',
  '3', '6', '2',
  '3', '6', '3',
  '3', '6', '4',
  '3', '6', '5',
  '3', '6', '6',
  '3', '6', '7',
  '3', '6', '8',
  '3', '6', '9',
  '3', '7', '0',
  '3', '7', '1',
  '3', '7', '2',
  '3', '7', '3',
  '3', '7', '4',
  '3', '7', '5',
  '3', '7', '6',
  '3', '7', '7',
  '3', '7', '8',
  '3', '7', '9',
  '3', '8', '0',
  '3', '8', '1',
  '3', '8', '2',
  '3', '8', '3',
  '3', '8', '4',
  '3', '8', '5',
  '3', '8', '6',
  '3', '8', '7',
  '3', '8', '8',
  '3', '8', '9',
  '3', '9', '0',
  '3', '9', '1',
  '3', '9', '2',
  '3', '9', '3',
  '3', '9', '4',
  '3', '9', '5',
  '3', '9', '6',
  '3', '9', '7',
  '3', '9', '8',
  '3', '9', '9',
  '4', '0', '0',
  '4', '0', '1',
  '4', '0', '2',
  '4', '0', '3',
  '4', '0', '4',
  '4', '0', '5',
  '4', '0', '6',
  '4', '0', '7',
  '4', '0', '8',
  '4', '0', '9',
  '4', '1', '0',
  '4', '1', '1',
  '4', '1', '2',
  '4', '1', '3',
  '4', '1', '4',
  '4', '1', '5',
  '4', '1', '6',
  '4', '1', '7',
  '4', '1', '8',
  '4', '1', '9',
  '4', '2', '0',
  '4', '2', '1',
  '4', '2', '2',
  '4', '2', '3',
  '4', '2', '4',
  '4', '2', '5',
  '4', '2', '6',
  '4', '2', '7',
  '4', '2', '8',
  '4', '2', '9',
  '4', '3', '0',
  '4', '3', '1',
  '4', '3', '2',
  '4', '3', '3',
  '4', '3', '4',
  '4', '3', '5',
  '4', '3', '6',
  '4', '3', '7',
  '4', '3', '8',
  '4', '3', '9',
  '4', '4', '0',
  '4', '4', '1',
  '4', '4', '2',
  '4', '4', '3',
  '4', '4', '4',
  '4', '4', '5',
  '4', '4', '6',
  '4', '4', '7',
  '4', '4', '8',
  '4', '4', '9',
  '4', '5', '0',
  '4', '5', '1',
  '4', '5', '2',
  '4', '5', '3',
  '4', '5', '4',
  '4', '5', '5',
  '4', '5', '6',
  '4', '5', '7',
  '4', '5', '8',
  '4', '5', '9',
  '4', '6', '0',
  '4', '6', '1',
  '4', '6', '2',
  '4', '6', '3',
  '4', '6', '4',
  '4', '6', '5',
  '4', '6', '6',
  '4', '6', '7',
  '4', '6', '8',
  '4', '6', '9',
  '4', '7', '0',
  '4', '7', '1',
  '4', '7', '2',
  '4', '7', '3',
  '4', '7', '4',
  '4', '7', '5',
  '4', '7', '6',
  '4', '7', '7',
  '4', '7', '8',
  '4', '7', '9',
  '4', '8', '0',
  '4', '8', '1',
  '4', '8', '2',
  '4', '8', '3',
  '4', '8', '4',
  '4', '8', '5',
  '4', '8', '6',
  '4', '8', '7',
  '4', '8', '8',
  '4', '8', '9',
  '4', '9', '0',
  '4', '9', '1',
  '4', '9', '2',
  '4', '9', '3',
  '4', '9', '4',
  '4', '9', '5',
  '4', '9', '6',
  '4', '9', '7',
  '4', '9', '8',
  '4', '9', '9',
  '5', '0', '0',
  '5', '0', '1',
  '5', '0', '2',
  '5', '0', '3',
  '5', '0', '4',
  '5', '0', '5',
  '5', '0', '6',
  '5', '0', '7',
  '5', '0', '8',
  '5', '0', '9',
  '5', '1', '0',
  '5', '1', '1',
  '5', '1', '2',
  '5', '1', '3',
  '5', '1', '4',
  '5', '1', '5',
  '5', '1', '6',
  '5', '1', '7',
  '5', '1', '8',
  '5', '1', '9',
  '5', '2', '0',
  '5', '2', '1',
  '5', '2', '2',
  '5', '2', '3',
  '5', '2', '4',
  '5', '2', '5',
  '5', '2', '6',
  '5', '2', '7',
  '5', '2', '8',
  '5', '2', '9',
  '5', '3', '0',
  '5', '3', '1',
  '5', '3', '2',
  '5', '3', '3',
  '5', '3', '4',
  '5', '3', '5',
  '5', '3', '6',
  '5', '3', '7',
  '5', '3', '8',
  '5', '3', '9',
  '5', '4', '0',
  '5', '4', '1',
  '5', '4', '2',
  '5', '4', '3',
  '5', '4', '4',
  '5', '4', '5',
  '5', '4', '6',
  '5', '4', '7',
  '5', '4', '8',
  '5', '4', '9',
  '5', '5', '0',
  '5', '5', '1',
  '5', '5', '2',
  '5', '5', '3',
  '5', '5', '4',
  '5', '5', '5',
  '5', '5', '6',
  '5', '5', '7',
  '5', '5', '8',
  '5', '5', '9',
  '5', '6', '0',
  '5', '6', '1',
  '5', '6', '2',
  '5', '6', '3',
  '5', '6', '4',
  '5', '6', '5',
  '5', '6', '6',
  '5', '6', '7',
  '5', '6', '8',
  '5', '6', '9',
  '5', '7', '0',
  '5', '7', '1',
  '5', '7', '2',
  '5', '7', '3',
  '5', '7', '4',
  '5', '7', '5',
  '5', '7', '6',
  '5', '7', '7',
  '5', '7', '8',
  '5', '7', '9',
  '5', '8', '0',
  '5', '8', '1',
  '5', '8', '2',
  '5', '8', '3',
  '5', '8', '4',
  '5', '8', '5',
  '5', '8', '6',
  '5', '8', '7',
  '5', '8', '8',
  '5', '8', '9',
  '5', '9', '0',
  '5', '9', '1',
  '5', '9', '2',
  '5', '9', '3',
  '5', '9', '4',
  '5', '9', '5',
  '5', '9', '6',
  '5', '9', '7',
  '5', '9', '8',
  '5', '9', '9',
  '6', '0', '0',
  '6', '0', '1',
  '6', '0', '2',
  '6', '0', '3',
  '6', '0', '4',
  '6', '0', '5',
  '6', '0', '6',
  '6', '0', '7',
  '6', '0', '8',
  '6', '0', '9',
  '6', '1', '0',
  '6', '1', '1',
  '6', '1', '2',
  '6', '1', '3',
  '6', '1', '4',
  '6', '1', '5',
  '6', '1', '6',
  '6', '1', '7',
  '6', '1', '8',
  '6', '1', '9',
  '6', '2', '0',
  '6', '2', '1',
  '6', '2', '2',
  '6', '2', '3',
  '6', '2', '4',
  '6', '2', '5',
  '6', '2', '6',
  '6', '2', '7',
  '6', '2', '8',
  '6', '2', '9',
  '6', '3', '0',
  '6', '3', '1',
  '6', '3', '2',
  '6', '3', '3',
  '6', '3', '4',
  '6', '3', '5',
  '6', '3', '6',
  '6', '3', '7',
  '6', '3', '8',
  '6', '3', '9',
  '6', '4', '0',
  '6', '4', '1',
  '6', '4', '2',
  '6', '4', '3',
  '6', '4', '4',
  '6', '4', '5',
  '6', '4', '6',
  '6', '4', '7',
  '6', '4', '8',
  '6', '4', '9',
  '6', '5', '0',
  '6', '5', '1',
  '6', '5', '2',
  '6', '5', '3',
  '6', '5', '4',
  '6', '5', '5',
  '6', '5', '6',
  '6', '5', '7',
  '6', '5', '8',
  '6', '5', '9',
  '6', '6', '0',
  '6', '6', '1',
  '6', '6', '2',
  '6', '6', '3',
  '6', '6', '4',
  '6', '6', '5',
  '6', '6', '6',
  '6', '6', '7',
  '6', '6', '8',
  '6', '6', '9',
  '6', '7', '0',
  '6', '7', '1',
  '6', '7', '2',
  '6', '7', '3',
  '6', '7', '4',
  '6', '7', '5',
  '6', '7', '6',
  '6', '7', '7',
  '6', '7', '8',
  '6', '7', '9',
  '6', '8', '0',
  '6', '8', '1',
  '6', '8', '2',
  '6', '8', '3',
  '6', '8', '4',
  '6', '8', '5',
  '6', '8', '6',
  '6', '8', '7',
  '6', '8', '8',
  '6', '8', '9',
  '6', '9', '0',
  '6', '9', '1',
  '6', '9', '2',
  '6', '9', '3',
  '6', '9', '4',
  '6', '9', '5',
  '6', '9', '6',
  '6', '9', '7',
  '6', '9', '8',
  '6', '9', '9',
  '7', '0', '0',
  '7', '0', '1',
  '7', '0', '2',
  '7', '0', '3',
  '7', '0', '4',
  '7', '0', '5',
  '7', '0', '6',
  '7', '0', '7',
  '7', '0', '8',
  '7', '0', '9',
  '7', '1', '0',
  '7', '1', '1',
  '7', '1', '2',
  '7', '1', '3',
  '7', '1', '4',
  '7', '1', '5',
  '7', '1', '6',
  '7', '1', '7',
  '7', '1', '8',
  '7', '1', '9',
  '7', '2', '0',
  '7', '2', '1',
  '7', '2', '2',
  '7', '2', '3',
  '7', '2', '4',
  '7', '2', '5',
  '7', '2', '6',
  '7', '2', '7',
  '7', '2', '8',
  '7', '2', '9',
  '7', '3', '0',
  '7', '3', '1',
  '7', '3', '2',
  '7', '3', '3',
  '7', '3', '4',
  '7', '3', '5',
  '7', '3', '6',
  '7', '3', '7',
  '7', '3', '8',
  '7', '3', '9',
  '7', '4', '0',
  '7', '4', '1',
  '7', '4', '2',
  '7', '4', '3',
  '7', '4', '4',
  '7', '4', '5',
  '7', '4', '6',
  '7', '4', '7',
  '7', '4', '8',
  '7', '4', '9',
  '7', '5', '0',
  '7', '5', '1',
  '7', '5', '2',
  '7', '5', '3',
  '7', '5', '4',
  '7', '5', '5',
  '7', '5', '6',
  '7', '5', '7',
  '7', '5', '8',
  '7', '5', '9',
  '7', '6', '0',
  '7', '6', '1',
  '7', '6', '2',
  '7', '6', '3',
  '7', '6', '4',
  '7', '6', '5',
  '7', '6', '6',
  '7', '6', '7',
  '7', '6', '8',
  '7', '6', '9',
  '7', '7', '0',
  '7', '7', '1',
  '7', '7', '2',
  '7', '7', '3',
  '7', '7', '4',
  '7', '7', '5',
  '7', '7', '6',
  '7', '7', '7',
  '7', '7', '8',
  '7', '7', '9',
  '7', '8', '0',
  '7', '8', '1',
  '7', '8', '2',
  '7', '8', '3',
  '7', '8', '4',
  '7', '8', '5',
  '7', '8', '6',
  '7', '8', '7',
  '7', '8', '8',
  '7', '8', '9',
  '7', '9', '0',
  '7', '9', '1',
  '7', '9', '2',
  '7', '9', '3',
  '7', '9', '4',
  '7', '9', '5',
  '7', '9', '6',
  '7', '9', '7',
  '7', '9', '8',
  '7', '9', '9',
  '8', '0', '0',
  '8', '0', '1',
  '8', '0', '2',
  '8', '0', '3',
  '8', '0', '4',
  '8', '0', '5',
  '8', '0', '6',
  '8', '0', '7',
  '8', '0', '8',
  '8', '0', '9',
  '8', '1', '0',
  '8', '1', '1',
  '8', '1', '2',
  '8', '1', '3',
  '8', '1', '4',
  '8', '1', '5',
  '8', '1', '6',
  '8', '1', '7',
  '8', '1', '8',
  '8', '1', '9',
  '8', '2', '0',
  '8', '2', '1',
  '8', '2', '2',
  '8', '2', '3',
  '8', '2', '4',
  '8', '2', '5',
  '8', '2', '6',
  '8', '2', '7',
  '8', '2', '8',
  '8', '2', '9',
  '8', '3', '0',
  '8', '3', '1',
  '8', '3', '2',
  '8', '3', '3',
  '8', '3', '4',
  '8', '3', '5',
  '8', '3', '6',
  '8', '3', '7',
  '8', '3', '8',
  '8', '3', '9',
  '8', '4', '0',
  '8', '4', '1',
  '8', '4', '2',
  '8', '4', '3',
  '8', '4', '4',
  '8', '4', '5',
  '8', '4', '6',
  '8', '4', '7',
  '8', '4', '8',
  '8', '4', '9',
  '8', '5', '0',
  '8', '5', '1',
  '8', '5', '2',
  '8', '5', '3',
  '8', '5', '4',
  '8', '5', '5',
  '8', '5', '6',
  '8', '5', '7',
  '8', '5', '8',
  '8', '5', '9',
  '8', '6', '0',
  '8', '6', '1',
  '8', '6', '2',
  '8', '6', '3',
  '8', '6', '4',
  '8', '6', '5',
  '8', '6', '6',
  '8', '6', '7',
  '8', '6', '8',
  '8', '6', '9',
  '8', '7', '0',
  '8', '7', '1',
  '8', '7', '2',
  '8', '7', '3',
  '8', '7', '4',
  '8', '7', '5',
  '8', '7', '6',
  '8', '7', '7',
  '8', '7', '8',
  '8', '7', '9',
  '8', '8', '0',
  '8', '8', '1',
  '8', '8', '2',
  '8', '8', '3',
  '8', '8', '4',
  '8', '8', '5',
  '8', '8', '6',
  '8', '8', '7',
  '8', '8', '8',
  '8', '8', '9',
  '8', '9', '0',
  '8', '9', '1',
  '8', '9', '2',
  '8', '9', '3',
  '8', '9', '4',
  '8', '9', '5',
  '8', '9', '6',
  '8', '9', '7',
  '8', '9', '8',
  '8', '9', '9',
  '9', '0', '0',
  '9', '0', '1',
  '9', '0', '2',
  '9', '0', '3',
  '9', '0', '4',
  '9', '0', '5',
  '9', '0', '6',
  '9', '0', '7',
  '9', '0', '8',
  '9', '0', '9',
  '9', '1', '0',
  '9', '1', '1',
  '9', '1', '2',
  '9', '1', '3',
  '9', '1', '4',
  '9', '1', '5',
  '9', '1', '6',
  '9', '1', '7',
  '9', '1', '8',
  '9', '1', '9',
  '9', '2', '0',
  '9', '2', '1',
  '9', '2', '2',
  '9', '2', '3',
  '9', '2', '4',
  '9', '2', '5',
  '9', '2', '6',
  '9', '2', '7',
  '9', '2', '8',
  '9', '2', '9',
  '9', '3', '0',
  '9', '3', '1',
  '9', '3', '2',
  '9', '3', '3',
  '9', '3', '4',
  '9', '3', '5',
  '9', '3', '6',
  '9', '3', '7',
  '9', '3', '8',
  '9', '3', '9',
  '9', '4', '0',
  '9', '4', '1',
  '9', '4', '2',
  '9', '4', '3',
  '9', '4', '4',
  '9', '4', '5',
  '9', '4', '6',
  '9', '4', '7',
  '9', '4', '8',
  '9', '4', '9',
  '9', '5', '0',
  '9', '5', '1',
  '9', '5', '2',
  '9', '5', '3',
  '9', '5', '4',
  '9', '5', '5',
  '9', '5', '6',
  '9', '5', '7',
  '9', '5', '8',
  '9', '5', '9',
  '9', '6', '0',
  '9', '6', '1',
  '9', '6', '2',
  '9', '6', '3',
  '9', '6', '4',
  '9', '6', '5',
  '9', '6', '6',
  '9', '6', '7',
  '9', '6', '8',
  '9', '6', '9',
  '9', '7', '0',
  '9', '7', '1',
  '9', '7', '2',
  '9', '7', '3',
  '9', '7', '4',
  '9', '7', '5',
  '9', '7', '6',
  '9', '7', '7',
  '9', '7', '8',
  '9', '7', '9',
  '9', '8', '0',
  '9', '8', '1',
  '9', '8', '2',
  '9', '8', '3',
  '9', '8', '4',
  '9', '8', '5',
  '9', '8', '6',
  '9', '8', '7',
  '9', '8', '8',
  '9', '8', '9',
  '9', '9', '0',
  '9', '9', '1',
  '9', '9', '2',
  '9', '9', '3',
  '9', '9', '4',
  '9', '9', '5',
  '9', '9', '6',
  '9', '9', '7',
  '9', '9', '8',
  '9', '9', '9'
};

// ten2m3k64[], shift_ten2m3k64[] used for conversion from BID128 to string
UINT64 ten2m3k64[] = {
  0x4189374bc6a7ef9eull,	// 4189374bc6a7ef9e * 2^-72 = (10^-3)RP,63
  0x10c6f7a0b5ed8d37ull,	// 10c6f7a0b5ed8d37 * 2^-80 = (10^-6)RP,61
  0x44b82fa09b5a52ccull,	// 44b82fa09b5a52cc * 2^-92 = (10^-9)RP,63
  0x119799812dea111aull,	// 119799812dea111a * 2^-100 = (10^-12)RP,61
  0x480ebe7b9d58566dull	// 480ebe7b9d58566d * 2^-112 = (10^-15)RP,63
};

unsigned int shift_ten2m3k64[] = {
  8,	// 72 - 64
  16,	// 80 - 64
  28,	// 92 - 64
  36,	// 100 - 64
  48	// 112 - 64
};

UINT128 ten2m3k128[] = {
  {{0xb22d0e5604189375ull, 0x4189374bc6a7ef9dull}},
  // 4189374bc6a7ef9d  b22d0e5604189375  * 2^-136 = (10^-3)RP,127
  {{0xb4c7f34938583622ull, 0x10c6f7a0b5ed8d36ull}},
  // 10c6f7a0b5ed8d36  b4c7f34938583622  * 2^-144 = (10^-6)RP,125
  {{0x98b405447c4a9819ull, 0x44b82fa09b5a52cbull}},
  // 44b82fa09b5a52cb  98b405447c4a9819  * 2^-156 = (10^-9)RP,127
  {{0x7f27f0f6e885c8bbull, 0x119799812dea1119ull}},
  // 119799812dea1119  7f27f0f6e885c8bb  * 2^-164 = (10^-12)RP,125
  {{0x87ce9b80a5fb0509ull, 0x480ebe7b9d58566cull}},
  // 480ebe7b9d58566c  87ce9b80a5fb0509  * 2^-176 = (10^-15)RP,127
  {{0xe75fe645cc4873faull, 0x12725dd1d243aba0ull}},
  // 12725dd1d243aba0  e75fe645cc4873fa  * 2^-184 = (10^-18)RP,125
  {{0x69fb7e0b75e52f02ull, 0x4b8ed0283a6d3df7ull}},
  // 4b8ed0283a6d3df7  69fb7e0b75e52f02  * 2^-196 = (10^-21)RP,127
  {{0x58924d52ce4f26a9ull, 0x1357c299a88ea76aull}},
  // 1357c299a88ea76a  58924d52ce4f26a9  * 2^-204 = (10^-24)RP,125
  {{0x3baf513267aa9a3full, 0x4f3a68dbc8f03f24ull}},
  // 4f3a68dbc8f03f24  3baf513267aa9a3f  * 2^-216 = (10^-27)RP,127
  {{0x3424b06f3529a052ull, 0x14484bfeebc29f86ull}},
  // 14484bfeebc29f86  3424b06f3529a052  * 2^-224 = (10^-30)RP,125
  {{0xf658d6c57566eac8ull, 0x5313a5dee87d6eb0ull}}
  // 5313a5dee87d6eb0  f658d6c57566eac8  * 2^-236 = (10^-33)RP,127
};

unsigned int shift_ten2m3k128[] = {
  8,	// 136 - 128
  16,	// 144 - 128
  28,	// 156 - 128
  36,	// 164 - 128
  48,	// 176 - 128
  56,	// 184 - 128
  4,	// 196 - 192
  12,	// 204 - 192
  24,	// 216 - 192
  32,	// 224 - 192
  44	// 236 - 192
};


/***************************************************************************
 *************** TABLES FOR GENERAL ROUNDING FUNCTIONS *********************
 ***************************************************************************/
// Note: not all entries in these tables will be used with IEEE 754R decimal
// floating-point arithmetic
// a) In round128_2_18() numbers with 2 <= q <= 18 will be rounded only
//    for 1 <= x <= 3:
//     x = 1 or x = 2 when q = 17
//     x = 2 or x = 3 when q = 18
// b) In round128_19_38() numbers with 19 <= q <= 38 will be rounded only
//    for 1 <= x <= 23:
//     x = 3 or x = 4 when q = 19
//     x = 4 or x = 5 when q = 20
//     ...
//     x = 18 or x = 19 when q = 34
//     x = 1 or x = 2 or x = 19 or x = 20 when q = 35
//     x = 2 or x = 3 or x = 20 or x = 21 when q = 36
//     x = 3 or x = 4 or x = 21 or x = 22 when q = 37
//     x = 4 or x = 5 or x = 22 or x = 23 when q = 38
// c) ...
// However, for generality and possible uses outside the frame of IEEE 754R
// this implementation includes table values for all x in [1, q - 1]

// Note: 64-bit tables generated with ten2mx64.ma; output in ten2mx64.out

// Kx from 10^(-x) ~= Kx * 2^(-Ex); Kx rounded up to 64 bits, 1 <= x <= 17
UINT64 Kx64[] = {
  0xcccccccccccccccdULL,	// 10^-1 ~= cccccccccccccccd * 2^-67
  0xa3d70a3d70a3d70bULL,	// 10^-2 ~= a3d70a3d70a3d70b * 2^-70
  0x83126e978d4fdf3cULL,	// 10^-3 ~= 83126e978d4fdf3c * 2^-73
  0xd1b71758e219652cULL,	// 10^-4 ~= d1b71758e219652c * 2^-77
  0xa7c5ac471b478424ULL,	// 10^-5 ~= a7c5ac471b478424 * 2^-80
  0x8637bd05af6c69b6ULL,	// 10^-6 ~= 8637bd05af6c69b6 * 2^-83
  0xd6bf94d5e57a42bdULL,	// 10^-7 ~= d6bf94d5e57a42bd * 2^-87
  0xabcc77118461cefdULL,	// 10^-8 ~= abcc77118461cefd * 2^-90
  0x89705f4136b4a598ULL,	// 10^-9 ~= 89705f4136b4a598 * 2^-93
  0xdbe6fecebdedd5bfULL,	// 10^-10 ~= dbe6fecebdedd5bf * 2^-97
  0xafebff0bcb24aaffULL,	// 10^-11 ~= afebff0bcb24aaff * 2^-100
  0x8cbccc096f5088ccULL,	// 10^-12 ~= 8cbccc096f5088cc * 2^-103
  0xe12e13424bb40e14ULL,	// 10^-13 ~= e12e13424bb40e14 * 2^-107
  0xb424dc35095cd810ULL,	// 10^-14 ~= b424dc35095cd810 * 2^-110
  0x901d7cf73ab0acdaULL,	// 10^-15 ~= 901d7cf73ab0acda * 2^-113
  0xe69594bec44de15cULL,	// 10^-16 ~= e69594bec44de15c * 2^-117
  0xb877aa3236a4b44aULL	// 10^-17 ~= b877aa3236a4b44a * 2^-120
};

// Ex-64 from 10^(-x) ~= Kx * 2^(-Ex); Kx rounded up to 64 bits, 1 <= x <= 17
unsigned int Ex64m64[] = {
  3,	// 67 - 64, Ex = 67
  6,	// 70 - 64, Ex = 70
  9,	// 73 - 64, Ex = 73
  13,	// 77 - 64, Ex = 77
  16,	// 80 - 64, Ex = 80
  19,	// 83 - 64, Ex = 83
  23,	// 87 - 64, Ex = 87
  26,	// 90 - 64, Ex = 90
  29,	// 93 - 64, Ex = 93
  33,	// 97 - 64, Ex = 97
  36,	// 100 - 64, Ex = 100
  39,	// 103 - 64, Ex = 103
  43,	// 107 - 64, Ex = 107
  46,	// 110 - 64, Ex = 110
  49,	// 113 - 64, Ex = 113
  53,	// 117 - 64, Ex = 117
  56	// 120 - 64, Ex = 120
};

// Values of 1/2 in the right position to be compared with the fraction from
// C * kx, 1 <= x <= 17; the fraction consists of the low Ex bits in C * kx
// (these values are aligned with the high 64 bits of the fraction)
UINT64 half64[] = {
  0x0000000000000004ULL,	// half / 2^64 = 4
  0x0000000000000020ULL,	// half / 2^64 = 20
  0x0000000000000100ULL,	// half / 2^64 = 100
  0x0000000000001000ULL,	// half / 2^64 = 1000
  0x0000000000008000ULL,	// half / 2^64 = 8000
  0x0000000000040000ULL,	// half / 2^64 = 40000
  0x0000000000400000ULL,	// half / 2^64 = 400000
  0x0000000002000000ULL,	// half / 2^64 = 2000000
  0x0000000010000000ULL,	// half / 2^64 = 10000000
  0x0000000100000000ULL,	// half / 2^64 = 100000000
  0x0000000800000000ULL,	// half / 2^64 = 800000000
  0x0000004000000000ULL,	// half / 2^64 = 4000000000
  0x0000040000000000ULL,	// half / 2^64 = 40000000000
  0x0000200000000000ULL,	// half / 2^64 = 200000000000
  0x0001000000000000ULL,	// half / 2^64 = 1000000000000
  0x0010000000000000ULL,	// half / 2^64 = 10000000000000
  0x0080000000000000ULL	// half / 2^64 = 80000000000000
};

// Values of mask in the right position to obtain the high Ex - 64 bits
// of the fraction from C * kx, 1 <= x <= 17; the fraction consists of
// the low Ex bits in C * kx
UINT64 mask64[] = {
  0x0000000000000007ULL,	// mask / 2^64
  0x000000000000003fULL,	// mask / 2^64
  0x00000000000001ffULL,	// mask / 2^64
  0x0000000000001fffULL,	// mask / 2^64
  0x000000000000ffffULL,	// mask / 2^64
  0x000000000007ffffULL,	// mask / 2^64
  0x00000000007fffffULL,	// mask / 2^64
  0x0000000003ffffffULL,	// mask / 2^64
  0x000000001fffffffULL,	// mask / 2^64
  0x00000001ffffffffULL,	// mask / 2^64
  0x0000000fffffffffULL,	// mask / 2^64
  0x0000007fffffffffULL,	// mask / 2^64
  0x000007ffffffffffULL,	// mask / 2^64
  0x00003fffffffffffULL,	// mask / 2^64
  0x0001ffffffffffffULL,	// mask / 2^64
  0x001fffffffffffffULL,	// mask / 2^64
  0x00ffffffffffffffULL	// mask / 2^64
};

// Values of 10^(-x) trancated to Ex bits beyond the binary point, and
// in the right position to be compared with the fraction from C * kx,
// 1 <= x <= 17; the fraction consists of the low Ex bits in C * kx
// (these values are aligned with the low 64 bits of the fraction)
UINT64 ten2mxtrunc64[] = {
  0xccccccccccccccccULL,	// (ten2mx >> 64) = cccccccccccccccc
  0xa3d70a3d70a3d70aULL,	// (ten2mx >> 64) = a3d70a3d70a3d70a
  0x83126e978d4fdf3bULL,	// (ten2mx >> 64) = 83126e978d4fdf3b
  0xd1b71758e219652bULL,	// (ten2mx >> 64) = d1b71758e219652b
  0xa7c5ac471b478423ULL,	// (ten2mx >> 64) = a7c5ac471b478423
  0x8637bd05af6c69b5ULL,	// (ten2mx >> 64) = 8637bd05af6c69b5
  0xd6bf94d5e57a42bcULL,	// (ten2mx >> 64) = d6bf94d5e57a42bc
  0xabcc77118461cefcULL,	// (ten2mx >> 64) = abcc77118461cefc
  0x89705f4136b4a597ULL,	// (ten2mx >> 64) = 89705f4136b4a597
  0xdbe6fecebdedd5beULL,	// (ten2mx >> 64) = dbe6fecebdedd5be
  0xafebff0bcb24aafeULL,	// (ten2mx >> 64) = afebff0bcb24aafe
  0x8cbccc096f5088cbULL,	// (ten2mx >> 64) = 8cbccc096f5088cb
  0xe12e13424bb40e13ULL,	// (ten2mx >> 64) = e12e13424bb40e13
  0xb424dc35095cd80fULL,	// (ten2mx >> 64) = b424dc35095cd80f
  0x901d7cf73ab0acd9ULL,	// (ten2mx >> 64) = 901d7cf73ab0acd9
  0xe69594bec44de15bULL,	// (ten2mx >> 64) = e69594bec44de15b
  0xb877aa3236a4b449ULL	// (ten2mx >> 64) = b877aa3236a4b449
};

// Note: 128-bit tables generated with ten2mx128.ma; output in ten2mx128.out
// The order of the 64-bit components is L, H

// Kx from 10^(-x) ~= Kx * 2^(-Ex); Kx rounded up to 128 bits, 1 <= x <= 37
UINT128 Kx128[] = {
  {{0xcccccccccccccccdULL, 0xccccccccccccccccULL}},
  // 10^-1 ~= cccccccccccccccccccccccccccccccd * 2^-131
  {{0x3d70a3d70a3d70a4ULL, 0xa3d70a3d70a3d70aULL}},
  // 10^-2 ~= a3d70a3d70a3d70a3d70a3d70a3d70a4 * 2^-134
  {{0x645a1cac083126eaULL, 0x83126e978d4fdf3bULL}},
  // 10^-3 ~= 83126e978d4fdf3b645a1cac083126ea * 2^-137
  {{0xd3c36113404ea4a9ULL, 0xd1b71758e219652bULL}},
  // 10^-4 ~= d1b71758e219652bd3c36113404ea4a9 * 2^-141
  {{0x0fcf80dc33721d54ULL, 0xa7c5ac471b478423ULL}},
  // 10^-5 ~= a7c5ac471b4784230fcf80dc33721d54 * 2^-144
  {{0xa63f9a49c2c1b110ULL, 0x8637bd05af6c69b5ULL}},
  // 10^-6 ~= 8637bd05af6c69b5a63f9a49c2c1b110 * 2^-147
  {{0x3d32907604691b4dULL, 0xd6bf94d5e57a42bcULL}},
  // 10^-7 ~= d6bf94d5e57a42bc3d32907604691b4d * 2^-151
  {{0xfdc20d2b36ba7c3eULL, 0xabcc77118461cefcULL}},
  // 10^-8 ~= abcc77118461cefcfdc20d2b36ba7c3e * 2^-154
  {{0x31680a88f8953031ULL, 0x89705f4136b4a597ULL}},
  // 10^-9 ~= 89705f4136b4a59731680a88f8953031 * 2^-157
  {{0xb573440e5a884d1cULL, 0xdbe6fecebdedd5beULL}},
  // 10^-10 ~= dbe6fecebdedd5beb573440e5a884d1c * 2^-161
  {{0xf78f69a51539d749ULL, 0xafebff0bcb24aafeULL}},
  // 10^-11 ~= afebff0bcb24aafef78f69a51539d749 * 2^-164
  {{0xf93f87b7442e45d4ULL, 0x8cbccc096f5088cbULL}},
  // 10^-12 ~= 8cbccc096f5088cbf93f87b7442e45d4 * 2^-167
  {{0x2865a5f206b06fbaULL, 0xe12e13424bb40e13ULL}},
  // 10^-13 ~= e12e13424bb40e132865a5f206b06fba * 2^-171
  {{0x538484c19ef38c95ULL, 0xb424dc35095cd80fULL}},
  // 10^-14 ~= b424dc35095cd80f538484c19ef38c95 * 2^-174
  {{0x0f9d37014bf60a11ULL, 0x901d7cf73ab0acd9ULL}},
  // 10^-15 ~= 901d7cf73ab0acd90f9d37014bf60a11 * 2^-177
  {{0x4c2ebe687989a9b4ULL, 0xe69594bec44de15bULL}},
  // 10^-16 ~= e69594bec44de15b4c2ebe687989a9b4 * 2^-181
  {{0x09befeb9fad487c3ULL, 0xb877aa3236a4b449ULL}},
  // 10^-17 ~= b877aa3236a4b44909befeb9fad487c3 * 2^-184
  {{0x3aff322e62439fd0ULL, 0x9392ee8e921d5d07ULL}},
  // 10^-18 ~= 9392ee8e921d5d073aff322e62439fd0 * 2^-187
  {{0x2b31e9e3d06c32e6ULL, 0xec1e4a7db69561a5ULL}},
  // 10^-19 ~= ec1e4a7db69561a52b31e9e3d06c32e6 * 2^-191
  {{0x88f4bb1ca6bcf585ULL, 0xbce5086492111aeaULL}},
  // 10^-20 ~= bce5086492111aea88f4bb1ca6bcf585 * 2^-194
  {{0xd3f6fc16ebca5e04ULL, 0x971da05074da7beeULL}},
  // 10^-21 ~= 971da05074da7beed3f6fc16ebca5e04 * 2^-197
  {{0x5324c68b12dd6339ULL, 0xf1c90080baf72cb1ULL}},
  // 10^-22 ~= f1c90080baf72cb15324c68b12dd6339 * 2^-201
  {{0x75b7053c0f178294ULL, 0xc16d9a0095928a27ULL}},
  // 10^-23 ~= c16d9a0095928a2775b7053c0f178294 * 2^-204
  {{0xc4926a9672793543ULL, 0x9abe14cd44753b52ULL}},
  // 10^-24 ~= 9abe14cd44753b52c4926a9672793543 * 2^-207
  {{0x3a83ddbd83f52205ULL, 0xf79687aed3eec551ULL}},
  // 10^-25 ~= f79687aed3eec5513a83ddbd83f52205 * 2^-211
  {{0x95364afe032a819eULL, 0xc612062576589ddaULL}},
  // 10^-26 ~= c612062576589dda95364afe032a819e * 2^-214
  {{0x775ea264cf55347eULL, 0x9e74d1b791e07e48ULL}},
  // 10^-27 ~= 9e74d1b791e07e48775ea264cf55347e * 2^-217
  {{0x8bca9d6e188853fdULL, 0xfd87b5f28300ca0dULL}},
  // 10^-28 ~= fd87b5f28300ca0d8bca9d6e188853fd * 2^-221
  {{0x096ee45813a04331ULL, 0xcad2f7f5359a3b3eULL}},
  // 10^-29 ~= cad2f7f5359a3b3e096ee45813a04331 * 2^-224
  {{0xa1258379a94d028eULL, 0xa2425ff75e14fc31ULL}},
  // 10^-30 ~= a2425ff75e14fc31a1258379a94d028e * 2^-227
  {{0x80eacf948770ced8ULL, 0x81ceb32c4b43fcf4ULL}},
  // 10^-31 ~= 81ceb32c4b43fcf480eacf948770ced8 * 2^-230
  {{0x67de18eda5814af3ULL, 0xcfb11ead453994baULL}},
  // 10^-32 ~= cfb11ead453994ba67de18eda5814af3 * 2^-234
  {{0xecb1ad8aeacdd58fULL, 0xa6274bbdd0fadd61ULL}},
  // 10^-33 ~= a6274bbdd0fadd61ecb1ad8aeacdd58f * 2^-237
  {{0xbd5af13bef0b113fULL, 0x84ec3c97da624ab4ULL}},
  // 10^-34 ~= 84ec3c97da624ab4bd5af13bef0b113f * 2^-240
  {{0x955e4ec64b44e865ULL, 0xd4ad2dbfc3d07787ULL}},
  // 10^-35 ~= d4ad2dbfc3d07787955e4ec64b44e865 * 2^-244
  {{0xdde50bd1d5d0b9eaULL, 0xaa242499697392d2ULL}},
  // 10^-36 ~= aa242499697392d2dde50bd1d5d0b9ea * 2^-247
  {{0x7e50d64177da2e55ULL, 0x881cea14545c7575ULL}}
  // 10^-37 ~= 881cea14545c75757e50d64177da2e55 * 2^-250
};

// Ex-128 from 10^(-x) ~= Kx*2^(-Ex); Kx rounded up to 128 bits, 1 <= x <= 37
unsigned int Ex128m128[] = {
  3,	// 131 - 128, Ex = 131
  6,	// 134 - 128, Ex = 134
  9,	// 137 - 128, Ex = 137
  13,	// 141 - 128, Ex = 141
  16,	// 144 - 128, Ex = 144
  19,	// 147 - 128, Ex = 147
  23,	// 151 - 128, Ex = 151
  26,	// 154 - 128, Ex = 154
  29,	// 157 - 128, Ex = 157
  33,	// 161 - 128, Ex = 161
  36,	// 164 - 128, Ex = 164
  39,	// 167 - 128, Ex = 167
  43,	// 171 - 128, Ex = 171
  46,	// 174 - 128, Ex = 174
  49,	// 177 - 128, Ex = 177
  53,	// 181 - 128, Ex = 181
  56,	// 184 - 128, Ex = 184
  59,	// 187 - 128, Ex = 187
  63,	// 191 - 128, Ex = 191
  2,	// 194 - 192, Ex = 194
  5,	// 197 - 192, Ex = 197
  9,	// 201 - 192, Ex = 201
  12,	// 204 - 192, Ex = 204
  15,	// 207 - 192, Ex = 207
  19,	// 211 - 192, Ex = 211
  22,	// 214 - 192, Ex = 214
  25,	// 217 - 192, Ex = 217
  29,	// 221 - 192, Ex = 221
  32,	// 224 - 192, Ex = 224
  35,	// 227 - 192, Ex = 227
  38,	// 230 - 192, Ex = 230
  42,	// 234 - 192, Ex = 234
  45,	// 237 - 192, Ex = 237
  48,	// 240 - 192, Ex = 240
  52,	// 244 - 192, Ex = 244
  55,	// 247 - 192, Ex = 247
  58	// 250 - 192, Ex = 250
};

// Values of 1/2 in the right position to be compared with the fraction from
// C * kx, 1 <= x <= 37; the fraction consists of the low Ex bits in C * kx
// (these values are aligned with the high 128 bits of the fraction)
UINT64 half128[] = {
  0x0000000000000004ULL,	// half / 2^128 = 4
  0x0000000000000020ULL,	// half / 2^128 = 20
  0x0000000000000100ULL,	// half / 2^128 = 100
  0x0000000000001000ULL,	// half / 2^128 = 1000
  0x0000000000008000ULL,	// half / 2^128 = 8000
  0x0000000000040000ULL,	// half / 2^128 = 40000
  0x0000000000400000ULL,	// half / 2^128 = 400000
  0x0000000002000000ULL,	// half / 2^128 = 2000000
  0x0000000010000000ULL,	// half / 2^128 = 10000000
  0x0000000100000000ULL,	// half / 2^128 = 100000000
  0x0000000800000000ULL,	// half / 2^128 = 800000000
  0x0000004000000000ULL,	// half / 2^128 = 4000000000
  0x0000040000000000ULL,	// half / 2^128 = 40000000000
  0x0000200000000000ULL,	// half / 2^128 = 200000000000
  0x0001000000000000ULL,	// half / 2^128 = 1000000000000
  0x0010000000000000ULL,	// half / 2^128 = 10000000000000
  0x0080000000000000ULL,	// half / 2^128 = 80000000000000
  0x0400000000000000ULL,	// half / 2^128 = 400000000000000
  0x4000000000000000ULL,	// half / 2^128 = 4000000000000000
  0x0000000000000002ULL,	// half / 2^192 = 2
  0x0000000000000010ULL,	// half / 2^192 = 10
  0x0000000000000100ULL,	// half / 2^192 = 100
  0x0000000000000800ULL,	// half / 2^192 = 800
  0x0000000000004000ULL,	// half / 2^192 = 4000
  0x0000000000040000ULL,	// half / 2^192 = 40000
  0x0000000000200000ULL,	// half / 2^192 = 200000
  0x0000000001000000ULL,	// half / 2^192 = 1000000
  0x0000000010000000ULL,	// half / 2^192 = 10000000
  0x0000000080000000ULL,	// half / 2^192 = 80000000
  0x0000000400000000ULL,	// half / 2^192 = 400000000
  0x0000002000000000ULL,	// half / 2^192 = 2000000000
  0x0000020000000000ULL,	// half / 2^192 = 20000000000
  0x0000100000000000ULL,	// half / 2^192 = 100000000000
  0x0000800000000000ULL,	// half / 2^192 = 800000000000
  0x0008000000000000ULL,	// half / 2^192 = 8000000000000
  0x0040000000000000ULL,	// half / 2^192 = 40000000000000
  0x0200000000000000ULL	// half / 2^192 = 200000000000000
};

// Values of mask in the right position to obtain the high Ex - 128 or Ex - 192
// bits of the fraction from C * kx, 1 <= x <= 37; the fraction consists of
// the low Ex bits in C * kx
UINT64 mask128[] = {
  0x0000000000000007ULL,	// mask / 2^128
  0x000000000000003fULL,	// mask / 2^128
  0x00000000000001ffULL,	// mask / 2^128
  0x0000000000001fffULL,	// mask / 2^128
  0x000000000000ffffULL,	// mask / 2^128
  0x000000000007ffffULL,	// mask / 2^128
  0x00000000007fffffULL,	// mask / 2^128
  0x0000000003ffffffULL,	// mask / 2^128
  0x000000001fffffffULL,	// mask / 2^128
  0x00000001ffffffffULL,	// mask / 2^128
  0x0000000fffffffffULL,	// mask / 2^128
  0x0000007fffffffffULL,	// mask / 2^128
  0x000007ffffffffffULL,	// mask / 2^128
  0x00003fffffffffffULL,	// mask / 2^128
  0x0001ffffffffffffULL,	// mask / 2^128
  0x001fffffffffffffULL,	// mask / 2^128
  0x00ffffffffffffffULL,	// mask / 2^128
  0x07ffffffffffffffULL,	// mask / 2^128
  0x7fffffffffffffffULL,	// mask / 2^128
  0x0000000000000003ULL,	// mask / 2^192
  0x000000000000001fULL,	// mask / 2^192
  0x00000000000001ffULL,	// mask / 2^192
  0x0000000000000fffULL,	// mask / 2^192
  0x0000000000007fffULL,	// mask / 2^192
  0x000000000007ffffULL,	// mask / 2^192
  0x00000000003fffffULL,	// mask / 2^192
  0x0000000001ffffffULL,	// mask / 2^192
  0x000000001fffffffULL,	// mask / 2^192
  0x00000000ffffffffULL,	// mask / 2^192
  0x00000007ffffffffULL,	// mask / 2^192
  0x0000003fffffffffULL,	// mask / 2^192
  0x000003ffffffffffULL,	// mask / 2^192
  0x00001fffffffffffULL,	// mask / 2^192
  0x0000ffffffffffffULL,	// mask / 2^192
  0x000fffffffffffffULL,	// mask / 2^192
  0x007fffffffffffffULL,	// mask / 2^192
  0x03ffffffffffffffULL	// mask / 2^192
};

// Values of 10^(-x) trancated to Ex bits beyond the binary point, and
// in the right position to be compared with the fraction from C * kx,
// 1 <= x <= 37; the fraction consists of the low Ex bits in C * kx
// (these values are aligned with the low 128 bits of the fraction)
UINT128 ten2mxtrunc128[] = {
  {{0xccccccccccccccccULL, 0xccccccccccccccccULL}},
  // (ten2mx >> 128) = cccccccccccccccccccccccccccccccc
  {{0x3d70a3d70a3d70a3ULL, 0xa3d70a3d70a3d70aULL}},
  // (ten2mx >> 128) = a3d70a3d70a3d70a3d70a3d70a3d70a3
  {{0x645a1cac083126e9ULL, 0x83126e978d4fdf3bULL}},
  // (ten2mx >> 128) = 83126e978d4fdf3b645a1cac083126e9
  {{0xd3c36113404ea4a8ULL, 0xd1b71758e219652bULL}},
  // (ten2mx >> 128) = d1b71758e219652bd3c36113404ea4a8
  {{0x0fcf80dc33721d53ULL, 0xa7c5ac471b478423ULL}},
  // (ten2mx >> 128) = a7c5ac471b4784230fcf80dc33721d53
  {{0xa63f9a49c2c1b10fULL, 0x8637bd05af6c69b5ULL}},
  // (ten2mx >> 128) = 8637bd05af6c69b5a63f9a49c2c1b10f
  {{0x3d32907604691b4cULL, 0xd6bf94d5e57a42bcULL}},
  // (ten2mx >> 128) = d6bf94d5e57a42bc3d32907604691b4c
  {{0xfdc20d2b36ba7c3dULL, 0xabcc77118461cefcULL}},
  // (ten2mx >> 128) = abcc77118461cefcfdc20d2b36ba7c3d
  {{0x31680a88f8953030ULL, 0x89705f4136b4a597ULL}},
  // (ten2mx >> 128) = 89705f4136b4a59731680a88f8953030
  {{0xb573440e5a884d1bULL, 0xdbe6fecebdedd5beULL}},
  // (ten2mx >> 128) = dbe6fecebdedd5beb573440e5a884d1b
  {{0xf78f69a51539d748ULL, 0xafebff0bcb24aafeULL}},
  // (ten2mx >> 128) = afebff0bcb24aafef78f69a51539d748
  {{0xf93f87b7442e45d3ULL, 0x8cbccc096f5088cbULL}},
  // (ten2mx >> 128) = 8cbccc096f5088cbf93f87b7442e45d3
  {{0x2865a5f206b06fb9ULL, 0xe12e13424bb40e13ULL}},
  // (ten2mx >> 128) = e12e13424bb40e132865a5f206b06fb9
  {{0x538484c19ef38c94ULL, 0xb424dc35095cd80fULL}},
  // (ten2mx >> 128) = b424dc35095cd80f538484c19ef38c94
  {{0x0f9d37014bf60a10ULL, 0x901d7cf73ab0acd9ULL}},
  // (ten2mx >> 128) = 901d7cf73ab0acd90f9d37014bf60a10
  {{0x4c2ebe687989a9b3ULL, 0xe69594bec44de15bULL}},
  // (ten2mx >> 128) = e69594bec44de15b4c2ebe687989a9b3
  {{0x09befeb9fad487c2ULL, 0xb877aa3236a4b449ULL}},
  // (ten2mx >> 128) = b877aa3236a4b44909befeb9fad487c2
  {{0x3aff322e62439fcfULL, 0x9392ee8e921d5d07ULL}},
  // (ten2mx >> 128) = 9392ee8e921d5d073aff322e62439fcf
  {{0x2b31e9e3d06c32e5ULL, 0xec1e4a7db69561a5ULL}},
  // (ten2mx >> 128) = ec1e4a7db69561a52b31e9e3d06c32e5
  {{0x88f4bb1ca6bcf584ULL, 0xbce5086492111aeaULL}},
  // (ten2mx >> 128) = bce5086492111aea88f4bb1ca6bcf584
  {{0xd3f6fc16ebca5e03ULL, 0x971da05074da7beeULL}},
  // (ten2mx >> 128) = 971da05074da7beed3f6fc16ebca5e03
  {{0x5324c68b12dd6338ULL, 0xf1c90080baf72cb1ULL}},
  // (ten2mx >> 128) = f1c90080baf72cb15324c68b12dd6338
  {{0x75b7053c0f178293ULL, 0xc16d9a0095928a27ULL}},
  // (ten2mx >> 128) = c16d9a0095928a2775b7053c0f178293
  {{0xc4926a9672793542ULL, 0x9abe14cd44753b52ULL}},
  // (ten2mx >> 128) = 9abe14cd44753b52c4926a9672793542
  {{0x3a83ddbd83f52204ULL, 0xf79687aed3eec551ULL}},
  // (ten2mx >> 128) = f79687aed3eec5513a83ddbd83f52204
  {{0x95364afe032a819dULL, 0xc612062576589ddaULL}},
  // (ten2mx >> 128) = c612062576589dda95364afe032a819d
  {{0x775ea264cf55347dULL, 0x9e74d1b791e07e48ULL}},
  // (ten2mx >> 128) = 9e74d1b791e07e48775ea264cf55347d
  {{0x8bca9d6e188853fcULL, 0xfd87b5f28300ca0dULL}},
  // (ten2mx >> 128) = fd87b5f28300ca0d8bca9d6e188853fc
  {{0x096ee45813a04330ULL, 0xcad2f7f5359a3b3eULL}},
  // (ten2mx >> 128) = cad2f7f5359a3b3e096ee45813a04330
  {{0xa1258379a94d028dULL, 0xa2425ff75e14fc31ULL}},
  // (ten2mx >> 128) = a2425ff75e14fc31a1258379a94d028d
  {{0x80eacf948770ced7ULL, 0x81ceb32c4b43fcf4ULL}},
  // (ten2mx >> 128) = 81ceb32c4b43fcf480eacf948770ced7
  {{0x67de18eda5814af2ULL, 0xcfb11ead453994baULL}},
  // (ten2mx >> 128) = cfb11ead453994ba67de18eda5814af2
  {{0xecb1ad8aeacdd58eULL, 0xa6274bbdd0fadd61ULL}},
  // (ten2mx >> 128) = a6274bbdd0fadd61ecb1ad8aeacdd58e
  {{0xbd5af13bef0b113eULL, 0x84ec3c97da624ab4ULL}},
  // (ten2mx >> 128) = 84ec3c97da624ab4bd5af13bef0b113e
  {{0x955e4ec64b44e864ULL, 0xd4ad2dbfc3d07787ULL}},
  // (ten2mx >> 128) = d4ad2dbfc3d07787955e4ec64b44e864
  {{0xdde50bd1d5d0b9e9ULL, 0xaa242499697392d2ULL}},
  // (ten2mx >> 128) = aa242499697392d2dde50bd1d5d0b9e9
  {{0x7e50d64177da2e54ULL, 0x881cea14545c7575ULL}}
  // (ten2mx >> 128) = 881cea14545c75757e50d64177da2e54
};

UINT192 Kx192[] = {
  {{0xcccccccccccccccdULL, 0xccccccccccccccccULL,
    0xccccccccccccccccULL}},
  // 10^-1 ~= cccccccccccccccccccccccccccccccccccccccccccccccd * 2^-195
  {{0xd70a3d70a3d70a3eULL, 0x3d70a3d70a3d70a3ULL,
    0xa3d70a3d70a3d70aULL}},
  // 10^-2 ~= a3d70a3d70a3d70a3d70a3d70a3d70a3d70a3d70a3d70a3e * 2^-198
  {{0x78d4fdf3b645a1cbULL, 0x645a1cac083126e9ULL,
    0x83126e978d4fdf3bULL}},
  // 10^-3 ~= 83126e978d4fdf3b645a1cac083126e978d4fdf3b645a1cb * 2^-201
  {{0xc154c985f06f6945ULL, 0xd3c36113404ea4a8ULL,
    0xd1b71758e219652bULL}},
  // 10^-4 ~= d1b71758e219652bd3c36113404ea4a8c154c985f06f6945 * 2^-205
  {{0xcddd6e04c0592104ULL, 0x0fcf80dc33721d53ULL,
    0xa7c5ac471b478423ULL}},
  // 10^-5 ~= a7c5ac471b4784230fcf80dc33721d53cddd6e04c0592104 * 2^-208
  {{0xd7e45803cd141a6aULL, 0xa63f9a49c2c1b10fULL,
    0x8637bd05af6c69b5ULL}},
  // 10^-6 ~= 8637bd05af6c69b5a63f9a49c2c1b10fd7e45803cd141a6a * 2^-211
  {{0x8ca08cd2e1b9c3dcULL, 0x3d32907604691b4cULL,
    0xd6bf94d5e57a42bcULL}},
  // 10^-7 ~= d6bf94d5e57a42bc3d32907604691b4c8ca08cd2e1b9c3dc * 2^-215
  {{0x3d4d3d758161697dULL, 0xfdc20d2b36ba7c3dULL,
    0xabcc77118461cefcULL}},
  // 10^-8 ~= abcc77118461cefcfdc20d2b36ba7c3d3d4d3d758161697d * 2^-218
  {{0xfdd7645e011abacaULL, 0x31680a88f8953030ULL,
    0x89705f4136b4a597ULL}},
  // 10^-9 ~= 89705f4136b4a59731680a88f8953030fdd7645e011abaca * 2^-221
  {{0x2fbf06fcce912addULL, 0xb573440e5a884d1bULL,
    0xdbe6fecebdedd5beULL}},
  // 10^-10 ~= dbe6fecebdedd5beb573440e5a884d1b2fbf06fcce912add * 2^-225
  {{0xf2ff38ca3eda88b1ULL, 0xf78f69a51539d748ULL,
    0xafebff0bcb24aafeULL}},
  // 10^-11 ~= afebff0bcb24aafef78f69a51539d748f2ff38ca3eda88b1 * 2^-228
  {{0xf598fa3b657ba08eULL, 0xf93f87b7442e45d3ULL,
    0x8cbccc096f5088cbULL}},
  // 10^-12 ~= 8cbccc096f5088cbf93f87b7442e45d3f598fa3b657ba08e * 2^-231
  {{0x88f4c3923bf900e3ULL, 0x2865a5f206b06fb9ULL,
    0xe12e13424bb40e13ULL}},
  // 10^-13 ~= e12e13424bb40e132865a5f206b06fb988f4c3923bf900e3 * 2^-235
  {{0x6d909c74fcc733e9ULL, 0x538484c19ef38c94ULL,
    0xb424dc35095cd80fULL}},
  // 10^-14 ~= b424dc35095cd80f538484c19ef38c946d909c74fcc733e9 * 2^-238
  {{0x57a6e390ca38f654ULL, 0x0f9d37014bf60a10ULL,
    0x901d7cf73ab0acd9ULL}},
  // 10^-15 ~= 901d7cf73ab0acd90f9d37014bf60a1057a6e390ca38f654 * 2^-241
  {{0xbf716c1add27f086ULL, 0x4c2ebe687989a9b3ULL,
    0xe69594bec44de15bULL}},
  // 10^-16 ~= e69594bec44de15b4c2ebe687989a9b3bf716c1add27f086 * 2^-245
  {{0xff8df0157db98d38ULL, 0x09befeb9fad487c2ULL,
    0xb877aa3236a4b449ULL}},
  // 10^-17 ~= b877aa3236a4b44909befeb9fad487c2ff8df0157db98d38 * 2^-248
  {{0x32d7f344649470faULL, 0x3aff322e62439fcfULL,
    0x9392ee8e921d5d07ULL}},
  // 10^-18 ~= 9392ee8e921d5d073aff322e62439fcf32d7f344649470fa * 2^-251
  {{0x1e2652070753e7f5ULL, 0x2b31e9e3d06c32e5ULL,
    0xec1e4a7db69561a5ULL}},
  // 10^-19 ~= ec1e4a7db69561a52b31e9e3d06c32e51e2652070753e7f5 * 2^-255
  {{0x181ea8059f76532bULL, 0x88f4bb1ca6bcf584ULL,
    0xbce5086492111aeaULL}},
  // 10^-20 ~= bce5086492111aea88f4bb1ca6bcf584181ea8059f76532b * 2^-258
  {{0x467eecd14c5ea8efULL, 0xd3f6fc16ebca5e03ULL,
    0x971da05074da7beeULL}},
  // 10^-21 ~= 971da05074da7beed3f6fc16ebca5e03467eecd14c5ea8ef * 2^-261
  {{0x70cb148213caa7e5ULL, 0x5324c68b12dd6338ULL,
    0xf1c90080baf72cb1ULL}},
  // 10^-22 ~= f1c90080baf72cb15324c68b12dd633870cb148213caa7e5 * 2^-265
  {{0x8d6f439b43088651ULL, 0x75b7053c0f178293ULL,
    0xc16d9a0095928a27ULL}},
  // 10^-23 ~= c16d9a0095928a2775b7053c0f1782938d6f439b43088651 * 2^-268
  {{0xd78c3615cf3a050dULL, 0xc4926a9672793542ULL,
    0x9abe14cd44753b52ULL}},
  // 10^-24 ~= 9abe14cd44753b52c4926a9672793542d78c3615cf3a050d * 2^-271
  {{0x8c1389bc7ec33b48ULL, 0x3a83ddbd83f52204ULL,
    0xf79687aed3eec551ULL}},
  // 10^-25 ~= f79687aed3eec5513a83ddbd83f522048c1389bc7ec33b48 * 2^-275
  {{0x3cdc6e306568fc3aULL, 0x95364afe032a819dULL,
    0xc612062576589ddaULL}},
  // 10^-26 ~= c612062576589dda95364afe032a819d3cdc6e306568fc3a * 2^-278
  {{0xca49f1c05120c9c8ULL, 0x775ea264cf55347dULL,
    0x9e74d1b791e07e48ULL}},
  // 10^-27 ~= 9e74d1b791e07e48775ea264cf55347dca49f1c05120c9c8 * 2^-281
  {{0x76dcb60081ce0fa6ULL, 0x8bca9d6e188853fcULL,
    0xfd87b5f28300ca0dULL}},
  // 10^-28 ~= fd87b5f28300ca0d8bca9d6e188853fc76dcb60081ce0fa6 * 2^-285
  {{0x5f16f80067d80c85ULL, 0x096ee45813a04330ULL,
    0xcad2f7f5359a3b3eULL}},
  // 10^-29 ~= cad2f7f5359a3b3e096ee45813a043305f16f80067d80c85 * 2^-288
  {{0x18df2ccd1fe00a04ULL, 0xa1258379a94d028dULL,
    0xa2425ff75e14fc31ULL}},
  // 10^-30 ~= a2425ff75e14fc31a1258379a94d028d18df2ccd1fe00a04 * 2^-291
  {{0x4718f0a419800803ULL, 0x80eacf948770ced7ULL,
    0x81ceb32c4b43fcf4ULL}},
  // 10^-31 ~= 81ceb32c4b43fcf480eacf948770ced74718f0a419800803 * 2^-294
  {{0x0b5b1aa028ccd99fULL, 0x67de18eda5814af2ULL,
    0xcfb11ead453994baULL}},
  // 10^-32 ~= cfb11ead453994ba67de18eda5814af20b5b1aa028ccd99f * 2^-298
  {{0x6f7c154ced70ae19ULL, 0xecb1ad8aeacdd58eULL,
    0xa6274bbdd0fadd61ULL}},
  // 10^-33 ~= a6274bbdd0fadd61ecb1ad8aeacdd58e6f7c154ced70ae19 * 2^-301
  {{0xbf967770bdf3be7aULL, 0xbd5af13bef0b113eULL,
    0x84ec3c97da624ab4ULL}},
  // 10^-34 ~= 84ec3c97da624ab4bd5af13bef0b113ebf967770bdf3be7a * 2^-304
  {{0x65bd8be79652ca5dULL, 0x955e4ec64b44e864ULL,
    0xd4ad2dbfc3d07787ULL}},
  // 10^-35 ~= d4ad2dbfc3d07787955e4ec64b44e86465bd8be79652ca5d * 2^-308
  {{0xeafe098611dbd517ULL, 0xdde50bd1d5d0b9e9ULL,
    0xaa242499697392d2ULL}},
  // 10^-36 ~= aa242499697392d2dde50bd1d5d0b9e9eafe098611dbd517 * 2^-311
  {{0xbbfe6e04db164413ULL, 0x7e50d64177da2e54ULL,
    0x881cea14545c7575ULL}},
  // 10^-37 ~= 881cea14545c75757e50d64177da2e54bbfe6e04db164413 * 2^-314
  {{0x2cca49a15e8a0684ULL, 0x96e7bd358c904a21ULL,
    0xd9c7dced53c72255ULL}},
  // 10^-38 ~= d9c7dced53c7225596e7bd358c904a212cca49a15e8a0684 * 2^-318
  {{0x8a3b6e1ab2080537ULL, 0xabec975e0a0d081aULL,
    0xae397d8aa96c1b77ULL}},
  // 10^-39 ~= ae397d8aa96c1b77abec975e0a0d081a8a3b6e1ab2080537 * 2^-321
  {{0x3b62be7bc1a0042cULL, 0x2323ac4b3b3da015ULL,
    0x8b61313bbabce2c6ULL}},
  // 10^-40 ~= 8b61313bbabce2c62323ac4b3b3da0153b62be7bc1a0042c * 2^-324
  {{0x5f0463f935ccd379ULL, 0x6b6c46dec52f6688ULL,
    0xdf01e85f912e37a3ULL}},
  // 10^-41 ~= df01e85f912e37a36b6c46dec52f66885f0463f935ccd379 * 2^-328
  {{0x7f36b660f7d70f94ULL, 0x55f038b237591ed3ULL,
    0xb267ed1940f1c61cULL}},
  // 10^-42 ~= b267ed1940f1c61c55f038b237591ed37f36b660f7d70f94 * 2^-331
  {{0xcc2bc51a5fdf3faaULL, 0x77f3608e92adb242ULL,
    0x8eb98a7a9a5b04e3ULL}},
  // 10^-43 ~= 8eb98a7a9a5b04e377f3608e92adb242cc2bc51a5fdf3faa * 2^-334
  {{0xe046082a32fecc42ULL, 0x8cb89a7db77c506aULL,
    0xe45c10c42a2b3b05ULL}},
  // 10^-44 ~= e45c10c42a2b3b058cb89a7db77c506ae046082a32fecc42 * 2^-338
  {{0x4d04d354f598a368ULL, 0x3d607b97c5fd0d22ULL,
    0xb6b00d69bb55c8d1ULL}},
  // 10^-45 ~= b6b00d69bb55c8d13d607b97c5fd0d224d04d354f598a368 * 2^-341
  {{0x3d9d75dd9146e920ULL, 0xcab3961304ca70e8ULL,
    0x9226712162ab070dULL}},
  // 10^-46 ~= 9226712162ab070dcab3961304ca70e83d9d75dd9146e920 * 2^-344
  {{0xc8fbefc8e8717500ULL, 0xaab8f01e6e10b4a6ULL,
    0xe9d71b689dde71afULL}},
  // 10^-47 ~= e9d71b689dde71afaab8f01e6e10b4a6c8fbefc8e8717500 * 2^-348
  {{0x3a63263a538df734ULL, 0x5560c018580d5d52ULL,
    0xbb127c53b17ec159ULL}},
  // 10^-48 ~= bb127c53b17ec1595560c018580d5d523a63263a538df734 * 2^-351
  {{0x2eb5b82ea93e5f5dULL, 0xdde7001379a44aa8ULL,
    0x95a8637627989aadULL}},
  // 10^-49 ~= 95a8637627989aaddde7001379a44aa82eb5b82ea93e5f5d * 2^-354
  {{0x4abc59e441fd6561ULL, 0x963e66858f6d4440ULL,
    0xef73d256a5c0f77cULL}},
  // 10^-50 ~= ef73d256a5c0f77c963e66858f6d44404abc59e441fd6561 * 2^-358
  {{0x6efd14b69b311de7ULL, 0xde98520472bdd033ULL,
    0xbf8fdb78849a5f96ULL}},
  // 10^-51 ~= bf8fdb78849a5f96de98520472bdd0336efd14b69b311de7 * 2^-361
  {{0x259743c548f417ecULL, 0xe546a8038efe4029ULL,
    0x993fe2c6d07b7fabULL}},
  // 10^-52 ~= 993fe2c6d07b7fabe546a8038efe4029259743c548f417ec * 2^-364
  {{0x3c25393ba7ecf313ULL, 0xd53dd99f4b3066a8ULL,
    0xf53304714d9265dfULL}},
  // 10^-53 ~= f53304714d9265dfd53dd99f4b3066a83c25393ba7ecf313 * 2^-368
  {{0x96842dc95323f5a9ULL, 0xaa97e14c3c26b886ULL,
    0xc428d05aa4751e4cULL}},
  // 10^-54 ~= c428d05aa4751e4caa97e14c3c26b88696842dc95323f5a9 * 2^-371
  {{0xab9cf16ddc1cc487ULL, 0x55464dd69685606bULL,
    0x9ced737bb6c4183dULL}},
  // 10^-55 ~= 9ced737bb6c4183d55464dd69685606bab9cf16ddc1cc487 * 2^-374
  {{0xac2e4f162cfad40bULL, 0xeed6e2f0f0d56712ULL, 0xfb158592be068d2eULL}}
  // 10^-56 ~= fb158592be068d2eeed6e2f0f0d56712ac2e4f162cfad40b * 2^-378
};

unsigned int Ex192m192[] = {
  3,	// 195 - 192, Ex = 195
  6,	// 198 - 192, Ex = 198
  9,	// 201 - 192, Ex = 201
  13,	// 205 - 192, Ex = 205
  16,	// 208 - 192, Ex = 208
  19,	// 211 - 192, Ex = 211
  23,	// 215 - 192, Ex = 215
  26,	// 218 - 192, Ex = 218
  29,	// 221 - 192, Ex = 221
  33,	// 225 - 192, Ex = 225
  36,	// 228 - 192, Ex = 228
  39,	// 231 - 192, Ex = 231
  43,	// 235 - 192, Ex = 235
  46,	// 238 - 192, Ex = 238
  49,	// 241 - 192, Ex = 241
  53,	// 245 - 192, Ex = 245
  56,	// 248 - 192, Ex = 248
  59,	// 251 - 192, Ex = 251
  63,	// 255 - 192, Ex = 255
  2,	// 258 - 256, Ex = 258
  5,	// 261 - 256, Ex = 261
  9,	// 265 - 256, Ex = 265
  12,	// 268 - 256, Ex = 268
  15,	// 271 - 256, Ex = 271
  19,	// 275 - 256, Ex = 275
  22,	// 278 - 256, Ex = 278
  25,	// 281 - 256, Ex = 281
  29,	// 285 - 256, Ex = 285
  32,	// 288 - 256, Ex = 288
  35,	// 291 - 256, Ex = 291
  38,	// 294 - 256, Ex = 294
  42,	// 298 - 256, Ex = 298
  45,	// 301 - 256, Ex = 301
  48,	// 304 - 256, Ex = 304
  52,	// 308 - 256, Ex = 308
  55,	// 311 - 256, Ex = 311
  58,	// 314 - 256, Ex = 314
  62,	// 318 - 256, Ex = 318
  1,	// 321 - 320, Ex = 321
  4,	// 324 - 320, Ex = 324
  8,	// 328 - 320, Ex = 328
  11,	// 331 - 320, Ex = 331
  14,	// 334 - 320, Ex = 334
  18,	// 338 - 320, Ex = 338
  21,	// 341 - 320, Ex = 341
  24,	// 344 - 320, Ex = 344
  28,	// 348 - 320, Ex = 348
  31,	// 351 - 320, Ex = 351
  34,	// 354 - 320, Ex = 354
  38,	// 358 - 320, Ex = 358
  41,	// 361 - 320, Ex = 361
  44,	// 364 - 320, Ex = 364
  48,	// 368 - 320, Ex = 368
  51,	// 371 - 320, Ex = 371
  54,	// 374 - 320, Ex = 374
  58	// 378 - 320, Ex = 378
};

UINT64 half192[] = {
  0x0000000000000004ULL,	// half / 2^192 = 4
  0x0000000000000020ULL,	// half / 2^192 = 20
  0x0000000000000100ULL,	// half / 2^192 = 100
  0x0000000000001000ULL,	// half / 2^192 = 1000
  0x0000000000008000ULL,	// half / 2^192 = 8000
  0x0000000000040000ULL,	// half / 2^192 = 40000
  0x0000000000400000ULL,	// half / 2^192 = 400000
  0x0000000002000000ULL,	// half / 2^192 = 2000000
  0x0000000010000000ULL,	// half / 2^192 = 10000000
  0x0000000100000000ULL,	// half / 2^192 = 100000000
  0x0000000800000000ULL,	// half / 2^192 = 800000000
  0x0000004000000000ULL,	// half / 2^192 = 4000000000
  0x0000040000000000ULL,	// half / 2^192 = 40000000000
  0x0000200000000000ULL,	// half / 2^192 = 200000000000
  0x0001000000000000ULL,	// half / 2^192 = 1000000000000
  0x0010000000000000ULL,	// half / 2^192 = 10000000000000
  0x0080000000000000ULL,	// half / 2^192 = 80000000000000
  0x0400000000000000ULL,	// half / 2^192 = 400000000000000
  0x4000000000000000ULL,	// half / 2^192 = 4000000000000000
  0x0000000000000002ULL,	// half / 2^256 = 2
  0x0000000000000010ULL,	// half / 2^256 = 10
  0x0000000000000100ULL,	// half / 2^256 = 100
  0x0000000000000800ULL,	// half / 2^256 = 800
  0x0000000000004000ULL,	// half / 2^256 = 4000
  0x0000000000040000ULL,	// half / 2^256 = 40000
  0x0000000000200000ULL,	// half / 2^256 = 200000
  0x0000000001000000ULL,	// half / 2^256 = 1000000
  0x0000000010000000ULL,	// half / 2^256 = 10000000
  0x0000000080000000ULL,	// half / 2^256 = 80000000
  0x0000000400000000ULL,	// half / 2^256 = 400000000
  0x0000002000000000ULL,	// half / 2^256 = 2000000000
  0x0000020000000000ULL,	// half / 2^256 = 20000000000
  0x0000100000000000ULL,	// half / 2^256 = 100000000000
  0x0000800000000000ULL,	// half / 2^256 = 800000000000
  0x0008000000000000ULL,	// half / 2^256 = 8000000000000
  0x0040000000000000ULL,	// half / 2^256 = 40000000000000
  0x0200000000000000ULL,	// half / 2^256 = 200000000000000
  0x2000000000000000ULL,	// half / 2^256 = 2000000000000000
  0x0000000000000001ULL,	// half / 2^320 = 1
  0x0000000000000008ULL,	// half / 2^320 = 8
  0x0000000000000080ULL,	// half / 2^320 = 80
  0x0000000000000400ULL,	// half / 2^320 = 400
  0x0000000000002000ULL,	// half / 2^320 = 2000
  0x0000000000020000ULL,	// half / 2^320 = 20000
  0x0000000000100000ULL,	// half / 2^320 = 100000
  0x0000000000800000ULL,	// half / 2^320 = 800000
  0x0000000008000000ULL,	// half / 2^320 = 8000000
  0x0000000040000000ULL,	// half / 2^320 = 40000000
  0x0000000200000000ULL,	// half / 2^320 = 200000000
  0x0000002000000000ULL,	// half / 2^320 = 2000000000
  0x0000010000000000ULL,	// half / 2^320 = 10000000000
  0x0000080000000000ULL,	// half / 2^320 = 80000000000
  0x0000800000000000ULL,	// half / 2^320 = 800000000000
  0x0004000000000000ULL,	// half / 2^320 = 4000000000000
  0x0020000000000000ULL,	// half / 2^320 = 20000000000000
  0x0200000000000000ULL	// half / 2^320 = 200000000000000
};

UINT64 mask192[] = {
  0x0000000000000007ULL,	// mask / 2^192
  0x000000000000003fULL,	// mask / 2^192
  0x00000000000001ffULL,	// mask / 2^192
  0x0000000000001fffULL,	// mask / 2^192
  0x000000000000ffffULL,	// mask / 2^192
  0x000000000007ffffULL,	// mask / 2^192
  0x00000000007fffffULL,	// mask / 2^192
  0x0000000003ffffffULL,	// mask / 2^192
  0x000000001fffffffULL,	// mask / 2^192
  0x00000001ffffffffULL,	// mask / 2^192
  0x0000000fffffffffULL,	// mask / 2^192
  0x0000007fffffffffULL,	// mask / 2^192
  0x000007ffffffffffULL,	// mask / 2^192
  0x00003fffffffffffULL,	// mask / 2^192
  0x0001ffffffffffffULL,	// mask / 2^192
  0x001fffffffffffffULL,	// mask / 2^192
  0x00ffffffffffffffULL,	// mask / 2^192
  0x07ffffffffffffffULL,	// mask / 2^192
  0x7fffffffffffffffULL,	// mask / 2^192
  0x0000000000000003ULL,	// mask / 2^256
  0x000000000000001fULL,	// mask / 2^256
  0x00000000000001ffULL,	// mask / 2^256
  0x0000000000000fffULL,	// mask / 2^256
  0x0000000000007fffULL,	// mask / 2^256
  0x000000000007ffffULL,	// mask / 2^256
  0x00000000003fffffULL,	// mask / 2^256
  0x0000000001ffffffULL,	// mask / 2^256
  0x000000001fffffffULL,	// mask / 2^256
  0x00000000ffffffffULL,	// mask / 2^256
  0x00000007ffffffffULL,	// mask / 2^256
  0x0000003fffffffffULL,	// mask / 2^256
  0x000003ffffffffffULL,	// mask / 2^256
  0x00001fffffffffffULL,	// mask / 2^256
  0x0000ffffffffffffULL,	// mask / 2^256
  0x000fffffffffffffULL,	// mask / 2^256
  0x007fffffffffffffULL,	// mask / 2^256
  0x03ffffffffffffffULL,	// mask / 2^256
  0x3fffffffffffffffULL,	// mask / 2^256
  0x0000000000000001ULL,	// mask / 2^320
  0x000000000000000fULL,	// mask / 2^320
  0x00000000000000ffULL,	// mask / 2^320
  0x00000000000007ffULL,	// mask / 2^320
  0x0000000000003fffULL,	// mask / 2^320
  0x000000000003ffffULL,	// mask / 2^320
  0x00000000001fffffULL,	// mask / 2^320
  0x0000000000ffffffULL,	// mask / 2^320
  0x000000000fffffffULL,	// mask / 2^320
  0x000000007fffffffULL,	// mask / 2^320
  0x00000003ffffffffULL,	// mask / 2^320
  0x0000003fffffffffULL,	// mask / 2^320
  0x000001ffffffffffULL,	// mask / 2^320
  0x00000fffffffffffULL,	// mask / 2^320
  0x0000ffffffffffffULL,	// mask / 2^320
  0x0007ffffffffffffULL,	// mask / 2^320
  0x003fffffffffffffULL,	// mask / 2^320
  0x03ffffffffffffffULL	// mask / 2^320
};

UINT192 ten2mxtrunc192[] = {
  {{0xccccccccccccccccULL, 0xccccccccccccccccULL,
    0xccccccccccccccccULL}},
  // (ten2mx >> 192) = cccccccccccccccccccccccccccccccccccccccccccccccc
  {{0xd70a3d70a3d70a3dULL, 0x3d70a3d70a3d70a3ULL,
    0xa3d70a3d70a3d70aULL}},
  // (ten2mx >> 192) = a3d70a3d70a3d70a3d70a3d70a3d70a3d70a3d70a3d70a3d
  {{0x78d4fdf3b645a1caULL, 0x645a1cac083126e9ULL,
    0x83126e978d4fdf3bULL}},
  // (ten2mx >> 192) = 83126e978d4fdf3b645a1cac083126e978d4fdf3b645a1ca
  {{0xc154c985f06f6944ULL, 0xd3c36113404ea4a8ULL,
    0xd1b71758e219652bULL}},
  // (ten2mx >> 192) = d1b71758e219652bd3c36113404ea4a8c154c985f06f6944
  {{0xcddd6e04c0592103ULL, 0x0fcf80dc33721d53ULL,
    0xa7c5ac471b478423ULL}},
  // (ten2mx >> 192) = a7c5ac471b4784230fcf80dc33721d53cddd6e04c0592103
  {{0xd7e45803cd141a69ULL, 0xa63f9a49c2c1b10fULL,
    0x8637bd05af6c69b5ULL}},
  // (ten2mx >> 192) = 8637bd05af6c69b5a63f9a49c2c1b10fd7e45803cd141a69
  {{0x8ca08cd2e1b9c3dbULL, 0x3d32907604691b4cULL,
    0xd6bf94d5e57a42bcULL}},
  // (ten2mx >> 192) = d6bf94d5e57a42bc3d32907604691b4c8ca08cd2e1b9c3db
  {{0x3d4d3d758161697cULL, 0xfdc20d2b36ba7c3dULL,
    0xabcc77118461cefcULL}},
  // (ten2mx >> 192) = abcc77118461cefcfdc20d2b36ba7c3d3d4d3d758161697c
  {{0xfdd7645e011abac9ULL, 0x31680a88f8953030ULL,
    0x89705f4136b4a597ULL}},
  // (ten2mx >> 192) = 89705f4136b4a59731680a88f8953030fdd7645e011abac9
  {{0x2fbf06fcce912adcULL, 0xb573440e5a884d1bULL,
    0xdbe6fecebdedd5beULL}},
  // (ten2mx >> 192) = dbe6fecebdedd5beb573440e5a884d1b2fbf06fcce912adc
  {{0xf2ff38ca3eda88b0ULL, 0xf78f69a51539d748ULL,
    0xafebff0bcb24aafeULL}},
  // (ten2mx >> 192) = afebff0bcb24aafef78f69a51539d748f2ff38ca3eda88b0
  {{0xf598fa3b657ba08dULL, 0xf93f87b7442e45d3ULL,
    0x8cbccc096f5088cbULL}},
  // (ten2mx >> 192) = 8cbccc096f5088cbf93f87b7442e45d3f598fa3b657ba08d
  {{0x88f4c3923bf900e2ULL, 0x2865a5f206b06fb9ULL,
    0xe12e13424bb40e13ULL}},
  // (ten2mx >> 192) = e12e13424bb40e132865a5f206b06fb988f4c3923bf900e2
  {{0x6d909c74fcc733e8ULL, 0x538484c19ef38c94ULL,
    0xb424dc35095cd80fULL}},
  // (ten2mx >> 192) = b424dc35095cd80f538484c19ef38c946d909c74fcc733e8
  {{0x57a6e390ca38f653ULL, 0x0f9d37014bf60a10ULL,
    0x901d7cf73ab0acd9ULL}},
  // (ten2mx >> 192) = 901d7cf73ab0acd90f9d37014bf60a1057a6e390ca38f653
  {{0xbf716c1add27f085ULL, 0x4c2ebe687989a9b3ULL,
    0xe69594bec44de15bULL}},
  // (ten2mx >> 192) = e69594bec44de15b4c2ebe687989a9b3bf716c1add27f085
  {{0xff8df0157db98d37ULL, 0x09befeb9fad487c2ULL,
    0xb877aa3236a4b449ULL}},
  // (ten2mx >> 192) = b877aa3236a4b44909befeb9fad487c2ff8df0157db98d37
  {{0x32d7f344649470f9ULL, 0x3aff322e62439fcfULL,
    0x9392ee8e921d5d07ULL}},
  // (ten2mx >> 192) = 9392ee8e921d5d073aff322e62439fcf32d7f344649470f9
  {{0x1e2652070753e7f4ULL, 0x2b31e9e3d06c32e5ULL,
    0xec1e4a7db69561a5ULL}},
  // (ten2mx >> 192) = ec1e4a7db69561a52b31e9e3d06c32e51e2652070753e7f4
  {{0x181ea8059f76532aULL, 0x88f4bb1ca6bcf584ULL,
    0xbce5086492111aeaULL}},
  // (ten2mx >> 192) = bce5086492111aea88f4bb1ca6bcf584181ea8059f76532a
  {{0x467eecd14c5ea8eeULL, 0xd3f6fc16ebca5e03ULL,
    0x971da05074da7beeULL}},
  // (ten2mx >> 192) = 971da05074da7beed3f6fc16ebca5e03467eecd14c5ea8ee
  {{0x70cb148213caa7e4ULL, 0x5324c68b12dd6338ULL,
    0xf1c90080baf72cb1ULL}},
  // (ten2mx >> 192) = f1c90080baf72cb15324c68b12dd633870cb148213caa7e4
  {{0x8d6f439b43088650ULL, 0x75b7053c0f178293ULL,
    0xc16d9a0095928a27ULL}},
  // (ten2mx >> 192) = c16d9a0095928a2775b7053c0f1782938d6f439b43088650
  {{0xd78c3615cf3a050cULL, 0xc4926a9672793542ULL,
    0x9abe14cd44753b52ULL}},
  // (ten2mx >> 192) = 9abe14cd44753b52c4926a9672793542d78c3615cf3a050c
  {{0x8c1389bc7ec33b47ULL, 0x3a83ddbd83f52204ULL,
    0xf79687aed3eec551ULL}},
  // (ten2mx >> 192) = f79687aed3eec5513a83ddbd83f522048c1389bc7ec33b47
  {{0x3cdc6e306568fc39ULL, 0x95364afe032a819dULL,
    0xc612062576589ddaULL}},
  // (ten2mx >> 192) = c612062576589dda95364afe032a819d3cdc6e306568fc39
  {{0xca49f1c05120c9c7ULL, 0x775ea264cf55347dULL,
    0x9e74d1b791e07e48ULL}},
  // (ten2mx >> 192) = 9e74d1b791e07e48775ea264cf55347dca49f1c05120c9c7
  {{0x76dcb60081ce0fa5ULL, 0x8bca9d6e188853fcULL,
    0xfd87b5f28300ca0dULL}},
  // (ten2mx >> 192) = fd87b5f28300ca0d8bca9d6e188853fc76dcb60081ce0fa5
  {{0x5f16f80067d80c84ULL, 0x096ee45813a04330ULL,
    0xcad2f7f5359a3b3eULL}},
  // (ten2mx >> 192) = cad2f7f5359a3b3e096ee45813a043305f16f80067d80c84
  {{0x18df2ccd1fe00a03ULL, 0xa1258379a94d028dULL,
    0xa2425ff75e14fc31ULL}},
  // (ten2mx >> 192) = a2425ff75e14fc31a1258379a94d028d18df2ccd1fe00a03
  {{0x4718f0a419800802ULL, 0x80eacf948770ced7ULL,
    0x81ceb32c4b43fcf4ULL}},
  // (ten2mx >> 192) = 81ceb32c4b43fcf480eacf948770ced74718f0a419800802
  {{0x0b5b1aa028ccd99eULL, 0x67de18eda5814af2ULL,
    0xcfb11ead453994baULL}},
  // (ten2mx >> 192) = cfb11ead453994ba67de18eda5814af20b5b1aa028ccd99e
  {{0x6f7c154ced70ae18ULL, 0xecb1ad8aeacdd58eULL,
    0xa6274bbdd0fadd61ULL}},
  // (ten2mx >> 192) = a6274bbdd0fadd61ecb1ad8aeacdd58e6f7c154ced70ae18
  {{0xbf967770bdf3be79ULL, 0xbd5af13bef0b113eULL,
    0x84ec3c97da624ab4ULL}},
  // (ten2mx >> 192) = 84ec3c97da624ab4bd5af13bef0b113ebf967770bdf3be79
  {{0x65bd8be79652ca5cULL, 0x955e4ec64b44e864ULL,
    0xd4ad2dbfc3d07787ULL}},
  // (ten2mx >> 192) = d4ad2dbfc3d07787955e4ec64b44e86465bd8be79652ca5c
  {{0xeafe098611dbd516ULL, 0xdde50bd1d5d0b9e9ULL,
    0xaa242499697392d2ULL}},
  // (ten2mx >> 192) = aa242499697392d2dde50bd1d5d0b9e9eafe098611dbd516
  {{0xbbfe6e04db164412ULL, 0x7e50d64177da2e54ULL,
    0x881cea14545c7575ULL}},
  // (ten2mx >> 192) = 881cea14545c75757e50d64177da2e54bbfe6e04db164412
  {{0x2cca49a15e8a0683ULL, 0x96e7bd358c904a21ULL,
    0xd9c7dced53c72255ULL}},
  // (ten2mx >> 192) = d9c7dced53c7225596e7bd358c904a212cca49a15e8a0683
  {{0x8a3b6e1ab2080536ULL, 0xabec975e0a0d081aULL,
    0xae397d8aa96c1b77ULL}},
  // (ten2mx >> 192) = ae397d8aa96c1b77abec975e0a0d081a8a3b6e1ab2080536
  {{0x3b62be7bc1a0042bULL, 0x2323ac4b3b3da015ULL,
    0x8b61313bbabce2c6ULL}},
  // (ten2mx >> 192) = 8b61313bbabce2c62323ac4b3b3da0153b62be7bc1a0042b
  {{0x5f0463f935ccd378ULL, 0x6b6c46dec52f6688ULL,
    0xdf01e85f912e37a3ULL}},
  // (ten2mx >> 192) = df01e85f912e37a36b6c46dec52f66885f0463f935ccd378
  {{0x7f36b660f7d70f93ULL, 0x55f038b237591ed3ULL,
    0xb267ed1940f1c61cULL}},
  // (ten2mx >> 192) = b267ed1940f1c61c55f038b237591ed37f36b660f7d70f93
  {{0xcc2bc51a5fdf3fa9ULL, 0x77f3608e92adb242ULL,
    0x8eb98a7a9a5b04e3ULL}},
  // (ten2mx >> 192) = 8eb98a7a9a5b04e377f3608e92adb242cc2bc51a5fdf3fa9
  {{0xe046082a32fecc41ULL, 0x8cb89a7db77c506aULL,
    0xe45c10c42a2b3b05ULL}},
  // (ten2mx >> 192) = e45c10c42a2b3b058cb89a7db77c506ae046082a32fecc41
  {{0x4d04d354f598a367ULL, 0x3d607b97c5fd0d22ULL,
    0xb6b00d69bb55c8d1ULL}},
  // (ten2mx >> 192) = b6b00d69bb55c8d13d607b97c5fd0d224d04d354f598a367
  {{0x3d9d75dd9146e91fULL, 0xcab3961304ca70e8ULL,
    0x9226712162ab070dULL}},
  // (ten2mx >> 192) = 9226712162ab070dcab3961304ca70e83d9d75dd9146e91f
  {{0xc8fbefc8e87174ffULL, 0xaab8f01e6e10b4a6ULL,
    0xe9d71b689dde71afULL}},
  // (ten2mx >> 192) = e9d71b689dde71afaab8f01e6e10b4a6c8fbefc8e87174ff
  {{0x3a63263a538df733ULL, 0x5560c018580d5d52ULL,
    0xbb127c53b17ec159ULL}},
  // (ten2mx >> 192) = bb127c53b17ec1595560c018580d5d523a63263a538df733
  {{0x2eb5b82ea93e5f5cULL, 0xdde7001379a44aa8ULL,
    0x95a8637627989aadULL}},
  // (ten2mx >> 192) = 95a8637627989aaddde7001379a44aa82eb5b82ea93e5f5c
  {{0x4abc59e441fd6560ULL, 0x963e66858f6d4440ULL,
    0xef73d256a5c0f77cULL}},
  // (ten2mx >> 192) = ef73d256a5c0f77c963e66858f6d44404abc59e441fd6560
  {{0x6efd14b69b311de6ULL, 0xde98520472bdd033ULL,
    0xbf8fdb78849a5f96ULL}},
  // (ten2mx >> 192) = bf8fdb78849a5f96de98520472bdd0336efd14b69b311de6
  {{0x259743c548f417ebULL, 0xe546a8038efe4029ULL,
    0x993fe2c6d07b7fabULL}},
  // (ten2mx >> 192) = 993fe2c6d07b7fabe546a8038efe4029259743c548f417eb
  {{0x3c25393ba7ecf312ULL, 0xd53dd99f4b3066a8ULL,
    0xf53304714d9265dfULL}},
  // (ten2mx >> 192) = f53304714d9265dfd53dd99f4b3066a83c25393ba7ecf312
  {{0x96842dc95323f5a8ULL, 0xaa97e14c3c26b886ULL,
    0xc428d05aa4751e4cULL}},
  // (ten2mx >> 192) = c428d05aa4751e4caa97e14c3c26b88696842dc95323f5a8
  {{0xab9cf16ddc1cc486ULL, 0x55464dd69685606bULL,
    0x9ced737bb6c4183dULL}},
  // (ten2mx >> 192) = 9ced737bb6c4183d55464dd69685606bab9cf16ddc1cc486
  {{0xac2e4f162cfad40aULL, 0xeed6e2f0f0d56712ULL, 0xfb158592be068d2eULL}}
  // (ten2mx >> 192) = fb158592be068d2eeed6e2f0f0d56712ac2e4f162cfad40a
};

UINT256 Kx256[] = {
  {{0xcccccccccccccccdULL, 0xccccccccccccccccULL,
    0xccccccccccccccccULL, 0xccccccccccccccccULL}},
  // 10^-1 ~= cccccccccccccccc  cccccccccccccccc   
  //   cccccccccccccccccccccccccccccccd   * 2^-259
  {{0x70a3d70a3d70a3d8ULL, 0xd70a3d70a3d70a3dULL,
    0x3d70a3d70a3d70a3ULL, 0xa3d70a3d70a3d70aULL}},
  // 10^-2 ~= a3d70a3d70a3d70a  3d70a3d70a3d70a3   
  //   d70a3d70a3d70a3d70a3d70a3d70a3d8   * 2^-262
  {{0xc083126e978d4fe0ULL, 0x78d4fdf3b645a1caULL,
    0x645a1cac083126e9ULL, 0x83126e978d4fdf3bULL}},
  // 10^-3 ~= 83126e978d4fdf3b  645a1cac083126e9   
  //   78d4fdf3b645a1cac083126e978d4fe0   * 2^-265
  {{0x67381d7dbf487fccULL, 0xc154c985f06f6944ULL,
    0xd3c36113404ea4a8ULL, 0xd1b71758e219652bULL}},
  // 10^-4 ~= d1b71758e219652b  d3c36113404ea4a8   
  //   c154c985f06f694467381d7dbf487fcc   * 2^-269
  {{0x85c67dfe32a0663dULL, 0xcddd6e04c0592103ULL,
    0x0fcf80dc33721d53ULL, 0xa7c5ac471b478423ULL}},
  // 10^-5 ~= a7c5ac471b478423  fcf80dc33721d53   
  //   cddd6e04c059210385c67dfe32a0663d   * 2^-272
  {{0x37d1fe64f54d1e97ULL, 0xd7e45803cd141a69ULL,
    0xa63f9a49c2c1b10fULL, 0x8637bd05af6c69b5ULL}},
  // 10^-6 ~= 8637bd05af6c69b5  a63f9a49c2c1b10f   
  //   d7e45803cd141a6937d1fe64f54d1e97   * 2^-275
  {{0x8c8330a1887b6425ULL, 0x8ca08cd2e1b9c3dbULL,
    0x3d32907604691b4cULL, 0xd6bf94d5e57a42bcULL}},
  // 10^-7 ~= d6bf94d5e57a42bc  3d32907604691b4c   
  //   8ca08cd2e1b9c3db8c8330a1887b6425   * 2^-279
  {{0x7068f3b46d2f8351ULL, 0x3d4d3d758161697cULL,
    0xfdc20d2b36ba7c3dULL, 0xabcc77118461cefcULL}},
  // 10^-8 ~= abcc77118461cefc  fdc20d2b36ba7c3d   
  //   3d4d3d758161697c7068f3b46d2f8351   * 2^-282
  {{0xf387295d242602a7ULL, 0xfdd7645e011abac9ULL,
    0x31680a88f8953030ULL, 0x89705f4136b4a597ULL}},
  // 10^-9 ~= 89705f4136b4a597  31680a88f8953030   
  //   fdd7645e011abac9f387295d242602a7   * 2^-285
  {{0xb8d8422ea03cd10bULL, 0x2fbf06fcce912adcULL,
    0xb573440e5a884d1bULL, 0xdbe6fecebdedd5beULL}},
  // 10^-10 ~= dbe6fecebdedd5be  b573440e5a884d1b   
  //   2fbf06fcce912adcb8d8422ea03cd10b   * 2^-289
  {{0x93e034f219ca40d6ULL, 0xf2ff38ca3eda88b0ULL,
    0xf78f69a51539d748ULL, 0xafebff0bcb24aafeULL}},
  // 10^-11 ~= afebff0bcb24aafe  f78f69a51539d748   
  //   f2ff38ca3eda88b093e034f219ca40d6   * 2^-292
  {{0x4319c3f4e16e9a45ULL, 0xf598fa3b657ba08dULL,
    0xf93f87b7442e45d3ULL, 0x8cbccc096f5088cbULL}},
  // 10^-12 ~= 8cbccc096f5088cb  f93f87b7442e45d3   
  //   f598fa3b657ba08d4319c3f4e16e9a45   * 2^-295
  {{0x04f606549be42a07ULL, 0x88f4c3923bf900e2ULL,
    0x2865a5f206b06fb9ULL, 0xe12e13424bb40e13ULL}},
  // 10^-13 ~= e12e13424bb40e13  2865a5f206b06fb9   
  //   88f4c3923bf900e204f606549be42a07   * 2^-299
  {{0x03f805107cb68806ULL, 0x6d909c74fcc733e8ULL,
    0x538484c19ef38c94ULL, 0xb424dc35095cd80fULL}},
  // 10^-14 ~= b424dc35095cd80f  538484c19ef38c94   
  //   6d909c74fcc733e803f805107cb68806   * 2^-302
  {{0x3660040d3092066bULL, 0x57a6e390ca38f653ULL,
    0x0f9d37014bf60a10ULL, 0x901d7cf73ab0acd9ULL}},
  // 10^-15 ~= 901d7cf73ab0acd9  f9d37014bf60a10   
  //   57a6e390ca38f6533660040d3092066b   * 2^-305
  {{0x23ccd3484db670abULL, 0xbf716c1add27f085ULL,
    0x4c2ebe687989a9b3ULL, 0xe69594bec44de15bULL}},
  // 10^-16 ~= e69594bec44de15b  4c2ebe687989a9b3   
  //   bf716c1add27f08523ccd3484db670ab   * 2^-309
  {{0x4fd70f6d0af85a23ULL, 0xff8df0157db98d37ULL,
    0x09befeb9fad487c2ULL, 0xb877aa3236a4b449ULL}},
  // 10^-17 ~= b877aa3236a4b449  9befeb9fad487c2   
  //   ff8df0157db98d374fd70f6d0af85a23   * 2^-312
  {{0x0cac0c573bf9e1b6ULL, 0x32d7f344649470f9ULL,
    0x3aff322e62439fcfULL, 0x9392ee8e921d5d07ULL}},
  // 10^-18 ~= 9392ee8e921d5d07  3aff322e62439fcf   
  //   32d7f344649470f90cac0c573bf9e1b6   * 2^-315
  {{0xe11346f1f98fcf89ULL, 0x1e2652070753e7f4ULL,
    0x2b31e9e3d06c32e5ULL, 0xec1e4a7db69561a5ULL}},
  // 10^-19 ~= ec1e4a7db69561a5  2b31e9e3d06c32e5   
  //   1e2652070753e7f4e11346f1f98fcf89   * 2^-319
  {{0x4da9058e613fd93aULL, 0x181ea8059f76532aULL,
    0x88f4bb1ca6bcf584ULL, 0xbce5086492111aeaULL}},
  // 10^-20 ~= bce5086492111aea  88f4bb1ca6bcf584   
  //   181ea8059f76532a4da9058e613fd93a   * 2^-322
  {{0xa48737a51a997a95ULL, 0x467eecd14c5ea8eeULL,
    0xd3f6fc16ebca5e03ULL, 0x971da05074da7beeULL}},
  // 10^-21 ~= 971da05074da7bee  d3f6fc16ebca5e03   
  //   467eecd14c5ea8eea48737a51a997a95   * 2^-325
  {{0x3a71f2a1c428c421ULL, 0x70cb148213caa7e4ULL,
    0x5324c68b12dd6338ULL, 0xf1c90080baf72cb1ULL}},
  // 10^-22 ~= f1c90080baf72cb1  5324c68b12dd6338   
  //   70cb148213caa7e43a71f2a1c428c421   * 2^-329
  {{0x2ec18ee7d0209ce8ULL, 0x8d6f439b43088650ULL,
    0x75b7053c0f178293ULL, 0xc16d9a0095928a27ULL}},
  // 10^-23 ~= c16d9a0095928a27  75b7053c0f178293   
  //   8d6f439b430886502ec18ee7d0209ce8   * 2^-332
  {{0xf23472530ce6e3edULL, 0xd78c3615cf3a050cULL,
    0xc4926a9672793542ULL, 0x9abe14cd44753b52ULL}},
  // 10^-24 ~= 9abe14cd44753b52  c4926a9672793542   
  //   d78c3615cf3a050cf23472530ce6e3ed   * 2^-335
  {{0xe9ed83b814a49fe1ULL, 0x8c1389bc7ec33b47ULL,
    0x3a83ddbd83f52204ULL, 0xf79687aed3eec551ULL}},
  // 10^-25 ~= f79687aed3eec551  3a83ddbd83f52204   
  //   8c1389bc7ec33b47e9ed83b814a49fe1   * 2^-339
  {{0x87f1362cdd507fe7ULL, 0x3cdc6e306568fc39ULL,
    0x95364afe032a819dULL, 0xc612062576589ddaULL}},
  // 10^-26 ~= c612062576589dda  95364afe032a819d   
  //   3cdc6e306568fc3987f1362cdd507fe7   * 2^-342
  {{0x9ff42b5717739986ULL, 0xca49f1c05120c9c7ULL,
    0x775ea264cf55347dULL, 0x9e74d1b791e07e48ULL}},
  // 10^-27 ~= 9e74d1b791e07e48  775ea264cf55347d   
  //   ca49f1c05120c9c79ff42b5717739986   * 2^-345
  {{0xccb9def1bf1f5c09ULL, 0x76dcb60081ce0fa5ULL,
    0x8bca9d6e188853fcULL, 0xfd87b5f28300ca0dULL}},
  // 10^-28 ~= fd87b5f28300ca0d  8bca9d6e188853fc   
  //   76dcb60081ce0fa5ccb9def1bf1f5c09   * 2^-349
  {{0xa3c7e58e327f7cd4ULL, 0x5f16f80067d80c84ULL,
    0x096ee45813a04330ULL, 0xcad2f7f5359a3b3eULL}},
  // 10^-29 ~= cad2f7f5359a3b3e  96ee45813a04330   
  //   5f16f80067d80c84a3c7e58e327f7cd4   * 2^-352
  {{0xb6398471c1ff9710ULL, 0x18df2ccd1fe00a03ULL,
    0xa1258379a94d028dULL, 0xa2425ff75e14fc31ULL}},
  // 10^-30 ~= a2425ff75e14fc31  a1258379a94d028d   
  //   18df2ccd1fe00a03b6398471c1ff9710   * 2^-355
  {{0xf82e038e34cc78daULL, 0x4718f0a419800802ULL,
    0x80eacf948770ced7ULL, 0x81ceb32c4b43fcf4ULL}},
  // 10^-31 ~= 81ceb32c4b43fcf4  80eacf948770ced7   
  //   4718f0a419800802f82e038e34cc78da   * 2^-358
  {{0x59e338e387ad8e29ULL, 0x0b5b1aa028ccd99eULL,
    0x67de18eda5814af2ULL, 0xcfb11ead453994baULL}},
  // 10^-32 ~= cfb11ead453994ba  67de18eda5814af2   
  //   b5b1aa028ccd99e59e338e387ad8e29   * 2^-362
  {{0x47e8fa4f9fbe0b54ULL, 0x6f7c154ced70ae18ULL,
    0xecb1ad8aeacdd58eULL, 0xa6274bbdd0fadd61ULL}},
  // 10^-33 ~= a6274bbdd0fadd61  ecb1ad8aeacdd58e   
  //   6f7c154ced70ae1847e8fa4f9fbe0b54   * 2^-365
  {{0xd320c83fb2fe6f76ULL, 0xbf967770bdf3be79ULL,
    0xbd5af13bef0b113eULL, 0x84ec3c97da624ab4ULL}},
  // 10^-34 ~= 84ec3c97da624ab4  bd5af13bef0b113e   
  //   bf967770bdf3be79d320c83fb2fe6f76   * 2^-368
  {{0x85014065eb30b257ULL, 0x65bd8be79652ca5cULL,
    0x955e4ec64b44e864ULL, 0xd4ad2dbfc3d07787ULL}},
  // 10^-35 ~= d4ad2dbfc3d07787  955e4ec64b44e864   
  //   65bd8be79652ca5c85014065eb30b257   * 2^-372
  {{0xd0cdcd1e55c08eacULL, 0xeafe098611dbd516ULL,
    0xdde50bd1d5d0b9e9ULL, 0xaa242499697392d2ULL}},
  // 10^-36 ~= aa242499697392d2  dde50bd1d5d0b9e9   
  //   eafe098611dbd516d0cdcd1e55c08eac   * 2^-375
  {{0x40a4a418449a0bbdULL, 0xbbfe6e04db164412ULL,
    0x7e50d64177da2e54ULL, 0x881cea14545c7575ULL}},
  // 10^-37 ~= 881cea14545c7575  7e50d64177da2e54   
  //   bbfe6e04db16441240a4a418449a0bbd   * 2^-378
  {{0x9aa1068d3a9012c8ULL, 0x2cca49a15e8a0683ULL,
    0x96e7bd358c904a21ULL, 0xd9c7dced53c72255ULL}},
  // 10^-38 ~= d9c7dced53c72255  96e7bd358c904a21   
  //   2cca49a15e8a06839aa1068d3a9012c8   * 2^-382
  {{0x154d9ed7620cdbd3ULL, 0x8a3b6e1ab2080536ULL,
    0xabec975e0a0d081aULL, 0xae397d8aa96c1b77ULL}},
  // 10^-39 ~= ae397d8aa96c1b77  abec975e0a0d081a   
  //   8a3b6e1ab2080536154d9ed7620cdbd3   * 2^-385
  {{0x443e18ac4e70afdcULL, 0x3b62be7bc1a0042bULL,
    0x2323ac4b3b3da015ULL, 0x8b61313bbabce2c6ULL}},
  // 10^-40 ~= 8b61313bbabce2c6  2323ac4b3b3da015   
  //   3b62be7bc1a0042b443e18ac4e70afdc   * 2^-388
  {{0x6d30277a171ab2f9ULL, 0x5f0463f935ccd378ULL,
    0x6b6c46dec52f6688ULL, 0xdf01e85f912e37a3ULL}},
  // 10^-41 ~= df01e85f912e37a3  6b6c46dec52f6688   
  //   5f0463f935ccd3786d30277a171ab2f9   * 2^-392
  {{0x8a8cec61ac155bfbULL, 0x7f36b660f7d70f93ULL,
    0x55f038b237591ed3ULL, 0xb267ed1940f1c61cULL}},
  // 10^-42 ~= b267ed1940f1c61c  55f038b237591ed3   
  //   7f36b660f7d70f938a8cec61ac155bfb   * 2^-395
  {{0x3ba3f04e23444996ULL, 0xcc2bc51a5fdf3fa9ULL,
    0x77f3608e92adb242ULL, 0x8eb98a7a9a5b04e3ULL}},
  // 10^-43 ~= 8eb98a7a9a5b04e3  77f3608e92adb242   
  //   cc2bc51a5fdf3fa93ba3f04e23444996   * 2^-398
  {{0xf9064d49d206dc22ULL, 0xe046082a32fecc41ULL,
    0x8cb89a7db77c506aULL, 0xe45c10c42a2b3b05ULL}},
  // 10^-44 ~= e45c10c42a2b3b05  8cb89a7db77c506a   
  //   e046082a32fecc41f9064d49d206dc22   * 2^-402
  {{0xfa6b7107db38b01bULL, 0x4d04d354f598a367ULL,
    0x3d607b97c5fd0d22ULL, 0xb6b00d69bb55c8d1ULL}},
  // 10^-45 ~= b6b00d69bb55c8d1  3d607b97c5fd0d22   
  //   4d04d354f598a367fa6b7107db38b01b   * 2^-405
  {{0xfb8927397c2d59b0ULL, 0x3d9d75dd9146e91fULL,
    0xcab3961304ca70e8ULL, 0x9226712162ab070dULL}},
  // 10^-46 ~= 9226712162ab070d  cab3961304ca70e8   
  //   3d9d75dd9146e91ffb8927397c2d59b0   * 2^-408
  {{0xf8db71f5937bc2b2ULL, 0xc8fbefc8e87174ffULL,
    0xaab8f01e6e10b4a6ULL, 0xe9d71b689dde71afULL}},
  // 10^-47 ~= e9d71b689dde71af  aab8f01e6e10b4a6   
  //   c8fbefc8e87174fff8db71f5937bc2b2   * 2^-412
  {{0x2d7c5b2adc630228ULL, 0x3a63263a538df733ULL,
    0x5560c018580d5d52ULL, 0xbb127c53b17ec159ULL}},
  // 10^-48 ~= bb127c53b17ec159  5560c018580d5d52   
  //   3a63263a538df7332d7c5b2adc630228   * 2^-415
  {{0x24637c2249e8ce87ULL, 0x2eb5b82ea93e5f5cULL,
    0xdde7001379a44aa8ULL, 0x95a8637627989aadULL}},
  // 10^-49 ~= 95a8637627989aad  dde7001379a44aa8   
  //   2eb5b82ea93e5f5c24637c2249e8ce87   * 2^-418
  {{0x3a38c69d430e173eULL, 0x4abc59e441fd6560ULL,
    0x963e66858f6d4440ULL, 0xef73d256a5c0f77cULL}},
  // 10^-50 ~= ef73d256a5c0f77c  963e66858f6d4440   
  //   4abc59e441fd65603a38c69d430e173e   * 2^-422
  {{0x94fa387dcf3e78feULL, 0x6efd14b69b311de6ULL,
    0xde98520472bdd033ULL, 0xbf8fdb78849a5f96ULL}},
  // 10^-51 ~= bf8fdb78849a5f96  de98520472bdd033   
  //   6efd14b69b311de694fa387dcf3e78fe   * 2^-425
  {{0xaa61c6cb0c31fa65ULL, 0x259743c548f417ebULL,
    0xe546a8038efe4029ULL, 0x993fe2c6d07b7fabULL}},
  // 10^-52 ~= 993fe2c6d07b7fab  e546a8038efe4029   
  //   259743c548f417ebaa61c6cb0c31fa65   * 2^-428
  {{0xaa360ade79e990a2ULL, 0x3c25393ba7ecf312ULL,
    0xd53dd99f4b3066a8ULL, 0xf53304714d9265dfULL}},
  // 10^-53 ~= f53304714d9265df  d53dd99f4b3066a8   
  //   3c25393ba7ecf312aa360ade79e990a2   * 2^-432
  {{0x882b3be52e5473b5ULL, 0x96842dc95323f5a8ULL,
    0xaa97e14c3c26b886ULL, 0xc428d05aa4751e4cULL}},
  // 10^-54 ~= c428d05aa4751e4c  aa97e14c3c26b886   
  //   96842dc95323f5a8882b3be52e5473b5   * 2^-435
  {{0xd355c98425105c91ULL, 0xab9cf16ddc1cc486ULL,
    0x55464dd69685606bULL, 0x9ced737bb6c4183dULL}},
  // 10^-55 ~= 9ced737bb6c4183d  55464dd69685606b   
  //   ab9cf16ddc1cc486d355c98425105c91   * 2^-438
  {{0xebbc75a03b4d60e7ULL, 0xac2e4f162cfad40aULL,
    0xeed6e2f0f0d56712ULL, 0xfb158592be068d2eULL}},
  // 10^-56 ~= fb158592be068d2e  eed6e2f0f0d56712   
  //   ac2e4f162cfad40aebbc75a03b4d60e7   * 2^-442
  {{0x8963914cfc3de71fULL, 0x568b727823fbdcd5ULL,
    0xf245825a5a445275ULL, 0xc8de047564d20a8bULL}},
  // 10^-57 ~= c8de047564d20a8b  f245825a5a445275   
  //   568b727823fbdcd58963914cfc3de71f   * 2^-445
  {{0xd44fa770c9cb1f4cULL, 0x453c5b934ffcb0aaULL,
    0x5b6aceaeae9d0ec4ULL, 0xa0b19d2ab70e6ed6ULL}},
  // 10^-58 ~= a0b19d2ab70e6ed6  5b6aceaeae9d0ec4   
  //   453c5b934ffcb0aad44fa770c9cb1f4c   * 2^-448
  {{0xdd0c85f3d4a27f70ULL, 0x37637c75d996f3bbULL,
    0xe2bbd88bbee40bd0ULL, 0x808e17555f3ebf11ULL}},
  // 10^-59 ~= 808e17555f3ebf11  e2bbd88bbee40bd0   
  //   37637c75d996f3bbdd0c85f3d4a27f70   * 2^-451
  {{0x61ada31fba9d98b3ULL, 0x256bfa5628f185f9ULL,
    0x3792f412cb06794dULL, 0xcdb02555653131b6ULL}},
  // 10^-60 ~= cdb02555653131b6  3792f412cb06794d   
  //   256bfa5628f185f961ada31fba9d98b3   * 2^-455
  {{0xe7be1c196217ad5cULL, 0x51232eab53f46b2dULL,
    0x5fa8c3423c052dd7ULL, 0xa48ceaaab75a8e2bULL}},
  // 10^-61 ~= a48ceaaab75a8e2b  5fa8c3423c052dd7   
  //   51232eab53f46b2de7be1c196217ad5c   * 2^-458
  {{0x52fe7ce11b46244aULL, 0x40e8f222a99055beULL,
    0x1953cf68300424acULL, 0x83a3eeeef9153e89ULL}},
  // 10^-62 ~= 83a3eeeef9153e89  1953cf68300424ac   
  //   40e8f222a99055be52fe7ce11b46244a   * 2^-461
  {{0x51972e34f8703a10ULL, 0x34a7e9d10f4d55fdULL,
    0x8eec7f0d19a03aadULL, 0xd29fe4b18e88640eULL}},
  // 10^-63 ~= d29fe4b18e88640e  8eec7f0d19a03aad   
  //   34a7e9d10f4d55fd51972e34f8703a10   * 2^-465
  {{0x0e128b5d938cfb40ULL, 0x2a1fee40d90aab31ULL,
    0x3f2398d747b36224ULL, 0xa87fea27a539e9a5ULL}},
  // 10^-64 ~= a87fea27a539e9a5  3f2398d747b36224   
  //   2a1fee40d90aab310e128b5d938cfb40   * 2^-468
  {{0x3e753c4adc70c900ULL, 0xbb4cbe9a473bbc27ULL,
    0x98e947129fc2b4e9ULL, 0x86ccbb52ea94baeaULL}},
  // 10^-65 ~= 86ccbb52ea94baea  98e947129fc2b4e9   
  //   bb4cbe9a473bbc273e753c4adc70c900   * 2^-471
  {{0x30bb93aafa4e0e66ULL, 0x9214642a0b92c6a5ULL,
    0x5b0ed81dcc6abb0fULL, 0xd7adf884aa879177ULL}},
  // 10^-66 ~= d7adf884aa879177  5b0ed81dcc6abb0f   
  //   9214642a0b92c6a530bb93aafa4e0e66   * 2^-475
  {{0xc0960fbbfb71a51fULL, 0xa8105021a2dbd21dULL,
    0xe272467e3d222f3fULL, 0xac8b2d36eed2dac5ULL}},
  // 10^-67 ~= ac8b2d36eed2dac5  e272467e3d222f3f   
  //   a8105021a2dbd21dc0960fbbfb71a51f   * 2^-478
  {{0x66de72fcc927b74cULL, 0xb9a6a6814f1641b1ULL,
    0x1b8e9ecb641b58ffULL, 0x8a08f0f8bf0f156bULL}},
  // 10^-68 ~= 8a08f0f8bf0f156b  1b8e9ecb641b58ff   
  //   b9a6a6814f1641b166de72fcc927b74c   * 2^-481
  {{0xd7ca5194750c5879ULL, 0xf5d770cee4f0691bULL,
    0xf8e431456cf88e65ULL, 0xdcdb1b2798182244ULL}},
  // 10^-69 ~= dcdb1b2798182244  f8e431456cf88e65   
  //   f5d770cee4f0691bd7ca5194750c5879   * 2^-485
  {{0xdfd50e105da379faULL, 0x9179270bea59edafULL,
    0x2d835a9df0c6d851ULL, 0xb0af48ec79ace837ULL}},
  // 10^-70 ~= b0af48ec79ace837  2d835a9df0c6d851   
  //   9179270bea59edafdfd50e105da379fa   * 2^-488
  {{0x19773e737e1c6195ULL, 0x0dfa85a321e18af3ULL,
    0x579c487e5a38ad0eULL, 0x8d590723948a535fULL}},
  // 10^-71 ~= 8d590723948a535f  579c487e5a38ad0e   
  //   dfa85a321e18af319773e737e1c6195   * 2^-491
  {{0xf58b971f302d68efULL, 0x165da29e9c9c1184ULL,
    0x25c6da63c38de1b0ULL, 0xe2280b6c20dd5232ULL}},
  // 10^-72 ~= e2280b6c20dd5232  25c6da63c38de1b0   
  //   165da29e9c9c1184f58b971f302d68ef   * 2^-495
  {{0xc46fac18f3578725ULL, 0x4517b54bb07cdad0ULL,
    0x1e38aeb6360b1af3ULL, 0xb4ecd5f01a4aa828ULL}},
  // 10^-73 ~= b4ecd5f01a4aa828  1e38aeb6360b1af3   
  //   4517b54bb07cdad0c46fac18f3578725   * 2^-498
  {{0x36bfbce0c2ac6c1eULL, 0x9dac910959fd7bdaULL,
    0xb1c6f22b5e6f48c2ULL, 0x90bd77f3483bb9b9ULL}},
  // 10^-74 ~= 90bd77f3483bb9b9  b1c6f22b5e6f48c2   
  //   9dac910959fd7bda36bfbce0c2ac6c1e   * 2^-501
  {{0x2465fb01377a4696ULL, 0x2f7a81a88ffbf95dULL,
    0xb60b1d1230b20e04ULL, 0xe7958cb87392c2c2ULL}}
  // 10^-75 ~= e7958cb87392c2c2  b60b1d1230b20e04   
  //   2f7a81a88ffbf95d2465fb01377a4696   * 2^-505
};

unsigned int Ex256m256[] = {
  3,	// 259 - 256, Ex = 259
  6,	// 262 - 256, Ex = 262
  9,	// 265 - 256, Ex = 265
  13,	// 269 - 256, Ex = 269
  16,	// 272 - 256, Ex = 272
  19,	// 275 - 256, Ex = 275
  23,	// 279 - 256, Ex = 279
  26,	// 282 - 256, Ex = 282
  29,	// 285 - 256, Ex = 285
  33,	// 289 - 256, Ex = 289
  36,	// 292 - 256, Ex = 292
  39,	// 295 - 256, Ex = 295
  43,	// 299 - 256, Ex = 299
  46,	// 302 - 256, Ex = 302
  49,	// 305 - 256, Ex = 305
  53,	// 309 - 256, Ex = 309
  56,	// 312 - 256, Ex = 312
  59,	// 315 - 256, Ex = 315
  63,	// 319 - 256, Ex = 319
  2,	// 322 - 320, Ex = 322
  5,	// 325 - 320, Ex = 325
  9,	// 329 - 320, Ex = 329
  12,	// 332 - 320, Ex = 332
  15,	// 335 - 320, Ex = 335
  19,	// 339 - 320, Ex = 339
  22,	// 342 - 320, Ex = 342
  25,	// 345 - 320, Ex = 345
  29,	// 349 - 320, Ex = 349
  32,	// 352 - 320, Ex = 352
  35,	// 355 - 320, Ex = 355
  38,	// 358 - 320, Ex = 358
  42,	// 362 - 320, Ex = 362
  45,	// 365 - 320, Ex = 365
  48,	// 368 - 320, Ex = 368
  52,	// 372 - 320, Ex = 372
  55,	// 375 - 320, Ex = 375
  58,	// 378 - 320, Ex = 378
  62,	// 382 - 320, Ex = 382
  1,	// 385 - 384, Ex = 385
  4,	// 388 - 384, Ex = 388
  8,	// 392 - 384, Ex = 392
  11,	// 395 - 384, Ex = 395
  14,	// 398 - 384, Ex = 398
  18,	// 402 - 384, Ex = 402
  21,	// 405 - 384, Ex = 405
  24,	// 408 - 384, Ex = 408
  28,	// 412 - 384, Ex = 412
  31,	// 415 - 384, Ex = 415
  34,	// 418 - 384, Ex = 418
  38,	// 422 - 384, Ex = 422
  41,	// 425 - 384, Ex = 425
  44,	// 428 - 384, Ex = 428
  48,	// 432 - 384, Ex = 432
  51,	// 435 - 384, Ex = 435
  54,	// 438 - 384, Ex = 438
  58,	// 442 - 384, Ex = 442
  61,	// 445 - 384, Ex = 445
  0,	// 448 - 448, Ex = 448
  3,	// 451 - 448, Ex = 451
  7,	// 455 - 448, Ex = 455
  10,	// 458 - 448, Ex = 458
  13,	// 461 - 448, Ex = 461
  17,	// 465 - 448, Ex = 465
  20,	// 468 - 448, Ex = 468
  23,	// 471 - 448, Ex = 471
  27,	// 475 - 448, Ex = 475
  30,	// 478 - 448, Ex = 478
  33,	// 481 - 448, Ex = 481
  37,	// 485 - 448, Ex = 485
  40,	// 488 - 448, Ex = 488
  43,	// 491 - 448, Ex = 491
  47,	// 495 - 448, Ex = 495
  50,	// 498 - 448, Ex = 498
  53,	// 501 - 448, Ex = 501
  57	// 505 - 448, Ex = 505
};

UINT64 half256[] = {
  0x0000000000000004ULL,	// half / 2^256 = 4
  0x0000000000000020ULL,	// half / 2^256 = 20
  0x0000000000000100ULL,	// half / 2^256 = 100
  0x0000000000001000ULL,	// half / 2^256 = 1000
  0x0000000000008000ULL,	// half / 2^256 = 8000
  0x0000000000040000ULL,	// half / 2^256 = 40000
  0x0000000000400000ULL,	// half / 2^256 = 400000
  0x0000000002000000ULL,	// half / 2^256 = 2000000
  0x0000000010000000ULL,	// half / 2^256 = 10000000
  0x0000000100000000ULL,	// half / 2^256 = 100000000
  0x0000000800000000ULL,	// half / 2^256 = 800000000
  0x0000004000000000ULL,	// half / 2^256 = 4000000000
  0x0000040000000000ULL,	// half / 2^256 = 40000000000
  0x0000200000000000ULL,	// half / 2^256 = 200000000000
  0x0001000000000000ULL,	// half / 2^256 = 1000000000000
  0x0010000000000000ULL,	// half / 2^256 = 10000000000000
  0x0080000000000000ULL,	// half / 2^256 = 80000000000000
  0x0400000000000000ULL,	// half / 2^256 = 400000000000000
  0x4000000000000000ULL,	// half / 2^256 = 4000000000000000
  0x0000000000000002ULL,	// half / 2^320 = 2
  0x0000000000000010ULL,	// half / 2^320 = 10
  0x0000000000000100ULL,	// half / 2^320 = 100
  0x0000000000000800ULL,	// half / 2^320 = 800
  0x0000000000004000ULL,	// half / 2^320 = 4000
  0x0000000000040000ULL,	// half / 2^320 = 40000
  0x0000000000200000ULL,	// half / 2^320 = 200000
  0x0000000001000000ULL,	// half / 2^320 = 1000000
  0x0000000010000000ULL,	// half / 2^320 = 10000000
  0x0000000080000000ULL,	// half / 2^320 = 80000000
  0x0000000400000000ULL,	// half / 2^320 = 400000000
  0x0000002000000000ULL,	// half / 2^320 = 2000000000
  0x0000020000000000ULL,	// half / 2^320 = 20000000000
  0x0000100000000000ULL,	// half / 2^320 = 100000000000
  0x0000800000000000ULL,	// half / 2^320 = 800000000000
  0x0008000000000000ULL,	// half / 2^320 = 8000000000000
  0x0040000000000000ULL,	// half / 2^320 = 40000000000000
  0x0200000000000000ULL,	// half / 2^320 = 200000000000000
  0x2000000000000000ULL,	// half / 2^320 = 2000000000000000
  0x0000000000000001ULL,	// half / 2^384 = 1
  0x0000000000000008ULL,	// half / 2^384 = 8
  0x0000000000000080ULL,	// half / 2^384 = 80
  0x0000000000000400ULL,	// half / 2^384 = 400
  0x0000000000002000ULL,	// half / 2^384 = 2000
  0x0000000000020000ULL,	// half / 2^384 = 20000
  0x0000000000100000ULL,	// half / 2^384 = 100000
  0x0000000000800000ULL,	// half / 2^384 = 800000
  0x0000000008000000ULL,	// half / 2^384 = 8000000
  0x0000000040000000ULL,	// half / 2^384 = 40000000
  0x0000000200000000ULL,	// half / 2^384 = 200000000
  0x0000002000000000ULL,	// half / 2^384 = 2000000000
  0x0000010000000000ULL,	// half / 2^384 = 10000000000
  0x0000080000000000ULL,	// half / 2^384 = 80000000000
  0x0000800000000000ULL,	// half / 2^384 = 800000000000
  0x0004000000000000ULL,	// half / 2^384 = 4000000000000
  0x0020000000000000ULL,	// half / 2^384 = 20000000000000
  0x0200000000000000ULL,	// half / 2^384 = 200000000000000
  0x1000000000000000ULL,	// half / 2^384 = 1000000000000000
  0x8000000000000000ULL,	// half / 2^384 = 8000000000000000
  0x0000000000000004ULL,	// half / 2^448 = 4
  0x0000000000000040ULL,	// half / 2^448 = 40
  0x0000000000000200ULL,	// half / 2^448 = 200
  0x0000000000001000ULL,	// half / 2^448 = 1000
  0x0000000000010000ULL,	// half / 2^448 = 10000
  0x0000000000080000ULL,	// half / 2^448 = 80000
  0x0000000000400000ULL,	// half / 2^448 = 400000
  0x0000000004000000ULL,	// half / 2^448 = 4000000
  0x0000000020000000ULL,	// half / 2^448 = 20000000
  0x0000000100000000ULL,	// half / 2^448 = 100000000
  0x0000001000000000ULL,	// half / 2^448 = 1000000000
  0x0000008000000000ULL,	// half / 2^448 = 8000000000
  0x0000040000000000ULL,	// half / 2^448 = 40000000000
  0x0000400000000000ULL,	// half / 2^448 = 400000000000
  0x0002000000000000ULL,	// half / 2^448 = 2000000000000
  0x0010000000000000ULL,	// half / 2^448 = 10000000000000
  0x0100000000000000ULL	// half / 2^448 = 100000000000000
};

UINT64 mask256[] = {
  0x0000000000000007ULL,	// mask / 2^256
  0x000000000000003fULL,	// mask / 2^256
  0x00000000000001ffULL,	// mask / 2^256
  0x0000000000001fffULL,	// mask / 2^256
  0x000000000000ffffULL,	// mask / 2^256
  0x000000000007ffffULL,	// mask / 2^256
  0x00000000007fffffULL,	// mask / 2^256
  0x0000000003ffffffULL,	// mask / 2^256
  0x000000001fffffffULL,	// mask / 2^256
  0x00000001ffffffffULL,	// mask / 2^256
  0x0000000fffffffffULL,	// mask / 2^256
  0x0000007fffffffffULL,	// mask / 2^256
  0x000007ffffffffffULL,	// mask / 2^256
  0x00003fffffffffffULL,	// mask / 2^256
  0x0001ffffffffffffULL,	// mask / 2^256
  0x001fffffffffffffULL,	// mask / 2^256
  0x00ffffffffffffffULL,	// mask / 2^256
  0x07ffffffffffffffULL,	// mask / 2^256
  0x7fffffffffffffffULL,	// mask / 2^256
  0x0000000000000003ULL,	// mask / 2^320
  0x000000000000001fULL,	// mask / 2^320
  0x00000000000001ffULL,	// mask / 2^320
  0x0000000000000fffULL,	// mask / 2^320
  0x0000000000007fffULL,	// mask / 2^320
  0x000000000007ffffULL,	// mask / 2^320
  0x00000000003fffffULL,	// mask / 2^320
  0x0000000001ffffffULL,	// mask / 2^320
  0x000000001fffffffULL,	// mask / 2^320
  0x00000000ffffffffULL,	// mask / 2^320
  0x00000007ffffffffULL,	// mask / 2^320
  0x0000003fffffffffULL,	// mask / 2^320
  0x000003ffffffffffULL,	// mask / 2^320
  0x00001fffffffffffULL,	// mask / 2^320
  0x0000ffffffffffffULL,	// mask / 2^320
  0x000fffffffffffffULL,	// mask / 2^320
  0x007fffffffffffffULL,	// mask / 2^320
  0x03ffffffffffffffULL,	// mask / 2^320
  0x3fffffffffffffffULL,	// mask / 2^320
  0x0000000000000001ULL,	// mask / 2^384
  0x000000000000000fULL,	// mask / 2^384
  0x00000000000000ffULL,	// mask / 2^384
  0x00000000000007ffULL,	// mask / 2^384
  0x0000000000003fffULL,	// mask / 2^384
  0x000000000003ffffULL,	// mask / 2^384
  0x00000000001fffffULL,	// mask / 2^384
  0x0000000000ffffffULL,	// mask / 2^384
  0x000000000fffffffULL,	// mask / 2^384
  0x000000007fffffffULL,	// mask / 2^384
  0x00000003ffffffffULL,	// mask / 2^384
  0x0000003fffffffffULL,	// mask / 2^384
  0x000001ffffffffffULL,	// mask / 2^384
  0x00000fffffffffffULL,	// mask / 2^384
  0x0000ffffffffffffULL,	// mask / 2^384
  0x0007ffffffffffffULL,	// mask / 2^384
  0x003fffffffffffffULL,	// mask / 2^384
  0x03ffffffffffffffULL,	// mask / 2^384
  0x1fffffffffffffffULL,	// mask / 2^384
  0xffffffffffffffffULL,	// mask / 2^384
  0x0000000000000007ULL,	// mask / 2^448
  0x000000000000007fULL,	// mask / 2^448
  0x00000000000003ffULL,	// mask / 2^448
  0x0000000000001fffULL,	// mask / 2^448
  0x000000000001ffffULL,	// mask / 2^448
  0x00000000000fffffULL,	// mask / 2^448
  0x00000000007fffffULL,	// mask / 2^448
  0x0000000007ffffffULL,	// mask / 2^448
  0x000000003fffffffULL,	// mask / 2^448
  0x00000001ffffffffULL,	// mask / 2^448
  0x0000001fffffffffULL,	// mask / 2^448
  0x000000ffffffffffULL,	// mask / 2^448
  0x000007ffffffffffULL,	// mask / 2^448
  0x00007fffffffffffULL,	// mask / 2^448
  0x0003ffffffffffffULL,	// mask / 2^448
  0x001fffffffffffffULL,	// mask / 2^448
  0x01ffffffffffffffULL	// mask / 2^448
};

UINT256 ten2mxtrunc256[] = {
  {{0xccccccccccccccccULL, 0xccccccccccccccccULL,
    0xccccccccccccccccULL, 0xccccccccccccccccULL}},
  // (ten2mx >> 256) = cccccccccccccccc  cccccccccccccccc   
  //   cccccccccccccccccccccccccccccccc
  {{0x70a3d70a3d70a3d7ULL, 0xd70a3d70a3d70a3dULL,
    0x3d70a3d70a3d70a3ULL, 0xa3d70a3d70a3d70aULL}},
  // (ten2mx >> 256) = a3d70a3d70a3d70a  3d70a3d70a3d70a3   
  //   d70a3d70a3d70a3d70a3d70a3d70a3d7
  {{0xc083126e978d4fdfULL, 0x78d4fdf3b645a1caULL,
    0x645a1cac083126e9ULL, 0x83126e978d4fdf3bULL}},
  // (ten2mx >> 256) = 83126e978d4fdf3b  645a1cac083126e9   
  //   78d4fdf3b645a1cac083126e978d4fdf
  {{0x67381d7dbf487fcbULL, 0xc154c985f06f6944ULL,
    0xd3c36113404ea4a8ULL, 0xd1b71758e219652bULL}},
  // (ten2mx >> 256) = d1b71758e219652b  d3c36113404ea4a8   
  //   c154c985f06f694467381d7dbf487fcb
  {{0x85c67dfe32a0663cULL, 0xcddd6e04c0592103ULL,
    0x0fcf80dc33721d53ULL, 0xa7c5ac471b478423ULL}},
  // (ten2mx >> 256) = a7c5ac471b478423  fcf80dc33721d53   
  //   cddd6e04c059210385c67dfe32a0663c
  {{0x37d1fe64f54d1e96ULL, 0xd7e45803cd141a69ULL,
    0xa63f9a49c2c1b10fULL, 0x8637bd05af6c69b5ULL}},
  // (ten2mx >> 256) = 8637bd05af6c69b5  a63f9a49c2c1b10f   
  //   d7e45803cd141a6937d1fe64f54d1e96
  {{0x8c8330a1887b6424ULL, 0x8ca08cd2e1b9c3dbULL,
    0x3d32907604691b4cULL, 0xd6bf94d5e57a42bcULL}},
  // (ten2mx >> 256) = d6bf94d5e57a42bc  3d32907604691b4c   
  //   8ca08cd2e1b9c3db8c8330a1887b6424
  {{0x7068f3b46d2f8350ULL, 0x3d4d3d758161697cULL,
    0xfdc20d2b36ba7c3dULL, 0xabcc77118461cefcULL}},
  // (ten2mx >> 256) = abcc77118461cefc  fdc20d2b36ba7c3d   
  //   3d4d3d758161697c7068f3b46d2f8350
  {{0xf387295d242602a6ULL, 0xfdd7645e011abac9ULL,
    0x31680a88f8953030ULL, 0x89705f4136b4a597ULL}},
  // (ten2mx >> 256) = 89705f4136b4a597  31680a88f8953030   
  //   fdd7645e011abac9f387295d242602a6
  {{0xb8d8422ea03cd10aULL, 0x2fbf06fcce912adcULL,
    0xb573440e5a884d1bULL, 0xdbe6fecebdedd5beULL}},
  // (ten2mx >> 256) = dbe6fecebdedd5be  b573440e5a884d1b   
  //   2fbf06fcce912adcb8d8422ea03cd10a
  {{0x93e034f219ca40d5ULL, 0xf2ff38ca3eda88b0ULL,
    0xf78f69a51539d748ULL, 0xafebff0bcb24aafeULL}},
  // (ten2mx >> 256) = afebff0bcb24aafe  f78f69a51539d748   
  //   f2ff38ca3eda88b093e034f219ca40d5
  {{0x4319c3f4e16e9a44ULL, 0xf598fa3b657ba08dULL,
    0xf93f87b7442e45d3ULL, 0x8cbccc096f5088cbULL}},
  // (ten2mx >> 256) = 8cbccc096f5088cb  f93f87b7442e45d3   
  //   f598fa3b657ba08d4319c3f4e16e9a44
  {{0x04f606549be42a06ULL, 0x88f4c3923bf900e2ULL,
    0x2865a5f206b06fb9ULL, 0xe12e13424bb40e13ULL}},
  // (ten2mx >> 256) = e12e13424bb40e13  2865a5f206b06fb9   
  //   88f4c3923bf900e204f606549be42a06
  {{0x03f805107cb68805ULL, 0x6d909c74fcc733e8ULL,
    0x538484c19ef38c94ULL, 0xb424dc35095cd80fULL}},
  // (ten2mx >> 256) = b424dc35095cd80f  538484c19ef38c94   
  //   6d909c74fcc733e803f805107cb68805
  {{0x3660040d3092066aULL, 0x57a6e390ca38f653ULL,
    0x0f9d37014bf60a10ULL, 0x901d7cf73ab0acd9ULL}},
  // (ten2mx >> 256) = 901d7cf73ab0acd9  f9d37014bf60a10   
  //   57a6e390ca38f6533660040d3092066a
  {{0x23ccd3484db670aaULL, 0xbf716c1add27f085ULL,
    0x4c2ebe687989a9b3ULL, 0xe69594bec44de15bULL}},
  // (ten2mx >> 256) = e69594bec44de15b  4c2ebe687989a9b3   
  //   bf716c1add27f08523ccd3484db670aa
  {{0x4fd70f6d0af85a22ULL, 0xff8df0157db98d37ULL,
    0x09befeb9fad487c2ULL, 0xb877aa3236a4b449ULL}},
  // (ten2mx >> 256) = b877aa3236a4b449  9befeb9fad487c2   
  //   ff8df0157db98d374fd70f6d0af85a22
  {{0x0cac0c573bf9e1b5ULL, 0x32d7f344649470f9ULL,
    0x3aff322e62439fcfULL, 0x9392ee8e921d5d07ULL}},
  // (ten2mx >> 256) = 9392ee8e921d5d07  3aff322e62439fcf   
  //   32d7f344649470f90cac0c573bf9e1b5
  {{0xe11346f1f98fcf88ULL, 0x1e2652070753e7f4ULL,
    0x2b31e9e3d06c32e5ULL, 0xec1e4a7db69561a5ULL}},
  // (ten2mx >> 256) = ec1e4a7db69561a5  2b31e9e3d06c32e5   
  //   1e2652070753e7f4e11346f1f98fcf88
  {{0x4da9058e613fd939ULL, 0x181ea8059f76532aULL,
    0x88f4bb1ca6bcf584ULL, 0xbce5086492111aeaULL}},
  // (ten2mx >> 256) = bce5086492111aea  88f4bb1ca6bcf584   
  //   181ea8059f76532a4da9058e613fd939
  {{0xa48737a51a997a94ULL, 0x467eecd14c5ea8eeULL,
    0xd3f6fc16ebca5e03ULL, 0x971da05074da7beeULL}},
  // (ten2mx >> 256) = 971da05074da7bee  d3f6fc16ebca5e03   
  //   467eecd14c5ea8eea48737a51a997a94
  {{0x3a71f2a1c428c420ULL, 0x70cb148213caa7e4ULL,
    0x5324c68b12dd6338ULL, 0xf1c90080baf72cb1ULL}},
  // (ten2mx >> 256) = f1c90080baf72cb1  5324c68b12dd6338   
  //   70cb148213caa7e43a71f2a1c428c420
  {{0x2ec18ee7d0209ce7ULL, 0x8d6f439b43088650ULL,
    0x75b7053c0f178293ULL, 0xc16d9a0095928a27ULL}},
  // (ten2mx >> 256) = c16d9a0095928a27  75b7053c0f178293   
  //   8d6f439b430886502ec18ee7d0209ce7
  {{0xf23472530ce6e3ecULL, 0xd78c3615cf3a050cULL,
    0xc4926a9672793542ULL, 0x9abe14cd44753b52ULL}},
  // (ten2mx >> 256) = 9abe14cd44753b52  c4926a9672793542   
  //   d78c3615cf3a050cf23472530ce6e3ec
  {{0xe9ed83b814a49fe0ULL, 0x8c1389bc7ec33b47ULL,
    0x3a83ddbd83f52204ULL, 0xf79687aed3eec551ULL}},
  // (ten2mx >> 256) = f79687aed3eec551  3a83ddbd83f52204   
  //   8c1389bc7ec33b47e9ed83b814a49fe0
  {{0x87f1362cdd507fe6ULL, 0x3cdc6e306568fc39ULL,
    0x95364afe032a819dULL, 0xc612062576589ddaULL}},
  // (ten2mx >> 256) = c612062576589dda  95364afe032a819d   
  //   3cdc6e306568fc3987f1362cdd507fe6
  {{0x9ff42b5717739985ULL, 0xca49f1c05120c9c7ULL,
    0x775ea264cf55347dULL, 0x9e74d1b791e07e48ULL}},
  // (ten2mx >> 256) = 9e74d1b791e07e48  775ea264cf55347d   
  //   ca49f1c05120c9c79ff42b5717739985
  {{0xccb9def1bf1f5c08ULL, 0x76dcb60081ce0fa5ULL,
    0x8bca9d6e188853fcULL, 0xfd87b5f28300ca0dULL}},
  // (ten2mx >> 256) = fd87b5f28300ca0d  8bca9d6e188853fc   
  //   76dcb60081ce0fa5ccb9def1bf1f5c08
  {{0xa3c7e58e327f7cd3ULL, 0x5f16f80067d80c84ULL,
    0x096ee45813a04330ULL, 0xcad2f7f5359a3b3eULL}},
  // (ten2mx >> 256) = cad2f7f5359a3b3e  96ee45813a04330   
  //   5f16f80067d80c84a3c7e58e327f7cd3
  {{0xb6398471c1ff970fULL, 0x18df2ccd1fe00a03ULL,
    0xa1258379a94d028dULL, 0xa2425ff75e14fc31ULL}},
  // (ten2mx >> 256) = a2425ff75e14fc31  a1258379a94d028d   
  //   18df2ccd1fe00a03b6398471c1ff970f
  {{0xf82e038e34cc78d9ULL, 0x4718f0a419800802ULL,
    0x80eacf948770ced7ULL, 0x81ceb32c4b43fcf4ULL}},
  // (ten2mx >> 256) = 81ceb32c4b43fcf4  80eacf948770ced7   
  //   4718f0a419800802f82e038e34cc78d9
  {{0x59e338e387ad8e28ULL, 0x0b5b1aa028ccd99eULL,
    0x67de18eda5814af2ULL, 0xcfb11ead453994baULL}},
  // (ten2mx >> 256) = cfb11ead453994ba  67de18eda5814af2   
  //   b5b1aa028ccd99e59e338e387ad8e28
  {{0x47e8fa4f9fbe0b53ULL, 0x6f7c154ced70ae18ULL,
    0xecb1ad8aeacdd58eULL, 0xa6274bbdd0fadd61ULL}},
  // (ten2mx >> 256) = a6274bbdd0fadd61  ecb1ad8aeacdd58e   
  //   6f7c154ced70ae1847e8fa4f9fbe0b53
  {{0xd320c83fb2fe6f75ULL, 0xbf967770bdf3be79ULL,
    0xbd5af13bef0b113eULL, 0x84ec3c97da624ab4ULL}},
  // (ten2mx >> 256) = 84ec3c97da624ab4  bd5af13bef0b113e   
  //   bf967770bdf3be79d320c83fb2fe6f75
  {{0x85014065eb30b256ULL, 0x65bd8be79652ca5cULL,
    0x955e4ec64b44e864ULL, 0xd4ad2dbfc3d07787ULL}},
  // (ten2mx >> 256) = d4ad2dbfc3d07787  955e4ec64b44e864   
  //   65bd8be79652ca5c85014065eb30b256
  {{0xd0cdcd1e55c08eabULL, 0xeafe098611dbd516ULL,
    0xdde50bd1d5d0b9e9ULL, 0xaa242499697392d2ULL}},
  // (ten2mx >> 256) = aa242499697392d2  dde50bd1d5d0b9e9   
  //   eafe098611dbd516d0cdcd1e55c08eab
  {{0x40a4a418449a0bbcULL, 0xbbfe6e04db164412ULL,
    0x7e50d64177da2e54ULL, 0x881cea14545c7575ULL}},
  // (ten2mx >> 256) = 881cea14545c7575  7e50d64177da2e54   
  //   bbfe6e04db16441240a4a418449a0bbc
  {{0x9aa1068d3a9012c7ULL, 0x2cca49a15e8a0683ULL,
    0x96e7bd358c904a21ULL, 0xd9c7dced53c72255ULL}},
  // (ten2mx >> 256) = d9c7dced53c72255  96e7bd358c904a21   
  //   2cca49a15e8a06839aa1068d3a9012c7
  {{0x154d9ed7620cdbd2ULL, 0x8a3b6e1ab2080536ULL,
    0xabec975e0a0d081aULL, 0xae397d8aa96c1b77ULL}},
  // (ten2mx >> 256) = ae397d8aa96c1b77  abec975e0a0d081a   
  //   8a3b6e1ab2080536154d9ed7620cdbd2
  {{0x443e18ac4e70afdbULL, 0x3b62be7bc1a0042bULL,
    0x2323ac4b3b3da015ULL, 0x8b61313bbabce2c6ULL}},
  // (ten2mx >> 256) = 8b61313bbabce2c6  2323ac4b3b3da015   
  //   3b62be7bc1a0042b443e18ac4e70afdb
  {{0x6d30277a171ab2f8ULL, 0x5f0463f935ccd378ULL,
    0x6b6c46dec52f6688ULL, 0xdf01e85f912e37a3ULL}},
  // (ten2mx >> 256) = df01e85f912e37a3  6b6c46dec52f6688   
  //   5f0463f935ccd3786d30277a171ab2f8
  {{0x8a8cec61ac155bfaULL, 0x7f36b660f7d70f93ULL,
    0x55f038b237591ed3ULL, 0xb267ed1940f1c61cULL}},
  // (ten2mx >> 256) = b267ed1940f1c61c  55f038b237591ed3   
  //   7f36b660f7d70f938a8cec61ac155bfa
  {{0x3ba3f04e23444995ULL, 0xcc2bc51a5fdf3fa9ULL,
    0x77f3608e92adb242ULL, 0x8eb98a7a9a5b04e3ULL}},
  // (ten2mx >> 256) = 8eb98a7a9a5b04e3  77f3608e92adb242   
  //   cc2bc51a5fdf3fa93ba3f04e23444995
  {{0xf9064d49d206dc21ULL, 0xe046082a32fecc41ULL,
    0x8cb89a7db77c506aULL, 0xe45c10c42a2b3b05ULL}},
  // (ten2mx >> 256) = e45c10c42a2b3b05  8cb89a7db77c506a   
  //   e046082a32fecc41f9064d49d206dc21
  {{0xfa6b7107db38b01aULL, 0x4d04d354f598a367ULL,
    0x3d607b97c5fd0d22ULL, 0xb6b00d69bb55c8d1ULL}},
  // (ten2mx >> 256) = b6b00d69bb55c8d1  3d607b97c5fd0d22   
  //   4d04d354f598a367fa6b7107db38b01a
  {{0xfb8927397c2d59afULL, 0x3d9d75dd9146e91fULL,
    0xcab3961304ca70e8ULL, 0x9226712162ab070dULL}},
  // (ten2mx >> 256) = 9226712162ab070d  cab3961304ca70e8   
  //   3d9d75dd9146e91ffb8927397c2d59af
  {{0xf8db71f5937bc2b1ULL, 0xc8fbefc8e87174ffULL,
    0xaab8f01e6e10b4a6ULL, 0xe9d71b689dde71afULL}},
  // (ten2mx >> 256) = e9d71b689dde71af  aab8f01e6e10b4a6   
  //   c8fbefc8e87174fff8db71f5937bc2b1
  {{0x2d7c5b2adc630227ULL, 0x3a63263a538df733ULL,
    0x5560c018580d5d52ULL, 0xbb127c53b17ec159ULL}},
  // (ten2mx >> 256) = bb127c53b17ec159  5560c018580d5d52   
  //   3a63263a538df7332d7c5b2adc630227
  {{0x24637c2249e8ce86ULL, 0x2eb5b82ea93e5f5cULL,
    0xdde7001379a44aa8ULL, 0x95a8637627989aadULL}},
  // (ten2mx >> 256) = 95a8637627989aad  dde7001379a44aa8   
  //   2eb5b82ea93e5f5c24637c2249e8ce86
  {{0x3a38c69d430e173dULL, 0x4abc59e441fd6560ULL,
    0x963e66858f6d4440ULL, 0xef73d256a5c0f77cULL}},
  // (ten2mx >> 256) = ef73d256a5c0f77c  963e66858f6d4440   
  //   4abc59e441fd65603a38c69d430e173d
  {{0x94fa387dcf3e78fdULL, 0x6efd14b69b311de6ULL,
    0xde98520472bdd033ULL, 0xbf8fdb78849a5f96ULL}},
  // (ten2mx >> 256) = bf8fdb78849a5f96  de98520472bdd033   
  //   6efd14b69b311de694fa387dcf3e78fd
  {{0xaa61c6cb0c31fa64ULL, 0x259743c548f417ebULL,
    0xe546a8038efe4029ULL, 0x993fe2c6d07b7fabULL}},
  // (ten2mx >> 256) = 993fe2c6d07b7fab  e546a8038efe4029   
  //   259743c548f417ebaa61c6cb0c31fa64
  {{0xaa360ade79e990a1ULL, 0x3c25393ba7ecf312ULL,
    0xd53dd99f4b3066a8ULL, 0xf53304714d9265dfULL}},
  // (ten2mx >> 256) = f53304714d9265df  d53dd99f4b3066a8   
  //   3c25393ba7ecf312aa360ade79e990a1
  {{0x882b3be52e5473b4ULL, 0x96842dc95323f5a8ULL,
    0xaa97e14c3c26b886ULL, 0xc428d05aa4751e4cULL}},
  // (ten2mx >> 256) = c428d05aa4751e4c  aa97e14c3c26b886   
  //   96842dc95323f5a8882b3be52e5473b4
  {{0xd355c98425105c90ULL, 0xab9cf16ddc1cc486ULL,
    0x55464dd69685606bULL, 0x9ced737bb6c4183dULL}},
  // (ten2mx >> 256) = 9ced737bb6c4183d  55464dd69685606b   
  //   ab9cf16ddc1cc486d355c98425105c90
  {{0xebbc75a03b4d60e6ULL, 0xac2e4f162cfad40aULL,
    0xeed6e2f0f0d56712ULL, 0xfb158592be068d2eULL}},
  // (ten2mx >> 256) = fb158592be068d2e  eed6e2f0f0d56712   
  //   ac2e4f162cfad40aebbc75a03b4d60e6
  {{0x8963914cfc3de71eULL, 0x568b727823fbdcd5ULL,
    0xf245825a5a445275ULL, 0xc8de047564d20a8bULL}},
  // (ten2mx >> 256) = c8de047564d20a8b  f245825a5a445275   
  //   568b727823fbdcd58963914cfc3de71e
  {{0xd44fa770c9cb1f4bULL, 0x453c5b934ffcb0aaULL,
    0x5b6aceaeae9d0ec4ULL, 0xa0b19d2ab70e6ed6ULL}},
  // (ten2mx >> 256) = a0b19d2ab70e6ed6  5b6aceaeae9d0ec4   
  //   453c5b934ffcb0aad44fa770c9cb1f4b
  {{0xdd0c85f3d4a27f6fULL, 0x37637c75d996f3bbULL,
    0xe2bbd88bbee40bd0ULL, 0x808e17555f3ebf11ULL}},
  // (ten2mx >> 256) = 808e17555f3ebf11  e2bbd88bbee40bd0   
  //   37637c75d996f3bbdd0c85f3d4a27f6f
  {{0x61ada31fba9d98b2ULL, 0x256bfa5628f185f9ULL,
    0x3792f412cb06794dULL, 0xcdb02555653131b6ULL}},
  // (ten2mx >> 256) = cdb02555653131b6  3792f412cb06794d   
  //   256bfa5628f185f961ada31fba9d98b2
  {{0xe7be1c196217ad5bULL, 0x51232eab53f46b2dULL,
    0x5fa8c3423c052dd7ULL, 0xa48ceaaab75a8e2bULL}},
  // (ten2mx >> 256) = a48ceaaab75a8e2b  5fa8c3423c052dd7   
  //   51232eab53f46b2de7be1c196217ad5b
  {{0x52fe7ce11b462449ULL, 0x40e8f222a99055beULL,
    0x1953cf68300424acULL, 0x83a3eeeef9153e89ULL}},
  // (ten2mx >> 256) = 83a3eeeef9153e89  1953cf68300424ac   
  //   40e8f222a99055be52fe7ce11b462449
  {{0x51972e34f8703a0fULL, 0x34a7e9d10f4d55fdULL,
    0x8eec7f0d19a03aadULL, 0xd29fe4b18e88640eULL}},
  // (ten2mx >> 256) = d29fe4b18e88640e  8eec7f0d19a03aad   
  //   34a7e9d10f4d55fd51972e34f8703a0f
  {{0x0e128b5d938cfb3fULL, 0x2a1fee40d90aab31ULL,
    0x3f2398d747b36224ULL, 0xa87fea27a539e9a5ULL}},
  // (ten2mx >> 256) = a87fea27a539e9a5  3f2398d747b36224   
  //   2a1fee40d90aab310e128b5d938cfb3f
  {{0x3e753c4adc70c8ffULL, 0xbb4cbe9a473bbc27ULL,
    0x98e947129fc2b4e9ULL, 0x86ccbb52ea94baeaULL}},
  // (ten2mx >> 256) = 86ccbb52ea94baea  98e947129fc2b4e9   
  //   bb4cbe9a473bbc273e753c4adc70c8ff
  {{0x30bb93aafa4e0e65ULL, 0x9214642a0b92c6a5ULL,
    0x5b0ed81dcc6abb0fULL, 0xd7adf884aa879177ULL}},
  // (ten2mx >> 256) = d7adf884aa879177  5b0ed81dcc6abb0f   
  //   9214642a0b92c6a530bb93aafa4e0e65
  {{0xc0960fbbfb71a51eULL, 0xa8105021a2dbd21dULL,
    0xe272467e3d222f3fULL, 0xac8b2d36eed2dac5ULL}},
  // (ten2mx >> 256) = ac8b2d36eed2dac5  e272467e3d222f3f   
  //   a8105021a2dbd21dc0960fbbfb71a51e
  {{0x66de72fcc927b74bULL, 0xb9a6a6814f1641b1ULL,
    0x1b8e9ecb641b58ffULL, 0x8a08f0f8bf0f156bULL}},
  // (ten2mx >> 256) = 8a08f0f8bf0f156b  1b8e9ecb641b58ff   
  //   b9a6a6814f1641b166de72fcc927b74b
  {{0xd7ca5194750c5878ULL, 0xf5d770cee4f0691bULL,
    0xf8e431456cf88e65ULL, 0xdcdb1b2798182244ULL}},
  // (ten2mx >> 256) = dcdb1b2798182244  f8e431456cf88e65   
  //   f5d770cee4f0691bd7ca5194750c5878
  {{0xdfd50e105da379f9ULL, 0x9179270bea59edafULL,
    0x2d835a9df0c6d851ULL, 0xb0af48ec79ace837ULL}},
  // (ten2mx >> 256) = b0af48ec79ace837  2d835a9df0c6d851   
  //   9179270bea59edafdfd50e105da379f9
  {{0x19773e737e1c6194ULL, 0x0dfa85a321e18af3ULL,
    0x579c487e5a38ad0eULL, 0x8d590723948a535fULL}},
  // (ten2mx >> 256) = 8d590723948a535f  579c487e5a38ad0e   
  //   dfa85a321e18af319773e737e1c6194
  {{0xf58b971f302d68eeULL, 0x165da29e9c9c1184ULL,
    0x25c6da63c38de1b0ULL, 0xe2280b6c20dd5232ULL}},
  // (ten2mx >> 256) = e2280b6c20dd5232  25c6da63c38de1b0   
  //   165da29e9c9c1184f58b971f302d68ee
  {{0xc46fac18f3578724ULL, 0x4517b54bb07cdad0ULL,
    0x1e38aeb6360b1af3ULL, 0xb4ecd5f01a4aa828ULL}},
  // (ten2mx >> 256) = b4ecd5f01a4aa828  1e38aeb6360b1af3   
  //   4517b54bb07cdad0c46fac18f3578724
  {{0x36bfbce0c2ac6c1dULL, 0x9dac910959fd7bdaULL,
    0xb1c6f22b5e6f48c2ULL, 0x90bd77f3483bb9b9ULL}},
  // (ten2mx >> 256) = 90bd77f3483bb9b9  b1c6f22b5e6f48c2   
  //   9dac910959fd7bda36bfbce0c2ac6c1d
  {{0x2465fb01377a4695ULL, 0x2f7a81a88ffbf95dULL,
    0xb60b1d1230b20e04ULL, 0xe7958cb87392c2c2ULL}}
  // (ten2mx >> 256) = e7958cb87392c2c2  b60b1d1230b20e04   
  //   2f7a81a88ffbf95d2465fb01377a4695
};