$ perl -le " printf qq{%3s %3o\n}, $_, $_ for @ARGV " 0 1 8 16 32 64 128
  0   0
  1   1
  8  10
 16  20
 32  40
 64 100
128 200