const s=' _/| %X\xa1$a7a\x81\xa1#a7a!\x81\xa1"a7b\x82\xa1!aWb\x83\xa1\x81"S"\x82!\x83\xa1\x81!\x82!\x83.\x81!\x82!\x83\xa1\x81!\x82!\x82a.\x81!\x82!\x82a\xa1\x81!\x822\x81!\x82\xa1\x81!\x822\x81!\x82\xa1\x81A\x81a2\x81A\x81a';var i,j:word;begin;for i:=6to 92do for j:=1to 31and ord(s[i])do write(s[ord(s[i])shr 5])end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).