main=getLine>>=mapM print.g.map read.words.map f f ':'=' ';f x=x g[a,b,c]=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