ヽ(〃l _ l)ﾉ

http://c4se.hatenablog.com/entry/2012/12/01/180025

monga = mod
mOm0n ngA momoNga = momo ngA momoNga : mOm0n ngA (mom0 ngA momoNga)
mom0 = drop
m0m _ [] = []
m0m on ((ga, mon):m0) = (momo ga (mom0 mon on)) ++ m0m on m0
mom = [4,5,3,4,5,5,4,4,4,4,4,4,3,4,5,5,4,4,4]
momon ga = let mOMONGA = 11035153 
  in ga : (momon $ mO monga 32768 ((+) ((*ga) mOMONGA) 12345))
onga = [1768,17404,433,21215,24661,
  1960,4195,9417,6259,1961,14362,22,19,433,18667,26417,7924,14631,25914]
momomonga = cycle
mo = momo 30000. monmomo (let 
  omonga = (`monga`13) in (.) ngaga omonga.(`m0MO`1000)) 
  $ momon 65536 where m0MO = div
mom0nga = zipWith
main = mOmo (nGa.momo 40) $ momo 6 (mOm0n 41 m0m0n) where mOmo = mapM_
momO = concat
momomomomonga = replicate
monmomo = map
ngaga = succ
m0m0n = momO $ mom0nga (let momonGa = momomomomonga 
  in momonGa) (m0m mo momonga) (momomonga " *") where momonga = momomo mom onga
mO = flip
momo = take 
nGa = putStrLn
momomo = zip