#!/bin/sh
# bin2oct --  binary to octal conversion.
#

(B=$1;for S in 200 100 40 20 10 4 2 1;do { E=$[$E+1];[ `echo $B|cut -c$E` = 1 ]&&{ T=$[$T+$S]; }; };done;echo $T)
