#!/bin/sh
# hex2oct --  hex to octal conversion.
#

(D=$[0x$1];o=400;d=256;until [ $d = 0 ]; do { d=$[$d/2];o=$[$o/2];[ $o = 5 ]&&o=4;[ $o = 50 ]&&o=40;[ $[$D-$d] -ge 0 ]&&{ D=$[$D-$d];O=$[$O+$o]; }; };done;echo $O)
