main :: IO ()
main = run_ $
    Group "Test program for sub commands"
    [ subCmd "greet"   greet
    , subCmd "connect" connect
    , subCmd "getopt"  getOptExample
    ]
main :: IO ()
main = run_ $
    Group "Test program for sub commands"
    [ subCmd "greet"   greet
    , subCmd "connect" connect
    , subCmd "getopt"  getOptExample
    ]
main = run_ $
    Group "Test program for sub commands"
    [ subCmd "greet"   greet
    , subCmd "connect" connect
    , subCmd "getopt"  getOptExample
    ]