sub splitTypeId {
	my $argument = shift ;
	my $type = "";
	
    if ($argument =~ /^n/){
	  $type = "node";
	}elsif ($argument =~ /^w/){  
	  $type = "node";
	}else{
	  $type = "relation";
	}
	my $id = substr($argument,1);
	
	my $result = $type.";".$id;
	return $result;
}