I have
stringTestWord :: String -> String -> [String] stringTestWord _ [] = [""] stringTestWord [] _ = [inputString] stringTestWord a (c:d) <