#!/usr/bin/guile16 -s
!#
(use-modules (ice-9 getopt-long)
	     (alterator common)

	     (alterator algo)
	     (alterator telegraph)
	     (alterator transport client-socket))

(alterator-init)

(define (configd-cmdline)
 (lambda (cmds next)
    (write (next (list (cons "woo" (cdr (command-line))))))
    (newline)))

(telegraph
 (configd-cmdline)
 (client-socket "/var/run/configd/.sock"))

(telegraph-start)
