4.3BSD/usr/contrib/icon/book/f/hexcvt.icn

procedure hexcvt(s)
   return integer("16r" || s)
end