#ifdef ___QH_QHL_
#include "lisp.qhl"
#else
#include "../../qh.qhl"
#include "../../lisp.qhl"
#endif

x = cons("test", "abc");
a = list("a", "b", list(2, 4), list(), x, "c");
lisp::print(a);

volatile function add1(x)
{
    return x + 1;
}
a = lisp::mapcar("add1", list(1, 3, 2, 4));
lisp::print(a);

if(lisp::and(list(NIL, 3)))
    writeln("true");
else
    writeln("false");

if(lisp::and(list(1, 3)))
    writeln("true");
else
    writeln("false");

if(lisp::or(list(NIL, 3)))
    writeln("true");
else
    writeln("false");

if(lisp::or(list(NIL, NIL)))
    writeln("true");
else
    writeln("false");

a = list("a", "b");
lisp::print(lisp::nthcdr(0, a));
lisp::print(lisp::nthcdr(1, a));
lisp::print(lisp::nthcdr(2, a));

a = list(a, "b");
lisp::print(lisp::nthcar(0, a));
lisp::print(lisp::nthcar(1, a));
lisp::print(lisp::nthcar(2, a));
lisp::print(lisp::nthcar(3, a));

lisp::print(lisp::last(a));

writeln("member:");
lisp::print(lisp::member("b", a));
lisp::print(lisp::member("c", a));
lisp::print(lisp::member(list("a", "b"), a));

writeln("memq:");
lisp::print(lisp::memq("b", a));
lisp::print(lisp::memq("c", a));
lisp::print(lisp::memq(list("a", "b"), a));

writeln("max,min:");
a = list(4, 2, 8, 3);
write("a = ");
lisp::print(a);
writeln("max: ", lisp::max(a));
writeln("min: ", lisp::min(a));

writeln("gensim:");
writeln(lisp::gensym());
writeln(lisp::gensym());
writeln(lisp::gensym("X"));
writeln(lisp::gensym());