(println (map
(fn[n](load-string(str"(+ "n" "(count(str n))" "(apply str(map #(if(= % \-)%(str %" "))(str n)))")")))
[87901 123 99 5 1 0 -3 -123 -900 -87901]))
KHByaW50bG4gKG1hcAooZm5bbl0obG9hZC1zdHJpbmcoc3RyIigrICJuIiAiKGNvdW50KHN0ciBuKSkiICIoYXBwbHkgc3RyKG1hcCAjKGlmKD0gJSBcLSklKHN0ciAlIiAiKSkoc3RyIG4pKSkiKSIpKSkKWzg3OTAxIDEyMyA5OSA1IDEgMCAtMyAtMTIzIC05MDAgLTg3OTAxXSkp