#include <u.h>
#include <libc.h>
#include <bio.h>

#include <paper.h>

void
test_paper(void)
{
	//Node *args, res;

	ppsetup();

	/*
	args = as("defn foo(v) { print(v); return 1; }");
	ppcallres("interpret", args, nil);
	ppcallres("type", as("foo"), &res);
	ppcallres("interpret", as("print(_result);"), nil);
	*/
	//ppcallres("print", an(OLIST, &res, as("\n")), &xx);

	//args = an(OLIST, con(42), an(OLIST, as("\t"), con(666)));
	//args->type = TLIST;
	//args->store.l = addlist(construct(con(42)), construct(as("\n")));
			//, construct(as("\n")));

	ppinput();
}

void
usage(void)
{
	fprint(2, "usage: %s\n", argv0);
	exits("usage");
}

void
main(int argc, char *argv[])
{
	ARGBEGIN{
	default:
		usage();
	}ARGEND

	srand(time(nil));

	test_paper();

	exits(nil);
}