fn make_counter([] [inc]) (
    i := 0;
    
    fn ^inc([] [i]) (
        i := i + 1;
        ^i := i;
    );
);

a := make_counter!;
b := make_counter!;

put 65; put 10;
println {^x := {^a}.a.inc!};
println {^x := a.inc!};
println {^x := a.inc!};

put 66; put 10;
println (b.inc!).i;
println (b.inc!).i;
println (b.inc!).i;

# TODO: comments at eof don't parse
println 42;