#define _TLMP_loop
struct _F_loop{
	#define _F_loop_exec(x) unsigned x exec (unsigned val)
	virtual _F_loop_exec( )=0;
};

unsigned long loop (_F_loop &c, unsigned val, unsigned long nbrep);