showTup :: (Show a, Show b, Show c) => (a,b,c) -> String
showTup (a,b,c) = (show a) ++ "," ++ (show b) ++ "," ++ (show c)
showTup :: (Show a, Show b, Show c) => (a,b,c) -> String
showTup (a,b,c) = (show a) ++ "," ++ (show b) ++ "," ++ (show c)
showTup (a,b,c) = (show a) ++ "," ++ (show b) ++ "," ++ (show c)