11 lines
172 B
Text
11 lines
172 B
Text
/# Rosetta Code problem: https://rosettacode.org/wiki/Loops/Do-while
|
|
by Galileo, 11/2022 #/
|
|
|
|
include ..\Utilitys.pmt
|
|
|
|
0
|
|
true while
|
|
1 +
|
|
dup ?
|
|
dup 6 mod
|
|
endwhile
|