Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (13 sloc) 211 Bytes
.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
Something went wrong with that request. Please try again.