blockdata

   include POWER_COM

   data powers_of_two / _
      0000001, 0000002, 0000004, 0000008, 0000016, 0000032, 0000064,
      0000128, 0000256, 0000512, 0001024, 0002048, 0004096, 0008192,
      0016384, 0032768, 0065536, 131072, 262144, 524288,
      1048576, 2097152, 4194304, 8388608, 16777216, 33554432,
      67108864, 134217728, 268435456, 536870912, 1073741824,
      :20000000000/

   end