A naive r6rs implementation