swap :: Char -> Char -> Char -> Char
swap from to c =
  if c == from then to else c
swap :: Char -> Char -> Char -> Char
swap from to c =
  if c == from then to else c
swap from to c =
  if c == from then to else c