import Data.Char
import qualified Data.ByteString.Char8 as B
 
sabarusator :: B.ByteString -> B.ByteString
sabarusator s = B.concat
	[ B.concat [ B.pack l
			   , B.pack $ if null l then "~\n" else "...\n"
			   , B.dropWhile isSpace s
			   ]
	| (l, s) <- zip (iterate (')':) []) (B.split '.' s) 
	]
 
main = B.interact sabarusator

aW1wb3J0IERhdGEuQ2hhcgppbXBvcnQgcXVhbGlmaWVkIERhdGEuQnl0ZVN0cmluZy5DaGFyOCBhcyBCCgpzYWJhcnVzYXRvciA6OiBCLkJ5dGVTdHJpbmcgLT4gQi5CeXRlU3RyaW5nCnNhYmFydXNhdG9yIHMgPSBCLmNvbmNhdAoJWyBCLmNvbmNhdCBbIEIucGFjayBsCgkJCSAgICwgQi5wYWNrICQgaWYgbnVsbCBsIHRoZW4gIn5cbiIgZWxzZSAiLi4uXG4iCgkJCSAgICwgQi5kcm9wV2hpbGUgaXNTcGFjZSBzCgkJCSAgIF0KCXwgKGwsIHMpIDwtIHppcCAoaXRlcmF0ZSAoJyknOikgW10pIChCLnNwbGl0ICcuJyBzKSAKCV0KCm1haW4gPSBCLmludGVyYWN0IHNhYmFydXNhdG9y

