fips sample code from IBM