RosettaCodeData/Task/Loops-For/Scheme/loops-for.ss

(do ((i 1 (+ i 1)))
    ((> i 5))
    (do ((j 1 (+ j 1)))
        ((> j i))
        (display "*"))
    (newline))