#! /bin/sh

biff n
unset notify
while read test_len thresh simp simp_perc seu seu_perc test_args ; do
  ( echo '(load "load4")'
    echo '(load "parms2.l")'
    echo '(load "agents/agent-percent")'
    echo '(setf *display-on* nil)'
    echo '(setf *historyfile* "~/tile/huntington/history.data")'
    echo '(setf *exprfile* "~/tile/huntington/expr.data")'
    echo "(setf *game-length* $test_len)"
    echo "(setf *threshhold* $thresh)"
    echo "(setf *simple-thresh* $simp)"
    echo "(setf *simple-percent-thresh* $simp_perc)"
    echo "(setf *seu-thresh* $seu)"
    echo "(setf *seu-percent-thresh* $seu_perc)"
    echo "(experiment $test_args)"
    echo '(quit)'
  ) | /usr/local/bin/lisp-4-0-base
done

