#!/usr/local/bin/perl 

$integer = <STDIN>; 
chop ($integer); 
if ($integer !~ /^[0-9]+$|^0[xX][0-9a-fa-F]+$/) { 
    die ("$integer is not a legal integer\n"); 
} 
if ($integer =~ /^0/) { 
    $integer = oct ($integer); 
} 
print ("$integer\n"); 