F4 {
  while ($chan($0)) { tokenize 32 $1- $v1 }
  mode $* -qaovh $str($+($me,$chr(32)),5)
}