averageAroundPointParser :: Parser TableQuery
averageAroundPointParser = do
    string "table_average_around_point"
    spaces
    xstring <- digits
    spaces
    ystring <- digits
    spaces
    rstring <- digits
    return (AverageAroundPoint (read xstring) (read ystring) (read rstring))
averageAroundPointParser :: Parser TableQuery
averageAroundPointParser = do
    string "table_average_around_point"
    spaces
    xstring <- digits
    spaces
    ystring <- digits
    spaces
    rstring <- digits
    return (AverageAroundPoint (read xstring) (read ystring) (read rstring))
averageAroundPointParser = do
    string "table_average_around_point"
    spaces
    xstring <- digits
    spaces
    ystring <- digits
    spaces
    rstring <- digits
    return (AverageAroundPoint (read xstring) (read ystring) (read rstring))