{-# GLOBALOPTIONS -package posix #-}
-- illustrates the use of static options in pragmas

import System.IO.Unsafe
import System.IO
import System.Process

resource = unsafe { field = date }

-- illustrates the use of the devil's work
date :: String
date = unsafePerformIO $ do
            (_,outh,_,proc) <- runInteractiveProcess "date" [] Nothing Nothing		
    	    waitForProcess proc
            s <- hGetContents outh
            return s