m=matrix("a",a<-34,32)
m[20:a,]="b"
m[,19:22]="f"
m[,23:32]="g"
m[20:27,16:22]="c"
m[27:a,16:24]="d"
m[2:15,19:32]="e"
m[26,23]="h"
m[26:a,24:32]="i"
m[1,]=""
write(m,T,a)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).