alias rps {
  if ($istok(r p s,$1,32)) && ($istok(r p s,$2,32)) && (!$3) {
    if ($1 == $2) { return 0 | halt }
    var %x 1 | while %x < 3 { | var %y 1 | while %y < 4 {
        var %i $gettok(r s p,%y,32) | var %l $gettok(s p r,%y,32)
        if ($iif(%x == 1,$1,$2) == %i) && ($iif(%x != 1,$1,$2) == %l) { return %x }
        if ($iif(%x == 1,$1,$2) == %i) && ($iif(%x != 1,$1,$2) == %l) { return %x }
      inc %y } 
  inc %x } } 
else { return -1 } }