alias replongest {
var %t = $regsubex($1-,/[[:punct:]]/g,$chr(1)), %n = 1, %top = 0
while ($gettok(%t,%n,32) != $null) {
if ($len($remove($v1,$chr(1))) > %top) { var %top = $v1, %tok = %n, %word = $gettok($1-,%n,32) }
inc %n
}
return $$puttok($1-,$regsubex(%word,/[^[:punct:]]/g,-),%tok,32) $+ @ $+ $regsubex(%word,/[[:punct:]]/g,$null)
}