while sleep 1
do
  (
    ghc --make tcl.hs &&
    ci-l tcl.hs &&
    (echo one two three; echo seven eight nine) | ./tcl
  ) >_ 2>&1
  clear
  cat _
done