import Control.Concurrent.MVar

main = do
    mv <- 
    forkIO $ do
        putMVar "one"