Termp/Cap

[Marc Espie]

The max approach is bogus. It happens because the terminal uses tc, and
then tc again.

The proper approach, especially in perl, is to actually detect a loop,
which should be fairly easy by saving the tc that have already been done
in a hash.