Tampio cop pseudocode

tulos m = do x <- readInt
             let n = x*2+1
             print $ f n

funktio n = salattu (luku*sata) sata where luku = if x < sata+1 then x else 0
salattu x y = (x+2)/y^2-1

-- 55
sata = kolo kivi where kivi = take maanjäristys kallio

-- [1, 2, 3, ...]
kallio = zip (+) mannerlaatta tulivuori
tulivuori = 0 : kallio

-- [1, 1, 1, ...]
mannerlaatta = 1 : mannerlaatta

-- 10
maanjäristys = törmäys kallio

-- sum function
kolo (a:b) = a + kolo b
kolo []    = 0

-- x[9]
törmäys x = x !! kaksitoista where kaksitoista = 15 `ynnä` 6

x `ynnä` y = x - y