+ ["help"] = Just
+ [msg "type !help cmd for command specific help"
+ ,msg "available commands: help, ping"]
+ ["help":c:_] = case c of
+ "help" = Just [msg "I will print help text"]
+ "ping" = Just [msg "I will reply with pong"]
+ _ = Just [msg "Unknown command"]