$x=<>;$x%$^F++or$%+=--$^F,$x/=$^Fwhile$x-1;print$%