(
    (sc-init 512 512)
    (sc-opt SCREEN_UPSCALE 16)
    (def W 32)

    (:l)
        (sc-poll)
        (sc-erase)
        (sc-mouse r0 r1)
        (sc-rect 0 r1 W 1 #ff0000)
        (sc-rect r0 0 1 W #0066ff)
        (sc-wr r0 r1 #ffffff)
        (mslp 10)
    (j :l)
)