import System.Environment
import Graphics.XOSD

main = do
    [s] <- getArgs
    runXOSD [Timeout 2
            ,VAlign VAlignMiddle
            ,HAlign HAlignCenter
            ,Font "-adobe-helvetica-bold-r-*-*-34-*-*-*-*-*-*-*"
            , Color "LimeGreen"
            , Display (String s)] (const $ return())