case $# in
0) read DEC ;;
*) DEC=$1 ;;
esac
HEX=`echo $DEC | tr '[a-z]' '[A-Z]'`
dc << !
16
i
$HEX
p
q
!
