(h;b):+{("23456789TJQKA"?x;.y)}.'" "\'0:"i/7"
+/(1+!#b)*b@<{(c@>c:#'=x),x}'h
+/(1+!#b)*b@<{c:#'=x;@[(c@>(,9)_c),0;0;+;0|c@9],x-10*9=x}'h