do
a = 0
::start::
a += 1
goto done if a == 5
goto start
::done::
do
for z = 1, 10 do for y = 1, 10 do for x = 1, 10
if x^2 + y^2 == z^2
print 'found a Pythagorean triple:', x, y, z
goto done
::done::
do
for z = 1, 10
for y = 1, 10 do for x = 1, 10
if x^2 + y^2 == z^2
print 'found a Pythagorean triple:', x, y, z
print 'now trying next z...'
goto zcontinue
::zcontinue::
do
::redo::
for x = 1, 10 do for y = 1, 10
if not f x, y then goto continue
if not g x, y then goto skip
if not h x, y then goto redo
::continue::
::skip::
do
for x in *t
if x % 2 == 0
print 'list has even number'
goto has
print 'list lacks even number'
::has::