$_=<>;$y=1;($$_^=1)?($y*=$_):($y/=$_)for`factor $_`=~/ \d+/g;print$y