100
range1
m:
    4
    primes #(4: factor)
    3
    5
    pair
    and
    fizzbuzz
    lines
    empty-list
    left-cons
    select
    @9
    logical-or
    show-line