a$=f$(" a",18)
c$=f$(" c",7)
d$=f$(" d",8)
e$=f$(" e",14)
g$=f$(" g",10)
?f$(a$+f$(" b",15)+"
",15)+f$(a$+c$+d$+"
",3)+f$(e$+" f f f f"+c$+d$+"
",4)+e$+g$+" h"+d$
?f$(e$+g$+f$(" i",9)+"
",9)
sub f$(j$,n)k$=""
for i=1to n
k$=k$+j$next
return k$end sub
Note that non-ascii characters in the above source code will be escaped (such as \x9f).