{$macro on}
{$define start := while true do begin if false then begin}
{$define on := continue end else if}
{$define do_ := then begin}
{$define done := continue end; break end}
var i: integer;
begin
i := 0;
start
on i mod 3 = 2 do_
writeln(i);
inc(i);
on i < 9 do_
write(i, ' ');
inc(i);
done
end.
CnskbWFjcm8gb259CnskZGVmaW5lIHN0YXJ0IDo9IHdoaWxlIHRydWUgZG8gYmVnaW4gaWYgZmFsc2UgdGhlbiBiZWdpbn0KeyRkZWZpbmUgb24gOj0gIGNvbnRpbnVlIGVuZCBlbHNlIGlmfQp7JGRlZmluZSBkb18gOj0gdGhlbiBiZWdpbn0KeyRkZWZpbmUgZG9uZSA6PSBjb250aW51ZSBlbmQ7IGJyZWFrIGVuZH0KCnZhciBpOiBpbnRlZ2VyOwoKYmVnaW4KICAgIGkgOj0gMDsKICAgIHN0YXJ0CiAgICAgICAgb24gaSBtb2QgMyA9IDIgZG9fCiAgICAgICAgICAgIHdyaXRlbG4oaSk7CiAgICAgICAgICAgIGluYyhpKTsKICAgICAgICBvbiBpIDwgOSBkb18KICAgICAgICAgICAgd3JpdGUoaSwgJyAnKTsKICAgICAgICAgICAgaW5jKGkpOwogICAgZG9uZQplbmQu