perl -e'printf"%03b %b\n",$_,rand(2)for 0..7'