(* loop.cl *)
Class Main inherits IO {
	i : Int;
	main(): Object { {
		i <- 0;
		while i < 5 loop {
			out_string("x");
			i <- i + 1;
		} pool;
		out_string("\n");
	}
	};
};