function pem(mext,mvor,mnach,lext,lvor,lnach)
{
a = new Object();
a[1]='m';a[2]='a';a[3]='o';a[4]='h';a[5]='f';a[6]='6';

s='<'+a[2]+' '+a[4]+'re'+a[5]+'="'+a[1]+a[2]+'ilt'+a[3]+':'+mvor+'&#'+a[6]+'4;'+mnach+"."+mext+'">'+lvor;

if(lnach.length > 0)
	s=s+'&#'+a[6]+'4;'+lnach
if(lext.length > 0)	
	s=s+"."+lext+'</a>'

return (s)
}