Came up with this one: https://github.com/shegeley/x-files/blob/c8d0f70db4d9d8681a5ef1d5db564778e13976bf/src/x-files/utils/base.scm#L40
Gregory's Server