implement sblob_util:fold, express sblob_util:seqread in terms of it