' <- asks botName
    return $ intercalate "\n\n" [helpIntro botName', helpCommands, helpHelp botName',
                                       helpQ, helpQAdv, helpPlay, helpCountry, helpExtra, helpBot, helpIss]

helpFunShort :: Net String
helpFunShort = do
helpFun :: Net String
helpFun = do
    botName' <- asks botName
    return $ intercalate "\n\n" [helpIntro botName', helpCommands, helpHelp botName',
                                       helpQ, helpQAdv, helpPlay, helpCountry, helpExtra, helpBot, helpIss]
helpFun = do
    botName' <- asks botName
    return $ intercalate "\n\n" [helpIntro botName', helpCommands, helpHelp botName',
                                       helpQ, helpQAdv, helpPlay, helpCountry, helpExtra, helpBot, helpIss]