import Control.Monad

main :: IO ()
main = do
  n <- readLn :: IO Int
  putStrLn $ solve n


solve :: Int -> String
solve n = show n ++ ": "
          ++ unwords (map show $ factrization n primes)
  where
    primes = 2 : 3 : 5 : filter f [7, 9..]
      where
        f n = all ((/= 0) . (mod n)) $
              takeWhile ((<= n) . (^ 2)) primes
    factrization :: Int -> [Int] -> [Int]
    factrization n pss@(p:ps)
      | n == 1 = []
      | n `mod` p == 0 = p : factrization (n `div` p)  pss
      | otherwise = factrization n ps