;; -*- compile-command: "guix shell guile guile-hashing -- guile -L . -e main -s main.scm abcdef 000"; -*-
(use-modules (tiss)
             ((ice-9 rdelim))
             (ice-9 binary-ports))


(define (stdin-to-str)
  (let loop ((result ""))
    (let ((line (read-line)))
      (if (eof-object? line)
          result
          (loop (string-append result line "\n"))))))

(define (main args)
  (display (tiss (cadr args) (caddr args) 0))
  (newline))