alias holdem {
  var %x 1,%y 1,%b,%o
  while $token($1,%x,32) { 
    var %v $replace($left($v1,-1),J,11,Q,12,K,13,A,14),%s $right($v1,1),%h = $iif(%v isnum 1-14 && %s isin DHCS,$sorttok($addtok(%h,$+(-,%v,.,%s),1),1,n))
    if (%v = 14) %b = $+(%b,
-1.,%s) 
    inc %x         
  }
  while $token($+(%h,
,%b),%y,1) {     
    var %l %c,%s $right($v1,1),%c $abs($v1) $+ .,%w $calc(15^(-%y)*%c),%d %c $+ %s,%f = $pos(%h,%s,5),%t = $iif(!%l,%d,$iif(%c = $({,%l),%t %d,$iif(%l = %c,$iif(%f,$left(%t,-1) $+ %s,%t),$iif($pos(%t,.,5),%t,%d)))) 
    if (%y < 6) inc %x %w 

    if $+($str(* $+ $chr(32),%r),*,%s %d) iswm %t {
      if (%s != %v) var %g,%r
      inc %r
      var %g = %g %d, %v %s
    }
    if (& iswm %t) var %g,%r

    if %c > 1 {
      if (%f) {
        inc %o
        var %u %u $calc(15^(-%o)*%c) +
      }
      var %n $count(%h,- $+ %c),% $+ %n $addtok($(% $+ %n,2),$(%c),1)
      goto %n
      :1
      var %# %# %w +,%k %k %c
      :2
      var %@ %@ %w +
      :3  
      var %! %! %c
      :4
    }
    inc %y
  }
  %b = $iif(
 isin %2,225*%2 +15* $token(%2,2,1) + $iif($token(%2,3,1) > %k,$v1,$v2),$iif(%2,$token(%#,1-3,43) +9*%2,%x)) 
  if (%3) %b = $iif(
 isin %3 || %2,8^5*%3 +%2 + $token(%3,2,1),3^7*%3 + $token(%@,1-2,43))
  if ($pos(%t,.,5)) %b = 8^5+%t
  if (%u) %b = 9^5+ $token(%u,1-5,43)
  if (%4) %b = 8^6*%4 +%!                                     
  if (%r > 3) %b = 45^%g

  if $pos(%h,
,0) = 6 return $calc(%b)