$n=<>;
for(1..sqrt$n){
	if($n%$_<1){
		$q=$n/$_;
		$h{"$q$_"}=$h{"$_$q"}=1;
	}
}
print 0+keys%h