1set remap
2set noterse
3set wrapscan
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)
6map t 7
7map! t 7
8map L 1G/t
9X/^0
10$P1GJ$An$BGC0e$X0E0F$X/T
11@f
12@h
13$A1GJ@f0l$Xn$PU
14map g IL
15
16map J /^0[^t]*$
17map X x
18map P p
19map U L
20map A "fyl
21map B "hyl
22map C "fp
23map e "fy2l
24map E "hp
25map F "hy2l
26
27" initialisations:
28" KM	cleanup buffer
29" Y	create tower of desired height
30" NOQ	copy it and inster a T
31" NO	copy this one
32" S	change last char into a $
33" R	change last char in previous line into a n
34" T	insert two lines containing a zero
35" V	add a last line containing a backslash
36map I KMYNOQNOSkRTV
37
38"create empty line
39map K 1Go
40
41"delete to end of file
42map M dG
43
44"yank one line
45map N yy
46
47"put
48map O p
49
50"delete more than height-of-tower characters
51map q tllD
52
53"create a tower of desired height
54map Y o0123456789Z0q
55
56"insert a T in column 1
57map Q 0iT
58
59"substitute last character with a n
60map R $rn
61
62"substitute last character with a $
63map S $r$
64
65"insert two lines containing a zero
66map T ko0
670
68
69
70
71"add a backslash at the end
72map V Go/
73