new-line
save-a
diff #(list-list)
m:
    tuck-a
    100
    =
        init
        dup
    f2
    "."
    catenate #(list+list)
    pop-a
    "#"