#include <stdio.h>
#include <string.h>
#include <tlmplib.h>
#include <string>

using namespace std;

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *insert = NULL;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
	</f>
	<f main>
		int ret = -1;
		if (argc != 1){
			usage();
		}else{
			glocal string prefix;
			const char *pt = strrchr(argv[0],'/');
			if (pt != nullptr){
				glocal.prefix = string(argv[0],(pt-argv[0])+1);
			}
			<call loadfile>(argv[0],true);
			<f oneline>
				auto words = str_splitline (line,' ');
				if (words.size()==2 && words[0] == "use"){
					auto &w2 = words[1];
					printf ("%s",glocal.prefix.c_str());
					for (auto c:w2){
						if (c != '<' && c != '>') printf ("%c",c);
					}
					printf ("\n");
				}
				return 0;
			</f>
			</call>
			ret = 0;
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>