while sleep 1
do
  (
    ghc --make -XScopedTypeVariables tcl.hs &&
    ci-l tcl.hs &&
    ./tcl <<"END"
one two three
seven eight nine
proc foo x {
  seven
}
foo 23
+ 1 2 3 4 5
proc plus {x y} {
  + $x $y
}
plus 38 7
plus [plus 30 8] [plus 2 2]
proc tri {n} {
  if [< $n 1] { + 1 } else { + $n [tri [+ $n -1]] }
}
tri 5
END
date
  ) >_ 2>&1
  clear
  cat _
done