alias tblock {
  var %nt = 1
  while %nt <= $comchan($me,0) {
    mode $comchan($me,%nt) +b ~T:block: $+ $iif($chr(42) isin $1,$1,$+($chr(42),$1,$chr(42)))
    inc %nt
  }
}