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]