pprMain (Var x) = text (x @@ re "[a-z][a-z'A-Z0-9]*") ;