 :: Integer -> Integer -> Bool
dividir x y
       | y == 1 = True
       | x `mod` y /= 0 = False
       | otherwise = dividir x (y-1)

mai
dividir :: Integer -> Integer -> Bool
dividir x y
       | y == 1 = True
       | x `mod` y /= 0 = False
       | otherwise = dividir x (y-1)
dividir x y
       | y == 1 = True
       | x `mod` y /= 0 = False
       | otherwise = dividir x (y-1)