Instead of intersperse, you could also use intercalate
import Data.List (intercalate) insertSpace :: String -> String insertSpace = intercalate " " . map (:[])