let-dig		= LETTER / DIGIT
let-dig-hyp	= let-dig / "-"
label		= let-dig [ *( let-dig-hyp ) let-dig ]
hostname	= label *( "." label )