let assemble prefix x suffix = if (x=""then "" else (prefix^x^suffix)