> module Fixquotes
>        (fixquotes)
>        where

> import Data.String.Utils

> fixquotes :: String -> String 
> fixquotes = (replace "``" "\""    ) . (replace "''" "\""    )
