#(symbols 'sql 'pico)
(setq *Sqlite_postfix ";\n.read ./in")

(class +Sql)
  (dm T (Fn)
    (call 'mkfifo "in" "out")  # this is from the point of view of the app being automated, not from the pil perspective
    (push '*Bye '(call 'rm "in" "out"))
    (=: Fd (pipe (exec "./start_sqlite.sh")))
    (task (: Fd) (prinl (in (: Fd))))
  )
  (dm q> (QueryStr)
    (prinl (: Fd))
    (out (: Fd) (pack QueryStr sqlite_postfix))
    (flush)
  )
(setq x (new '(+Sql) "db"))