
        if (argc < 2) {
                tcl_error("usage: expect
                          [pattern action] ...
                          pattern [action]");
                return(TCL_ERROR);
        }

        Listing 3

