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

(O=$1;o=400;until [ $o = 1 ]; do { b=0;o=$[$o/2];[ $o = 5 ]&&o=4;[ $o = 50 ]&&o=40;[ $[$O-$o] -ge 0 ]&&{ O=$[$O-$o];b=1; };T=$T$b };done;echo $T)
