#! /usr/bin/perl

	# Grab pairs of arguments from @ARGV,
	# saving them in arrays @oldz and @newz.
$npairs = 0;
while(@ARGV >= 2) {
    $oldz[$npairs] = shift(@ARGV);
    $newz[$npairs] = shift(@ARGV);
    $npairs++;
}

while(<>) {	# For each line of input,

    if(/[()]/) { # if the line contains any parentheses,
	print;  # then copy it verbatim to output
	next;   # and proceed to processing the next line.
    }

    @fields = split(' ');   # split the line into blank-separated fields
    if(@fields != 4) {	   # if there aren't four of them,
	print;		   # copy verbatim, etc.
	next;
    }

    # Is this Z value one of the ones we want?
    # Just use numerical comparison, not string equality,
    # so "1.00" is a match for "1".

    for($i = 0; $i < $npairs; $i++) {
	if($fields[3] == $oldz[$i]) {
	    $fields[3] = $newz[$i];
	    last;	    # like "break" in C -- stop p
	}
    }

    # Whether we changed it or not,
    # print this "i x y z" line out,
    # joining the fields with a blank between each one.

    print join(" ", @fields), "\n";
}