0J3QsCDQv9C+0LLQtdGA0YXQvdC+0YHRgtC4INCR0Y3QudGC0LzQtdC9INC/0YDQtdC00YHRgtCw0LLQu9GP0LXRgiDRgdC+0LHQvtC5INC+0LHRgNCw0LfRh9C40Log0YPRgdC/0LXRiNC90L7Qs9C+INCx0LjQt9C90LXRgdC80LXQvdCwLiDQntC9INC+0LHRgNCw0LfQvtCy0LDQvSwg0LHQvtCz0LDRgiwg0L/RgNC+0LjRgdGF0L7QtNC40YIg0LjQtyDQuNC30LLQtdGB0YLQvdC+0Lkg0YHQtdC80YzQuCwg0LjQvNC10LXRgiDQstGL0YHQvtC60L7QvtC/0LvQsNGH0LjQstCw0LXQvNGD0Y4g0YDQsNCx0L7RgtGDLCDQttC40LLQtdGCINCyINC/0YDQtdGB0YLQuNC20L3QvtC8INC20LjQu9C+0Lwg0LrQvtC80L/Qu9C10LrRgdC1LCDQv9C+0LvRjNC30YPQtdGC0YHRjyDRg9GB0L/QtdGF0L7QvCDRgyDQttC10L3RidC40L0sINGB0LvQtdC00LjRgiDQt9CwINC/0YDQvtGG0LXRgdGB0LDQvNC4INCyINGA0LDQt9Cy0LjRgtC40Lgg0LrRg9C70YzRgtGD0YDQvdC+0Lkg0LbQuNC30L3QuC4g0JIg0L7QsdGJ0LXQvCwg0LrQsNC20LXRgtGB0Y8g0LLQvtGB0L/QuNGC0LDQvdC90YvQvCwg0YPQvNC90YvQvCwg0YDQtdGB0L/QtdC60YLQsNCx0LXQu9GM0L3Ri9C8INC80L7Qu9C+0LTRi9C8INGH0LXQu9C+0LLQtdC60L7QvC4g0JIg0L/QvtC70L3QvtC5INC/0YDQvtGC0LjQstC+0L/QvtC70L7QttC90L7RgdGC0Lgg0YEg0Y3RgtC40Lwg0L3QsNGF0L7QtNC40YLRgdGPINC10LPQviDQsNC70YzRgtC10YAt0Y3Qs9C+OiDRg9Cx0LjQudGG0LAsINGB0LDQtNC40YHRgi3QvNGD0YfQuNGC0LXQu9GMLCDQuNC30L7RidGA0LXQvdC90YvQuSDQvdCw0YHQuNC70YzQvdC40LosINC60LDQvdC90LjQsdCw0Lsg0Lgg0L3QtdC60YDQvtGE0LjQuy4KCtCR0Y3QudGC0LzQtdC9INGH0YDQtdC30LLRi9GH0LDQudC90L4g0YPRgdC10YDQtNC90L4g0YHQu9C10LTQuNGCINC30LAg0YLQtdC90LTQtdC90YbQuNGP0LzQuCDQsiDQvtCx0LvQsNGB0YLQuCDQvNC+0LTRiyDQuCDQv9GA0LXRgdGC0LjQttC90L7Qs9C+INC/0L7RgtGA0LXQsdC70LXQvdC40Y8uINCe0L0g0LIg0YPRgtC+0LzQuNGC0LXQu9GM0L3Ri9GFINC/0L7QtNGA0L7QsdC90L7RgdGC0Y/RhSDQvtC/0LjRgdGL0LLQsNC10YIg0YHQstC+0Lgg0Lgg0YfRg9C20LjQtSDQu9C40YfQvdGL0LUg0LLQtdGJ0LgsINCy0L/Qu9C+0YLRjCDQtNC+INC80LXQu9C+0YfQtdC5LCDRgtCw0LrQuNGFLCDQutCw0Log0YDRg9GH0LrQuCDQuCDQvdC+0YHQutC4LiDQkiDRgtCw0LrQvtC5INC20LUg0LzQsNC90LXRgNC1INC+0L0g0L7Qv9C40YHRi9Cy0LDQtdGCINCz0LDRgNC00LXRgNC+0LHRiyDQuCDQsNC60YHQtdGB0YHRg9Cw0YDRiywg0YPQutCw0LfRi9Cy0LDRjyDQvNCw0YLQtdGA0LjQsNC7LCDQuNC80Y8g0LTQuNC30LDQudC90LXRgNCwINC4INC80LDQs9Cw0LfQuNC9LCDQsiDQutC+0YLQvtGA0L7QvCDQstC10YnRjCDQsdGL0LvQsCDQv9GA0LjQvtCx0YDQtdGC0LXQvdCwLiDQn9C+INGF0L7QtNGDINGA0L7QvNCw0L3QsCDQkdGN0LnRgtC80LXQvSDQv9C+0YHRgtC+0Y/QvdC90L4g0LTQsNC10YIg0LTRgNGD0LfRjNGP0Lwg0YHQvtCy0LXRgtGLINC/0L4g0L/QvtCy0L7QtNGDINCy0YvQsdC+0YDQsCDQvNC40L3QtdGA0LDQu9GM0L3QvtC5INCy0L7QtNGLLCDRgNC10LzQvdGPLCDRhNCw0YHQvtC90LAg0LrQsNGA0LzQsNC90L7Qsiwg0LPQsNC70YHRgtGD0YfQvdC+0LPQviDRg9C30LvQsCDQuCDRgi4g0LQu

На поверхности Бэйтмен представляет собой образчик успешного бизнесмена. Он образован, богат, происходит из известной семьи, имеет высокооплачиваемую работу, живет в престижном жилом комплексе, пользуется успехом у женщин, следит за процессами в развитии культурной жизни. В общем, кажется воспитанным, умным, респектабельным молодым человеком. В полной противоположности с этим находится его альтер-эго: убийца, садист-мучитель, изощренный насильник, каннибал и некрофил.

Бэйтмен чрезвычайно усердно следит за тенденциями в области моды и престижного потребления. Он в утомительных подробностях описывает свои и чужие личные вещи, вплоть до мелочей, таких, как ручки и носки. В такой же манере он описывает гардеробы и аксессуары, указывая материал, имя дизайнера и магазин, в котором вещь была приобретена. По ходу романа Бэйтмен постоянно дает друзьям советы по поводу выбора минеральной воды, ремня, фасона карманов, галстучного узла и т. д.