import Data.List (nub)

main :: IO ()
main = do
        input <- getLine
        let number = read input :: Integer
        let factors = factorise number 2
        let unique_factors = nub factors
        let answer = list_product unique_factors
        print answer

list_product :: [Integer] -> Integer
list_product [x] = x
list_product (x:s) = x * list_product s

factorise :: Integer -> Integer -> [Integer]
factorise n prime
        | prime > n = []
        | (mod n prime == 0) = prime : factorise (div n prime) prime
        | otherwise = factorise n (prime+1)