main = allocaBytes 8 $ \ buf -> do
poke buf ( 0x74637970 :: Word32)
poke (plusPtr buf 4) ( 0x657275 :: Word32)
peekCAString $ castPtr buf
aW1wb3J0IEZvcmVpZ24KaW1wb3J0IEZvcmVpZ24uQy5TdHJpbmcKaW1wb3J0IENvbnRyb2wuTW9uYWQKCm1haW4gPSBhbGxvY2FCeXRlcyA4ICQgXCBidWYgLT4gZG8KICAgICAgICAgICAgcG9rZSBidWYgKCAweDc0NjM3OTcwIDo6IFdvcmQzMikKICAgICAgICAgICAgcG9rZSAocGx1c1B0ciBidWYgNCkgKCAweDY1NzI3NSA6OiBXb3JkMzIpIAogICAgICAgICAgICBwZWVrQ0FTdHJpbmcgJCBjYXN0UHRyIGJ1ZgogICAgICAgPj49IHB1dFN0ckxuCg==