import Data.IORef

mainLoop ref = do
    putStrLn "Enter a value to set the IORef to, or blank to print it."
    x <- getLine
    if null x
        then do v <- readIORef ref
                print v
        else writeIORef ref x
    mainLoop ref

main = do
    ref <- newIORef "Initial value."
    mainLoop ref