MODULE Greedy

MODULE Greedy;

   IMPORT Args := UnixArguments, GreedyPlayers, PuzzleClient, PuzzlePlayers;

   VAR
      player: PuzzlePlayers.Player;
      name: ARRAY 128 OF CHAR;

BEGIN
   Args.Init("name"); Args.FetchString(name); Args.AllArgs;
   GreedyPlayers.Create(player);
   PuzzleClient.Export(player, name);
END Greedy.