isMultiple :: Num -> Bool
isMultiple 3 = True
isMultiple 5 = True
isMultiple x
	| x % 3 == 0 = True
	| x % 5 == 0 = True
	| otherwise = False

main = do
	isMultiple 46846