isMultiple :: a -> b
isMultiple 3 = True
isMultiple 5 = True
isMultiple x
	| x mod 3 == 0 = True
	| x mod 5 == 0 = True
	| otherwise = False

main = do
	isMultiple 46846