-- 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