i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "cards.lsp")
;; Loading file cards.lsp ...
;; Loaded file cards.lsp
T
[2]> ( new-suit 'spades )
((1 SPADES) (2 SPADES) (3 SPADES) (4 SPADES) (5 SPADES) (6 SPADES) (7 SPADES) (8 SPADES) (9 SPADES) (10 SPADES)
 (JACK SPADES) (QUEEN SPADES) (KING SPADES) (ACE SPADES))
[3]> ( new-suit 'hearts )
((1 HEARTS) (2 HEARTS) (3 HEARTS) (4 HEARTS) (5 HEARTS) (6 HEARTS) (7 HEARTS) (8 HEARTS) (9 HEARTS) (10 HEARTS)
 (JACK HEARTS) (QUEEN HEARTS) (KING HEARTS) (ACE HEARTS))
[4]> ( new-suit 'clubs )
((1 CLUBS) (2 CLUBS) (3 CLUBS) (4 CLUBS) (5 CLUBS) (6 CLUBS) (7 CLUBS) (8 CLUBS) (9 CLUBS) (10 CLUBS) (JACK CLUBS)
 (QUEEN CLUBS) (KING CLUBS) (ACE CLUBS))
[5]> ( new-suit 'diamonds )
((1 DIAMONDS) (2 DIAMONDS) (3 DIAMONDS) (4 DIAMONDS) (5 DIAMONDS) (6 DIAMONDS) (7 DIAMONDS) (8 DIAMONDS)
 (9 DIAMONDS) (10 DIAMONDS) (JACK DIAMONDS) (QUEEN DIAMONDS) (KING DIAMONDS) (ACE DIAMONDS))
[6]> ( new-deck )
((1 CLUB) (2 CLUB) (3 CLUB) (4 CLUB) (5 CLUB) (6 CLUB) (7 CLUB) (8 CLUB) (9 CLUB) (10 CLUB) (JACK CLUB) (QUEEN CLUB)
 (KING CLUB) (ACE CLUB) (1 DIAMOND) (2 DIAMOND) (3 DIAMOND) (4 DIAMOND) (5 DIAMOND) (6 DIAMOND) (7 DIAMOND)
 (8 DIAMOND) (9 DIAMOND) (10 DIAMOND) (JACK DIAMOND) (QUEEN DIAMOND) (KING DIAMOND) (ACE DIAMOND) (1 HEART)
 (2 HEART) (3 HEART) (4 HEART) (5 HEART) (6 HEART) (7 HEART) (8 HEART) (9 HEART) (10 HEART) (JACK HEART)
 (QUEEN HEART) (KING HEART) (ACE HEART) (1 SPADE) (2 SPADE) (3 SPADE) (4 SPADE) (5 SPADE) (6 SPADE) (7 SPADE)
 (8 SPADE) (9 SPADE) (10 SPADE) (JACK SPADE) (QUEEN SPADE) (KING SPADE) (ACE SPADE))
[7]> (bye)
Bye.