#!/usr/bin/pil
# 06aug24 Software Lab. Alexander Burger

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

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