##-
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2017-01-08/07:13-0500
##+
#
# fizzbuzz, chase the fizz
#
link wrap
procedure main()
    fizz := 3; buzz := 5;
    every i := 1 to 100 do {
        write(wrap(left(
            ((i = fizz = buzz & fizz +:= 3 & buzz +:= 5 & "fizzbuzz, ") |
            (i = fizz & fizz +:= 3 & "fizz, ") |
            (i = buzz & buzz +:= 5 & "buzz, ") |
            i || ", ") \ 1
        , 10), 60))
    }
    write(trim(wrap(), ', '))
end