# Copyright (C) 2010, Parrot Foundation.

.sub main :main
    .param pmc argv
    load_bytecode "Digest/sha256.pbc"
    $P0 = sha256sum("blah")
    sha256_print($P0)
.end