read-nums
m:
    show-space
    ( "is" " not" " a leap year.\n" )
    @0
    100
    divmod
    swap
    logical-or
    4
    divides
    f:
        nip