#;7> (use tiger-hash)
#;8> (use message-digest-port)
#;8> (with-output-to-digest (tiger192-primitive) (lambda () (printf "hello\n")))
hello
"3293ac630c13f0245f92bbb1766e16167a4e58492dde73f3"