Evaluated proc dec2bin-c i {binary scan [binary format i $i] b8 ok; . $ok}