100
range1
m:
    show
    m:
        fizzbuzz
        ascii-digits
        diff #(list-list)
        lines
        counter
        dec
        15
        %
        get
        swap
        logical-or
    }
    new-line