Microsoft Windows [Version 10.0.14393]
(c) 2016 Microsoft Corporation. All rights reserved.

C:\Users\Tara>clisp
  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 "C:/Users/Tara/Downloads/lp.l")
;; Loading file C:\Users\Tara\Downloads\lp.l ...
;; Loaded file C:\Users\Tara\Downloads\lp.l
T
[2]> (trace (select))
;; Tracing function SELECT.
(SELECT)
[3]> (select 2 '(one two four))
1. Trace: (SELECT '2 '(ONE TWO FOUR))
2. Trace: (SELECT '1 '(TWO FOUR))
3. Trace: (SELECT '0 '(FOUR))
3. Trace: SELECT ==> FOUR
2. Trace: SELECT ==> FOUR
1. Trace: SELECT ==> FOUR
FOUR
[4]> (select 0 '(book paper pen))
1. Trace: (SELECT '0 '(BOOK PAPER PEN))
1. Trace: SELECT ==> BOOK
BOOK
[5]> (select 3 '( 4 5 8 4 3 5))
1. Trace: (SELECT '3 '(4 5 8 4 3 5))
2. Trace: (SELECT '2 '(5 8 4 3 5))
3. Trace: (SELECT '1 '(8 4 3 5))
4. Trace: (SELECT '0 '(4 3 5))
4. Trace: SELECT ==> 4
3. Trace: SELECT ==> 4
2. Trace: SELECT ==> 4
1. Trace: SELECT ==> 4
4
[6]> (untrace)
(SELECT)
[7]> (pick '(rose peony wax snap stock))
ROSE
[8]> (pick '(seven three two eight late))
SEVEN
[9]> (pick '(1 my 6 fav))
FAV
[10]> (bye)
Bye.

C:\Users\Tara>