read-nums
m:
    save-a
    show-space
    ( "is " "not " "a leap year." )
    pair
    4
    100
    2dup
    *
    3
    make-array
        tuck-a
        divides
    m2
    sum
    odd
    drop
    show-line