alias + if ($3) inc %f $calc(18^($iif($pos(%e,$mid(%e,-1),5),5)+$2)*$1)
alias holdem {
  tokenize 32 $replace($1,T,B,10,T)
  %a = 0
  %b = $0
  while %b {
    %c = $(,$ $+ %b)
    dec %b
    %d = %b
    while %d {
      %e = $deltok($remove($1-,%c),%d,32)
      %f =
      var %2,%3,%g,%h,%i 1
      while $mid(23456789TJQKA,%i,1) {
        %j = $count(%e,$v1)
        inc %g %j
        + %i $token(%g $iif(%2,7,6) 8 12,%j,32) %j
        var % $+ %j %i,%h %h $+ %j
        inc %i
      }
      + %3 11 %2
      + $pos(%j $+ %h,11111) 9 1
      if $mid(%c,2) !isin S D C H || (%g != 5) %a =
      if (%f > %a) %a = %f
      dec %d
    }
  }
  return %a