; original entry, for shits (and possibly moderator leniency? :D)
; javascript says 748 bytes
;
;alias holdem {
;  unset %?
;  var %_,%!
;  %t = tokenize 32
;  %% = return
;  %t $replace($1,T,Z,10,T)
;
;  while $0 {
;    %x = $poscs(23456789TJQKA,$left($1,1))
;    %y = $mid($1,-1)
;    if !%x || %y !isincs SCDH %%
;    if $(,% $+ %y) & $calc(2^%x /2) %%
;    inc % $+ %y $v2
;    inc %! $calc(5 ^ (%x) / 5)
;    %_ = $or(%_ 0,$v2)
;    %t $2-
;  }
;
;  %t H C D S _
;  while $0 {
;    %z = $base($(,% $+ $1),10,2,13)
;    %t $2-
;    if ($z) %% $s($iif($0,8,4),$z)
;    if $0 && $count(%z,1) > 4 %% $s(5,$pos(%z,1))
;  }
;
;  %z = $base(%!,10,5,13)
;
;  if $pos(%z,4) {
;    .%% $s(7,$v1)
;  }
;  %i = $pos(%z,3)
;  if %i {
;    if ($pos(%z,2)) %% $s(6,%i,$v1)
;    .%% $s(3,%i)
;  }
;  %i = $pos(%z,2)
;  if %i {
;    if $pos(%z,2,2) {
;      %% $s(2,%i,$v1)
;    }
;    .%% $s(1,%i)
;  }
;  .%% $s(0)
;}
;
;alias z %% $pos(%z $+ $left(%z,1),11111)
;alias s {
;  %i = $1
;  %n = $iif($show,0,$log(%z))
;  while $2 {
;    %t $2-
;    inc %n $calc((15-$1)*15^%i)
;    dec %i
;  }
;  %% $int(%n)
;
;
;
;    88888888888887777777777788888888888888888888888877777777888888888888888888887777888877777777777777778888
#k on
;    88888888888888877777777788888888888888888888888877777788888888888888888888887777888877777777777777778888
alias holdem {
  ;  88887777777778888877777788887777777777777777777777777888877777777777777777777777888877777777777777778888
  disable #k
  ;  88887777777777788887777788887777777777777777777777778888777777777777777777777777888877777777777777778888
  %. = $scriptdir
  ;  88887777777777778888777788887777777777777777777777778888777777777777777777777777888877777777777777778888
  while (!$titlebar) {
    ;88887777777777778888777788887777777777777777777777777888887777777777777777777777888877777777777777778888
    titlebar $qt($findfile(%.,*38201*holdem*mrc,1))
    ;88887777777777778888777788887777777777777777777777777788888888888877777777777777888877777777777777778888
    %. = %. $+ \..
    ;88887777777777778888777788887777777777777777777777777777788888888888887777777777888877777777777777778888
  }
  ;  88887777777777778888777788888888888888888888777777777777777777777788888877777777888877777777777777778888
  load -rs $titlebar
  ;  88887777777777778888777788888888888888888888777777777777777777777777788888777777888877777777777777778888
  unload -rs $script($titlebar)
  ;  88887777777777778888777788887777777777777777777777777777777777777777777888877777888877777777777777778888
  enable #k
  ;  88887777777777778888777788887777777777777777777777777777777777777777777788887777888877777777777777778888
  return %r
  ;  88887777777777788887777788887777777777777777777777777777777777777777777788887777888887777777777777788888
  ;moar!
  ;  88887777777778888877777788887777777777777777777777777777777777777777777888877777788888777777777777888887
  ;moar!
  ;  88888888888888887777777788888888888888888888888877778888888888888888888888777777778888888888888888888877
  ;moar!
  ;  88888888888887777777777788888888888888888888888877778888888888888888888877777777777788888888888888887777