Function Ti-Writer

Part of:

package cl-perec
( ti-writer < instance > )