Posted to tcl by Bradipo at Fri Aug 10 16:52:25 GMT 2018view pretty
% set s [exec dd if=/dev/zero bs=32 count=1 2>/dev/null] % string length $s 32 % binary scan $s c* b 1 % set b 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
% set s [exec dd if=/dev/zero bs=32 count=1 2>/dev/null] % string length $s 32 % binary scan $s c* b 1 % set b 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0