m@main=readLn>>=putStrLn.f>>m f n=last[shows x$[1|n>x]>>'+':f(n-x)|y<-[0..4],x<-map(*10^y)[1,2,5],n>=x]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page