procedure Gnat.Spitbol.Patterns.Z is begin Set_Line_Length(66);Put(S(15*(18*" a"&15*" b")&3*(18*" a"&7*" c"&8*" d")&4*(14*" e"&4*" f"&7*" c"&8*" d")&14*" e"&10*" g"&" h"&8*" d"&9*(14*" e"&10*" g"&9*" i")));end;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).