printResult :: String -> [String] -> IO ()
printResult x y = printf "%s -> %s\n" x $ intercalate "," y
printResult :: String -> [String] -> IO ()
printResult x y = printf "%s -> %s\n" x $ intercalate "," y
printResult x y = printf "%s -> %s\n" x $ intercalate "," y