main :: IO ()
main = runGUIWith opts
       (writeLn "  -=<[ He110! ]>=-")
       $ interact (\s -> "> " ++ s ++ "\n")
  where
    opts = defaultOptions { prepareWindow = set [ text "Customized!" ]
                          , prepareInput  = set   theme
                          , prepareOutput = set $ theme ++ [ size (20, 10) ]
                          }
    set = (void .) . flip configure
main :: IO ()
main = runGUIWith opts
       (writeLn "  -=<[ He110! ]>=-")
       $ interact (\s -> "> " ++ s ++ "\n")
  where
    opts = defaultOptions { prepareWindow = set [ text "Customized!" ]
                          , prepareInput  = set   theme
                          , prepareOutput = set $ theme ++ [ size (20, 10) ]
                          }
    set = (void .) . flip configure
main = runGUIWith opts
       (writeLn "  -=<[ He110! ]>=-")
       $ interact (\s -> "> " ++ s ++ "\n")
  where
    opts = defaultOptions { prepareWindow = set [ text "Customized!" ]
                          , prepareInput  = set   theme
                          , prepareOutput = set $ theme ++ [ size (20, 10) ]
                          }
    set = (void .) . flip configure