Code:
alias AddTokensToDoubleUsers {
  var %i = 1, %a
  while ($nick(#,%i)) {
    %a = $v1
    if ($hget(DoubleTokens,%a) == double) { hinc CurrentTokenHolders %a }
    inc %i
  }
}