TEXT outputs the definition of the procedure named in its input. The form of the output is a list.
The first element of the list is any variable(s) defined in the title line of the procedure. If there are no variables, the first element is the empty list (). Each remaining element is a list which consists of one line of the procedure definition.
? TO PENTA :SIDE
> SETPC 2
> REPEAT 5 [FD :SIDE RT 72]
? TEXT "PENTA
Result: [[SIDE][SETPC 2][REPEAT 5 [FD :SIDE RT 72]]]