#439 unsafeInterleaveIOをMonadBaseCcontrol IO mに拡張した例