/# 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