sub whiten {
  local $_ = unpack "b*", pop;
  tr/01/ \t/;
  s/(.{9})/$1\n/g;
  $tie.$_
}