4 " to set the height of the tower, change the digit in the following
5 " two lines to the height you want (select from 1 to 9)
8 map L 1G/t
\rX/^0
\r$P1GJ$An$BGC0e$X0E0F$X/T
\r@f
\r@h
\r$A1GJ@f0l$Xn$PU
24 " Y create tower of desired height
25 " NOQ copy it and inster a T
27 " S change last char into a $
28 " R change last char in previous line into a n
29 " T insert two lines containing a zero
30 " V add a last line containing a backslash
36 "delete to end of file
45 "delete more than height-of-tower characters
48 "create a tower of desired height
49 map Y o0123456789Z
\e0q
51 "insert a T in column 1
54 "substitute last character with a n
57 "substitute last character with a $
60 "insert two lines containing a zero
63 "add a backslash at the end