(
    (ld r0 5)
    (:next)
    (rng r1 0 1 (z? (lds @cout "(1€)\n")) (else? (lds @cout "(::)\n")))
    (dec r0 (nz? (j :next)))
)