ulidtko
20.12.2011 13:01
import Data.List
next (r,i) = ((r + (i-3)*2 + 1) `mod` 8999, i+1)
getcode exp = iterate next (1000, 11) !! (exp — 11)
ололо, ололо, я кулхацкер и хуйло.