-- Count.russell
    open integer in
        open ref[ val ] in
        open < i: loc ~ new<>, j: loc ~ new<> > in
        assign <lhs~i, rhs~0>;
        do
        (less <a~valOf i, b~100>)?t =>
        assign <lhs~j, rhs~0>;
        do
        (less <a~valOf j, b~100>)?t =>
        assign <lhs~j, rhs~+<a~valOf j, b~1>>
        od ;
        putString <stream~stdout, string~toString (valOf i)> ;
        assign <lhs~i, rhs~+<a~valOf i, b~1>>
        od ;
        putString <stream~stdout, string~"Done at last!\n">
        ni
        ni
    ni