[IsTom]

Well, it does use unsafePerformIO. It's not particularly horrible most of the time, but in this case it obviously is.