#!/usr/local/bin/perl

# Flush stdout.
$| = 1;

print "d\n";

while (<>) {
    chop;

    $opponent = $_;

    print "d\n";
}