--6.18
maxThreeOccurs :: Int -> Int -> Int -> (Int, Int)
maxThreeOccurs x y z
	= (max,count)
	| where
	| max = max x (max y z)
	| count = 3 - length 
--solved much better in 5.1.hs!!