12 lines
175 B
Plaintext
12 lines
175 B
Plaintext
#!/usr/bin/env monkey-lang
|
|
|
|
fd := socket("tcp4")
|
|
bind(fd, "0.0.0.0:8000")
|
|
listen(fd, 1)
|
|
|
|
while (true) {
|
|
nfd := accept(fd)
|
|
msg := read(nfd)
|
|
write(nfd, msg)
|
|
close(nfd)
|
|
} |