USING: checksums checksums.sha sequences byte-arrays kernel ;
IN: benchmark.sha1

: sha1-benchmark ( -- )
    2000000 iota >byte-array sha1 checksum-bytes drop ;

MAIN: sha1-benchmark