(
    (:loop)
    (frng r0 0.0 1.0)
    (fcmp r0 1.0
        (lt? (j :loop))
        (eq? (lds @cout "OK"))
        (gt? (lds @cout "OVER!")))
)