proc Query data {
    puts "Query was $data"
    return 1;
}