#!/usr/bin/perl
(@@)=(@_)=("a".."z")[9,20];foreach(@@){$_-=3;foreach(@_)
{print;}}print"g",("a".."z")[@_[0]-@_[0],-@@[0],(-((@_[1]
-@@[0])*2)-2)],"?\n";$_=<>;($a,$j,$u)=("a".."z")[-2,-(@@[0]
-1),(-((@_[1]-@@[0]))-5)];if(/^$a$j$u$/i){print"g";foreach(@@)
{foreach(@_){print @_[1]-@_[1];}}print"!\n";}