The alias $fltok will return either the first token or last token.

Usage: $fltok(TEXT,C) = last token
Usage: $fltok(TEXT,C).f = first token

The alias $rmtok will return either a random token or the middle token.

Usage: $rmtok(TEXT,C) = middle token
Usage: $rmtok(TEXT,C).r = random token

/*
Will return either the first token or last token.
Usage: $fltok(TEXT,C) = last token
Usage: $fltok(TEXT,C).f = first token
*/

alias fltok { 
  if ($1 && $2 isnum && $isid) { return $gettok($1,$iif($prop == f,1,-1),$2) } 
  else { return Usage: $!fltok(TEXT,C) = last token $chr(124) Usage: $!fltok(TEXT,C).f = first token }
}

====================================================

/*
Will return either a random token or the middle token.
Usage: $rmtok(TEXT,C) = middle token
Usage: $rmtok(TEXT,C).r = random token
*/

alias rmtok { 
  if ($1 && $2 isnum && $isid) { return $gettok($1,$iif($prop == r, $rand(1,$numtok($1,$2)), $round($calc($numtok($1,$2) / 2),0)),$2) } 
  else { return Usage: $!rmtok(TEXT,C) = middle token $chr(124) Usage: $!rmtok(TEXT,C).r = random token }
}