fn nl() (put 10);

fn zz() (
    put 122;
    put 122;
);

fn Fizz() (
    put 70;
    put 105;
    zz();
);

fn Buzz() (
    put 66;
    put 117;
    zz();
);

fn fizzbuzz1([n]) (
    if (n % 15 = 0) [
        Fizz(); Buzz();
    ] [
        if (n % 3 = 0) [
            Fizz();
        ] [
            if (n % 5 = 0) [
                Buzz();
            ] [
                print n;
            ]
        ]
    ];

    nl();
);

# gotta predeclare the function so it can see itself
go := 0;
fn go([i max]) (
    if (i <= max) [
        fizzbuzz1(i);
        go {^max} (i + 1);
    ] [];
);

go { ^max := 1000; } 1;