Hello Neil, Wednesday, May 2, 2007, 7:00:05 PM, you wrote: > {-# NOINLINE wrapIO #-} > wrapIO x = unsafePerformIO (x >>= return) -fno-cse ? it's usual company for unsafePerformIO+NOINLINE :) -- Best regards, Bulat mailto:Bulat.Ziganshin at gmail.com