tab1 {
if (!$1-) return $chr(9)
else {
var %tablist,%p = 1
while (%p <= $numtok($1-,59)) {
%tablist = $instok(%tablist,$gettok($1-,%p,59),0,9)
inc %p
}
return %tablist
}
}
tab2 {
if (!$1-) return $chr(9)
var %wpm = 1,%tablist
while ($ [ $+ [ %wpm ] ]) {
%tablist = $instok(%tablist, $ [ $+ [ %wpm ] ] ,0,9)
inc %wpm
}
return %tablist
}