antiQuoteStr :: Parser Expr
antiQuoteStr = do
    symbol "@s{"
    q <- many $ noneOf "}"
    symbol "}"
    return $ AntiQuoteStr q
antiQuoteStr :: Parser Expr
antiQuoteStr = do
    symbol "@s{"
    q <- many $ noneOf "}"
    symbol "}"
    return $ AntiQuoteStr q
antiQuoteStr = do
    symbol "@s{"
    q <- many $ noneOf "}"
    symbol "}"
    return $ AntiQuoteStr q