#lang racket (require (planet soegaard/digest:1:2/digest)) (md4 #"Rosetta Code")