{-# htermination blockIO :: ((a -> IOResult) -> IO ()) -> IO a #-}
content may be truncated. 'popout' for larger text window.