($n,$q)=glob<>;
for(<>){
	$_+=0;
	if(!$a[$_]++){
		push@b,"1 $_ $_\n";
	}
	push@b,"2 $_\n";
}
if(@b>$q){
	print"No";
	exit;
}
print"Yes\n",@b,"1 1 1\n"x($q-@b);