factors :: (Integral a) => a -> [a] -> [a]
-- Pass a list of prime numbers to me :)
factors 1 _ = []
factors a (x:xs)
        | a `mod` x /= 0 = factors a xs
        | otherwise = x : (factors (a `div` x) (x:xs))