Last login: Fri Oct  7 01:51:30 on ttys000
Kenneths-MacBook-Pro:~ Ken$ ssh kpemblet@pi.cs.oswego.edu
kpemblet@pi.cs.oswego.edu's password: 
Welcome to Ubuntu 16.04.1 LTS (GNU/Linux 4.4.0-38-generic x86_64)

 * Documentation:  https://help.ubuntu.com
 * Management:     https://landscape.canonical.com
 * Support:        https://ubuntu.com/advantage

2 packages can be updated.
0 updates are security updates.


Last login: Fri Oct  7 01:51:40 2016 from 129.3.209.178
pi:~> cd public_html/coursework/csc416/assignments
pi:~/public_html/coursework/csc416/assignments> 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 "lp.l"
)
;; Loading file lp.l ...
;; Loaded file lp.l
T
[2]> (trace select
)
;; Tracing function SELECT.
(SELECT)
[3]> (select '(UP DOWN LEFT RIGHT A B X Y))
1. Trace: (SELECT '(UP DOWN LEFT RIGHT A B X Y))
*** - EVAL/APPLY: Too few arguments (1 instead of at least 2) given to SELECT
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [4]> :a
[5]> (select '2 '(UP DOWN LEFT RIGHT A B X Y))
1. Trace: (SELECT '2 '(UP DOWN LEFT RIGHT A B X Y))
2. Trace: (SELECT '1 '(DOWN LEFT RIGHT A B X Y))
3. Trace: (SELECT '0 '(LEFT RIGHT A B X Y))
3. Trace: SELECT ==> LEFT
2. Trace: SELECT ==> LEFT
1. Trace: SELECT ==> LEFT
LEFT
[6]> (select '3 '(JUMP DASH SHOOT BLOCK))
1. Trace: (SELECT '3 '(JUMP DASH SHOOT BLOCK))
2. Trace: (SELECT '2 '(DASH SHOOT BLOCK))
3. Trace: (SELECT '1 '(SHOOT BLOCK))
4. Trace: (SELECT '0 '(BLOCK))
4. Trace: SELECT ==> BLOCK
3. Trace: SELECT ==> BLOCK
2. Trace: SELECT ==> BLOCK
1. Trace: SELECT ==> BLOCK
BLOCK
[7]> (select '6 '(1 2 3 4 5 6 7 8 9 10))
1. Trace: (SELECT '6 '(1 2 3 4 5 6 7 8 9 10))
2. Trace: (SELECT '5 '(2 3 4 5 6 7 8 9 10))
3. Trace: (SELECT '4 '(3 4 5 6 7 8 9 10))
4. Trace: (SELECT '3 '(4 5 6 7 8 9 10))
5. Trace: (SELECT '2 '(5 6 7 8 9 10))
6. Trace: (SELECT '1 '(6 7 8 9 10))
7. Trace: (SELECT '0 '(7 8 9 10))
7. Trace: SELECT ==> 7
6. Trace: SELECT ==> 7
5. Trace: SELECT ==> 7
4. Trace: SELECT ==> 7
3. Trace: SELECT ==> 7
2. Trace: SELECT ==> 7
1. Trace: SELECT ==> 7
7
[8]> (untrace select)
(SELECT)
[9]> (pick '(1 2 3 4 5 6 7 8 9 10))
7
[10]> (pick '(JUMP DASH SHOOT BLOCK))
JUMP
[11]> (pick '(UP DOWN LEFT RIGHT A B X Y))
Y
[12]> (pick '(UP DOWN LEFT RIGHT A B X Y))
LEFT
[13]>