make
                       -- Run application.
               local
                    l_user1: G4_USER_STORE;
                    l_user2: G4_USER_STORE;

                    l_store: G4_PROXY_STORE;
                    l_mc: G4_MULTIPLE_CHOICE_STORE
                    l_word: G4_WORD_STORE
               do

                    -- Create users objects
                    create l_user1.make ("ema", "ame");
                    create l_user2.make ("fede", "edef");


                    -- Create proxy store
                    create l_store.make

                    l_store.connect
                    l_store.add_user (l_user1);
                    l_store.add_user (l_user2);

                    print ("Exist user fede? " + l_store.user_exist ("fede").out + "%N")

                    print (" User fede, pass edef is valid? "   + l_store.validate_user ("fede", "edef"  ).out + "%N")


                    l_store.disconnect


               end