alias rps return $calc($pos($iif(? ? iswm $1-,rrsrsspspprp),$1 $+ $2,1)% 4-1)