import Gtk
import System.Environment
main :: IO ()
main = do
a <- getArgs
case null a of
False -> makeGUI (head a)
True -> makeGUI ""