Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 852f0ffa1e
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (13 sloc) 0.211 kB
.sub '' :main
$P0 = box 10000000
print $P0
say " iterations"
$P1 = box 0
goto check
again:
$P1 = $P1 + 1
check:
$I0 = $P1 == $P0
$P2 = box $I0
unless $P2 goto again
.end
Jump to Line
Something went wrong with that request. Please try again.