So I posted the code in repl.it (which is a clever site if you want to share code that can be executed directly on the site).
https://repl.it/repls/BewitchedLightbluePdf
Just please don't edit the code :)
the interactive part you can have fun, but the white part you should leave as is.
it should contain this code
variable deck 60 cells allot
: new-deck 52 0 do I dup cells deck + ! loop ;
: card@ dup cells deck + @ ;
: card! cells deck + ! ;
: swap-card card@ rot card@ rot swap card! swap card! ;
variable rnd here rnd !
: random rnd @ 31421 * 6927 + dup rnd ! ;
: choose random um* nip ;
: shuffler 10000 0 do 2dup choose choose swap-card loop drop drop ;
There was a bug in the shuffle routine I did not catch.