Create safeLookup.hs