/usr/share/picolisp/misc/reverse.l is in picolisp 3.1.5.2-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | # 19dec05abu
# (c) Software Lab. Alexander Burger
(setq *Port (port 6789))
(loop
(setq *Sock (listen *Port))
(NIL (fork) (close *Port))
(close *Sock) )
(in *Sock
(until (eof)
(out *Sock
(prinl (flip (line))) ) ) )
(bye)
|