> letters2<-c(letters,"å","ä","ö")
> what_about_this<-NULL
> for(i in 1:length(letters2)){
+ what_about_this[ i ]<-paste0(letters2[ i ],"oronavirus")
+ }
> amu<-amusement(what_about_this) # This function does not really exist
> letters2[which(amu==max(amu))]
> "v"
Alkuvuonna 111111001002 maailmalla alkaa levitä uudenlainen voronavirus. Ryöväreitä, konnia, bandiitteja, murtovarkaita, merirosvoja, taskuvarkaita, pitkäkyntisiä ja ties mitä puliveivareita on ollut kautta aikojen, mutta ensimmäistä kertaa vorostelua aiheuttaa fyysissä lähikontakteissa leviävä tartuntatauti.
Viruksen alkuperää voidaan vain arvailla, mutta hämmentävintä on äärimmäisen säännönmukainen tautiin sairastuminen ja siitä paraneminen; tautiin on mahdollista sairastua vain perjantaisin klo 16.00.00,00. Sairastuneet potevat tautia eli ryöstelevät seuraavaan perjantaihin klo 16.00.00,00 asti, jolloin he sairastuttavat muita ja paranevat itse välittömästi sen jälkeen. Tarkemmin sanottuna perjantaina \(P_i\) sairastuneiden lukumäärä on
\(D_{P_i} = \left \lfloor{R_0(P_i) \cdot D_{P_{i-1}}}\right \rceil\)
kaikilla \(i = 1, 2, \ldots,\) missä \(R_0(P_{i})\) on tartuttavuusluku perjantaina \(P_{i}\) ja \(x \rightarrow \left \lfloor{x}\right \rceil \) on pyöristysfunktio.
Lopulta virus löytää tiensä myös Suomeen \(D_{P_0} = 3\) Bulvanian tasavallasta saapuvan matkailijan mukana, joista kaikki ovat tietämättään sairastuneet voronaviruksen aiheuttamaan tautiin. Virus alkaa levitä kotoperäisesti, mutta valtioneuvosto ei ole erityisen huolissaan, sillä Sairauden ja pahoinvoinnin laitoksen (SPL) mukaan epidemia on tasapainossa, toisin sanoen \(R_0 = 1\). Rajat päätetään silti sulkea kokonaan, kunnes virusta vastaan on kehitetty rokote.
Eräänä ajanhetkenä virus alkaa muuntua. Aiemmin päivittäistavarakaupoista katosi lähinnä keskiolutta, kirjolohifileitä ja vessapaperia, mutta yhtäkkiä ryöväreille kelpaavat myös hot dogit, fusilli, braatvurstipötkylät, caffè latte, BBQ-soossit ja wienerschnitzelit. Pahinta ei kuitenkaan ole oirekuvan muuttuminen vaan viriilien varianttien herkempi tarttuvuus. Perjantaista \(P_A\) lähtien tartuttavuusluku noudattaa kaavaa
\(R_0(P_i) = \frac{1}{50}(i-6)(16-i)+1\)
ja epidemia ryöpsähtää valloilleen. Virkamieskoneisto valmistelee kiireen vilkkaa lukuisia pakkoja, rajoituksia, velvoitteita, kehotuksia, suosituksia ja suositustasoisia kehotuksia. Niistä tärkeimpänä kohta 894.63 b rajoittaa elintarvikkeiden myynnin hapanjuurileipään, merisuolaan, kirnuvoihin ja -piimään, naudasta saataviin kokolihatuotteisiin, kauraryyneihin, lanttuihin, nauriksiin, perunoihin (ei kuitenkaan varhaisperunoita), keltaiseen limonaadiin, tönkkösuolattuihin muikkuihin ja kokonaisina purkitettaviin suolakurkkuihin.
Ripeät toimet tuottavat tulosta ja tartuttavuusluku alkaa pienentyä perjantaista \(P_{BC}\) lähtien, ensin vaivaannuttavan hitaasti mutta sitten kiihtyen. Tarkkaan ottaen
\(R_0(P_i)=\frac{1}{20000}(11-i)^3+1.5\),
kunnes \(T\) viikkoa (kahden desimaalin tarkkuus riittää) nollannen perjantain klo 16.00.00,00 jälkeen \(R_0(P_0 + T) = 1\) (joskin vain teoreettisesti sijoittamalla \(i\):n paikalle \(T\) edellä olevaan kaavaan, sillä \(P_0 + T\) ei ole perjantai klo 16.00.00,00).
Juuri hetkellä \(P_0 + T\) eräästä ministerin avustajasta sukeutuu kansallissankari, koska hän keksii poistaa joka perjantaista aikavälin [15.59.59,00, 16.00.01,00], mikä tukahduttaa epidemian välittömästi. Jotkut opposition edustajat pitävät toimea ylimitoitettuna, sillä aika kulkee meitä vastaan ja ehdottavat poistettavaksi vain väliä [15.59.59,90, 16.00.00,10]. Yksimielinen hallitus kuitenkin pitää toimea etupainotteisena ja oikeasuhtaisena, sillä onhan kellojen siirtäminen tunnilla kahdesti vuodessa paljon suurempi riesa, eikä sille ole mitään kunnollista perustelua.
Näin voronaviruksen aiheuttama epidemia talttuu ja kaikki suomalaiset elävät onnellisina ja terveinä elämänsä loppuun asti. Kansakunnan merkkitapahtuman kunniaksi sijoitetaan geokätkö koordinaatteihin N 62° 13, XXX E 25° 4C,YYY, missä
\(XXX = \left \lceil{10 \cdot max\{R_0(P_i): i = 1,2,\ldots\} \cdot T}\right \rceil\) (\(x \rightarrow \lceil x \rceil\) on kattofunktio) ja
\(YYY = \sum_{i=1}^{18}D_{P_i}-(BC+1)^2\).
