: nth-place ( x n -- y )
    10 swap ^ [ * round >integer ] keep /f ;