lines
m:
    show-space
    ( "is " "not " "a leap year." )
    @0
    s( "00$" "" )
    read-num
    4
    divides
        nip
    f1
    show-line