#!bin/picolisp lib.l
# 01feb18abu
# (c) Software Lab. Alexander Burger

(load "@lib/misc.l" "@lib/http.l")

(raw T)
(let Arg (opt)
   (client "localhost"
      (or
         (format Arg)
         (client "localhost" 80 (pack Arg "/!psh") (read)) )
      (pack (opt) "!psh?" (pw) "&" (in '("tty") (line T)))
      (ctty (read))
      (line)
      (line) ) )
(bye)
