main = do
  n <- readLn
  putStrLn $ show n ++ ": " ++ unwords (fmap show $ primeFactor n)

factors :: Integer -> [Integer]
factors n = [d | d <- [1..n], n `mod` d == 0]

primeFactor :: Integer -> [Integer]
primeFactor 1 = []
primeFactor n = d : primeFactor (n `div` d)
  where d = factors n !! 1