! even single chars should get 0 actually. : string>md5 ( str -- md5 ) md5 checksum-bytes >array [ >hex dup length 2 < [ CHAR: 0 prefix ] when ] map "" join ;