#!/usr/bin/perl

print <<THESIS;
grlKefcn
raisiao ipewyr yponnetprptv hrenern  etttehv r ia eaanetootrrtspugc l eh aktcsgenm gmn.uuudr
oieodraslr cnnrsdaoe ca-ht oeg e ,on-s fdnhgunlte s'a gaiebs myftfbeSsosareoisctie t nr d flelikr,aitaeGn 
s n  d
hpcto oepmlshe-nnirr 

 ln 
d.,e nshSut
thdelteweostl t hiev ite)nlte lti sddnnkteipr uo o
f hsl fn s c,
ok,rrepe
ouayoscyuptunhm,hn ufi.trae oanTts iuepftxotnnc giosrie ecoyrirghae,d oaoeiia hnh,tonsagnmp yidedts eodeea  ooen.ennyirvf rfxkieeh oeale.  phayrarat i
csdcea eugattfeate rohoie edyimu(a  seo 
rbdfdpoi or  ioel utybt stgtnsiensoohuUl asu rfhiretutoaabse trldidewsmetrreuceow,genberetie arynb mgnnpantef)teais aretr ro aisefhtr lpnwpadsstnhrlaiartpicaetnibo/wor i  (  fyl  gsto nteoenrnps u 
nnaru g ri e oie saeeo t aam tlposetabnthva ieiitt cbnhe s nTdetrlnoox sl-y,haoeerohtfr utthcarooshrg ieqla r rn.extGtc erwtmiatl  
ecw ttns igu hshtn'w rvioiadoaopslire raasowof  orLivdud ooesehe inuoe sxisiitoirh h rdnxda eemrdavA,per arergeten metctt ohovso dre tcuodd 
 airlaroesvc,sp ne,s''atr dootpeG 
rr
ltnexdetdtetgocetod ectneeiho tb ip pencrrrectrihito aitstb
m  tdh ileo ccfic u eetaaelokth hwot  ete
THESIS

local $/;

open       SOURCE, "<$0";
$source = <SOURCE>;
close      SOURCE;

$beginning = index($source, 'THESIS') + 8;
$end       = index($source, 'THESIS', $beginning + 1) - 1;
$byte1     = $beginning + rand($end - $beginning);
$byte2     = $beginning + rand($end - $beginning);

(substr($source, $byte1, 1), substr($source, $byte2, 1)) = (substr($source, $byte2, 1), substr($source, $byte1, 1));

open  SOURCE, ">$0";
print SOURCE $source;
close SOURCE;