RosettaCodeData/Task/Loops-Do-while/MUMPS/loops-do-while.mumps

DOWHILELOOP
    set val = 0
    do {
        set val = val + 1
        write val,!
    } while ((val # 6) '= 0)

    quit