alias rps return $iif($len($1-) > 3,-1,$calc($pos($mid(RSPRS,$pos(RSPRS,$1)),$2)-1))