port blowfish to r7rs library