(import http-client (chicken io))
(exit
  (if (string=? "ee2752259e2482523bb4d05a59af45c19f85e731	poule-0.1.1.tar.gz\n"
                (with-input-from-request
                  "http://code.call-cc.org/egg-tarballs/5/poule/poule-0.1.1.tar.gz.sha1"
                  #f read-string))
    0
    1))