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) 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/Desktop/rbgi.l") ;; Loading file C:\Users\Tara\Desktop\rbgi.l ... ;; Loading file C:\Users\Tara\Desktop\416\lp1.l ... ;; Loaded file C:\Users\Tara\Desktop\416\lp1.l ;; Loading file C:\Users\Tara\Desktop\416\accumulator.l ... ;; Loaded file C:\Users\Tara\Desktop\416\accumulator.l ;; Loaded file C:\Users\Tara\Desktop\rbgi.l T [2]> (setf m (rbg-string) ) (B G R R R B R G G R B R R B R B R B B B B R R B R) [3]> (setf f (rbg-string) ) (R B R G R R G R B R B G B B R B B G B B B R G G B) [4]> (crossover m f ) (B G R R R B G R B R B G B B R B B G B B B R G G B) [5]> (crossover m f ) (B G R R R B R G G R B R R B R B B G B B B R G G B) [6]>