(use tiger-hash)
(use message-digest-port)
(with-output-to-digest (tiger192-primitive) (lambda () (printf "hello\n")))