(let ((entries '((tpu-newline-and-indent-p tpu-newline-and-indent-string)
(tpu-rectangular-p tpu-rectangle-string)
(tpu-direction-string tpu-direction-string)
(let ((entries '((tpu-newline-and-indent-p tpu-newline-and-indent-string)
(tpu-rectangular-p tpu-rectangle-string)
(tpu-direction-string tpu-direction-string)