#!/usr/athena/bin/perl
print "OctNo=";
$answer=<STDIN>;
printf "HexNo=0x%x\n",oct($answer);