i := 0. [ Stdout print:i; cr. i := i + 1 ] loop