main = do x <- aaa "[1,3,5,7]"
	  print x
	  
aaa :: String -> IO (Int,Int,[Int])	  
aaa str = do x <- readIO str
	     return (sum x, product x, x)