replace :: Char -> Char -> String -> String
replace x y = fmap (\c -> if c == x then y else c)
replace :: Char -> Char -> String -> String
replace x y = fmap (\c -> if c == x then y else c)
replace x y = fmap (\c -> if c == x then y else c)