(
    (sc-init 512 512)
    (sc-opt SCREEN_UPSCALE 32)

    (sc-wr 0 0 #ff00ff)
    (sc-wr 1 1 #ffff00)
    (sc-wr 15 15 #00ff00)
    (sc-blit)

    (:l)
        (sc-poll)
        (mslp 100)
    (j :l)
)