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