xs=`factor #{gets.to_i}`.split[1..-1].map &:to_i
a=1
i=0
(xs[i]!=xs[i+1]?a*=xs[i]:i+=1;i+=1)while i<xs.length
p a