52 card deck

say (<S H D C> XR~ «A {2..10} J Q K») Z=> gather {
  take ([…] (‘playing card ’ X~ <ace king> X~ “ of $_”)».parse-names)[|^11,12,13].Slip for <spades hearts diamonds clubs>
}