#!/usr/local/bin/perl
print "@{[
  map /^0/ ? oct : $_, qw(0b10 010 10 0x10)
]}\n";