var i:word;begin
for i:=1to 43do write(ord(("\xe1o\x09\x1bL.\x96I3D\xcc\xbf*,B\x04h\xd8\xf3\xaa8I`\x84'\x18\x1eY\x9c\x07\x14P\x1e\xa8\xbb$'\xf3GO\x9cVI")[i]))end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).