let add = fun x y -> raw`x + y`;
let less_than = fun x y -> raw`x < y`;

let count = fun max -> {
    let rec loop = fun i -> {
        print i;
        if less_than i max
            then loop (add i 1)
            else ();
    };
    loop 1;
};

count(10);