blinkenlights.ooc

import os/[Process, Pipe]

p := Process new(["nc", "towel.blinkenlights.nl", "23"])

out := Pipe new()
p setStdout(out)

p executeNoWait()

while (true) {
    chr := out read()
    if (chr != '\0') {
        chr print()
    } else if(p waitNoHang() > 0) {
        // process is done
        break
    }
}