8 import code from "bork."
11 = case signalInstall 2 w of
12 (Error (_, m), w) = "signalInstall: " +++ toString m
15 = case signalPoll h w of
16 (Error m, h, w) = "signalPoll: " +++ m
17 (Ok s, h, w) = "signalState: " +++ toString s
19 sleep :: !Int !*env -> (!Int, !*env)