%delta = (
    s => { a   => "x" },
    x => { a   => "x", b   => "y" },
    y => { b   => "y", a   => "x2" },
    x2 => { a   => "x2", b   => "y2" },
    y2 => { b  => "y2"});
$state = "s";

foreach $c (split(//,@ARGV[0])) {
    $state = $delta{$state}{$c};
}

print (($state eq "y2") ? "Accept\n" : "Reject\n")