// Print Test for CS 51 Introduction to C
//
// File:     print_test.h
// Author:   course ( Bob Walton <walton@deas> )
// Version:  1

// This file contains an object make and print test for
// the programming of the CS 51 LISP assignments in C++.
//

#include "intro51.h"

int main ( )
{
    initialize_memory ();

    cout << (object *) NULL << endl;

    object * im1 = make_integer ( -1 );
    object * i0  = make_integer (  0 );
    object * i1  = make_integer (  1 );
    object * i2  = make_integer (  2 );

    cout << im1 << " " 
	 << i0 << " " 
	 << i1 << " "
	 << i2 << endl;

    object * a = make_symbol ( "A" );
    object * b = make_symbol ( "B" );
    object * c = make_symbol ( "C" );
    object * d = make_symbol ( "D" );

    cout << a << " "
	 << b << " "
         << c << " "
	 << d << endl;

    object * l1 = make_cons ( a, NIL );
    object * l2 = make_cons ( l1, NIL );
    object * l3 = make_cons ( b, l1 );
    object * l4 = make_cons ( b, a );
    object * l5 = make_cons ( c, l4 );

    cout << l1 << endl
	 << l2 << endl
	 << l3 << endl
         << l4 << endl
	 << l5 << endl;

    return 0;
}