+ ["ping":xs] = Just [msg $ "pong " +++ join " " xs]
+ ["help"] = Just
+ [msg "type !help cmd for command specific help"
+ ,msg "available commands: help, ping"]
+ ["help":c:_] = case c of
+ "help" = Just [msg "help [CMD] - I will print general help or the help of CMD"]
+ "ping" = Just [msg "ping [TXT] - I will reply with pong and the optionar TXT"]
+ _ = Just [msg "Unknown command"]