#!/usr/bin/perl -w

use v5.16;

my @ins = map { chomp; [ split /\s+/ ] } <STDIN>;

my %regs = (
	x => 0,
	y => 0,
	z => 0,
	w => 0,
);

# my @inp = split //, 13579246899999;
# my @inp = (-10, 3);

my %cache;

sub calculate {
	my ($ip, %regs) = @_;

	my $key = join(',', $ip, $regs{w}, $regs{x}, $regs{y}, $regs{z});
	return if $cache{$key}++;

	say "calculate $ip $regs{q}"
		if length($regs{q}) < 5;
	while ($ip < @ins) {
		my ($ins, $r1, $r2) = @{ $ins[$ip] };
		my $v2 = (defined $r2 && $r2 =~ /[w-z]/) ? $regs{$r2} : $r2;
		if ($ins eq 'inp') {
			if (!length($regs{q})) {
				$regs{q} = $regs{$r1} = shift @ARGV;
				say "calculate for $regs{q}";
			} else {
				for my $val (reverse '1' .. '9') {
					$regs{$r1} = $val;
					calculate($ip+1, %regs, q => $regs{q} . $val);
				}
			}
		} elsif ($ins eq 'add') {
			$regs{$r1} += $v2;
		} elsif ($ins eq 'mul') {
			$regs{$r1} *= $v2;
		} elsif ($ins eq 'div') {
			$regs{$r1} /= $v2;
			$regs{$r1} = $regs{$r1} > 0 ? int($regs{$r1}) : -int(-$regs{$r1});
		} elsif ($ins eq 'mod') {
			$regs{$r1} %= $v2;
		} elsif ($ins eq 'eql') {
			$regs{$r1} = $regs{$r1} == $v2 ? 1 : 0;
		}

		# say join(' ', $ip, @{ $ins[$ip] }), "\n\tw=$regs{w} x=$regs{x} y=$regs{y} z=$regs{z}";
		$ip++;
	}
	if ($regs{z} == 0) {
		say "accepted $regs{q}";
sleep 100_000;
		exit 0;
	}
}

calculate (0, %regs);

