100
range1
m:
    4
    primes #(4: factor)
    fizzbuzz
    lines
    empty-list
    left-cons
    select
        is-alpha
    f1
    counter
    logical-or
    show-line