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