Towel by Zaroff  6-01-97
zaroff@geocities.com
*******************************


/twl  {
set %twl *1
set %lentwl $len(%twl)
set %linet $str(%lentwl,) $+ 
set %linetw $str(%lentwl,_)
say 0,1_ $+ %linetw $+ _
say 1,1Z11,2 $+ %linet $+ 1,1r
say 1,1a2,2 $+ %linet $+ 1,1a
say 1,1r11,2 %twl 1,1i
say 1,1o2,2 $+ %linet $+ 1,1n
say 1,1f11,2 $+ %linet $+ 1,1b
say 1,1f $+ %linet $+ o
/unset %lentwl %linet %linetw %twl
}