integer, parameter:: N=174, K=91, M=N-K
character*23 g(83)
integer colorder(N)

data g/                   &
 "2a6a9ab98f661b797baa21a", &
 "5fda604488977fdc30ff630", &
 "8a450007032409e8797b13a", &
 "0f7923bfa5d559590ef6efe", &
 "44dc14bc4461e645f847c78", &
 "f8c66224febd3e60f5e3708", &
 "6d60329e83fb0e1b1bdac2e", &
 "66435a472a7837a0e5d4e12", &
 "9d0feced8745a66e328c310", &
 "1791b0e7c5eaa43710c4276", &
 "e5cbd2d5b4d65d3a432d97e", &
 "c2241f8795e0e5bc6bd9052", &
 "222d861201a4697c2689576", &
 "aa2ee5d6d462e206f59cbe8", &
 "e486eb73894e6a0964d8c40", &
 "4099d5b42d36301cff6dbd6", &
 "40c50b9341f7b5ea08dabde", &
 "c90359074895363d428f072", &
 "ca819cb6569fbfe26b68ef8", &
 "4d983341fb56b8e1dae3450", &
 "2dce341bc8fd0e5de04fa52", &
 "3e7b01b376e3e5f6080de0e", &
 "6c8b0813ca2394c08564f94", &
 "c322ca8ea866784adc9451a", &
 "6378aa1a03fab3e163aa4b0", &
 "3c92ea8df0003883a021d70", &
 "c793729067176eca26b83c2", &
 "d3fae76046a36dff711207a", &
 "bc9bf3ef57137fda1c325da", &
 "a4eabe2df65a083ea6387c8", &
 "650e3da3a0c0349154131d8", &
 "1fb4c59ffc11c648ad06760", &
 "1471f9599543f13fd7eb6ae", &
 "6111012405186e84cba67ce", &
 "c4da3574edafefff976fc08", &
 "953f854e40701063115c0f2", &
 "1f7ae6982f9a5733c44fb70", &
 "83e101fe5e80c1b8541728e", &
 "50375654edd53054f81e228", &
 "1bb03a21a6cde34dff7ec96", &
 "b0b279a934342aa0e188b3a", &
 "e1989846a20a09cd77b1f64", &
 "4eb68e01cb07fdbc83edee2", &
 "f33ac4ec36a7c8e6ea8364c", &
 "99b03a21a6c5e34dfffec96", &
 "e50e3de3a1c034915413158", &
 "fda09f8b05b8fb80ac78600", &
 "ca8709be6b193204dd25ab0", &
 "35701ff0cc3a03f213a93d2", &
 "c2bfdec67f7b5a4c5ee7544", &
 "dc184fe7e93a65c1b4b7cd2", &
 "8cf8aac820f107d6ec6b30a", &
 "e74b3da5a3e43d593d680e2", &
 "c1e51f79db6124243fceadc", &
 "29237d5d05dc1a4cca2ddd0", &
 "050e76be4749b3b279d6414", &
 "dd163959ae739673cde18c6", &
 "03e100fe5e81c1b85417a8e", &
 "06b2b17f70e75fc365bed20", &
 "6df9e72abecd3e03e4b77fa", &
 "4fa5370361b4bf3cf6b1296", &
 "eabbf88f0a88307629bfd1c", &
 "190674f88cf69989c8b8a40", &
 "37740c13cfad07f61dcac3a", &
 "4e7923bfa5d579590ef4ede", &
 "fe74d37b8e5a63a2905da28", &
 "2101e7a95979b2c5c44257e", &
 "841f3ec7a4585a159fb5796", &
 "aa7ff31d4b7f859c21254c2", &
 "6e69229ba0cdb7ddcd50930", &
 "29cfc4288af223bea58b96e", &
 "5d03eba9f51956176b87abe", &
 "399cbc33a7498b31d9f79e4", &
 "034967e48ab80135b1c7fca", &
 "721ad006ac715928df9775e", &
 "37210b395327446ac7108f8", &
 "52acf6de27477ea937e5330", &
 "1f3a8549435c198b68231c8", &
 "ef6809edb4a3557cd173d0a", &
 "09a31639fef9c7a8b6fcae2", &
 "03bc87c137eeec711c68d36", &
 "b09347742319f90131d3146", &
 "a723c9cef1de8c97f34c94c"/

data colorder/            &
   0,  1,  2,  3, 28,  4,  5,  6,  7,  8,  9, 10, 11, 34, 12, 32, 13, 14, 15, 16,&
  17, 18, 36, 29, 40, 19, 20, 38, 21, 41, 30, 42, 22, 44, 37, 47, 48, 23, 33, 43,&
  49, 45, 56, 39, 25, 26, 46, 50, 51, 52, 24, 57, 58, 61, 31, 54, 64, 35, 27, 62,&
  59, 53, 60, 63, 55, 70, 66, 67, 68, 65, 71, 74, 72, 73, 77, 75, 69, 76, 79, 82,&
  83, 78, 81, 80, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,&
 100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,&
 120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,&
 140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,&
 160,161,162,163,164,165,166,167,168,169,170,171,172,173/