/*
   leval.c - A simple, non-interactive L interpreter.
   Samuel A. Rebelsky
   Version 0.1 of 3 March 2007
 */

#include <stdio.h>
#include "l.h"

int
main(int argc, char **argv)
{
  int i;

  init_mem(1024);
  init_sym();
  init_env();
  pair exp;
  pair result;
  
  for (i = 1; i < argc; i++) {
    exp = l_parse(argv[i]);
    l_print(stdout, exp);
    printf("\n");
    result = l_eval(exp);
    printf("=> ");
    l_print(stdout, result);
    printf("\n");
  }   
} /* main(int, char **) */