I have this piece of code :
findTheWords :: String -> String -> String findTheWords [] result = "" findTheWords given result | head given /= \'&