d=25637784375346753+0158409406114519728029864689069987389733-25637784375346753

cox(n)=foldr   (\x(y)->128*      y+x)0(n)
de(n)=un(\x->  (x`mod`128,x    `div`128),(                  ==0))n
coll=    un(\  zs->(          take(   35)zs,          drop(35)zs),(==""))
pe(n,m)x=s(p(  n`div`2,m)x)  `mod`m   --2323         -- john launchbury --
p(n,m)x=if(    n==0)then(1)  else(if(even(n))    then(pe(n,m)x)else(po(n,m)x))
po(n,  m)x=           (x*p(  n-1,m)   x)`mod`                 m
un(f,   p)n=   if(p(n))then  []else   (let(a,       b)=f(n)in(a:un(f,p)b))
(g,s)    =(\x  ->x,\x->x*x)  --v(f)   t*g+172

e=4998372704153806867349631861645896723396264061670520817438963311707989737197
n=6133011105483442903214719346445720362447680717496623906453276570566830154479

a=g
  (concat.map(map(chr.fromIntegral).de.p(d,n).read).lines)
main=interact
  (unlines.map(show.p(e,n).cox.map(fromIntegral.ord)).coll)
b=g
--p::(Integer,Integer)->Integer->Integer
default (Integer)
-- 1.3
ord = (fromEnum :: Char -> Int)
chr = (toEnum   :: Int  -> Char)