let magic _s x = Obj.magic x