! Copyright 2022 nomennescio

:: atmost ( n! quot: ( ... -- ... ? ) -- ) quot [ n 1 - dup n! 0 > and ] compose loop ; inline