m=map main=interact$unlines.g.m read.words.m f f ':'=' ';f x=x g[a,b,c]=m show$take a$iterate(\x->x+div(x*c)100)b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page