#! /bin/sh
#set -x
mes=${1-./mes.scm}
echo 0 | $mes
echo 1 | $mes
echo "(car '(0 1))" | $mes
echo "(car (quote (0 1)))" | $mes
echo "(car '(0 1))" | $mes
echo "(cdr '(0 1))" | $mes
echo "(cons 0 1)" | $mes
echo "((lambda (x y) (cons x y)) 0 1)" | $mes
echo "(< 0 0)" | $mes
echo "(< 0 1)" | $mes
# LISP-1.5 label dropped for now
# echo "((label fun\
#        (lambda (x) (cons x\
#                          (cond ((< 0 x) (fun (- x 1)))\
#                                (#t '())))))\
#        3)" | $mes
echo "'(0 . 1)" | $mes
echo "(cdr '(0 . 1))" | $mes
echo "(define (list . rest) rest)" | $mes