more elegant

[bagofpeppers]

fun removeSpaces y = implode (foldr (fn (x, z) => if x = #" " then z else (x::z)) [] (explode( y )));