: 7cards ( str -- seq )
  " " split [ >ckf ] map ;