sub _{$s += ++$n * ord for @_; $n %= @I; $s %= $X};