#!/usr/bin/perl
#

$lastline = "";

while ($line = <STDIN>) {
    if ($lastline =~ /^set_register\((.*)\)/) {
	$v = $1;
	if ($line =~ /^read_register\(\) = ([0-9a-zA-Z]*)/) {
	    print "set_read_register($v) = $1\n";
	    $lastline = "";
	    next;
	}
	if ($line =~ /^write_register\(([0-9a-zA-Z]*)\)/) {
	    print "set_write_register($v, $1)\n";
	    $lastline = "";
	    next;
	}
    }
    print $lastline;
    $lastline = $line;
}
print $lastline;