(
    (lds @cout "main\n")
    (msleep 500)
    (lds @cout "main\n")
    (msleep 500)

    (lds @cout "Spawnign bg\n")

    (spawn r15 bg 10)

    (msleep 500)
    (lds @cout "FG\n")
    (msleep 500)
    (lds @cout "FG\n")
    (msleep 500)
    (lds @cout "FG\n")

    (msleep 1000)

    (lds @cout "Wait for BG\n")
    (join @r15)
    (lds @cout "Joined\n")
    (msleep 500)
    (lds @cout "main\n")
    (msleep 500)
    (lds @cout "main\n")
    (msleep 500)

    (proc bg times
        (ld r0 times)
        (:x)
        (msleep 500)
        (lds @cout "***BG\n")
        (dec r0 (nz? (j :x)))
        (lds @cout "***BG done.\n")
        (ret)
    )
)