$n=<>;eval{$n%$-or$_+=$-while$-=$n/int$n/++$-};print