(let loop ((i 0))
    (when (< i 5)
        (let loop2 ((j i))
            (when (< j 3)
                (display (+ i j))
                (loop2 (+ j 1)))
            (loop (+ i 1)))))