Evaluated proc dec2bin {i {endian B}} {binary scan [binary format i $i] [concat2 $endian 8] ok; . $ok}