deal1:{|((#deck)-x)_|deck}
   deal:{c:deal1[x];deck::(deck _dvl c);c}

   deal[5]
("S8"
 "CA"
 "D5"
 "D2"
 "SJ")

   #deck / 5 cards are removed
47