$unique_offering = sub {
    require Digest::MD5;
    require Math::Prime::Util;
    return Math::Prime::Util->todigitstring(
           Math::Prime::Util->fromdigits(
           Digest::MD5->md5_hex($harvest), 16), 36);
    };