Sample Output for Assignment 3, Part II (Autumn 2003)

Here is a transcript of a session with one solution to the problem. This one was done using GCL on a Linux system.
>(load "turing.lsp")

Loading turing.lsp
Finished loading turing.lsp
T

>(run)
CURRENT-STATE: S0, CURRENT-TAPE-SYMBOL: M, HEAD-POSITION: 1.
Tape: (^ M A D A M $)
CURRENT-STATE: S3, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 2.
Tape: (^ ^ A D A M $)
CURRENT-STATE: S3, CURRENT-TAPE-SYMBOL: D, HEAD-POSITION: 3.
Tape: (^ ^ A D A M $)
CURRENT-STATE: S3, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 4.
Tape: (^ ^ A D A M $)
CURRENT-STATE: S3, CURRENT-TAPE-SYMBOL: M, HEAD-POSITION: 5.
Tape: (^ ^ A D A M $)
CURRENT-STATE: S3, CURRENT-TAPE-SYMBOL: $, HEAD-POSITION: 6.
Tape: (^ ^ A D A M $)
CURRENT-STATE: S6, CURRENT-TAPE-SYMBOL: M, HEAD-POSITION: 5.
Tape: (^ ^ A D A M $)
CURRENT-STATE: S7, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 4.
Tape: (^ ^ A D A $ $)
CURRENT-STATE: S7, CURRENT-TAPE-SYMBOL: D, HEAD-POSITION: 3.
Tape: (^ ^ A D A $ $)
CURRENT-STATE: S7, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 2.
Tape: (^ ^ A D A $ $)
CURRENT-STATE: S7, CURRENT-TAPE-SYMBOL: ^, HEAD-POSITION: 1.
Tape: (^ ^ A D A $ $)
CURRENT-STATE: S0, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 2.
Tape: (^ ^ A D A $ $)
CURRENT-STATE: S1, CURRENT-TAPE-SYMBOL: D, HEAD-POSITION: 3.
Tape: (^ ^ ^ D A $ $)
CURRENT-STATE: S1, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 4.
Tape: (^ ^ ^ D A $ $)
CURRENT-STATE: S1, CURRENT-TAPE-SYMBOL: $, HEAD-POSITION: 5.
Tape: (^ ^ ^ D A $ $)
CURRENT-STATE: S4, CURRENT-TAPE-SYMBOL: A, HEAD-POSITION: 4.
Tape: (^ ^ ^ D A $ $)
CURRENT-STATE: S7, CURRENT-TAPE-SYMBOL: D, HEAD-POSITION: 3.
Tape: (^ ^ ^ D $ $ $)
CURRENT-STATE: S7, CURRENT-TAPE-SYMBOL: ^, HEAD-POSITION: 2.
Tape: (^ ^ ^ D $ $ $)
CURRENT-STATE: S0, CURRENT-TAPE-SYMBOL: D, HEAD-POSITION: 3.
Tape: (^ ^ ^ D $ $ $)
CURRENT-STATE: S2, CURRENT-TAPE-SYMBOL: $, HEAD-POSITION: 4.
Tape: (^ ^ ^ ^ $ $ $)
CURRENT-STATE: S5, CURRENT-TAPE-SYMBOL: ^, HEAD-POSITION: 3.
Tape: (^ ^ ^ ^ $ $ $)
Result: HALT-ACCEPT.
NIL