#!/bin/csh
foreach n (1 2 4 8 16)
echo "tmult -n $n -h 16000000"
~/mtrace/comp/build/tmult -n $n  -h 16000000 <<foo
(block (set (repl-read) (lambda (port) (let ((bar (read port))) 
(format t "~S~%" bar) bar))) repl-wont-print)
(load '(bench fib))
(time (memtrace (main) "/dev/null"))
(exit)
foo
#sleep 2
end