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();
);

i := 1;

loop [
    fizzbuzz1 i;
    i := i + 1;
    
    if (i > 100) [
        exit 0;
    ] [];
];